plan9fox/sys/lib/postscript/prologues/Nroundpage.ps
2011-03-30 19:35:09 +03:00

11 lines
287 B
PostScript

%
% 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