XlRGBColorMaps.mesa
Copyright Ó 1993 by Xerox Corporation. All rights reserved.
Created by Christian Jacobi, May 26, 1993 12:16:31 pm PDT
Christian Jacobi, May 26, 1993 12:34 pm PDT
Routines to read standard color map definitions (as defined by ICCCM).
DIRECTORY Xl;
XlRGBColorMaps: CEDAR DEFINITIONS ~ BEGIN
GetRGBColorMaps: PROC [c: Xl.Connection, w: Xl.Window, mapKey: Xl.XAtom ¬ [27]] RETURNS [LIST OF StandardColorMap];
StandardColorMap: TYPE = REF <<READONLY>> StandardColorMapRec;
StandardColorMapRec:
TYPE =
RECORD [
colormap: Xl.ColorMap, --colormap described
redMax: CARD32, --values for pixel calculation
redMult: CARD32,
greenMax: CARD32,
greenMult: CARD32,
blueMax: CARD32,
blueMult: CARD32,
basePixel: Xl.Pixel,
visualId: Xl.Visual, --Visual to which colormap belongs
killId: Xl.ID --Id for destroying the resources
];
END.