Class Circle_ (unit DXF_structs)

Inherits from

Point_

///////////////////////////////////////////////////////////////////////////// Circle Definition /////////////////////////////////////////////////////////////////////////////

Constructors


constructor create(OCSaxis,p_1:Point3D; radius_:double; col:integer);

///////////////////////////////////////////////////////////////////////////// Circle /////////////////////////////////////////////////////////////////////////////

constructor create_from_polyline(ent1:DXF_Entity);



Functions

function details : string;

bug in Ellipse routine causes crash if extents are too small

procedure Draw(acanvas:TCanvas; map_fn:coord_convert; OCS:pM);


function is_point_inside_object2D(p:Point3D) : boolean;


procedure max_min_extents(var emax,emin:Point3D);


procedure write_to_DXF(var IO:textfile; layer:string);


Properties

Events

Variables

radius : double;



Constructors


constructor create(OCSaxis,p_1:Point3D; radius_:double; col:integer);

///////////////////////////////////////////////////////////////////////////// Circle /////////////////////////////////////////////////////////////////////////////


constructor create_from_polyline(ent1:DXF_Entity);


Functions


function details : string;

bug in Ellipse routine causes crash if extents are too small


procedure Draw(acanvas:TCanvas; map_fn:coord_convert; OCS:pM);


function is_point_inside_object2D(p:Point3D) : boolean;


procedure max_min_extents(var emax,emin:Point3D);


procedure write_to_DXF(var IO:textfile; layer:string);


Properties


Events


Variables


radius : double;