DIRECTORY CD; CDColors: CEDAR DEFINITIONS = BEGIN DisplayType: TYPE = {bw, bit4, bit8}; --displays supported by chipndale (bits per pixel) DisplayMode: TYPE = {normal, back, grey}; --usage of brick Brick: TYPE = ARRAY [0..4) OF CARDINAL; --brick, or'ed into a bitmap ColorTable: TYPE = ARRAY CD.Layer OF REF Brick; ColorTableSet: TYPE = ARRAY DisplayMode OF REF ColorTable; ColorDefinition: TYPE = ARRAY DisplayType OF REF ColorTableSet; globalColors: READONLY REF ColorDefinition; --everything is readonly except the REF Brick DefineColor: PROC[ lev: 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 ]; END. CDColors.mesa (Viewer definitions for Chipndale) Copyright c 1984, 1985 by Xerox Corporation. All rights reserved. by Christian Jacobi, September 19, 1984 6:00:17 pm PDT last edited by Christian Jacobi, April 11, 1985 3:24:51 pm PST -- chipndale interface defining low layer color handling. -- (semi-public) --Defining a brick with mode normal also clears the back and the grey brick. --A NIL brick makes a reasonable default. --The procedure may exchange bricks if they have the same values. ʆ˜šœ7™7Jšœ Ïmœ7™BJšœ8™8Jšœ?™?J™—šÏk ˜ Jšžœ˜J˜—Jšœ;™;Jšœ™šÏnœžœž œ˜Jšž˜J˜Jšœ žœÏc2˜XJšœ žœ ˜:Jš œžœžœžœžœ ˜DJš œ žœžœžœžœžœ˜0Jš œžœžœ žœžœ ˜:Jš œžœžœ žœžœ˜?J˜Jšœžœžœ -˜ZJ˜šŸ œžœ˜Jšœžœ˜Jšœžœ žœ ˜7Jšœ˜Jšœ˜Jšœžœžœ ˜=Jšœ˜JšœL™LJšœ)™)JšœA™A—J˜Jšžœ˜—J˜—…—òz