aboutsummaryrefslogtreecommitdiff
path: root/src/cmd/postscript/psfiles/Nroundpage.ps
blob: 44a67a6d7af6fa59fcdc49aa4a54efe29ee23024 (plain)
1
2
3
4
5
6
7
8
9
10
11
%
% A version of roundpage.ps that assumes a symmetric clipping path. Thanks
% to Matthijs Melchior for the suggestion.
%

/roundpagebbox {
	pagebbox dup 0 get pagebbox 2 get add 2 exch put
	pagebbox dup 1 get pagebbox 3 get add 3 exch put
	pagebbox 0 0 put
	pagebbox 1 0 put
} bind def