DIRECTORY ColorizeViewPointBackdoor USING [SampledColorIPFragments], Profiles USING [Profile], Rope USING [ROPE], Vector2 USING [VEC]; ColorizeViewPointSweep: CEDAR DEFINITIONS ~ 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]; 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]; END. :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 Constructs various pieces of an Interpress sampled color sweep. 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. 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 Κ`˜code•Mark outsideHeaderšœ™Kšœ<™