%!/setupforms{/landscape exch def /formsperpage exch def /rotation 1 defuserdict /currentform 0 put /slop 5 def /min{2 copy gt{exch}if pop}def/columns formsperpage sqrt ceiling cvi def /rows formsperpage columns divceiling cvi def 6 array defaultmatrix 6 array currentmatrix 6 arrayinvertmatrix 6 array concatmatrix /tempmatrix exch def 0 slop tempmatrixdtransform dup mul exch dup mul add sqrt /slop exch def newpath clippathpathbbox 2 index sub dup /formheight exch def slop 2 mul sub /pageheight exchdef 2 index sub dup /formwidth exch def slop 2 mul sub /pagewidth exch defuserdict /gotpagebbox known userdict /pagebbox known and{newpath pagebbox 0get pagebbox 1 get tempmatrix transform moveto pagebbox 0 get pagebbox 3 gettempmatrix transform lineto pagebbox 2 get pagebbox 3 get tempmatrix transformlineto pagebbox 2 get pagebbox 1 get tempmatrix transform lineto closepathpathbbox 2 index sub /formheight exch def 2 index sub /formwidth exch def}{2copy}ifelse /ycorner exch def /xcorner exch def translate slop slop translatepagewidth pageheight gt{rows columns /rows exch def /columns exch def}ifpagewidth formwidth columns mul div pageheight formheight rows mul div minpageheight formwidth columns mul div pagewidth formheight rows mul div min 2copy lt{rotation 1 eq{landscape{0 pageheight translate -90 rotate}{pagewidth 0translate 90 rotate}ifelse}{landscape{pagewidth 0 translate 90 rotate}{0pageheight translate -90 rotate}ifelse}ifelse pagewidth pageheight /pagewidthexch def /pageheight exch def exch}if pop dup dup scale xcorner neg ycornerneg translate 0 rows 1 sub formheight mul translate dup pagewidth exch divformwidth columns mul sub 2 div exch pageheight exch div formheight rows mulsub 2 div translate /showpage{formsperpage 1 gt{gsave .1 setlinewidthoutlineform stroke grestore}if formwidth 0 translate userdict /currentformcurrentform 1 add put currentform columns mod 0 eq{columns formwidth mul negformheight neg translate}if currentform formsperpage mod 0 eq{gsave showpagegrestore currentform columns mod formwidth mul neg formsperpage columns idivformheight mul translate userdict /currentform 0 put}if}bind def /outlineform{newpath xcorner ycorner moveto formwidth 0 rlineto 0 formheight rlinetoformwidth neg 0 rlineto closepath}bind def /lastpage{formsperpage 1 gt{currentform 0 ne{0 1 formsperpage currentform sub formsperpage mod{popshowpage}for}if}if}def userdict /end-hook{lastpage}put newpath}def