--GriffinColor.mesa
--Maureen Stone July 20, 1985 3:10:25 pm PDT
DIRECTORY
Rope USING [ROPE],
StyleDefs USING [Color],
ImagerColor USING [ConstantColor];
GriffinColor: CEDAR DEFINITIONS = BEGIN
For color menus (ControllerMenus)
StringToColor: PROC [name: Rope.ROPE] RETURNS [color: StyleDefs.Color];
ColorToString: PROCEDURE[color: StyleDefs.Color] RETURNS[Rope.ROPE];
ColorToConstantColor: PROC[color: StyleDefs.Color] RETURNS[ImagerColor.ConstantColor];
GetNames: PROC RETURNS[LIST OF Rope.ROPE]; --returns a list of the current color names
LoadColorMap: PROC;
Initialize: PROC;
For GriffinFile
FileColor: TYPE = RECORD [hue, saturation, brightness: [0..255]];
ColorFromFileColor: PROC[fcolor: FileColor] RETURNS[StyleDefs.Color];
FileColorFromColor: PROC[color: StyleDefs.Color] RETURNS[FileColor];
END.