IPScan.mesa
Based on CubicScan.mesa, by Michael Plass
Last edited by:
Michael Plass, March 31, 1983 12:28 pm
Doug Wyatt, April 11, 1983 3:53 pm
DIRECTORY
IPImagerBasic USING [Pair];
IPScan:
CEDAR DEFINITIONS
= BEGIN OPEN IPImagerBasic;
DevicePath: TYPE = REF DevicePathRec;
DevicePathRec: TYPE;
Allocate: PROC RETURNS[DevicePath];
Reset: PROC[devicePath: DevicePath];
Release: PROC[devicePath: DevicePath];
PushPath:
PROC[devicePath: DevicePath,
gen: PROC[move: PROC[Pair], line: PROC[Pair], curve: PROC[Pair, Pair, Pair]],
exclude: BOOLEAN ← FALSE
];
PopPath: PROC[devicePath: DevicePath];
ScanConvert:
PROC[devicePath: DevicePath,
proc: PROC[x, y, w, h: INTEGER], -- called for each rectangle in result
ymin: INTEGER ← FIRST[INTEGER], ymax: INTEGER ← LAST[INTEGER]
];
timeMarkAfterAllocates: LONG CARDINAL;
timeMarkAfterEvals: LONG CARDINAL;
timeMarkAfterSort: LONG CARDINAL;
END.