1 13f7391e 2004-05-15 devnull %
 2 13f7391e 2004-05-15 devnull % A version of roundpage.ps that assumes a symmetric clipping path. Thanks
 3 13f7391e 2004-05-15 devnull % to Matthijs Melchior for the suggestion.
 4 13f7391e 2004-05-15 devnull %
 5 13f7391e 2004-05-15 devnull 
 6 13f7391e 2004-05-15 devnull /roundpagebbox {
 7 13f7391e 2004-05-15 devnull 	pagebbox dup 0 get pagebbox 2 get add 2 exch put
 8 13f7391e 2004-05-15 devnull 	pagebbox dup 1 get pagebbox 3 get add 3 exch put
 9 13f7391e 2004-05-15 devnull 	pagebbox 0 0 put
10 13f7391e 2004-05-15 devnull 	pagebbox 1 0 put
11 13f7391e 2004-05-15 devnull } bind def