ref: c3ba64f6935322f09b6de5c2285544fd471c605d
dir: /sys/lib/postscript/prologues/forms.ps/
% % 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