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.Level 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.Level, 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 by Xerox Corporation. All rights reserved. by Christian Jacobi September 19, 1984 6:00:17 pm PDT last edited by Christian Jacobi September 20, 1984 9:34:35 am PDT -- chipndale interface defining low level 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œ1™