From 7b3c17bd1ab0338a98f07e71292ff60bb59ec9c3 Mon Sep 17 00:00:00 2001 From: Ian Jackson Date: Mon, 4 Mar 2019 17:48:15 +0000 Subject: [PATCH] wip text --- cmyk.ps | 55 +++++++++++++++++++++++++++++++++---------------------- 1 file changed, 33 insertions(+), 22 deletions(-) diff --git a/cmyk.ps b/cmyk.ps index 057500a..e74f5e7 100644 --- a/cmyk.ps +++ b/cmyk.ps @@ -34,6 +34,8 @@ /digits [ (0) (1) (2) (3) (4) (5) (6) (7) (8) (9) (a) (b) (c) (d) (e) (f) ] def +/Helvetica findfont texty scalefont setfont + /klist_get { klist blackx @@ -94,10 +96,33 @@ } for grestore - } for } for + gsave + + 0 gridoy translate + + text_l_p text_u_p and { + gsave + 0 0 moveto (K) show + + gsave + 0 stridoy neg translate + + 0 1 kmx { /blackx exch def + 0 1 kmy { /blacky exch def + kentry_moveto exch 0.65 mul exch moveto + klist_get digits exch get + show + } for + } for + grestore + grestore + } if + + grestore + } def /ranges { @@ -106,7 +131,6 @@ someyellow 0 setgray - /Helvetica findfont 18 scalefont setfont 0 0 moveto (Y) show yellow (___) cvs show @@ -123,25 +147,6 @@ start_page /finish_page { 0 setgray - /Helvetica findfont texty scalefont setfont - gsave - - 0 printareay texty sub translate - - 0 0 moveto (K) show - - gsave - 0 stridoy neg translate - - 0 1 kmx { /blackx exch def - 0 1 kmy { /blacky exch def - kentry_moveto exch 0.65 mul exch moveto - klist_get digits exch get - show - } for - } for - grestore - grestore showpage start_page @@ -160,7 +165,10 @@ start_page /gridox szox def /gridoy szoy def -%ranges +/text_l_p true def +/text_u_p true def + +ranges /ranges2 { @@ -185,6 +193,9 @@ gsave /yellow ylist yellowix get def + /text_l_p yellowx 0 le def + /text_u_p yellowy 1 ge def + someyellow grestore -- 2.30.2