<> <> <> <> <<>> DIRECTORY GriffinStyle USING [Color], ImagerColor USING [ConstantColor], Rope USING [ROPE]; GriffinColor: CEDAR DEFINITIONS = BEGIN <> ColorToConstantColor: PROC [color: GriffinStyle.Color] RETURNS [ImagerColor.ConstantColor]; ColorToString: PROC [color: GriffinStyle.Color] RETURNS [Rope.ROPE]; GetNames: PROC RETURNS [LIST OF Rope.ROPE]; --returns a list of the current color names Initialize: PROC; StringToColor: PROC [name: Rope.ROPE] RETURNS [color: GriffinStyle.Color]; <> FileColor: TYPE = RECORD [hue, saturation, brightness: [0..255]]; ColorFromFileColor: PROC [fcolor: FileColor] RETURNS [GriffinStyle.Color]; FileColorFromColor: PROC [color: GriffinStyle.Color] RETURNS [FileColor]; END.