IPImager.mesa
Copyright © 1984, 1985, 1986 by Xerox Corporation. All rights reserved.
Doug Wyatt, May 30, 1986 4:17:31 pm PDT
DIRECTORY
ImagerColorDefs USING [Color, ColorOperator],
ImagerFont USING [Font],
ImagerPixelArrayDefs USING [PixelArray],
ImagerTransformation USING [Transformation],
IO USING [STREAM],
IPInterpreter USING [Cardinal, Operator, Ref, Vector],
Rope USING [ROPE];
IPImager: CEDAR DEFINITIONS
~ BEGIN
ROPE: TYPE ~ Rope.ROPE;
STREAM: TYPE ~ IO.STREAM;
Cardinal: TYPE ~ IPInterpreter.Cardinal;
Vector: TYPE ~ IPInterpreter.Vector;
Operator: TYPE ~ IPInterpreter.Operator;
Ref: TYPE ~ IPInterpreter.Ref;
Font: TYPE ~ ImagerFont.Font;
Transformation: TYPE ~ ImagerTransformation.Transformation;
PixelArray: TYPE ~ ImagerPixelArrayDefs.PixelArray;
Color: TYPE ~ ImagerColorDefs.Color;
ColorOperator: TYPE ~ ImagerColorDefs.ColorOperator;
MaskChar: PROC [self: Ref, fd: Vector, i: Cardinal];
MakeFont: PROC [self: Ref, v: Vector] RETURNS [Font];
FindFont: PROC [self: Ref, v: Vector] RETURNS [Font];
FindDecompressor: PROC [self: Ref, v: Vector] RETURNS [Operator];
FindColor: PROC [self: Ref, v: Vector] RETURNS [Color];
FindColorOperator: PROC [self: Ref, v: Vector] RETURNS [Operator];
FindColorModelOperator: PROC [self: Ref, v: Vector] RETURNS [Operator];
MakeLargeVector:
PROC [stream:
STREAM, length:
INT, bytesPerElement:
NAT]
RETURNS [Vector];
MakePixelArray:
PROC [
xPixels, yPixels: Cardinal,
-- number of pixels in slow and fast directions
samplesPerPixel: Cardinal,
-- number of sample values for each pixel
maxSampleValue: Vector,
-- maximum sample value; if NIL, use maxSampleValueI
maxSampleValueI: Cardinal,
-- constant maximum sample value, if maxSampleValue=NIL
samplesInterleaved:
BOOL,
-- if true, samples for one pixel are contiguous
m: Transformation,
-- transformation from pixel coordinates to master coordinates
samples: Vector
-- the actual samples
]
RETURNS [PixelArray];
ColorOperatorFromOperator: PROC [Operator] RETURNS [ColorOperator];
OperatorFromColorOperator: PROC [ColorOperator] RETURNS [Operator];
END.