--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 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; FileColor: TYPE = RECORD [hue, saturation, brightness: [0..255]]; ColorFromFileColor: PROC[fcolor: FileColor] RETURNS[StyleDefs.Color]; FileColorFromColor: PROC[color: StyleDefs.Color] RETURNS[FileColor]; END. 8For color menus (ControllerMenus) For GriffinFile ʘJ˜J˜,šÏk ˜ Jšœœœ˜Jšœ œ ˜Jšœ œ˜"—šœ˜'J˜J™!JšÏn œœ œœ˜GJšž œ œœœ˜DJšžœœœ˜VJš žœœœœœœÏc+˜VJšž œœ˜Jšž œœ˜J˜J™Jšœ œœ)˜AJšžœœœ˜EJšžœœœ ˜DJ˜Jšœ˜—J˜—…—úK