🚀 go-pugleaf

In article <4471@optilink.UUCP> cramer@optilink.UUCP (Clayton Cramer) writes:
>
>Is there a way to take a PostScript drawing, and enlarge it so instead
>of printing on one page, it prints on several?

The blue book (_Tutorial and Cookbook_) has a routine called printposter (pp
183 - 185).  It assumes you have a "full scale" drawing, but if you already
have a drawing, you could easily fake that with a scale (3 3 scale will make
a single page drawing into a 3x3 page drawing).

Jim

+-------------------------------------------------------+
|  The fear of the Lord is the beginning of knowledge,  |
| but fools despise wisdom and discipline. Proverbs 1:7 |
|-------------------------------------------------------|
|    Internet: jmd@ee.umr.edu     |  M S - D O S . . .  |
|    UUCP: ...uunet!umree!jmd     |    Just say "NO!"   |
+-------------------------------------------------------+

Here's the code:
---- cut here ----
%!
/printposter
  { /rows exch def
    /columns exch def
    /bigpictureproc exch def
    newpath
      leftmargin botmargin moveto
      0 pageheight rlineto
      pagewidth 0 rlineto
      0 pageheight neg rlineto
    closepath clip
    leftmargin botmargin translate
    0 1 rows 1 sub
      { /rowcount exch def
        0 1 columns 1 sub
          { /colcount exch def
            gsave
              pagewidth colcount mul neg
                pageheight rowcount mul neg
                translate
              bigpictureproc
              gsave showpage grestore
            grestore
          } for
      } for
  } def

/inch {72 mul} def

/leftmargin .5 inch def
/botmargin .25 inch def
/pagewidth 7.5 inch def
/pageheigth 10 inch def

/poster
  { gsave
      3 3 scale
%
% Insert your single page drawing here
%
    grestore
  } def

{poster} 3 3 printposter