DIRECTORY CD USING [Layer, ContextFilter], Imager USING [Color]; CDColors: CEDAR DEFINITIONS = BEGIN DisplayType: TYPE = {bw, bit1, bit2, bit4, bit8, bit9}; --displays supported by ChipNDale (bits per pixel) DisplayMode: TYPE = {normal, pushedOut}; --usage of brick Brick: TYPE = ARRAY [0..4) OF CARDINAL; --brick, or'ed into a bitmap ColorTable: TYPE = RECORD [ bricks: REF ARRAY CD.Layer OF REF Brick, filter: REF CD.ContextFilter, cols: REF ARRAY CD.Layer OF Imager.Color ]; ColorTableSet: TYPE = ARRAY DisplayMode OF REF ColorTable; ColorDefinition: TYPE = ARRAY DisplayType OF REF ColorTableSet; globalColors: READONLY REF ColorDefinition; DefineColor: PROC[ layer: CD.Layer, brick: REF Brick _ NIL, -- do no more change the values display: DisplayType _ bw, mode: DisplayMode _ normal, table: REF ColorDefinition _ NIL --NIL uses the global table ]; DefineIColor: PROC[ layer: CD.Layer, col: Imager.Color _ NIL, display: DisplayType _ bw, mode: DisplayMode _ normal, table: REF ColorDefinition _ NIL --NIL uses the global table ]; END. ¬CDColors.mesa (Viewer definitions for ChipNDale) Copyright c 1984, 1986 by Xerox Corporation. All rights reserved. by Christian Jacobi, September 19, 1984 6:00:17 pm PDT last edited by Christian Jacobi, March 12, 1986 12:40:52 pm PST -- ChipNDale interface defining low level color handling. -- (semi-public) --everything is readonly --but this module causes changes to the REF Brick (not the Brick) --Defining a brick with mode normal also clears the pushedOut brick. --A NIL brick makes a reasonable default. --The procedure may exchange bricks if they have the same values. --Defining color filters for either display. --A NIL color makes a layer invisible. ΚF˜codešœ7™7Kšœ Οmœ7™BKšœ8™8Kšœ@™@—K™šΟk ˜ Kšžœžœ˜ Kšœžœ ˜K˜—Kšœ;™;Kšœ™KšΠlnœžœž œ˜Kšž˜K˜šœ žœ'˜8KšΟc2˜2—Kšœ žœ ˜9Kš œžœžœžœžœ ˜Dšœ žœžœ˜Kš œžœžœžœžœžœ˜(Kšœžœžœ˜Kš œžœžœžœžœ ˜(Kšœ˜—Kš œžœžœ žœžœ ˜:Kš œžœžœ žœžœ˜?K˜šœžœžœ˜-Kšœ™KšœA™A—K˜šΟn œžœ˜Kšœžœ˜Kšœžœ žœ ˜7Kšœ˜Kšœ˜Kšœžœžœ ˜=Kšœ˜KšœD™DKšœ)™)KšœA™A—K˜š‘ œžœ˜Kšœžœ˜Kšœžœ˜Kšœ˜Kšœ˜Kšœžœžœ ˜=Kšœ˜Kšœ,™,Kšœ&™&—K˜Kšžœ˜K˜—…—&