CDColorsExtras.mesa (Viewer definitions for ChipNDale)
Copyright © 1987 by Xerox Corporation. All rights reserved.
Created by Christian Jacobi, June 16, 1987 6:18:43 pm PDT
Created by Christian Jacobi, June 16, 1987 7:03:08 pm PDT
DIRECTORY
CD USING [Layer],
Imager USING [Color];
CDColorsExtras: CEDAR DEFINITIONS =
BEGIN
InitialColor:
PROC []
RETURNS [Imager.Color];
--This color erases the page; it is necessary on screens because the viewer package
--and tioga use "white" [instead of "all bit cleared"]
--Color has well defined name, but is usefull only if ColorRegistry was loaded
AbstractColor:
PROC [layer:
CD.Layer]
RETURNS [Imager.Color];
--Returns an abstract color representing this layer
--Color has well defined name, but is usefull only if ColorRegistry was loaded
END.