Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!swrinde!elroy.jpl.nasa.gov!usc!wuarchive!udel!haven!ncifcrf!fcs260c2!toms
From: toms@fcs260c2.ncifcrf.gov (Tom Schneider)
Newsgroups: comp.lang.postscript
Subject: Re: How do I determine a printer's imaging area?
Message-ID: <2047@fcs280s.ncifcrf.gov>
Date: 11 Feb 91 16:15:59 GMT
References: <1991Feb8.174934.5816@eagle.lerc.nasa.gov> <7723@exodus.Eng.Sun.COM>
Sender: news@ncifcrf.gov
Distribution: na
Organization: NCI Supercomputer Facility, Frederick, MD
Lines: 35

In article <7723@exodus.Eng.Sun.COM> rberlin@Eng.Sun.COM writes:

>Getting the printer's imageable area is fairly simple.
>
>    gsave initclip clippath pathbbox grestore
>
>should leave four numbers (llx lly urx ury) on the stack which
>describe the imageable area in current user units.  If you know the
>bounding box of your image, you can use these numbers to determine the
>largest scale that will work on your printer.

Since I just made it and it works, here is a complete PostScript program
to print out these numbers:

%! this is a PostScript program
erasepage
/Times-Roman findfont 30 scalefont setfont
/down {0 -100 rmoveto} def
/print {gsave show 10 string cvs show grestore down} def
gsave initclip clippath pathbbox grestore
144 432 moveto
(printer imageable area:) gsave show grestore down
(llx: ) print
(lly: ) print
(urx: ) print
(ury: ) print
showpage

>-- Rich

  Tom Schneider
  National Cancer Institute
  Laboratory of Mathematical Biology
  Frederick, Maryland  21702-1201
  toms@ncifcrf.gov