<> <> <> <> ColorDisplayDefs: CEDAR DEFINITIONS ~ BEGIN ColorDisplayType: TYPE ~ MACHINE DEPENDENT { none, -- no color display standard, -- standard resolution display, approx. 640 by 480 pixels highResolution, -- high resolution display, approx. 1024 by 768 pixels (WORD.LAST) -- room for others }; ColorMode: TYPE ~ RECORD[ full: BOOL _ FALSE, -- if TRUE, use 24 bits per pixel (and ignore following fields) bitsPerPixelChannelA: [0..8] _ 0, -- A channel bits per pixel (if 0, A channel is off) bitsPerPixelChannelB: [0..8] _ 0 -- B channel bits per pixel (if 0, B channel is off) ]; <> colorMode24: ColorMode ~ [full: TRUE, bitsPerPixelChannelA: 0, bitsPerPixelChannelB: 0]; <> <> <<>> ChannelValue: TYPE ~ [0..256); <> <<>> ColorValue: TYPE ~ [0..256); <> ColorTriple: TYPE ~ RECORD [red, green, blue: ColorValue]; <> ChannelsVisible: TYPE ~ {none, aOnly, bOnly, all}; <> END.