From b855148c9b6d28fedfd083d037bcf246f1913d92 Mon Sep 17 00:00:00 2001
From: wkj <devnull@localhost>
Date: Sun, 16 May 2004 07:54:22 +0000
Subject: Checkpoint.

---
 src/cmd/postscript/psfiles/Nroundpage.ps | 11 +++++++++++
 1 file changed, 11 insertions(+)
 create mode 100644 src/cmd/postscript/psfiles/Nroundpage.ps

(limited to 'src/cmd/postscript/psfiles/Nroundpage.ps')

diff --git a/src/cmd/postscript/psfiles/Nroundpage.ps b/src/cmd/postscript/psfiles/Nroundpage.ps
new file mode 100644
index 00000000..44a67a6d
--- /dev/null
+++ b/src/cmd/postscript/psfiles/Nroundpage.ps
@@ -0,0 +1,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
-- 
cgit v1.2.3