fix gamut thing

[pandemic-rising-tide.git] / cmyk.ps

diff --git a/cmyk.ps b/cmyk.ps
index 84abc5dac1c40fed7d504297a8310f08b1b177fc..70857fe18a1c3c0882ecd4f10cc3084f65556629 100644 (file)
--- a/cmyk.ps
+++ b/cmyk.ps
@@ -33,12 +33,12 @@
 
 /someyellow {
     
-    /n      m     1 add   def
+    /gn     gm    1 add   def
     /kmx    knx   1 sub   def
     /kmy    kny   1 sub   def
 
-    /stridox  gridox  n  div  def
-    /stridoy  gridoy  n  div  def
+    /stridox  gridox  gn  div  def
+    /stridoy  gridoy  gn  div  def
 
     /szix  stridox  margox sub  def
     /sziy  stridoy  margoy sub  def
@@ -52,27 +52,27 @@
     margin margin translate
     textx  0      translate
 
-    0 1 m {            /magenta exch def
-    0 1 m {            /cyan    exch def
+    0 1 gm {           /magenta exch def
+    0 1 gm {           /cyan    exch def
 
     gsave
 
         magenta                        stridox mul
-        cyan    neg m add      stridoy mul  translate
+        cyan    neg gm add     stridoy mul  translate
 
         szfy setlinewidth
 
         0 1 kmx {      /blackx exch def
         0 1 kmy {      /blacky exch def
 
-               cyan            n div
-                 magenta       n div
-                 yellow                n div
+               cyan            gn div
+                 magenta       gn div
+                 yellow                gn div
 
                klist
                  blackx
                  blacky  knx mul add
-                get m div
+                get base div
 
                  setcmykcolor
 
@@ -95,7 +95,7 @@
 
 /ranges {
 
-    0 1 m {                    /yellow  exch def
+    0 1 gm {                   /yellow  exch def
         someyellow
 
     0 setgray
@@ -109,7 +109,9 @@
 
 } def
 
-/m 16 def
+/base 16 def
+
+/gm 16 def
 
 /knx 2 def
 /kny 2 def
@@ -124,7 +126,7 @@
 
 /ranges2 {
 
-/m 8 def
+/gm 8 def
 
 /gridox szox 2 div margbx sub def
 /gridoy szoy 2 div margby sub def
@@ -156,6 +158,5 @@ showpage
 
 } def
 
-/klist [ 7 8 9 15 ] def   ranges2
-%/klist [ 4 5 6 7 ] def   ranges2
-%/klist [ 8 10 13 15 ] def ranges2
+/klist [ 4 5 6 7 ] def   ranges2
+/klist [ 8 10 13 15 ] def ranges2