SlideColors.mesa
Copyright Ó 1987 by Xerox Corporation. All rights reserved.
Maureen Stone, June 22, 1987 2:28:23 pm PDT
~
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;
};
Here are some starting values. We should tune these
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[];