ExtraAIS.Mesa
Copyright © 1985 by Xerox Corporation. All rights reserved.
Last Edited by: Spreitzer, July 21, 1984 4:11:22 pm PDT
Rick Beach, May 17, 1985 12:47:03 pm PDT
=
BEGIN
OPEN
AIS;
VRef: TYPE ~ REF VRep; -- Window that may extend beyond the data
VRep:
TYPE ~
RECORD [
w: WRef ← NIL,
fref: FRef ← NIL,
firstScan: INTEGER ← 0,
lastScan: INTEGER ← 0,
firstPixel: INTEGER ← 0,
lastPixel: INTEGER ← 0,
cfs, cls, cfp, clp: INTEGER ← 0, --clipped bounds
wordsPerLine: CARDINAL ← 0, --the number of words for one windowed scan line
pixelsPerWord: CARDINAL ← 0,
nextScanLine: CARDINAL ← 0,
clineaddr: LONG POINTER ← NIL,
emptyValue: CARDINAL ← 0
];
OpenWindow: PROC [f: FRef, firstScan: INTEGER ← 0, lastScan: INTEGER ← LAST[INTEGER], firstPixel: INTEGER ← 0, lastPixel: INTEGER ← LAST[INTEGER], emptyValue: CARDINAL ← 0]
RETURNS [v: VRef];
CloseWindow: PROC [v: VRef];
UnsafeReadLine: UNSAFE PROC [v: VRef, buffer: Buffer, line: INTEGER ← LAST[INTEGER]];