Return to forms.ps CVS log

Up to [Research Unix] / researchv10no / cmd / post.src / psfiles

Annotation of researchv10no/cmd/post.src/psfiles/forms.ps, revision 1.1

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

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.