2 13f7391e 2004-05-15 devnull % Procedures that let you print any number of pages on each sheet of paper. It's
3 13f7391e 2004-05-15 devnull % far from perfect and won't handle everything (eg. it's not recursive), but should
4 13f7391e 2004-05-15 devnull % be good enough for now. Assumes the default page coordinate system has been set
5 13f7391e 2004-05-15 devnull % up before setupforms is called. lastpage makes certain the last page is printed,
6 13f7391e 2004-05-15 devnull % and should be called immediately after the %%Trailer comment.
8 13f7391e 2004-05-15 devnull % Three lines of code needed for page image clipping have been commented out for
9 13f7391e 2004-05-15 devnull % now. It works, but can really slow things down on some versions of PostScript.
10 13f7391e 2004-05-15 devnull % Uncomment them if you want to clip pages.
13 13f7391e 2004-05-15 devnull /setupforms {
14 13f7391e 2004-05-15 devnull /formsperpage exch def
16 13f7391e 2004-05-15 devnull /currentform 0 def
17 13f7391e 2004-05-15 devnull /slop 5 def
18 13f7391e 2004-05-15 devnull /min {2 copy gt {exch} if pop} def
21 13f7391e 2004-05-15 devnull % Save the current environment so the real showpage can be restored when we're all
22 13f7391e 2004-05-15 devnull % done. Occasionally helps when a banner page is included with the job.
25 13f7391e 2004-05-15 devnull /saveobj save def
28 13f7391e 2004-05-15 devnull % Number of rows and columns we'll need - may exchange them later.
31 13f7391e 2004-05-15 devnull /columns formsperpage sqrt ceiling cvi def
32 13f7391e 2004-05-15 devnull /rows formsperpage columns div ceiling cvi def
35 13f7391e 2004-05-15 devnull % Slop leaves a little room around the edge so page images can be outlined and have
36 13f7391e 2004-05-15 devnull % the borders show up. Distance is in default coordinates, so we need to figure out
37 13f7391e 2004-05-15 devnull % how it maps into user coordinates.
40 13f7391e 2004-05-15 devnull 6 array defaultmatrix
41 13f7391e 2004-05-15 devnull 6 array currentmatrix
42 13f7391e 2004-05-15 devnull 6 array invertmatrix
43 13f7391e 2004-05-15 devnull 6 array concatmatrix
44 13f7391e 2004-05-15 devnull /tempmatrix exch def
46 13f7391e 2004-05-15 devnull 0 slop tempmatrix dtransform dup mul exch dup mul add sqrt
47 13f7391e 2004-05-15 devnull /slop exch def
50 13f7391e 2004-05-15 devnull % Determine how big the image area is, using the clipping path bounding box minus
51 13f7391e 2004-05-15 devnull % a little and leave the coordinates of the lower left corner of the clipping path
52 13f7391e 2004-05-15 devnull % on the stack. Also temporarily set the size of each page (ie. formheight and
53 13f7391e 2004-05-15 devnull % formwidth) from the clipping path - just in case old software uses this stuff.
54 13f7391e 2004-05-15 devnull % Only works for coordinate systems that have been rotated by a multiple of 90
55 13f7391e 2004-05-15 devnull % degrees.
58 13f7391e 2004-05-15 devnull newpath clippath pathbbox
59 13f7391e 2004-05-15 devnull 2 index sub dup /formheight exch def slop 2 mul sub /pageheight exch def
60 13f7391e 2004-05-15 devnull 2 index sub dup /formwidth exch def slop 2 mul sub /pagewidth exch def
63 13f7391e 2004-05-15 devnull % New translators all store the size of each page in default coordinates in the
64 13f7391e 2004-05-15 devnull % pagebbox array and it can be different than the size determined by the clipping
65 13f7391e 2004-05-15 devnull % path. If we can find pagebbox use it to set the real dimensions of each page.
66 13f7391e 2004-05-15 devnull % Leaves the coordinates of the lower left corner on the stack, (either from
67 13f7391e 2004-05-15 devnull % pagebbox or clippath) so four numbers are there when we're done.
70 13f7391e 2004-05-15 devnull userdict /gotpagebbox known userdict /pagebbox known and {
72 13f7391e 2004-05-15 devnull pagebbox 0 get pagebbox 1 get tempmatrix transform moveto
73 13f7391e 2004-05-15 devnull pagebbox 0 get pagebbox 3 get tempmatrix transform lineto
74 13f7391e 2004-05-15 devnull pagebbox 2 get pagebbox 3 get tempmatrix transform lineto
75 13f7391e 2004-05-15 devnull pagebbox 2 get pagebbox 1 get tempmatrix transform lineto
76 13f7391e 2004-05-15 devnull closepath pathbbox
77 13f7391e 2004-05-15 devnull 2 index sub /formheight exch def
78 13f7391e 2004-05-15 devnull 2 index sub /formwidth exch def
79 13f7391e 2004-05-15 devnull } {2 copy} ifelse
82 13f7391e 2004-05-15 devnull % Top two numbers are the displacement from the job's origin to the lower left
83 13f7391e 2004-05-15 devnull % corner of each page image when we finish setting up the new coordinate system.
86 13f7391e 2004-05-15 devnull /ycorner exch def
87 13f7391e 2004-05-15 devnull /xcorner exch def
90 13f7391e 2004-05-15 devnull % The two numbers left on the stack are the coordinates of the lower left corner
91 13f7391e 2004-05-15 devnull % of the clipping path. Go there and then up a bit so page images can be outlined.
94 13f7391e 2004-05-15 devnull translate
95 13f7391e 2004-05-15 devnull slop slop translate
98 13f7391e 2004-05-15 devnull % If the page is wider than high we may be able to do better if we exchange rows
99 13f7391e 2004-05-15 devnull % and columns. Won't make a difference in the current orientation or if rows and
100 13f7391e 2004-05-15 devnull % columns are the same.
103 13f7391e 2004-05-15 devnull pagewidth pageheight gt {
104 13f7391e 2004-05-15 devnull rows columns /rows exch def /columns exch def
108 13f7391e 2004-05-15 devnull % Find the orientation and scaling that makes things as large as possible. More
109 13f7391e 2004-05-15 devnull % than what's really needed. First calculation essentially finds the minimum of
110 13f7391e 2004-05-15 devnull % 1/rows and 1/columns.
113 13f7391e 2004-05-15 devnull pagewidth formwidth columns mul div pageheight formheight rows mul div min
114 13f7391e 2004-05-15 devnull pageheight formwidth columns mul div pagewidth formheight rows mul div min
116 13f7391e 2004-05-15 devnull 2 copy lt {
117 13f7391e 2004-05-15 devnull rotation 1 eq {
118 13f7391e 2004-05-15 devnull landscape {
119 13f7391e 2004-05-15 devnull 0 pageheight translate
120 13f7391e 2004-05-15 devnull -90 rotate
122 13f7391e 2004-05-15 devnull pagewidth 0 translate
123 13f7391e 2004-05-15 devnull 90 rotate
124 13f7391e 2004-05-15 devnull } ifelse
126 13f7391e 2004-05-15 devnull landscape {
127 13f7391e 2004-05-15 devnull pagewidth 0 translate
128 13f7391e 2004-05-15 devnull 90 rotate
130 13f7391e 2004-05-15 devnull 0 pageheight translate
131 13f7391e 2004-05-15 devnull -90 rotate
132 13f7391e 2004-05-15 devnull } ifelse
133 13f7391e 2004-05-15 devnull } ifelse
134 13f7391e 2004-05-15 devnull pagewidth pageheight /pagewidth exch def /pageheight exch def
139 13f7391e 2004-05-15 devnull % Second number from the top is the best choice. Scale so everything will fit on
140 13f7391e 2004-05-15 devnull % the current page, go back to the original origin, and then get ready for the
141 13f7391e 2004-05-15 devnull % first page - which goes in the upper left corner.
144 13f7391e 2004-05-15 devnull pop dup dup scale
145 13f7391e 2004-05-15 devnull xcorner neg ycorner neg translate
146 13f7391e 2004-05-15 devnull 0 rows 1 sub formheight mul translate
149 13f7391e 2004-05-15 devnull % Try to center everything on the page - scaling we used is on top of the stack.
152 13f7391e 2004-05-15 devnull dup pagewidth exch div formwidth columns mul sub 2 div
153 13f7391e 2004-05-15 devnull exch pageheight exch div formheight rows mul sub 2 div translate
156 13f7391e 2004-05-15 devnull % Redefine showpage.
159 13f7391e 2004-05-15 devnull /!PreForms~showpage~ /showpage load def % save current showpage
161 13f7391e 2004-05-15 devnull /showpage {
162 13f7391e 2004-05-15 devnull saveobj restore
163 13f7391e 2004-05-15 devnull % initclip
164 13f7391e 2004-05-15 devnull formsperpage 1 gt {
165 13f7391e 2004-05-15 devnull gsave .1 setlinewidth outlineform stroke grestore
167 13f7391e 2004-05-15 devnull formwidth 0 translate
168 13f7391e 2004-05-15 devnull /currentform currentform 1 add def
169 13f7391e 2004-05-15 devnull currentform columns mod 0 eq {
170 13f7391e 2004-05-15 devnull columns formwidth mul neg formheight neg translate
172 13f7391e 2004-05-15 devnull currentform formsperpage mod 0 eq {
173 13f7391e 2004-05-15 devnull gsave !PreForms~showpage~ grestore
174 13f7391e 2004-05-15 devnull currentform columns mod formwidth mul neg
175 13f7391e 2004-05-15 devnull formsperpage columns idiv formheight mul translate
176 13f7391e 2004-05-15 devnull /currentform 0 def
178 13f7391e 2004-05-15 devnull % outlineform clip newpath
179 13f7391e 2004-05-15 devnull /saveobj save def
180 13f7391e 2004-05-15 devnull } bind def
182 13f7391e 2004-05-15 devnull /outlineform {
184 13f7391e 2004-05-15 devnull xcorner ycorner moveto
185 13f7391e 2004-05-15 devnull formwidth 0 rlineto
186 13f7391e 2004-05-15 devnull 0 formheight rlineto
187 13f7391e 2004-05-15 devnull formwidth neg 0 rlineto
188 13f7391e 2004-05-15 devnull closepath
189 13f7391e 2004-05-15 devnull } bind def
191 13f7391e 2004-05-15 devnull /lastpage {
192 13f7391e 2004-05-15 devnull formsperpage 1 gt {
193 13f7391e 2004-05-15 devnull currentform 0 ne {
194 13f7391e 2004-05-15 devnull /saveobj save def
195 13f7391e 2004-05-15 devnull 0 1 formsperpage currentform sub formsperpage mod {
196 13f7391e 2004-05-15 devnull pop showpage
198 13f7391e 2004-05-15 devnull saveobj restore
200 13f7391e 2004-05-15 devnull saveobj restore
201 13f7391e 2004-05-15 devnull saveobj restore
206 13f7391e 2004-05-15 devnull % Clip the first page image and save the environment we just set up, including
207 13f7391e 2004-05-15 devnull % the redefined showpage.
210 13f7391e 2004-05-15 devnull % outlineform clip
212 13f7391e 2004-05-15 devnull /saveobj save def
