1 13f7391e 2004-05-15 devnull %
 2 13f7391e 2004-05-15 devnull % Tries to round clipping path dimensions, as stored in array pagebbox, so they
 3 13f7391e 2004-05-15 devnull % match one of the known sizes in the papersizes array. Lower left coordinates
 4 13f7391e 2004-05-15 devnull % are always set to 0.
 5 13f7391e 2004-05-15 devnull %
 6 13f7391e 2004-05-15 devnull 
 7 13f7391e 2004-05-15 devnull /roundpagebbox {
 8 13f7391e 2004-05-15 devnull     7 dict begin
 9 13f7391e 2004-05-15 devnull 	/papersizes [8.5 inch 11 inch 14 inch 17 inch] def
10 13f7391e 2004-05-15 devnull 
11 13f7391e 2004-05-15 devnull 	/mappapersize {
12 13f7391e 2004-05-15 devnull 		/val exch def
13 13f7391e 2004-05-15 devnull 		/slop .5 inch def
14 13f7391e 2004-05-15 devnull 		/diff slop def
15 13f7391e 2004-05-15 devnull 		/j 0 def
16 13f7391e 2004-05-15 devnull 		0 1 papersizes length 1 sub {
17 13f7391e 2004-05-15 devnull 			/i exch def
18 13f7391e 2004-05-15 devnull 			papersizes i get val sub abs
19 13f7391e 2004-05-15 devnull 			dup diff le {/diff exch def /j i def} {pop} ifelse
20 13f7391e 2004-05-15 devnull 		} for
21 13f7391e 2004-05-15 devnull 		diff slop lt {papersizes j get} {val} ifelse
22 13f7391e 2004-05-15 devnull 	} def
23 13f7391e 2004-05-15 devnull 
24 13f7391e 2004-05-15 devnull 	pagebbox 0 0 put
25 13f7391e 2004-05-15 devnull 	pagebbox 1 0 put
26 13f7391e 2004-05-15 devnull 	pagebbox dup 2 get mappapersize 2 exch put
27 13f7391e 2004-05-15 devnull 	pagebbox dup 3 get mappapersize 3 exch put
28 13f7391e 2004-05-15 devnull     end
29 13f7391e 2004-05-15 devnull } bind def
30 13f7391e 2004-05-15 devnull