<> <> <> <> XeroxCompress: CEDAR DEFINITIONS = BEGIN <<>> <> <<>> <> <<>> <> <<=========>> <> <<=========>> wrdsInScanLine: CARDINAL = 256; dWrdsInScanLine: CARDINAL = wrdsInScanLine / 2; <<=====>> <> <<=====>> BitWrdIndex: TYPE = [0..wrdsInScanLine); ScanLine: TYPE = ARRAY [0..wrdsInScanLine) OF CARDINAL; ScanLinePtr: TYPE = REF ScanLine; DWScanLine: TYPE = ARRAY [0..dWrdsInScanLine) OF LONG CARDINAL; DWScanLinePtr: TYPE = REF DWScanLine; PutBitsProc: TYPE = PROCEDURE [val: CARDINAL, bits: INTEGER]; ScanLineProc: TYPE = PROCEDURE RETURNS [ current: ScanLinePtr _ NIL, previous: ScanLinePtr _ NIL]; <<=========>> <> <<=========>> CompressPlate: PROCEDURE [ scanLen: CARDINAL, scanLineProc: ScanLineProc, putBitsProc: PutBitsProc] RETURNS [xPixels: CARDINAL, byteSize: LONG CARDINAL]; Initialize: PROCEDURE []; END... LOG 13Sep84 - Okamoto - Created. 18Jun85 - castillo - copyright notice.