[Cyan]<CedarChest6.1>ColorTool>CIEViewer.mesa!1

CIEViewer.mesa

Written by Maureen Stone on September 2, 1983 3:51 pm

Last Edited by: Beach, February 13, 1984 2:00:08 pm PST

DIRECTORY

ViewerClasses USING [Viewer, ViewerRec];

CIEViewer: CEDAR DEFINITIONS =

BEGIN

Viewer: TYPE=ViewerClasses.Viewer;

CIEProc: TYPE = PROCEDURE[self: Viewer, x,y,Y: REAL, clientData: REF ANY ← NIL];

all values should be in the range 0..1

Create: PUBLIC PROCEDURE [info: ViewerClasses.ViewerRec ← [], sliderWidth, sliderHeight: CARDINAL, proc: CIEProc, clientData: REF ANY ← NIL, maxY, initR, initG, initB: REAL ← 1 ] RETURNS [cieViewer: Viewer];

creates a viewer with a default set of phosphor chromaticities. Sets wh, ww

Reinitialize: PUBLIC PROCEDURE [cieViewer: Viewer, xr,yr,xg,yg,xb,yb,whiteY: REAL];

reinitializes the phosphor chromaticities

GetContents: PUBLIC PROCEDURE [cieViewer: Viewer] RETURNS [x,y, Y: REAL];

SetContents: PUBLIC PROCEDURE [cieViewer: Viewer, x,y,Y: REAL];

END.