Procedure ArcTo creates an arc vertex with a point of intersection at the specified coordinate point.
The endpoints of the arc are tangent to the control segments which intersect at p. If a radius of 0 is passed as the parameter, the arc endpoints will be at the vertices preceding and following the arc spline vertex.
PROCEDURE ArcTo(
pX,pY : REAL;
radiusDistance : REAL);def vs.ArcTo(p, radiusDistance):
return None| Name | Type | Description |
|---|---|---|
| p | REAL | Coordinates of vertex. |
| radiusDistance | REAL | Radius of vertex arc. |
BeginPoly;
LineTo(-1",2");
LineTo(-2 1/2",1/2");
CurveTo(-1 1/2",-1 1/2");
LineTo(1",-1/2");
ArcTo(1",1 1/2",1/2");
EndPoly;
{creates a polyline object}vs.BeginPoly()
vs.LineTo(-1,2)
vs.LineTo(-2*12 - 1/2,1/2)
vs.CurveTo(-1*12 - 1/2,-1*12 - 1/2)
vs.LineTo(1,-1/2)
vs.ArcTo(1,1*12 + 1/2,1/2)
vs.EndPoly()
#{creates a polyline object}Availability: from MiniCAD4.0