DIRECTORY CD; 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 = 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, June 5, 1985 12:05:08 pm PDT -- ChipNDale interface defining low layer color handling. -- (semi-public) --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. ÊŒ˜šœ7™7Jšœ Ïmœ7™BJšœ8™8Jšœ>™>J™—šÏk ˜ Jšžœ˜J˜—Jšœ;™;Jšœ™šÏnœžœž œ˜Jšž˜J˜šœ žœ'˜8JšÏc2˜2—Jšœ žœ ˜9Jš œžœžœžœžœ ˜DJš œ žœžœžœžœžœ˜0Jš œžœžœ žœžœ ˜:Jš œžœžœ žœžœ˜?J˜Jšœžœžœ -˜ZJ˜šŸ œžœ˜Jšœžœ˜Jšœžœ žœ ˜7Jšœ˜Jšœ˜Jšœžœžœ ˜=Jšœ˜JšœD™DJšœ)™)JšœA™A—J˜Jšžœ˜—J˜—…—Š