<> <> <> <> <<>> <> <<>> DIRECTORY ImagerSample USING [Function, nullFunction, PixelMap, Sample, SampleMap], ImagerTransformation USING [Transformation], Terminal USING [Virtual]; ImagerDeviceColor24Private: CEDAR DEFINITIONS ~ BEGIN bitsPerPixelA: NAT ~ 16; bitsPerPixelB: NAT ~ 8; Case: TYPE ~ {nil, fill, tile, sampledColor}; Data: TYPE ~ REF DataRep; DataRep: TYPE ~ RECORD[ terminal: Terminal.Virtual _ NIL, frameA: ImagerSample.SampleMap, -- frame buffer A (16 bits per sample) frameRG: ImagerSample.SampleMap, -- frame buffer A (8 bits per sample, double width) frameB: ImagerSample.SampleMap, -- frame buffer B (8 bits per sample) case: Case _ nil, -- what type of color function: ImagerSample.Function _ ImagerSample.nullFunction, -- function for all cases valueA, valueB: ImagerSample.Sample _ 0, -- values for case=fill tileA, tileB: ImagerSample.SampleMap _ NIL, -- tiles for case=tile s0, f0: INT _ 0, phase: NAT _ 0, -- origin and phase for case=tile pm: ImagerSample.PixelMap _ NIL, -- source pixels for case=sampledColor pmToDevice: ImagerTransformation.Transformation _ NIL, -- from pm(s,f) to frame(s,f) extras: REF _ NIL ]; END.