DIRECTORY CubicSplines USING [FPCoords, ScrPt, KnotSequence, KnotSequenceRec, X, Y]; PointDefs: CEDAR DEFINITIONS = BEGIN X: NAT = CubicSplines.X; -- 1; Y: NAT = CubicSplines.Y; -- 2; ObjPt: TYPE = CubicSplines.FPCoords; ScrRealPt: TYPE = CubicSplines.ScrPt; ScrPt: TYPE = ARRAY [X..Y] OF INT; OutOfRange: SIGNAL[value: REAL]; InitPointFns: PROCEDURE; ObjToScr: PROCEDURE [pt: ObjPt] RETURNS [ScrPt]; ScrToObj: PROCEDURE [pt: ScrPt] RETURNS [ObjPt]; ObjToScrReal: PROCEDURE [pt: ObjPt] RETURNS [ScrRealPt]; ScrRealToObj: PROCEDURE [pt: ScrRealPt] RETURNS [ObjPt]; ScrToScrReal: PROCEDURE [pt: ScrPt] RETURNS [ScrRealPt]; ScrRealToScr: PROCEDURE [pt: ScrRealPt] RETURNS [ScrPt]; ObjValToScrVal: PROCEDURE [val: REAL] RETURNS [INTEGER] ; ScrValToObjVal: PROCEDURE [val: INTEGER] RETURNS [REAL] ; ObjPtSequence: TYPE = CubicSplines.KnotSequence; ObjPtSequenceRec: TYPE = CubicSplines.KnotSequenceRec; END. 0m.stone November 3, 1979 6:07 PM PointDefs Last Edited by: Stone, July 4, 1985 1:49:44 pm PDT FPCoords: TYPE = ARRAY [X..NDIM] OF REAL; ScrPt: TYPE = ARRAY [X..NDIM] OF REAL; points in object space points in screen space KnotSequenceRec: TYPE = RECORD[element: SEQUENCE length:NAT OF FPCoords]; Κι˜J˜Jšœ!™!Jšœ ™ Jšœ2™2codešΟk ˜ Kšœ œ8˜JK˜—Jšœ œ˜ Jš˜JšœœΟc˜Jšœœž˜Jš œ œœœœœ™)Jš œœœœœœ™&Jšœ™Jšœœ˜$Jšœ œ˜%Jšœ™Jš œœœœœ˜"Jšœ œœ˜ JšΟn œ œ˜JšŸœ œ œ ˜0JšŸœ œ œ ˜0JšŸ œ œ œ ˜8JšŸ œ œœ ˜8JšŸ œ œ œ ˜8JšŸ œ œœ ˜8Jš Ÿœ œœœœ˜9Jš Ÿœ œœœœ˜9J˜Jšœœ˜0Jšœœ ˜6Jš œœœ œœœ ™IJ˜Jšœ˜J˜J˜J˜—…—’«