ImagerColorAIS.mesa
Copyright © 1984 by Xerox Corporation. All rights reserved.
Last Edited by: Crow, August 16, 1984 9:23:06 am PDT
DIRECTORY
Rope USING [ROPE],
Imager USING [Context];
ImagerColorAIS:
CEDAR
DEFINITIONS
~ BEGIN
ColorAISError: PUBLIC SIGNAL [reason: ATOM];
Read file into display context, clipping to display limits, centering, then translating as indicated
GetAISFile: PUBLIC PROC[context: Imager.Context, fileName: Rope.ROPE,
xOffset, yOffset:
INTEGER ← 0];
Read files into display context, for old-fashioned 3-file color AIS images
Get3AISFiles: PUBLIC PROC[context: Imager.Context,
redFile, greenFile, blueFile: Rope.ROPE,
xOffset, yOffset:
INTEGER ← 0];
Load file with bits from the display context, interleave samples for color files
PutAISFile:
PUBLIC
PROC[context: Imager.Context, fileName: Rope.
ROPE];
Load file with bits from the display context, color sample interleaving is machine dependent
PutFastAISFile:
PUBLIC
PROC[context: Imager.Context, fileName: Rope.
ROPE];
Load file with bits from the display context, output three files, one per primary
Put3AISFiles: PUBLIC PROC[context: Imager.Context, redFile, greenFile, blueFile: Rope.ROPE];
END.