ImagerLF.mesa
Michael Plass, February 20, 1984 9:24:22 am PST
Doug Wyatt, July 31, 1984 4:56:13 pm PDT
DIRECTORY
Font USING [FONT],
ImagerBasic USING [ClientClipper, Color, IntPair, SampledColor],
ImagerHalftone USING [DeviceBrick],
ImagerManhattan USING [Polygon],
ImagerPixelMaps USING [PixelMap, Tile],
ImagerScanConverter USING [DevicePath],
ImagerTransform USING [Transformation];
ImagerLF: CEDAR DEFINITIONS ~ BEGIN
State: TYPE ~ REF StateRep;
StateRep: TYPE ~ RECORD[
-- persistent variables --
cpx, cpy: REAL,
correctMX, correctMY: REAL,
-- nonpersistent variables --
T: ImagerTransform.Transformation,
priorityImportant: INT,
mediumXSize, mediumYSize: REAL,
fieldXMin, fieldYMin, fieldXMax, fieldYMax: REAL,
font: Font.FONT,
color: ImagerBasic.Color,
noImage: INT,
strokeWidth: REAL,
strokeEnd: INT,
underlineStart: REAL,
amplifySpace: REAL,
correctPass: INT,
correctShrink: REAL,
correctTX, correctTY: REAL,
clipper: ImagerBasic.ClientClipper,
-- CORRECT variables (persistent) --
correctMaskCount: INT,
correctMaskX, correctMaskY: REAL,
correctSumX, correctSumY: REAL,
correctSpaceX, correctSpaceY: REAL,
correctcpx, correctcpy: REAL,
correctTargetX, correctTargetY: REAL
];
DataRep: TYPE ~ RECORD [
Imager variables:
state: State,
Clipper info:
viewClipper: ImagerManhattan.Polygon, -- in device coords
clientClipper: ImagerBasic.ClientClipper, -- for noticing client clipper changes
compositeClipper: ImagerManhattan.Polygon, -- in device coords; invalid if NIL or clientClipper#state.clipper
View-to-surface info
viewOrigin: ImagerBasic.IntPair,
Scratch storage
devicePath: ImagerScanConverter.DevicePath,
tileSamples: ImagerBasic.SampledColor,
deviceBrick: ImagerHalftone.DeviceBrick ← NIL,
deviceBrickMaxSampleValue: INT ← -1,
Cached color info
cachedColor: ImagerBasic.Color ← NIL,
tile: ImagerPixelMaps.Tile,
The bitmap
canvas: ImagerPixelMaps.PixelMap
];
END.