Blob
1 %2 % Tries to round clipping path dimensions, as stored in array pagebbox, so they3 % match one of the known sizes in the papersizes array. Lower left coordinates4 % are always set to 0.5 %7 /roundpagebbox {8 7 dict begin9 /papersizes [8.5 inch 11 inch 14 inch 17 inch] def11 /mappapersize {12 /val exch def13 /slop .5 inch def14 /diff slop def15 /j 0 def16 0 1 papersizes length 1 sub {17 /i exch def18 papersizes i get val sub abs19 dup diff le {/diff exch def /j i def} {pop} ifelse20 } for21 diff slop lt {papersizes j get} {val} ifelse22 } def24 pagebbox 0 0 put25 pagebbox 1 0 put26 pagebbox dup 2 get mappapersize 2 exch put27 pagebbox dup 3 get mappapersize 3 exch put28 end29 } bind def