| % |
| % Tries to round clipping path dimensions, as stored in array pagebbox, so they |
| % match one of the known sizes in the papersizes array. Lower left coordinates |
| % are always set to 0. |
| % |
| |
| /roundpagebbox { |
| 7 dict begin |
| /papersizes [8.5 inch 11 inch 14 inch 17 inch] def |
| |
| /mappapersize { |
| /val exch def |
| /slop .5 inch def |
| /diff slop def |
| /j 0 def |
| 0 1 papersizes length 1 sub { |
| /i exch def |
| papersizes i get val sub abs |
| dup diff le {/diff exch def /j i def} {pop} ifelse |
| } for |
| diff slop lt {papersizes j get} {val} ifelse |
| } def |
| |
| pagebbox 0 0 put |
| pagebbox 1 0 put |
| pagebbox dup 2 get mappapersize 2 exch put |
| pagebbox dup 3 get mappapersize 3 exch put |
| end |
| } bind def |
| |
