--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. Ê~˜Jš.Ïc)œJÏk œžœžœ žœž œžœOÏnœžœž œ(žœžœœŸ œžœž œžœ&Ÿ œžœž œ!žœ'žœ˜’—…—”