| rsc | 13f7391 | 2004-05-15 23:45:13 +0000 | [diff] [blame] | 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 | ||||