--M. Stone August 15, 1979 3:01 PM

--PressLineDefs.mesa
-- Last Edited by: Stone, December 20, 1982 1:49 pm
DIRECTORY
 SplineDefs: FROM "SplineDefs" 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: SplineDefs.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: SplineDefs.Coeffs, w: REAL, end0,end1: End, putCurve: PutProc];

END.