DIRECTORYCD USING [Layer],Imager USING [Color],ImagerColor USING [RGB],ImagerInterpress USING [Ref],IO USING [STREAM],Rope USING [ROPE];NectarineColors: CEDAR DEFINITIONS ~ BEGINColor: TYPE ~ Imager.Color;Bitset: TYPE ~ PACKED ARRAY CD.Layer OF BOOLEAN _ ALL [FALSE];BlendKey: TYPE ~ REF Bitset;Blend: TYPE ~ REF BlendRec;BlendRec: TYPE ~ RECORD [count: CD.Layer _ 0,flavours: Bitset,blend: Color _ NIL,index: INTEGER _ INTEGER.FIRST,used: BOOL _ FALSE,area: CARD _ 0];colSubDef: BOOL;	-- default for colour substitutiontraceColourInferences: BOOL;unColour: ImagerColor.RGB;blackBlack, orableBackground: Color;LayerColour: PROC [l: CD.Layer] RETURNS [Color];SetLayerColourTable: PROC RETURNS [ok: BOOL _ TRUE];ResetLayerColourTable: PROC RETURNS [ok: BOOL _ TRUE];ColourTile: PROC [old: Blend, l: CD.Layer] RETURNS [new: Blend];BlendTileColours: PROC;NumberOfColours: PROC RETURNS [INT];DeclareColours: PROC [master: ImagerInterpress.Ref];ListColourStatistics: PROC [numberOfTiles: CARD];ResetColourStatistics: PROC;WriteMap: PROC [fileName: Rope.ROPE, msg: IO.STREAM _ NIL];ReadMap: PROC [fileName: Rope.ROPE]END.   °  NectarineColors.mesaCopyright س 1987, 1988 by Xerox Corporation.  All rights reserved.Giordano Bruno Beretta, June 24, 1987 9:16:35 am PDTgbb January 28, 1988 2:57:05 pm PSTInference engine for the colour registries and colour blending.Colouring single layersEnsure that only one colour representation is used.Infers a colour for every ChipnDale layer.Must be called whenever the user profile entry for the colour substitution changes.Colouring intersecting layersAdds a new layer to the set of layers intersecting in a tile.Blends colours for all tiles coloured with the above procedure.Number of different combinations of layers. This is the number of colours that the following procedure would declare in the Interpress master.Declares used colours in the preamble.Lists the surface statistics on the blended colour table in a terminal viewer.We initialize only the area so as to cache colour blendings across sessions.File Interface to MetaPaletteDumps the table of blended colours into a color map file.Loads the table of blended colours from a color map file. The file must have been written either by this module or by the MetaPalette; there is no consistency check. ‌ت”  ک ڑœ™IcodeڑœB™BJڑœ4™4K™#J™ —K™?code2ڑدk	ک	Kڑ‌œ‌œ	کKڑœ‌œ	کKڑœ‌œ‌œکKڑœ‌œکKڑ‌œ‌œ‌œکKڑœ‌œ‌œک—ڑذlnœ‌œ‌œ‌ک*Lڑœ‌œکLڑœ‌œ‌œ‌œ‌œ‌œ‌œ‌œ‌œک>Kڑœ
‌œ‌œکKڑœ‌œ‌œ
کKڑœ
‌œ‌œ	‌œ-‌œ	‌œ‌œ‌œ‌œ‌œ‌œککLڑœ‌œدc"ک3Kڑœ‌œکLڑœ‌œکKڑœ$ک$—headڑœ™ڑدnœ‌œ‌œ‌œ	ک0K™3—ڑ
 œ‌œ‌œ‌œ‌œک4L™*—ڑ
 œ‌œ‌œ‌œ‌œک6JڑœS™S——ڑœ™ڑ 
œ‌œ‌œ‌œک@L™=—ڑ œ‌œکL™?—ڑ œ‌œ‌œ‌œک$L™ژ—ڑ œ‌œ ک4L™&—ڑ œ‌œ‌œک1K™N—ڑ œ‌œکK™L——™ڑ œ‌œ‌œ‌œ‌œ‌œک;K™9—ڑ œ‌œ‌œک#KڑœCدbœ^™¥——Lڑ‌œک— …—    ~  آ  