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

--PressLineDefs.mesa 
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: POINTER TO 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: POINTER TO SplineDefs.Coeffs, w: REAL, end0,end1: End, putCurve: PutProc];

END.