[comp.lang.postscript] help needed with postscript code

sbrown@gara.une.oz (Steve Brown) (05/07/89)

I would appreciate any help with the following problem (knowing nothing
about postscript):

I am trying to print a postcript file from a Macintosh "MacScan" program 
on the main laser printer (Printserver 40, Running postcript version 
48.something) , here at UNE. 

The problem is nothing prints out, however no errors are reported
I have two "MacScan" outputs, one is "Encapsulated Postcript (EPSF)" and
the other is just postcript:
The First:
%!PS-Adobe-2.0 EPSF-1.2
%%Creator: MacScan (TM) by New Image Technology
%%Title: test1.ps
%%CreationDate: Thu, May 4, 1989 9:14 PM
%%Pages: 0
%%BoundingBox: 0.00 0.00 00622.08 00636.96
%%EndComments
3 dict begin
/h 02592 def /v 02654 def
/buffer h 7 add 8 idiv string def
gsave h 300 div 72 mul v 300 div 72 mul scale
h v 1 [h 0 0 v neg 0 v]
{currentfile buffer readhexstring pop} image
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF  
etc etc etc .............
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
grestore end
The hexstring above is all one line.

And the Second:
%! Postscript Code Copyright (C) 1986, 1987 by Herb Weiner. All rights reserved.
/MacScan save def initgraphics /inches {72 mul} def /mm {72 254 div mul} def /points {} def /picas {12 mul} def /fromleft {/hsv exch def /hsf 0 def /hsp {pop hsv} def} def /leftrightcenter {/hsf 0.5 def /hsp {2 div} def} def /fromright {/hsv exch def /hsf 1 def /hsp {hsv sub} def} def /fromtop {/vsv exch def /vsf 1 def /vsp {vsv sub} def} def /topbottomcenter {/vsf 0.5 def /vsp {2 div} def} def /frombottom {/vsv exch def /vsf 0 def /vsp {pop vsv} def} def topbottomcenter leftrightcenter /landscapeflag fals



e def /printflag true def /SCALE {scale} bind def /scale {hsf vsf translate SCALE hsf neg vsf neg translate} def /h 02592 def /v 02654 def /BitsPerSample 1 def

/printflag true def
printflag {/#copies 00001 def} if
printflag {statusdict begin /manualfeed false def end} if
/landscapeflag false def
topbottomcenter % alternatives: "1.5 inches fromtop", "108 points frombottom"
leftrightcenter % alternatives: "6 picas fromleft", "254 mm fromright"

landscapeflag {/sa {90 add} def /hhh 11 def /vvv 8.5 def 90 rotate 0 -612 translate} {/sa {} def /hhh 8.5 def /vvv 11 def} ifelse /hh h BitsPerSample mul def /vv v BitsPerSample mul def /dotrans {hhh hh 300 div sub 72 mul hsp vvv vv 300 div sub 72 mul vsp translate} def /doscale {hh 72 mul 300 div vv 72 mul 300 div SCALE} def /buffer h 2 mul string def dotrans doscale 

% Insert custom PostScript code here:

h v 1 [h 0 0 v neg 0 v] {currentfile buffer readhexstring pop dup length 0 ne /readOK exch def} {image readOK {printflag {showpage} if} if MacScan restore} execFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
...etc etc etc
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF

The hexstring above is all one line.

				Thanks In Advance,
							Steve