DIRECTORY PDInterpBasic, PDFileFormat, PDInterpBitmap, Stream; PDInterpReader: DEFINITIONS = BEGIN Handle: TYPE = LONG POINTER TO Rep; Rep: TYPE = RECORD [ stream: Stream.Handle, herald: PDFileFormat.Herald, image: PDFileFormat.StartImage, bandNumber: CARDINAL, sMinBand: CARDINAL, sSizeBand: CARDINAL, colorType: ColorType, colorTileLoadAddress: INT, priority: INT, loadWords: INT, private: LONG POINTER TO PrivateRep, index: INT, page: INT, pass: INT, status: PDInterpBasic.Status, warningCount: INT ]; ColorType: TYPE = {none, clear, ink, opaqueTile, transparentTile}; PrivateRep: TYPE; ColorTileFromLoad: PROC [handle: Handle, colorTileLoadAddress: INT, scratchPointer: LONG POINTER _ NIL, scratchWords: INT _ 0] RETURNS [PDInterpBitmap.Tile]; Error: ERROR [handle: Handle, code: PDInterpBasic.PDErrorCode, wordIndex, wordCount: INT]; Warning: SIGNAL [handle: Handle, code: PDInterpBasic.PDWarningCode, wordIndex, wordCount: INT]; Open: PROC [stream: Stream.Handle] RETURNS [Handle]; Close: PROC [handle: Handle] RETURNS [stream: Stream.Handle]; Get: PROC [handle: Handle] RETURNS [CommandBuffer]; CommandBuffer: TYPE = RECORD [ SELECT cmd: * FROM maskRectangle => [ sMin, fMin, sSize, fSize: CARDINAL ], maskTrapezoid => [ sMin, fMin, fMinLast, sSize, fSize, fSizeLast: CARDINAL ], maskRunGroup => [ sMin, fMin, sSize, fSize: CARDINAL, fOffset: CARDINAL, -- add this to fMin of each run runCount: INT, -- number of runs pointer: LONG POINTER TO PDFileFormat.Run, loadAddress: INT -- -1 if not in the load ], maskSamples => [ loadAddress: INT, -- -1 if not in the load samples: PDInterpBitmap.BitmapDesc ], colorSamples => [ samples: PDInterpBitmap.BitmapDesc ], deviceCommand => [ deviceCommandPointer: LONG POINTER, deviceCommandWords: CARDINAL ], stateChange => [ whatChanged: WhatChanged, loadChangeStart, loadChangeLength: INT ], ENDCASE ]; WhatChanged: TYPE = { imageStart, imageEnd, priorityChange, colorChange, bandChange, loadChange, documentEnd }; END. ÒPDInterpReader.mesa Copyright (C) 1983, Xerox Corporation. All rights reserved. Michael Plass, September 4, 1984 9:51:32 am PDT Last Edited by: Pier, November 22, 1983 2:44 pm Handle definition Color Tile access: Errors and Signals File control May raise PDFileReader.Error or PDFileReader.Warning Assumes the stream is positioned at the start of a PD file. Doesa NOT close the stream. Reading operations May raise PDFileReader.Error or PDFileReader.Warning Ê.˜Jšœ™J™<™/J™/—šÏk œ5˜>J˜—JšÏnœ œ˜#™Jš œœœœœ˜#šœœœ˜J˜Jšœ˜Jšœ˜Jšœ œ˜Jšœ œ˜Jšœ œ˜J˜Jšœœ˜Jšœ œ˜Jšœ œ˜Jšœ œœœ ˜$Jšœœ˜ Jšœœ˜ Jšœœ˜ J˜Jšœ˜Jšœ˜J˜Jšœ œ3˜BJšœ œ˜—J˜—™Jšžœœ(œœœœœœ˜J˜—™JšžœœIœ˜ZJšžœœKœ˜_J˜—™ šžœœœ ˜4Jšœ4™4J™;—šžœœœ˜=J™—J˜—™šžœœœ˜3Jšœ4™4—J˜—šœœœ˜šœ˜šœ˜Jšœ˜"Jšœ˜—šœ˜Jšœ/˜7Jšœ˜—šœ˜Jšœœ˜#Jšœ œÏc˜2Jšœ œŸ˜ Jšœ œœœ˜*Jšœ œŸ˜)Jšœ˜—šœ˜Jšœ œŸ˜*Jšœ"˜"Jšœ˜—šœ˜Jšœ"˜"Jšœ˜—šœ˜Jšœœœ˜#Jšœ˜Jšœ˜—šœ˜Jšœ˜Jšœ#˜&Jšœ˜—Jš˜—Jšœ˜šœ œ˜JšœV˜VJšœ˜—J˜—Jšœ˜—…—¸ ¸