<> <> <> <> XeroxCompress: CEDAR DEFINITIONS = BEGIN <> <> <<>> <> <> <<>> <> <> <> <> PutBitsProc: TYPE = PROCEDURE [val: CARDINAL, bits: INTEGER]; ScanLineProc: TYPE = PROCEDURE RETURNS [current: REF ¬ NIL, previous: REF ¬ NIL]; CompressPlate: PROCEDURE [scanLen: CARDINAL, scanLineProc: ScanLineProc, putBitsProc: PutBitsProc] RETURNS [xPixels: CARDINAL, byteSize: LONG CARDINAL]; Initialize: PROCEDURE []; END. <> <<13Sep84 - Okamoto - Created.>> <<18Jun85 - castillo - copyright notice.>> <> <> <<>>