--M. Stone July 7, 1985 4:35:46 pm PDT

--PressLineDefs.mesa
-- Last Edited by: Stone, December 20, 1982 1:49 pm
DIRECTORY
 CubicSplines USING[Coeffs],
 PointDefs: FROM "PointDefs" USING[ObjPt];

PressLineDefs: DEFINITIONS =
BEGIN
--coeffs describe contour piece. newObject=TRUE means start a new closed area
PutProc: TYPE = PROCEDURE[coeffs: CubicSplines.Coeffs,newObject: BOOLEAN];
End: TYPE = {round,flat,square};

--Exported by PressLines

ContourLine: PUBLIC PROCEDURE[p0,p1: PointDefs.ObjPt, w: REAL, end0,end1: End, putCurve: PutProc];
ContourCubic: PUBLIC PROCEDURE[coeffs: CubicSplines.Coeffs, w: REAL, end0,end1: End, putCurve: PutProc];

END.