DIRECTORYIISample USING [Function, maxCount, nullFunction, Sample, SampleBuffer, SampleMap],IITransformation USING [Transformation],SF USING [Box, BoxGenerator, Vec, zeroVec];IIPixel: CEDAR DEFINITIONS~ BEGINFunction: TYPE ~ IISample.Function;maxCount: NAT ~ IISample.maxCount;nullFunction: Function ~ IISample.nullFunction;Sample: TYPE ~ IISample.Sample;SampleBuffer: TYPE ~ IISample.SampleBuffer;SampleMap: TYPE ~ IISample.SampleMap;Transformation: TYPE ~ IITransformation.Transformation;PixelProc: TYPE ~ PROC [i: NAT] RETURNS [Sample];PixelBuffer: TYPE ~ REF PixelBufferRep;PixelBufferRep: TYPE ~ RECORD [length: NAT,sampleBuffers: SEQUENCE samplesPerPixel: NAT OF SampleBuffer];NewPixels: PROC [samplesPerPixel: NAT, length: NAT, scratch: PixelBuffer _ NIL] RETURNS [PixelBuffer];ObtainScratchPixels: PROC [samplesPerPixel: NAT, length: NAT] RETURNS [PixelBuffer];ReleaseScratchPixels: PROC [pixels: PixelBuffer];DoWithScratchPixels: PROC [samplesPerPixel: NAT, length: NAT, action: PROC [PixelBuffer]];PixelMap: TYPE ~ REF PixelMapRep;PixelMapRep: TYPE ~ RECORD [box: SF.Box,sampleMaps: SEQUENCE samplesPerPixel: NAT OF SampleMap];NewPixelMap: PROC [samplesPerPixel: NAT, box: SF.Box, maxSample: PixelProc] RETURNS [PixelMap];MakePixelMap: PROC [s0, s1, s2, s3, s4: SampleMap _ NIL] RETURNS [PixelMap];GetPixels: PROC [self: PixelMap, initIndex: SF.Vec _ SF.zeroVec, delta: SF.Vec _ [s: 0, f: 1],pixels: PixelBuffer, start: NAT _ 0, count: NAT _ maxCount];PutPixels: PROC [self: PixelMap, initIndex: SF.Vec _ SF.zeroVec, delta: SF.Vec _ [s: 0, f: 1],pixels: PixelBuffer, start: NAT _ 0, count: NAT _ maxCount,function: Function _ nullFunction];ResampleAction: TYPE ~ PROC [pixels: PixelBuffer, min: SF.Vec];Resample: PROC [self: PixelMap, m: Transformation, interpolate: BOOL, boxes: SF.BoxGenerator, bounds: SF.Box, action: ResampleAction];END.   Ô  IIPixel.mesaCopyright c 1985, 1986 by Xerox Corporation.  All rights reserved.Michael Plass, August 19, 1986 10:32:14 am PDTDoug Wyatt, March 7, 1986 2:41:21 pm PSTPixels, PixelBuffers and PixelMapsConvenience for creating a PixelMap from up to 5 existing SampleMaps.  The boxes of the SampleMaps must all be the same.Gets a run of pixels from a pixel map into a pixel buffer.  The effect is:FOR i: NAT IN [0..self.samplesPerPixel) DOself[i].GetSamples[initIndex, delta, pixels[i], start, count];ENDLOOP;Stores a run of pixels into a pixel map from a pixel buffer.  The effect is:FOR i: NAT IN [0..self.samplesPerPixel) DOself[i].PutSamples[initIndex, delta, pixels[i], start, count, function];ENDLOOP; Ê  ˜ codešœ™Kšœ
Ïmœ7™BK™.K™(—K˜ šÏk	˜	Jšœ	žœE˜SKšœžœ˜(Jšžœžœ#˜+—K˜ KšÐblœžœž˜šœž˜K˜ Kšœ
žœ˜#Kšœ
žœ˜"Kšœ/˜/Kšœžœ˜Kšœžœ˜+šœžœ˜%K˜ —Kšœžœ#˜7—head™"Kš	œžœžœžœžœ
˜1K˜ Kšœžœžœ˜'šœžœžœ˜Kšœžœ˜Kšœžœžœžœ˜<Kšœ˜—K˜ šÏn	œžœžœ
žœžœžœ˜gK˜ —š
 œžœžœ
žœžœ˜TK™ —š œžœ˜1K˜ —š
 œžœžœ
žœ
žœ˜ZK˜ —K˜ Kšœ
žœžœ˜!šœžœžœ˜Kšœžœ˜Kšœžœžœžœ
˜6Kšœ˜—K˜ š
 œžœžœžœžœ˜_K˜ —š œžœ"žœžœ˜LKšœx™xK˜ —K˜ š 	œžœžœžœžœ1žœžœ˜›™Jšžœžœžœž™*J™>Kšžœ™——K˜ —š 	œžœžœžœžœ1žœžœ0˜¾™Lšžœžœžœž™*J™HKšžœ™——K˜ —K˜ šœžœžœžœ˜?K˜ —Kš
 œžœ2žœ
žœžœ˜‡K˜ K˜ —K˜ Kšžœ˜— …—    z  ^  