Subversion Repositories planix.SVN

%

% 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

    /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 {

		-90 rotate

	    }{

		pagewidth 0 translate

		90 rotate

	    } ifelse

	}{

	    landscape {

		pagewidth 0 translate

		90 rotate

	    }{

		-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

%

% 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

	formwidth neg 0 rlineto

	closepath

    } bind def

    /lastpage {

	formsperpage 1 gt {

	    currentform 0 ne {

		/saveobj save def

		    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