--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. Ê‚˜Jš0Ïc&œJÏk œžœžœžœ žœž œžœOÏnœžœž œ&žœžœœŸ œžœž œžœ&Ÿ œžœž œžœ'žœ˜œ—…—ž&