ColorizeViewPointSweep.mesa
Copyright Ó 1987 by Xerox Corporation. All rights reserved.
Bob Coleman, July 19, 1990 3:46:45 pm PDT
Eric Nickell, May 17, 1989 6:41:59 pm PDT
DIRECTORY
ColorizeViewPointBackdoor USING [SampledColorIPFragments],
Profiles USING [Profile],
Rope USING [ROPE],
Vector2 USING [VEC];
~
BEGIN
ROPE: TYPE ~ Rope.ROPE;
VEC: TYPE ~ Vector2.VEC;
SampledColorIPFragments: TYPE ~ ColorizeViewPointBackdoor.SampledColorIPFragments;
ConstructSweepPixelArray:
PROC [def:
LIST
OF
ROPE, palette: Profiles.Profile]
RETURNS [iSize:
NAT ← 0, paFrag:
ROPE];
Constructs an Interpress fragment defining a pixel array that will sweep between the colors specified in def. palette should contain the number of sweep levels desired. iSize is returned for use in determining the ColorModelOperator needed in MakeSampledColor.
SampledColorTransformSet: TYPE ~ RECORD [offset, width, height: VEC];
nullTransformSet: SampledColorTransformSet ~ [[0,0],[0,0],[0,0]];
ConstructSweepTransform:
PROC [ts: SampledColorTransformSet, sc:
REF SampledColorIPFragments]
RETURNS [transform:
ROPE];
Constructs an Interpress fragment defining the um transformation needed by makesampledcolor. A sampled color is produced by combining sc.beforeTransform, transform, sc.afterTransform. If the tr is a rectangle (width.y=height.x=0), it will be rotated to be the correct transform by the angle sc.sweepAngleMod360