Subversion Repositories planix.SVN

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
2 - 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