ColorTrixMod.mesa
Copyright © 1985 by Xerox Corporation. All rights reserved.
Bloomenthal, December 30, 1985 7:19:43 pm PST
DIRECTORY ImagerPixelMap, ImagerSample, Terminal;
ColorTrixMod: CEDAR DEFINITIONS
~ {
Table: TYPE ~ REF TableRep;
TableRep: TYPE ~ ARRAY [0..256) OF NAT;
Color Display Modifying Procedures:
Indirect: PROC [pm: ImagerPixelMap.PixelMap, table: Table];
Indirect all pixel values through the table.
Up: PROC [pm: ImagerPixelMap.PixelMap, shift: INT];
Move the image up by shift amount; image will wrap-around.
Left: PROC [pm: ImagerPixelMap.PixelMap, shift: INT];
Move the image left by shift amount; image will wrap-around.
Negate: PROC [pm: ImagerPixelMap.PixelMap];
Negate the image in the color display.
ReflectH: PUBLIC PROC [pm: ImagerPixelMap.PixelMap];
Reflect the pixel map about the horizontal mid-line.
ReflectV: PUBLIC PROC [pm: ImagerPixelMap.PixelMap];
Reflect the pixel map about the vertical mid-line.
MirrorH: PUBLIC PROC [pm: ImagerPixelMap.PixelMap, topToBottom: BOOL ← TRUE];
Mirror the pixel map about the horizontal mid-line.
MirrorV: PUBLIC PROC [pm: ImagerPixelMap.PixelMap, leftToRight: BOOL ← TRUE];
Mirror the pixel map about the vertical mid-line.
Lum: PROC [pm: ImagerPixelMap.PixelMap];
Converts pseudo-color to luminance; converts the colordisplay accordingly.
RampH: PROC [pm: ImagerPixelMap.PixelMap];
Put a horizontal ramp in the color display.
RampV: PROC [pm: ImagerPixelMap.PixelMap];
Put a vertical ramp in the color display.
PVal: PROC [pm: ImagerPixelMap.PixelMap, new: NAT, old: LIST OF NAT];
Set any old valued pixels to the new value.
}.