ColorMaps.mesa
Copyright © 1985 by Xerox Corporation. All rights reserved.
by Christian Jacobi, December 23, 1985 12:52:29 pm PST
last edited by Christian Jacobi, December 24, 1985 3:05:09 pm PST
DIRECTORY
Rope USING [ROPE],
IO USING [STREAM];
ColorMaps: CEDAR DEFINITIONS =
Reading and writing the colormap entries on files in a simple format.
SetUp:
PROC [fileName: Rope.
ROPE, forceOn:
BOOL←
TRUE, forceBits:
BOOL←
TRUE, msgs:
IO.
STREAM←
NIL];
--sets up the colormap as specified in the file
--forceOn: colordisplay is started first if necessary
--forceBits: colordisplay switches bits per pixel mode if necessary
Create:
PROC [fileName: Rope.
ROPE, special:
REF←
NIL, msgs:
IO.
STREAM←
NIL];
--creates a file usable by SetUp
Last:
PROC []
RETURNS [fileName: Rope.
ROPE];
--returns name of last file set up successfully
On8Bits:
PROC [forceOn:
BOOL←
TRUE, force8bit:
BOOL←
TRUE]
RETURNS [
BOOL];
--returns whether the colordisplay is available, on, and in 8 bit mode
--forceOn: colordisplay is started first if necessary
--force8bit: colordisplay switches to 8 bit mode if necessary
RegisterMenu:
PROC [entryName: Rope.
ROPE, fileName: Rope.
ROPE←
NIL];
--offers setting up this file from a standard menu
CallBack:
PROC [p:
PROC];
--p will be called after any color map change caused through this modle
--p must not cause the color map to be changed again
END.