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