<> <> <> 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.