From f367f5148470763821470088331e0e5351eef8e7 Mon Sep 17 00:00:00 2001 From: Ian Jackson Date: Mon, 4 Mar 2019 17:00:48 +0000 Subject: [PATCH] fix gamut thing --- cmyk.ps | 33 +++++++++++++++++---------------- 1 file changed, 17 insertions(+), 16 deletions(-) diff --git a/cmyk.ps b/cmyk.ps index 84abc5d..70857fe 100644 --- 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 -- 2.30.2