<> <> <> <> <> DIRECTORY Imager, ImagerBackdoor, ViewerClasses; BitMap3d: DEFINITIONS = BEGIN <> Bitmap: TYPE = ImagerBackdoor.Bitmap; AlternateDisplayContext: TYPE = REF AlternateDisplayContextObj; AlternateDisplayContextObj: TYPE = RECORD [ dc: Imager.Context, bitMap: Bitmap]; Viewer: TYPE = ViewerClasses.Viewer; DrawAltDisplayContext: PROC [dc: Imager.Context, altDC: AlternateDisplayContext]; GetAltDisplayContext: PROC RETURNS [altDC: AlternateDisplayContext]; ResizeBitMap: PROC [viewer: Viewer, altDC: AlternateDisplayContext]; -- must resize each time viewer changes size. Erase: PROC [altDC: AlternateDisplayContext]; END.