DIRECTORY ImagerColorPrivate, Rope, ImagerColor; SlideColors: CEDAR PROGRAM IMPORTS ImagerColorPrivate, ImagerColor EXPORTS ~ BEGIN ROPE: TYPE = Rope.ROPE; RGB: TYPE = ImagerColor.RGB; Colors: TYPE = {background, titleBackground, text, titleText, darkWhite, lightHighlight, darkHighlight, slideNumber}; colorNames: ARRAY Colors OF ROPE _ [ background: "Xerox/Research/Slides/background", titleBackground: "Xerox/Research/Slides/titleBackground", text: "Xerox/Research/Slides/text", titleText: "Xerox/Research/Slides/titleText", darkWhite: "Xerox/Research/Slides/darkWhite", lightHighlight: "Xerox/Research/Slides/lightHighlight", darkHighlight: "Xerox/Research/Slides/darkHighlight", slideNumber: "Xerox/Research/Slides/slideNumber" ]; RegisterColorValues: PROC [] ~ { FOR i: Colors IN [FIRST[Colors]..LAST[Colors]] DO color: ImagerColor.SpecialColor _ NEW[ImagerColor.ColorRep.constant.special _ [constant[special[type: $Slide, name: colorNames[i], data: NIL, substitute: ImagerColor.ColorFromRGB[colorValues[i]]]]]]; ImagerColorPrivate.RegisterNamedColor[color]; ENDLOOP; }; colorValues: ARRAY Colors OF RGB _ [ background: [1,1,1], titleBackground: [0.75, 0.75, 0.75], text: [0,0,0], titleText: [0,0,0], darkWhite: [0.9, 0.9, 0.9], lightHighlight: [0.9, 0.9, 0], darkHighlight: [0.1,0.5, 0.7], slideNumber: [0.75, 0.75, 0.75] ]; RegisterColorValues[]; END. ¶SlideColors.mesa Copyright Ó 1987 by Xerox Corporation. All rights reserved. Maureen Stone, June 22, 1987 2:28:23 pm PDT Here are some starting values. We should tune these Ê®˜Icode˜šœ™K™