-- BuildLine.mesa
-- Mesa 6 version
-- Last changed by J Warnock, January 6, 1981 2:53 PM
DIRECTORY
Cubic: FROM "Cubic",
Vector:FROM "Vector";

BuildLine: DEFINITIONS
=
BEGIN OPEN Vector;

Knot:TYPE=RECORD[p,s:Vec,slopeflg:BOOLEAN,flink,blink:POINTER TO Knot];

StartLine: PUBLIC PROCEDURE;
EnterLineKnot:PUBLIC PROCEDURE [x,y:REAL];
EnterLineKnotSlope:PUBLIC PROCEDURE [x,y,sx,sy:REAL];
BuildLine: PUBLIC PROCEDURE[width:REAL,proc:PROCEDURE[cb:Cubic.Coeffs]];
BuildCyclicLine: PUBLIC PROCEDURE[width:REAL,proc:PROCEDURE[cb:Cubic.Coeffs]];
END.