chiark / gitweb /
before k variance
authorIan Jackson <ian.jackson@eu.citrix.com>
Mon, 4 Mar 2019 13:37:34 +0000 (13:37 +0000)
committerIan Jackson <ian.jackson@eu.citrix.com>
Mon, 4 Mar 2019 13:37:34 +0000 (13:37 +0000)
cmyk.ps

diff --git a/cmyk.ps b/cmyk.ps
index 922ce85cec7c3188a8390e10291014eb1df7814c..ea600d34d03c1b47c0d66b502113e1e69a8db28d 100644 (file)
--- a/cmyk.ps
+++ b/cmyk.ps
@@ -1,5 +1,19 @@
 %!
 
+/paperx 595 def
+/papery 842 def
+
+/margin 18 def
+
+/printareax paperx margin 2 mul sub def
+/printareay papery margin 2 mul sub def
+
+/textx 12 def
+/texty 12 def
+
+/szox printareax textx sub def
+/szoy printareay texty sub def
+
 /m 16 def
 
 /knx 2 def
@@ -7,9 +21,6 @@
 
 % o = outer, i = inner, f = final
 
-/szox 595 def
-/szoy 842 def
-
 /margox 5 def
 /margoy 5 def
 
@@ -34,6 +45,9 @@
 /szfx  stridix  margix sub  def
 /szfy  stridiy  margiy sub  def
 
+margin margin translate
+textx  0      translate
+
 0 1 m {                        /yellow  exch def
     0 1 m {            /magenta exch def
     0 1 m {            /cyan    exch def