DIRECTORY
ImagerBasic		 USING [IntRectangle, IntPair, CIEColor],
ImagerDisplay	USING [Mask, ByteSequence, VtxSequence, ContextData,
							 Direction];
Imager8bitDisplay: CEDAR DEFINITIONS
= BEGIN
OPEN ImagerBasic, ImagerDisplay;
SetUp: PUBLIC PROC  [ displayContext: ContextData, pin: BOOLEAN _ TRUE, box: Mask];
ShutDown: PROC [displayContext: ContextData];
ColortoPixel: PROC [color: CIEColor] RETURNS [LONG CARDINAL];		-- Color to device transform
PixeltoColor: PROC [pxlValue: LONG CARDINAL] RETURNS [CIEColor];
HilitePxls: PROC [area: IntRectangle];					-- Device dependent highlighting scheme
MovePxls: PUBLIC PROC [context: ContextData, 
							  source: IntRectangle, destination: IntPair]; -- move within context
TransferPxls: PUBLIC PROC [source, destination: ContextData];
StoreScanSeg: PUBLIC PROC [source: ContextData, 
								   x, y, length: CARDINAL] RETURNS [ByteSequence];
LoadScanSeg: PUBLIC PROC [destination: ContextData, 
								   x, y, length: CARDINAL, segment: ByteSequence];
LoadTrapezoid: PUBLIC PROC [destination: ContextData, 
									  top, bottom, leftTop, leftBot, rightTop, rightBot: CARDINAL,
									  pxlValue: LONG CARDINAL];
LoadRectangle: PUBLIC PROC [destination: ContextData, area: ImagerBasic.IntRectangle,
							 		 pxlValue: LONG CARDINAL];
SetAnyPxl: PUBLIC PROC [destination: ContextData, x, y: CARDINAL, pxlValue: LONG CARDINAL,
								newDirection: Direction _ none];
GetAnyPxl: PUBLIC PROC [source: ContextData, x, y: CARDINAL, newDirection: Direction _ none]
					 RETURNS [LONG CARDINAL];
SetNextPxl: PUBLIC PROC [pxlValue: LONG CARDINAL];
GetNextPxl: PUBLIC PROC [] RETURNS [LONG CARDINAL];
DrawLine: PUBLIC PROC [destination: ContextData, a, b: IntPair, 
							   pxlValue: LONG CARDINAL];		-- fast line, constant color
Tiler: PUBLIC PROC [destination: ContextData, 
						vtxCount: NAT, vertices: VtxSequence];  -- smooth shaded, convex poly
ConstantTiler: PUBLIC PROC [destination: ContextData, vtxCount: NAT,   -- constant shade
									vertices: VtxSequence, pxlValue: LONG CARDINAL];

END.
�����Imager8bitDisplay.mesa
This interface provides access to the low level routines for the color display at 8 bits per pixel.

Last Edited by:
Crow, September 1, 1983 3:17 pm
Get memory, pin it if pin = TRUE, set transform and clipper
Ê–��˜�
headš
œ™J™c—™�š
œ™Jš
œ™—
unitš
Ïk	˜	Jšœœ#˜6Jšœœ/˜BJš
œ˜——
head2š
œ$˜$Jšœ˜Jšœ˜ —š
Ïnœœ
œ&œœ
˜SI
ašœœ™;—Jšžœœ˜-Jšžœœœœ
œÏc˜[Jš
žœœœ
œœ˜@Jšž
œœŸ*˜RJšžœœ
œ˜-Nšœ5Ÿ˜LJšžœœ
œ$˜=Jšžœœ˜0Nšœœœ˜:Jšžœœ
œ˜4Nšœœ˜:Jšž
œœ
œ˜6Nšœ>œ
˜GNšœœ
œ˜$Nšž
œœ;˜UNšœœ
œ˜$Jšž	œœ
œ"œœ
œ
˜ZJš
œ(˜(Jšž	œœ
œ˜\Jšœœœ
œ˜Jš
ž
œœ
œœ
œ˜2Jšž
œœ
œœœ
œ˜3Jšžœœ+˜@Nšœœ
œŸ˜AJšžœœ
œ˜.NšœœŸ˜KNš	ž
œœ
œ&œŸ˜XNšœ*œ
œ˜9J˜�Jšœ
˜—�…—��������