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.