<> <> <> <> <> <<>> 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.