<> <> <<>> <> <> DIRECTORY Space USING [Handle], ImagerBasic USING [Transformation, Color, IntPair, PixelArray], ImagerDisplay USING [Mask, DisplayProcs]; ImagerDisplayPrivate: CEDAR DEFINITIONS = BEGIN <> ContextData: TYPE = REF ContextDataRep; -- Holds the imager state ContextDataRep: TYPE = RECORD [ currentColor: ImagerBasic.Color, currentPxlValue: LONG CARDINAL, currentPosition: ImagerBasic.IntPair, -- CP kept in device space -- ********* Transformations ************ clientTransform: ImagerBasic.Transformation, viewerTransform: ImagerBasic.Transformation, deviceTransform: ImagerBasic.Transformation, transform: ImagerBasic.Transformation, -- ***************** Clipping *********** clientClipper: ImagerDisplay.MaskRep, viewerClipper: ImagerDisplay.MaskRep, deviceClipper: ImagerDisplay.MaskRep, clipper: ImagerDisplay.MaskRep, -- composite clipper noClip: BOOLEAN _ FALSE, deviceType: ATOM, -- Current device type deviceProcs: ImagerDisplay.DisplayProcs, -- Device-dependent procedures wordsPerLine: CARDINAL, pxlBase: LONG POINTER, -- Access to image bits storage: Space.Handle, -- Handle for allocated storage for image bits data: REF ANY -- Interpretation of this depends on the procs ]; END.