<> <> DIRECTORY ViewerClasses USING [Viewer, ViewerRec]; CIETriangle: CEDAR DEFINITIONS = BEGIN Viewer: TYPE = ViewerClasses.Viewer; -- Just a viewer CIETriangleProc: TYPE = PROCEDURE[self: Viewer, x,y: REAL]; Create: PUBLIC PROCEDURE [info: ViewerClasses.ViewerRec _ [], xr,yr,xg,yg,xb,yb,xw,yw, scale: REAL, proc: CIETriangleProc] RETURNS [cieTriangle: Viewer]; Reinitialize: PUBLIC PROCEDURE [cieTriangle: Viewer, xr,yr,xg,yg,xb,yb,xw,yw: REAL]; <> GetContents: PUBLIC PROCEDURE [cieTriangle: Viewer] RETURNS [x,y: REAL]; SetContents: PUBLIC PROCEDURE [cieTriangle: Viewer, x,y: REAL]; END.