-- PDInterpOutputPanasonicImpl.mesa -- Copyright (C) 1984, 1986 Xerox Corporation. All rights reserved. -- Tim Diebert, 31-Jul-86 10:27:06 -- DIRECTORY Environment, GPIB, PDFileFormat, PDInterpBasic, PDInterpOutput, PDInterpBitmap, PDInterpSysCalls, PDQueue, Process, String; PDInterpOutputPanasonicImpl: PROGRAM IMPORTS GPIB, PDInterpBitmap, PDInterpSysCalls, Process, String EXPORTS PDInterpOutput = BEGIN bitsPerWord: NAT = Environment.bitsPerWord; currentHerald: PDFileFormat.Herald; currentStartImage: PDFileFormat.StartImage; currentBandNumber: NAT ← 0; bandWords: INT ← 0; band: PDInterpBitmap.BitmapDesc ← [sOrigin: 0, fOrigin: 0, sMin: 0, fMin: 0, sSize: 0, fSize: 0, pointer: NIL, rast: 0, lines: 0]; bandWordsAllocated: CARDINAL ← 0; feed: BOOL ← FALSE; strip: BOOL ← FALSE; deviceAddr: GPIB.DeviceAddr ← 16; bandsSent: CARDINAL ← 0; bandsToSend: CARDINAL ← 0; zeros: PDInterpBitmap.BitmapDesc ← [sOrigin: 0, fOrigin: 0, sMin: 0, fMin: 0, sSize: 0, fSize: 0, pointer: NIL, rast: 0, lines: 0]; zerosWordsAllocated: CARDINAL ← 0; quadWordCnt: CARDINAL ← 0; CurrentBandDesc: PROC RETURNS [PDInterpBitmap.BitmapDesc] = { band.sOrigin ← currentHerald.bandSSize*(currentBandNumber+currentStartImage.passBands); PDInterpBitmap.Clear[band]; RETURN [band] }; StartImage: PUBLIC PROC [herald: PDFileFormat.Herald, startImage: PDFileFormat.StartImage, request: PDQueue.Request] RETURNS [PDInterpBitmap.BitmapDesc] = { rast: NAT = (herald.imageFSize+bitsPerWord-1)/bitsPerWord; words: CARDINAL = rast * herald.bandSSize; -- In the band. bytes: CARDINAL ← rast * 2; command: LONG STRING ← [200]; linesToSend: CARDINAL ← MIN[herald.imageSSize, 5500]; bandsToSend ← MIN[herald.imageSSize/herald.bandSSize, 110]; command.length ← 0; currentHerald ← herald; currentStartImage ← startImage; currentBandNumber ← 0; feed ← startImage.feed; strip ← startImage.strip; quadWordCnt ← words/4; IF words > bandWordsAllocated OR bandWordsAllocated = 0 THEN { IF band.pointer # NIL THEN PDInterpSysCalls.FreeSpace[band.pointer]; band.pointer ← PDInterpSysCalls.AllocateSpace[words]; bandWordsAllocated ← words; }; IF words > zerosWordsAllocated OR zerosWordsAllocated = 0 THEN { IF zeros.pointer # NIL THEN PDInterpSysCalls.FreeSpace[zeros.pointer]; zeros.pointer ← PDInterpSysCalls.AllocateSpace[words]; zerosWordsAllocated ← words; }; zeros.sOrigin ← 0; zeros.fOrigin ← 0; zeros.sMin ← 0; zeros.fMin ← 0; zeros.sSize ← herald.bandSSize; zeros.fSize ← rast*bitsPerWord; zeros.rast ← rast; zeros.lines ← herald.bandSSize; PDInterpBitmap.Clear[zeros]; IF feed THEN BEGIN numbers: LONG STRING ← [120]; GPIB.DevicesClear[]; String.AppendNumber[s: numbers, n: bytes]; String.AppendChar[s: numbers, c: ',]; String.AppendNumber[s: numbers, n: linesToSend]; String.AppendString[to: numbers, from: ",0,0\n\l"]; GPIB.SelectedDeviceClear[deviceAddr]; IF herald.deviceCode = color400 THEN BEGIN String.AppendString[to: command, from: "AY"]; -- Yellow String.AppendString[to: command, from: numbers]; GPIB.WriteDevice[deviceAddr, command]; command.length ← 0; String.AppendString[to: command, from: "AM"]; -- Magenta String.AppendString[to: command, from: numbers]; GPIB.WriteDevice[deviceAddr, command]; command.length ← 0; String.AppendString[to: command, from: "AC"]; -- Cyan String.AppendString[to: command, from: numbers]; GPIB.WriteDevice[deviceAddr, command]; command.length ← 0; END ELSE BEGIN GPIB.WriteDevice[deviceAddr, "EY\n\l"]; -- Skip Y GPIB.WriteDevice[deviceAddr, "EM\n\l"]; -- Skip C GPIB.WriteDevice[deviceAddr, "EC\n\l"]; -- Skip M command.length ← 0; END; command.length ← 0; String.AppendString[to: command, from: "AK"]; String.AppendString[to: command, from: numbers]; GPIB.WriteDevice[deviceAddr, command]; command.length ← 0; GPIB.WriteDevice[deviceAddr, "PL\n\l"]; GPIB.WriteDevice[deviceAddr, "C\n\l"]; GPIB.WriteDevice[deviceAddr, "O900\n\l"]; GPIB.WriteDeviceInitial[deviceAddr, "T\n\l"]; END; FOR i: CARDINAL IN [0 .. startImage.passBands) DO GPIB.WriteDeviceBlock[deviceAddr, zeros.pointer, quadWordCnt, FALSE]; Process.Yield[]; ENDLOOP; bandsSent ← startImage.passBands; band.sOrigin ← 0; band.fOrigin ← startImage.fMinPage; band.sMin ← 0; band.fMin ← 0; band.sSize ← herald.bandSSize; band.fSize ← rast*bitsPerWord; band.rast ← rast; band.lines ← herald.bandSSize; bandWords ← words; RETURN [CurrentBandDesc[]] }; -- EndBand: PUBLIC PROC RETURNS [PDInterpBitmap.BitmapDesc] = { GPIB.WriteDeviceBlock[deviceAddr, band.pointer, quadWordCnt, FALSE]; Process.Yield[]; bandsSent ← bandsSent + 1; currentBandNumber ← currentBandNumber + 1; RETURN [CurrentBandDesc[]] }; EndImage: PUBLIC PROC [request: PDQueue.Request] = { FOR i: CARDINAL IN [bandsSent .. bandsToSend) DO GPIB.WriteDeviceBlock[deviceAddr, zeros.pointer, quadWordCnt, FALSE]; ENDLOOP; IF strip THEN Process.Pause[Process.SecondsToTicks[15]]; }; ReprintLastPage: PUBLIC PROC [copies: CARDINAL] = { IF currentHerald.password # PDFileFormat.passwordValue THEN RETURN; currentHerald.copies ← copies; -- PrintPage[]; }; currentHerald.password ← 0; END.