ColorTrixBasics.mesa
Copyright © 1985 by Xerox Corporation. All rights reserved.
Bloomenthal, May 13, 1986 5:28:54 pm PDT
Procedures for initializing the color display in high resolution (1024 by 768), 8 bit mode.
DIRECTORY Imager, ImagerColorMap, ImagerColorOperator, ImagerPixelArray, ImagerPixelMap, ImagerSample, InterminalBackdoor, Interpress, IO, Rope, Terminal;
ColorTrixBasics: CEDAR DEFINITIONS
IMPORTS Imager
~ {
VtMode: TYPE ~ {dither, gray, none};
CdType: TYPE = {gray, smooth, color};
SetVtMode: PUBLIC PROC [vtMode: VtMode] RETURNS [Terminal.Virtual];
Return color display virtual terminal. If mode is gray, then a gray display is created with
8pp (24bpp must always be dither displays). The color display status is set and the color
display turned on.
GetVt: PUBLIC PROC RETURNS [Terminal.Virtual];
Return the current virtual terminal.
InitCd: PROC [type: CdType, pixelUnits: BOOL ← TRUE, clear: BOOL ← FALSE, cmapInit: BOOL ← TRUE] RETURNS [Imager.Context];
ClearCd: PROC [cd: Imager.Context, color: Imager.ConstantColor ← Imager.black];
Clear context to specified color.
ClearVt: PROC [vt: Terminal.Virtual ← NIL, val: INTEGER ← 0];
Clear terminal to specified value.
GetPm: PROC RETURNS [ImagerPixelMap.PixelMap];
Return the color display pixel map.
}.