ColorMaps.mesa
Copyright © 1985, 1986 by Xerox Corporation. All rights reserved.
Created by Christian Jacobi, December 23, 1985 12:52:29 pm PST
Last edited by: Christian Jacobi, September 18, 1986 2:27:33 pm PDT
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.