Skip to content

Latest commit

 

History

History
80 lines (68 loc) · 1.82 KB

File metadata and controls

80 lines (68 loc) · 1.82 KB

Locus

Description

Procedure Locus creates a 2D locus object at the specified coordinate location.

PROCEDURE Locus(pX,pY : REAL);
def vs.Locus(p):
    return None

Parameters

Name Type Description
p REAL Coordinate location of new locus.

Examples

VectorScript

PROCEDURE Example;
VAR
x, y :REAL;
BEGIN
HCenter(FSActLayer, x, y);
Locus(x, y);
END;
RUN(Example);

Python

x = 100
y = 0
vs.Locus (x, y)
BeginMxtrd(cHeight+cRoof_Thickness,cHeight+cRoof_Thickness+cRise);
	Rect(-(cWidth/2+cOverhang),-(cWidth/2+cOverhang),(cWidth/2+cOverhang),(cWidth/2+cOverhang));
	Locus(0.0,0.0);
EndMxtrd;
SetTextureRef(lNewObj,-1,3);

Rise := Rise * ( 360 / angle );
L := angle * rise;
Absolute;
BeginSweep (180-angle, angle, kDt, -rise);
	Locus (radius + width/2 ,0);
	MoveTo (0, 0);
	Relative;
	Rect (0, 0 , width, -thk);
EndSweep;

BEGIN
	Absolute;
	Locus(-gShaftWidth/2,0.0);
	SetLW (LNewObj, 1);
	SetPenFore (LNewObj,65535,65535,65535);
	Locus(gShaftWidth/2,0.0);
	SetLW (LNewObj, 1);
vs.Locus(0,0)
hTempLocus = vs.LNewObj()

vs.Locus((vs.PRadius+vs.PCurb_Width+(vs.PWidth/2)),0); SetAttrsByClassOrParent( vs.LNewObj(), gObjHandle, gCurb_Class )
vs.EndSweep()

if ok:
	vs.Locus(center); SetAttrsByClassOrParent( vs.LNewObj(), gObjHandle, gCurb_Class )

See also in tutorials: 09. Dimensioning and Text Annotation, 12. Polygon Area and Centroid (Shoelace Formula), 13. Point-in-Polygon Test (Ray Casting), 15. Uniform Arc-Length Resampling of a Polyline

Version

Availability: from All Versions

Category