m.stone November 3, 1979 6:07 PM
PointDefs
Last Edited by: Stone, July 4, 1985 1:49:44 pm PDT
DIRECTORY
CubicSplines USING [FPCoords, ScrPt, KnotSequence, KnotSequenceRec, X, Y];
PointDefs: CEDAR DEFINITIONS =
BEGIN
X: NAT = CubicSplines.X; -- 1;
Y: NAT = CubicSplines.Y; -- 2;
FPCoords: TYPE = ARRAY [X..NDIM] OF REAL;
ScrPt: TYPE = ARRAY [X..NDIM] OF REAL;
points in object space
ObjPt: TYPE = CubicSplines.FPCoords;
ScrRealPt: TYPE = CubicSplines.ScrPt;
points in screen space
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;
KnotSequenceRec: TYPE = RECORD[element: SEQUENCE length:NAT OF FPCoords];
END.