--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.