GriffinGrid.mesa
Copyright © 1985 by Xerox Corporation. All rights reserved.
Maureen Stone July 4, 1985 1:41:30 pm PDT
DIRECTORY
PointDefs USING [ScrPt],
ObjectDefs USING [Object];
GriffinGrid: CEDAR DEFINITIONS
~ BEGIN
ScrPt: TYPE = PointDefs.ScrPt;
Object: TYPE = ObjectDefs.Object;
GridOn: PROC;
GridOff: PROC;
Grid: PROCEDURE[pt: ScrPt] RETURNS[ScrPt];
MoveGrid: PROCEDURE[grid: REF token Object, dx,dy: INT];
Initialize: PROC;
END.