<> <> <> <> <<>> DIRECTORY CubicSplines USING [FPCoords, KnotSequence, KnotSequenceRec, ScrPt, X, Y]; GriffinPoint: CEDAR DEFINITIONS = BEGIN OutOfRange: SIGNAL[value: REAL]; X: NAT = CubicSplines.X; -- 1; Y: NAT = CubicSplines.Y; -- 2; <<>> <> ObjPt: TYPE = CubicSplines.FPCoords; <> ObjPtSequence: TYPE = CubicSplines.KnotSequence; ObjPtSequenceRec: TYPE = CubicSplines.KnotSequenceRec; <> <> ScrPt: TYPE = ARRAY [X..Y] OF INT; ScrRealPt: TYPE = CubicSplines.ScrPt; <> InitPointFns: PROC; ObjToScr: PROC [pt: ObjPt] RETURNS [ScrPt]; ObjToScrReal: PROC [pt: ObjPt] RETURNS [ScrRealPt]; ObjValToScrVal: PROC [val: REAL] RETURNS [INTEGER]; ScrRealToObj: PROC [pt: ScrRealPt] RETURNS [ObjPt]; ScrRealToScr: PROC [pt: ScrRealPt] RETURNS [ScrPt]; ScrToObj: PROC [pt: ScrPt] RETURNS [ObjPt]; ScrToScrReal: PROC [pt: ScrPt] RETURNS [ScrRealPt]; ScrValToObjVal: PROC [val: INTEGER] RETURNS [REAL] ; END.