<> <> <> DIRECTORY ColorDisplayDefs USING [ChannelValue], ColorDisplayDefsExtras USING [ColorTripleArray, ColorValueArray], Terminal USING [Virtual]; TerminalExtras: CEDAR DEFINITIONS ~ BEGIN ChannelValue: TYPE ~ ColorDisplayDefs.ChannelValue; ColorTripleArray: TYPE ~ ColorDisplayDefsExtras.ColorTripleArray; ColorValueArray: TYPE ~ ColorDisplayDefsExtras.ColorValueArray; Virtual: TYPE ~ Terminal.Virtual; <> SetColorArray: PROC [vt: Virtual, bChannelValue: ChannelValue _ 0, array: REF ColorTripleArray]; <> <> <> <> <> <<>> SetRedMapArray: PROC [vt: Virtual, array: REF ColorValueArray]; SetGreenMapArray: PROC [vt: Virtual, array: REF ColorValueArray]; SetBlueMapArray: PROC [vt: Virtual, array: REF ColorValueArray]; <> <> <> <> <> END.