<> <> <> <> <<>> DIRECTORY Xl; XlColorAccess: CEDAR DEFINITIONS ~ BEGIN <> <<>> ColorData: TYPE = REF READONLY ColorDataRec; ColorDataRec: TYPE = RECORD [ hasColors: BOOL ¬ FALSE, hasPrivateColormap: BOOL ¬ FALSE, --otherwise colormap simply copied from screen colormap: Xl.ColorMap, pseudoBlackPixel, pseudoWhitePixel: Xl.Pixel, --might have indices better suited for inverting then screen defaults entries: REF ¬ NIL, --good for XlBitmap.SetColormap. Actually ImagerColorMap.MapEntries, but we avoid module import dependency. reservedForImpl: PRIVATE REF ANY ¬ NIL ]; Access: PROC [screen: Xl.Screen, depth: BYTE, class: Xl.VisualClass] RETURNS [ColorData]; <> <> <> <<>> <> RealColorValToXColorVal: PROC [r: REAL, invGamma: REAL ¬ 0.4545454] RETURNS [Xl.RGBVal]; <> <<>> FindVisualType: PROC [screen: Xl.Screen, depth: BYTE, class: Xl.VisualClass] RETURNS [Xl.VisualType]; <> <> <<>> END.