marc@rna.UUCP (Marc Johnson) (09/13/88)
I am trying desperately to cause two (or more) bitmapped images to be printed
in PostScript. I set up a very simple PS program:
---------------------------------------------------------------------------
%!PS
%% Creation Date: Wed Sep 7 16:12:38 1988
%% Prolog for raster image files on LaserWriter written
%% by Marc Johnson, Rockefeller Univ (after pssun.pro).
%% number of device units per 72nd of an inch
/inch {72 mul} def
gsave
/picstr 48 string def
/doimage0
{ 384 288 1 [384 0 0 -288 0 288]
{currentfile picstr readhexstring pop} image
} def
1.280000 inch 0.960000 inch scale
0.000000 inch 0.000000 inch translate
{1 exch sub} settransfer
doimage0
[then follows 288 lines of 96 bytes each representing the image]
[this is followed by:]
grestore
/picstr 48 string def
/doimage1
{ 384 288 1 [384 0 0 -288 0 288]
{currentfile picstr readhexstring pop} image
} def
1.280000 inch 0.960000 inch scale
5.000000 inch 5.000000 inch translate
{1 exch sub} settransfer
doimage1
[then follows another 288 lines of 96 bytes each]
[then...]
grestore
showpage
---------------------------------------------------------------------------
Now, this baby sits and grinds for about 10 minutes, and spits out a page
containing only the first image. The LaserWriter Plus seems to be accepting
the data for the second image, but nothing is printed. If I separate the
file and just print either image (not both), it works! I can print
two images based on the simple "turkey" demo given in the Adobe PostScript
tutorial (p. 149), which is nearly identical to my case, except that the
image is a lot smaller (many fewer bytes).
Anybody got an idea why this isn't working?
Muchos thankyous,
Marc Johnson
Rockefeller Univ.
marc%rna@rockefeller.edu (129.85.2.1)
rna!marc@rockvax.bitnet
...cmcl2!rna!marc