DIRECTORY ColorTrixBasics, ImagerPixelMap, ImagerSample, Terminal; ColorTrixMod: CEDAR DEFINITIONS ~ BEGIN Table: TYPE ~ REF TableRep; TableRep: TYPE ~ ARRAY [0..256) OF NAT; PixelMap: TYPE ~ ImagerPixelMap.PixelMap; Indirect: PROC [pm: PixelMap, table: Table]; Dif: PROC [pm: PixelMap, x0, y0, x1, y1, x2, y2, w, h: NAT]; Up: PROC [pm: PixelMap, shift: INTEGER]; Left: PROC [pm: PixelMap, shift: INTEGER]; Negate: PROC [pm: PixelMap]; ReflectH: PUBLIC PROC [pm: PixelMap]; ReflectV: PUBLIC PROC [pm: PixelMap]; MirrorH: PUBLIC PROC [pm: PixelMap, topToBottom: BOOL _ TRUE]; MirrorV: PUBLIC PROC [pm: PixelMap, leftToRight: BOOL _ TRUE]; Lum: PROC [pm: PixelMap]; RampH: PROC [pm: PixelMap]; RampV: PROC [pm: PixelMap]; PVal: PROC [pm: PixelMap, new: NAT, old: LIST OF NAT]; END. lColorTrixMod.mesa Copyright c 1985 by Xerox Corporation. All rights reserved. Bloomenthal, December 13, 1986 6:16:39 pm PST Color Display Modifying Procedures: Indirect all pixel values through the table. Display the difference (absolute value) of two windows in a third window, each w by h. Move the image up by shift amount; image will wrap-around. Move the image left by shift amount; image will wrap-around. Negate the image in the color display. Reflect the pixel map about the horizontal mid-line. Reflect the pixel map about the vertical mid-line. Mirror the pixel map about the horizontal mid-line. Mirror the pixel map about the vertical mid-line. Converts pseudo-color to luminance; converts the colordisplay accordingly. Put a horizontal ramp in the color display. Put a vertical ramp in the color display. Set any old valued pixels to the new value. Κ ˜šœ™Jšœ Οmœ1™J™3J™—š ’œžœžœžœžœ˜>J™1J™—š‘œžœ˜JšœJ™JJ˜—š‘œžœ˜Jšœ+™+J˜—š‘œžœ˜Jšœ)™)J˜—š ‘œžœžœžœžœžœ˜6Jšœ+™+J˜——Jšžœ˜—…—’