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