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]; Create: PUBLIC PROCEDURE [info: ViewerClasses.ViewerRec _ [], sliderWidth, sliderHeight: CARDINAL, proc: CIEProc, clientData: REF ANY _ NIL, maxY, initR, initG, initB: REAL _ 1 ] RETURNS [cieViewer: Viewer]; Reinitialize: PUBLIC PROCEDURE [cieViewer: Viewer, xr,yr,xg,yg,xb,yb,whiteY: REAL]; GetContents: PUBLIC PROCEDURE [cieViewer: Viewer] RETURNS [x,y, Y: REAL]; SetContents: PUBLIC PROCEDURE [cieViewer: Viewer, x,y,Y: REAL]; END. "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 all values should be in the range 0..1 creates a viewer with a default set of phosphor chromaticities. Sets wh, ww reinitializes the phosphor chromaticities Ê"˜šœ™Jšœ5™5J™7J™—šÏk ˜ Jšœœ˜(J˜—Jšœ œ˜Jš˜J˜Jšœœ˜"J˜JšÏnœœ œœœœœœ˜PJšœ&™&Jšžœœ œAœœœœœœ˜ÐJšœL™Lšž œœ œ/œ˜SJšœ)™)—Jš ž œœ œœœœ˜IJš ž œœ œœœ˜?Jšœ˜—…—„È