ColorMap.mesa
Copyright © 1985 by Xerox Corporation. All rights reserved.
Bloomenthal, October 25, 1985 2:12:29 pm PDT
Procedures for accessing or modifying the color display color map.
DIRECTORY ImagerColorMap, InterminalBackdoor, Rope, Terminal;
ColorMap: CEDAR DEFINITIONS
~ BEGIN
ColorMap: TYPE ~ ARRAY [0..3) OF ARRAY Terminal.ChannelValue OF Terminal.ChannelValue;
Any of the following procedures can raise:
ColorDisplayNotReady: ERROR;
Set: PROC [cm: ColorMap];
Get: PROC RETURNS [cm: ColorMap];
ClearColorMap: PROC;
Set all colormap entries to zero.
     
FloodPrimary: PROC [gun: ImagerColorMap.Gun];
Set all entries of the specified gun to full on, all other guns fully off.
     
PrimaryOnly: PROC [gun: ImagerColorMap.Gun];
Set the specified gun to a normal grayscale, all other guns fully off.
Flash: PROC;
Put arbitrary values into the colormap.
Mono: PROC;
Set color map to be linear ramp from 0 through 255.
Gamma: PROC[gamma: REAL ← 2.2];
Set color map to gamma (= 2.2) corrected grayscale.
Cycle: PROC [n: INT];
Cycle the colormap by the specified number of entries.
END.