<> <> <> <> <<>> <> 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]; <> IthColour: PROC [i: INT] RETURNS [Color]; <> ListColourStatistics: PROC [numberOfTiles: CARD]; <> ResetColourStatistics: PROC; <> <> WriteMap: PROC [fileName: Rope.ROPE, msg: IO.STREAM _ NIL]; <> ReadMap: PROC [fileName: Rope.ROPE] <> END.