🚀 go-pugleaf

>Has anyone ever done a program (be it postscript or a tool creating
>postscript), that can draw on an (infinitely large) virtual page, then
>break it down into an acceptable size (say the printer's default),

Here's a hack that may be of use to you. I've used it to create
posters 18 feet high! :)

Right now it's set to print "normal size" -- just one page.

-Jon


%! Jon Monsarrat   jgm@cs.brown.edu   Brown University %! Obfuscated PostScript
% The "Drawit" routine can be any program. Ignore the complexity of
% what drawit happens to be defined as.
/drawit
{

4 4 scale

(LcHdBidZi_hdQ6[PaVa1b4c6F"J4b/>$O<)(di_zk{:UFfUg;ABF)(2n>]Eh:u?<)(P"M#R\(:$T<)
([gXfSZ]f\\dZbeZeb^fH;`?dR=ZS7)(K P!U!: H<)(9l9cCf:o?$)(7W4]6`:X;=)(U"W#_%:"R-)
(A 5"<&Y%K"F"M,M,S\)i3e.M5F_PZR9>lP-)(wBxEuEs7x;uBq:q<q>hFh7o:=Nj<)(Z#]#b#:$R-)
(m+m+k3S!R+d,;"^<)(GFP\\RamZf;TAP{X{fd<{C7)(4840N2:6N=)([ Z#^&:!c<)(<%?$C$:#8<)
(D!J"L#:!B<)/a{def}def/M{exch}a/S{repeat}a/Q{{40 add}if}a 18{{}forall/R M a/x 2
/y 3/z 5 3{R M mod 1 eq a}S x Q M y Q moveto 57 sub{3{y Q M x Q M 6 2 roll}S
curveto}S z{fill}{stroke}ifelse}S showpage

} bind def

/size 1 def   % change this variable to get larger posters.
              % For example, try numbers 2, 3 and 4.
/inch { 72 mul } def
% This defines the size of the poster. The output will be (size+1)^2
% number of pages, so be wary of printing this out too big. It take a
% long time.

0 1 size 11 17 div mul { /height exch def
        0 1 size 8.5 11 div mul { /width exch def
                  -10.5 inch width mul
                  -16.5 inch height mul translate
                   size size scale drawit
              } for
      } for