Skip to content

Latest commit

 

History

History
64 lines (53 loc) · 1.18 KB

File metadata and controls

64 lines (53 loc) · 1.18 KB

CurveTo

Description

Procedure CurveTo creates a bezier vertex point at the specified point. Parameter p specifies the coordinate location of the vertex.

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

Parameters

Name Type Description
p REAL Coordinate of vertex.

Examples

BEGIN
	AngleVar;
	CASE vertexTypeFlag OF
		0 : LineTo (vertexX, #vertexY);
		1 : CurveTo (vertexX, #vertexY);
		2 : CurveThrough (vertexX, #vertexY);
		3 : ArcTo (vertexX, #vertexY, 0);
	END;

Absolute;
ClosePoly;
BeginPoly;
	LineTo(x1,0);
	CurveTo(x1,k1*y2);
	CurveTo(k2*x1,k2*y2);
	CurveTo(k1*x1,y2);
	CurveTo(k1*x2,y2);
	CurveTo(k2*x2,k2*y2);

IF ((i = start_i) & skip)
	THEN moveto(x, y)
	ELSE CASE t OF
		0: AddPoint(x, y);		{point}
		1: CurveTo(x, y);		{bezier}
		2: CurveThrough(x, y);	{cubic}
		3: ArcTo(x, y, r);		{radius}
		END;
import vs

# Procedure CurveTo creates a bezier vertex point at the specified point.
p = (0, 0)

vs.CurveTo(p)
newObj = vs.LNewObj()  # handle to the newly created object

Version

Availability: from MiniCAD4.0

Category