DIRECTORY ImagerBrick USING [Brick], ImagerColorDefs USING [SampledColor], ImagerPixelMap USING [PixelMap, PixelMapRep, Tile], ImagerSample USING [Sampler, SampleBuffer], ImagerTransformation USING [Transformation], PrincOps USING [BitBltFlags]; ImagerBitmapDevicePrivate: CEDAR DEFINITIONS ~ BEGIN SetBrick: PROC [brick: ImagerBrick.Brick]; grayHeight: NAT ~ 4; -- must not exceed 16, should be a power of 2 GrayArray: TYPE ~ ARRAY [0..grayHeight) OF WORD; Case: TYPE ~ {nil, noop, constant, stipple, tile, sampled}; Data: TYPE ~ REF DataRep; DataRep: TYPE ~ RECORD[ sSizeFrame: NAT, fSizeFrame: NAT, frame: REF ImagerPixelMap.PixelMapRep, -- the bitmap pixelsPerInch: REAL, -- declared resolution case: Case _ nil, -- what type of color sampledBlack: BOOL _ FALSE, sampledBlackClear: BOOL _ FALSE, flags: PrincOps.BitBltFlags _ [], -- bitblt flags maskBitsFlags: PrincOps.BitBltFlags _ [], -- bitblt flags for fast MaskBits case grayArray: GrayArray _ ALL[0], -- bitblt gray block sampledColor: ImagerColorDefs.SampledColor _ NIL, -- most recently seen sampled color paToDevice: ImagerTransformation.Transformation _ NIL, -- transformation from sampledColor.pa to display source: ImagerPixelMap.PixelMap _ [0, 0, 0, 0, 0, 0, NIL], -- source values from pixel array tile: ImagerPixelMap.Tile _ [0, 0, 0, 0, 0, NIL], -- valid if case = tile sampler: ImagerSample.Sampler _ NIL, -- sampler information buffer: ImagerSample.SampleBuffer _ NIL, -- scan line buffer for source samples brick: ImagerSample.SampleBuffer _ NIL, -- halftone brick extras: REF _ NIL ]; END. ςImagerBitmapDevicePrivate.mesa Copyright Σ 1985, 1986 by Xerox Corporation. All rights reserved. Michael Plass, June 26, 1985 9:45:19 am PDT Tim Diebert: April 14, 1986 10:08:04 am PST Private interface for the benefit of ImagerOps. Κ˜šœ™IcopyrightnoticešœB™BIcode™+L™+L™—™/L™—šΟk ˜ Lšœ œ ˜Lšœœ˜%Lšœœ˜3Lšœ œ˜+Lšœœ˜,Lšœ œ˜—L˜LšΠlnœœ ˜,šœ˜L˜LšΟnœœ˜*L˜Lšœ œΟc-˜BLš œ œœœœ˜0Lšœœ1˜;L˜Lšœœœ ˜šœ œœ˜Lšœ œ˜Lšœ œ˜Lšœœ  ˜4Lšœœ ˜+Lšœ ˜'Lšœœœ˜Lšœœœ˜ Lšœ" ˜1Lšœ* &˜PLšœœ ˜3Lšœ-œ #˜ULšœ2œ 1˜hLšœ5œ !˜\Lšœ,œ ˜ILšœ œ ˜;Lšœ$œ &˜OLšœ#œ ˜9Lšœœ˜L˜L˜—L˜—L˜Lšœ˜—…—& '