<> <> <> <> <<>> 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.