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. â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. Ê󘚜™Jšœ™J™1J™8Jšœ>™>J™—šÏk œ˜Jšœ œ˜ Jšœœ˜#Jšœœ˜#Jšœ œœ˜J˜—šœœ ˜'J˜—Jšœ˜J˜JšÏnœœœ˜1J˜Jšžœ œœ˜@J˜Jš ž œœœœœ˜YJ˜ašž œœœ˜#K˜—šžœœ œ˜+K˜—šžœœ˜K˜—šž œœœ˜'K˜—šžœœ œ˜4K˜—šžœœœœ˜4J˜—šž œœ œ!˜AK˜—Jšžœœœ˜)J˜Jš ž œœœœœ˜MKšž œœœ$œ˜CJšœœ˜)J˜Jšž œœœœ˜.Jšžœœœœ˜2Jšœ˜J˜—…—,