<<>> <> <> <> <> <> <<>> DIRECTORY ImagerPixelArray USING [PixelArray], ImagerTransformation USING [Transformation], Rope USING [ROPE]; ImagerColor: CEDAR DEFINITIONS ~ BEGIN SampleValue: TYPE ~ REAL; ROPE: TYPE ~ Rope.ROPE; <> Color: TYPE ~ REF ColorRep; ColorRep: TYPE ~ RECORD [ SELECT tag: * FROM constant => [ SELECT tag: * FROM op => [ colorOperator: ColorOperator, pixel: SEQUENCE size: NAT OF SampleValue ], special => [ -- XOR, stipples, named colors, and the like type: ATOM, -- identifies the kind of special color this is name: ROPE, -- hierarchical name data: REF, -- implementation-specific data substitute: ConstantColor -- use this if you don't recognize type ], ENDCASE ], sampled => [ -- the result of MakeSampledColor pa: ImagerPixelArray.PixelArray, -- the array of pixels um: ImagerTransformation.Transformation, -- transforms from color to device coordinates colorOperator: ColorOperator -- maps pixels into constant colors ], sampledBlack => [ -- the result of MakeSampledBlack pa: ImagerPixelArray.PixelArray, -- the array of pixels (must be 1 bit per pixel) um: ImagerTransformation.Transformation, -- transforms from color to device coordinates clear: BOOL -- are zero bits transparent? ], ENDCASE ]; ConstantColor: TYPE ~ REF ColorRep.constant; OpConstantColor: TYPE ~ REF ColorRep.constant.op; SpecialColor: TYPE ~ REF ColorRep.constant.special; SampledColor: TYPE ~ REF ColorRep.sampled; SampledBlack: TYPE ~ REF ColorRep.sampledBlack; <> <> Structure: TYPE ~ REF StructureRep; StructureRep: TYPE ~ RECORD [class: StructureClass, data: REF]; StructureClass: TYPE ~ REF StructureClassRep; StructureClassRep: TYPE; <> <> ColorOperator: TYPE ~ REF ColorOperatorRep; ColorOperatorRep: TYPE ~ RECORD [ chromatic: BOOL, -- If FALSE, everything is gray. samplesPerPixelIn: NAT, -- Number of samples per pixel expected. class: REF ColorOperatorClassRep, -- Contains the name of the Interpress color model operator and the operations that the ColorOperator needs to perform. data: REF, -- Contains the data specific to the ColorOperator; corresponds to the parameters needed by the color model operator appearanceHints: Structure -- Hints to the implementation about the desired appearance ]; ColorOperatorClassRep: TYPE; <> Find: PROC [name: ROPE] RETURNS [ConstantColor]; <> <<>> ColorFromPixel: PROC [colorOperator: ColorOperator, pixel: PROC [sampleIndex: NAT] RETURNS [REAL]] RETURNS [ConstantColor]; <> NarrowToOpConstantColor: PROC [color: ConstantColor] RETURNS [OpConstantColor]; <> <> MakeSampledBlack: PROC [pa: ImagerPixelArray.PixelArray, um: ImagerTransformation.Transformation, clear: BOOL ¬ FALSE] RETURNS [SampledBlack]; MakeSampledColor: PROC [pa: ImagerPixelArray.PixelArray, um: ImagerTransformation.Transformation, colorOperator: ColorOperator] RETURNS [SampledColor]; <> ColorFromGray: PROC [f: REAL] RETURNS [OpConstantColor]; <> <> SampleTableProc: TYPE ~ PROC [NAT] RETURNS [REAL]; NewColorOperatorGrayLinear: PROC [sWhite, sBlack: REAL, sampleTableSize: NAT ¬ 0, sampleTableProc: SampleTableProc ¬ NIL] RETURNS [ColorOperator]; <<... colorModelOperators/Xerox/GrayLinear, as specified in the Color Encoding Standard.>> <> <> <> NewColorOperatorGrayDensity: PROC [sWhite, sBlack, dBlack: REAL, sampleTableSize: NAT ¬ 0, sampleTableProc: SampleTableProc ¬ NIL] RETURNS [ColorOperator]; <<... colorModelOperators/Xerox/GrayDensity, as specified in the Color Encoding Standard.>> <> <> <> <> <<>> NewColorOperatorGrayVisual: PUBLIC PROC [sWhite, sBlack: REAL, sampleTableSize: NAT ¬ 0, sampleTableProc: SampleTableProc ¬ NIL] RETURNS [ColorOperator]; <<... colorModelOperators/Xerox/GrayVisual, as specified in the Color Encoding Standard.>> <> <> <> <> <> <