DIRECTORY ImagerBasic USING [DeviceRectangle, Color, ConstantColor], ImagerDisplay USING [DisplayClass, DisplayData], ImagerMasks USING [Mask], ColorModels USING [Calibration], WindowManager USING [ScreenPos], Terminal USING [ColorMode, Virtual]; ImagerStdColorDisplay: CEDAR DEFINITIONS ~ BEGIN DisplayClass: TYPE ~ ImagerDisplay.DisplayClass; DisplayData: TYPE ~ ImagerDisplay.DisplayData; Color: TYPE ~ ImagerBasic.Color; Mask: TYPE ~ ImagerMasks.Mask; DeviceRectangle: TYPE ~ ImagerBasic.DeviceRectangle; ColorSequence: TYPE ~ RECORD[SEQUENCE length: NAT OF ImagerBasic.ConstantColor]; RGBSequence: TYPE ~ RECORD[SEQUENCE length: NAT OF RECORD[ r, g, b: [0..256) ] ]; ColorMapData: TYPE ~ RECORD [ pixelValueList: LIST OF CARDINAL, colorCalibration: ColorModels.Calibration, nextEntry: NAT, map: REF ColorSequence ]; ColorDisplayError: SIGNAL [reason: ATOM]; displaySide: WindowManager.ScreenPos; colorCalibration: ColorModels.Calibration; SetUpMapProc: TYPE ~ PROC[displayData: DisplayData]; LoadColorProc: TYPE ~ PROC [ color: ImagerBasic.ConstantColor, colorCalibration: ColorModels.Calibration, mapEntry: [0..256) ]; CachedColorProc: TYPE ~ PROC[displayData: DisplayData, color: Color]; Create: PUBLIC PROC [vt: Terminal.Virtual, mode: Terminal.ColorMode, displayClass: DisplayClass, creationData: REF, bitsPerPixel: NAT, setUpMapProc: ImagerStdColorDisplay.SetUpMapProc] RETURNS [displayData: DisplayData]; DoUnderLock: PUBLIC PROC [displayData: DisplayData, action: PROC, rectangle: DeviceRectangle]; ApplyMask: PUBLIC PROC [displayData: DisplayData, color: Color, mask: Mask, sTranslate, fTranslate: INTEGER, cachedColorProc: ImagerStdColorDisplay.CachedColorProc]; PinPixelMap: PUBLIC PROC [vt: Terminal.Virtual, data: DisplayData, mode: Terminal.ColorMode]; ReleasePixelMap: PUBLIC PROC [vt: Terminal.Virtual, data: DisplayData]; MoveOverlay: PUBLIC PROC [vt: Terminal.Virtual, data: REF ANY]; SwitchBuffers: PUBLIC PROC []; LoadColorMap: PUBLIC PROC [vt: Terminal.Virtual, data: REF ANY, displayData: DisplayData, loadColor: ImagerStdColorDisplay.LoadColorProc]; END. ’ImagerStdColorDisplay.mesa Copyright c 1984 by Xerox Corporation. All rights reserved. Frank Crow, June 15, 1984 11:51:57 am PDT This provides support for the Dorado color display hardware common to standard displays. callback for initializing the colormap callback for loading a color into the map callback for updating colormap cache Pin a pixel map to the color display replacing whatever was there before. ΚΥ˜Ihead1™šœ Οmœ1™Jšœ6˜6šœ"˜"Jšœ$™$—šŸœžœžœ*˜FJ˜—JšŸœž œ2˜EJšœ2žœ˜7Jšœžœ1˜Lšœžœ˜'J˜—JšŸ œž œ$žœ˜^JšŸ œž œ˜2Jšœ;žœ˜DJšœA˜AunitšŸ œžœžœ)žœ˜]MšœI™I—NšŸœž œ+˜GNš Ÿ œžœžœžœžœ˜?NšŸ œžœžœ˜Nš Ÿ œžœžœžœž˜@Mšœ"ž˜$šœžœ%˜:N˜—Jšžœ˜—…—”