CIETriangle.mesa

Written by Maureen Stone on August 31, 1983 10:57 am

DIRECTORY

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.