%% 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