ImagerColorTestMain.mesa
Authored by Frank Crow
Last Edited by: Crow, May 21, 1984 8:16:19 am PDT
Last Edited by: Hiller, September 7, 1984 0:08:55 am PDT
Copyright (C) 1984 by Xerox Corporation. All rights reserved.
DIRECTORY
Imager USING [Context, Pair],
ImagerBasic USING [IntRectangle],
ImagerDisplay USING [DisplayData],
Rope USING [ROPE];
ImagerColorTestMain:
CEDAR
DEFINITIONS
= BEGIN
GetDisplayContext: PROC RETURNS[ Imager.Context];
GetDisplayData: PUBLIC PROC RETURNS[ ImagerDisplay.DisplayData];
NullRectangle: PROC RETURNS[ ImagerBasic.IntRectangle] ~ INLINE { RETURN[[0, 0, 0, 0]] };
NameColor:
PROC [color: Rope.
ROPE];
LoadAndRotate8BitMap:
PROC [duration:
NAT];
LoadGrey8BitMap:
PROC [];
FillRectangle:
PROC [x, y, w, h:
REAL];
DrawLine:
PROC [pt1, pt2: Imager.Pair, width:
REAL];
LineTest:
PROC[color:
CARDINAL, length, times:
NAT];
SetDevice:
PROC[deviceType:
ATOM, box: ImagerBasic.IntRectangle];
RecoverContext: PROC[contextNumber: NAT];
GetAISFile: PUBLIC PROC[fileName: Rope.ROPE, xOffSet, yOffSet: INTEGER ← 0];
Get3AISFiles: PUBLIC PROC[redFile, greenFile, blueFile: Rope.ROPE,
xOffSet, yOffSet: INTEGER ← 0];
PutAISFile: PUBLIC PROC[fileName: Rope.ROPE];
PutFastAISFile: PUBLIC PROC[fileName: Rope.ROPE];
END.