<> <> <> DIRECTORY ImagerColor USING [Color], Rope USING [ROPE], SilFile USING [Color] ; SilColor: CEDAR DEFINITIONS = BEGIN Color: TYPE = SilFile.Color; CCharArray: TYPE = ARRAY Color OF Rope.ROPE; --these are one character length ropes silCChars: CCharArray; --maps color numbers to Sil colors; see SilDoc.tioga for colors defaultColorChar: Rope.ROPE; <> colorOrder: Rope.ROPE; -- = "NRYGCVMWDOLTAUPS" ColorArray: TYPE = ARRAY Color OF ImagerColor.Color; --for real color implementation silColors: ColorArray; --same mapping as CCharArray, except to actual colors END.