From: Ian Jackson <ian.jackson@eu.citrix.com>
Date: Mon, 4 Mar 2019 13:37:34 +0000 (+0000)
Subject: before k variance
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ian/git?a=commitdiff_plain;h=55c35a68e723b6f9018c7f831a2c95fcb5c5864b;p=pandemic-rising-tide.git

before k variance
---

diff --git a/cmyk.ps b/cmyk.ps
index 922ce85..ea600d3 100644
--- 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