DIRECTORY ImagerColor USING [SampledColor], ImagerDitheredDevice USING [MapEntries], ImagerDither USING [PackedColorDesc, Table], ImagerSample USING [SampleMap, SampleBuffer], ImagerTransformation USING [Transformation], PrincOps USING [BitBltFlags], Terminal USING [Virtual]; ImagerDeviceDitheredPrivate: CEDAR DEFINITIONS ~ BEGIN Case: TYPE ~ {nil, constant, stipple, rgb, sampled}; StippleArray: TYPE ~ PACKED ARRAY [0..16) OF WORD; Data: TYPE ~ REF DataRep; DataRep: TYPE ~ RECORD[ terminal: Terminal.Virtual _ NIL, frame: ImagerSample.SampleMap, mapEntries: ImagerDitheredDevice.MapEntries _ NIL, table: ImagerDither.Table _ NIL, case: Case _ nil, -- what type of color zerosAreClear: BOOL _ FALSE, -- special case for sampled black clear. flags: PrincOps.BitBltFlags _ [], -- bitblt flags grayWord: WORD _ 0, -- bitblt gray word packedRGB: WORD _ 0, -- for case = rgb stipple: StippleArray _ ALL[0], -- stipple pattern fTileOrg: NAT _ 0, sTileOrg: NAT _ 0, sampledColor: ImagerColor.SampledColor _ NIL, -- sampled color sampledColorData: SampledColorData _ NIL, -- cached data associated with sampledColor paToDevice: ImagerTransformation.Transformation _ NIL, -- transformation from pa coords to display sampBuffer: ImagerSample.SampleBuffer _, -- scan line buffer for samples lineBuffer: ImagerSample.SampleBuffer _, -- for ops that cannot go directly to frame extras: REF _ NIL ]; SampledColorData: TYPE ~ REF SampledColorDataRep; SampledColorDataRep: TYPE ~ RECORD [ packing: ImagerDither.PackedColorDesc, source: ImagerSample.SampleMap -- 16 bits per pixel, packed RGB, with space for tile index. ]; END. φImagerDeviceDitheredPrivate.mesa Copyright c 1985, 1986 by Xerox Corporation. All rights reserved. Michael Plass, June 25, 1985 2:03:24 pm PDT Doug Wyatt, March 19, 1986 11:57:18 am PST Private definitions for ImagerDeviceDitheredImpl. Κ$˜codešœ ™ Kšœ Οmœ7™BK™+K™*K™—šœ1™1K™—šΟk ˜ Kšœ žœ˜!Kšœžœ˜(Kšœ žœ˜,Kšœ žœ˜-Kšœžœ˜,Kšœ žœ˜Kšœ žœ ˜—IheadšΟnœžœž ˜.Kšœž˜K˜šœžœ*˜4K˜—š œžœžœžœ žœžœ˜2K˜—Kšœžœžœ ˜šœ žœžœ˜Kšœžœ˜!Kšœ˜Kšœ.žœ˜2Kšœžœ˜ KšœΟc˜'Kšœžœžœ (˜EKšœ" ˜1Kšœ žœ ˜'Kšœ žœ ˜&Kšœžœ ˜2Kšœ žœ˜Kšœ žœ˜Kšœ)žœ ˜>Kšœ%žœ +˜UKšœ2žœ +˜bKšœ) ˜HKšœ) +˜TKšœžœž˜K˜K˜—Kšœžœžœ˜1šœžœžœ˜$Kšœ&˜&Kšœ  <˜\Kšœ˜K˜—K˜Kšžœ˜—…—X r