%% Procedures that let you print any number of pages on each sheet of paper. It's% far from perfect and won't handle everything (eg. it's not recursive), but should% be good enough for now. Assumes the default page coordinate system has been set% up before setupforms is called. lastpage makes certain the last page is printed,% and should be called immediately after the %%Trailer comment.%% Three lines of code needed for page image clipping have been commented out for% now. It works, but can really slow things down on some versions of PostScript.% Uncomment them if you want to clip pages.% /setupforms {    /formsperpage exch def     /currentform 0 def    /slop 5 def    /min {2 copy gt {exch} if pop} def %% Save the current environment so the real showpage can be restored when we're all% done. Occasionally helps when a banner page is included with the job.%     /saveobj save def %% Number of rows and columns we'll need - may exchange them later.%     /columns formsperpage sqrt ceiling cvi def    /rows formsperpage columns div ceiling cvi def %% Slop leaves a little room around the edge so page images can be outlined and have% the borders show up. Distance is in default coordinates, so we need to figure out% how it maps into user coordinates.%     6 array defaultmatrix    6 array currentmatrix    6 array invertmatrix    6 array concatmatrix    /tempmatrix exch def     0 slop tempmatrix dtransform dup mul exch dup mul add sqrt    /slop exch def %% Determine how big the image area is, using the clipping path bounding box minus% a little and leave the coordinates of the lower left corner of the clipping path% on the stack. Also temporarily set the size of each page (ie. formheight and% formwidth) from the clipping path - just in case old software uses this stuff.% Only works for coordinate systems that have been rotated by a multiple of 90% degrees.%     newpath clippath pathbbox    2 index sub dup /formheight exch def slop 2 mul sub /pageheight exch def    2 index sub dup /formwidth exch def slop 2 mul sub /pagewidth exch def %% New translators all store the size of each page in default coordinates in the% pagebbox array and it can be different than the size determined by the clipping% path. If we can find pagebbox use it to set the real dimensions of each page.% Leaves the coordinates of the lower left corner on the stack, (either from% pagebbox or clippath) so four numbers are there when we're done.%     userdict /gotpagebbox known userdict /pagebbox known and {	newpath	pagebbox 0 get pagebbox 1 get tempmatrix transform moveto	pagebbox 0 get pagebbox 3 get tempmatrix transform lineto	pagebbox 2 get pagebbox 3 get tempmatrix transform lineto	pagebbox 2 get pagebbox 1 get tempmatrix transform lineto	closepath pathbbox	2 index sub /formheight exch def	2 index sub /formwidth exch def    } {2 copy} ifelse %% Top two numbers are the displacement from the job's origin to the lower left% corner of each page image when we finish setting up the new coordinate system.%     /ycorner exch def    /xcorner exch def %% The two numbers left on the stack are the coordinates of the lower left corner% of the clipping path. Go there and then up a bit so page images can be outlined.%     translate    slop slop translate %% If the page is wider than high we may be able to do better if we exchange rows% and columns. Won't make a difference in the current orientation or if rows and% columns are the same.%     pagewidth pageheight gt {	rows columns /rows exch def /columns exch def    } if %% Find the orientation and scaling that makes things as large as possible. More% than what's really needed. First calculation essentially finds the minimum of% 1/rows and 1/columns.%     pagewidth formwidth columns mul div pageheight formheight rows mul div min    pageheight formwidth columns mul div pagewidth formheight rows mul div min     2 copy lt {	rotation 1 eq {	    landscape {		0 pageheight translate		-90 rotate	    }{		pagewidth 0 translate		90 rotate	    } ifelse	}{	    landscape {		pagewidth 0 translate		90 rotate	    }{		0 pageheight translate		-90 rotate	    } ifelse	} ifelse	pagewidth pageheight /pagewidth exch def /pageheight exch def	exch    } if %% Second number from the top is the best choice. Scale so everything will fit on% the current page, go back to the original origin, and then get ready for the% first page - which goes in the upper left corner.%     pop dup dup scale    xcorner neg ycorner neg translate    0 rows 1 sub formheight mul translate %% Try to center everything on the page - scaling we used is on top of the stack.%     dup pagewidth exch div formwidth columns mul sub 2 div    exch pageheight exch div formheight rows mul sub 2 div translate %% Redefine showpage.%     /!PreForms~showpage~ /showpage load def		% save current showpage     /showpage {	saveobj restore%	initclip	formsperpage 1 gt {	    gsave .1 setlinewidth outlineform stroke grestore	} if	formwidth 0 translate	/currentform currentform 1 add def	currentform columns mod 0 eq {	    columns formwidth mul neg formheight neg translate	} if	currentform formsperpage mod 0 eq {	    gsave !PreForms~showpage~ grestore	    currentform columns mod formwidth mul neg	    formsperpage columns idiv formheight mul translate	    /currentform 0 def	} if%	outlineform clip newpath	/saveobj save def    } bind def     /outlineform {	newpath	xcorner ycorner moveto	formwidth 0 rlineto	0 formheight rlineto	formwidth neg 0 rlineto	closepath    } bind def     /lastpage {	formsperpage 1 gt {	    currentform 0 ne {		/saveobj save def		0 1 formsperpage currentform sub formsperpage mod {		    pop showpage		} for		saveobj restore	    } if	    saveobj restore	    saveobj restore	} if    } def %% Clip the first page image and save the environment we just set up, including% the redefined showpage.% %   outlineform clip    newpath    /saveobj save def} def