+ start_page
+} def
+
+/maxval 8 def
+
+/gm 8 def
+
+/knx 1 def
+/kny 3 def
+
+/klist [ 0 1 2 ] def
+/ylist [ 0 1 2 3 5 8 11 15 ] def
+
+/gridox szox def
+/gridoy szoy def
+
+/text_yellow {
+ (Y) show
+ yellowval (_) cvs show
+} def
+
+/text_ul { text_yellow } def
+
+/text_cyan {
+ (C) show
+ cyany cmy_xy2val (_) cvs show
+} def
+/text_magenta {
+ (M) show
+ magentax cmy_xy2val (_) cvs show
+ magentax gm ge { maxvalshow } if
+} def
+
+/text_l {
+ 0 texty 0.25 mul translate
+ cyany 0 le {
+ (K) show
+ klist blacky get (_) cvs show
+ 0 texty moveto
+ } if
+ blacky 0 le {
+ text_cyan
+ cyany gm 2 sub ge {
+ gsave
+ ccfont setfont
+ cctexty 0.75 mul texty -0.75 mul translate
+ 90 rotate
+ 0 1 1 { /copyrighty exch def
+ 0 cctexty copyrighty neg mul moveto
+ copyright cyany neg gm add 2 mul copyrighty add get
+ dup stringwidth
+ neg exch neg exch rmoveto
+ show
+ } for
+ grestore
+ } if
+ } if
+} def
+/text_u {
+ text_magenta
+} def
+
+/ranges {
+ 0 1 maxval { /yellowval exch def
+
+ /ytext { digits yellow get } def
+
+ someyellow
+
+ finish_page
+ } for
+} def
+ranges
+
+/gm 4 def
+/gn 5 def
+
+/knx 2 def
+/kny 1 def
+
+/text_u {
+ yellowy 0 le {
+ magentax 0 le {
+ (K) show
+ klist blackx get (_) cvs show
+ blackx knx 1 sub eq {
+ maxvalshow
+ } if
+ ( ) show
+ } if
+ blackx 0 le {
+ text_magenta
+ magentax gm ge {
+ gsave
+ ( ) show
+ ccfont setfont
+% stridox gn mul stridoy sub 0 translate
+ % stridix 0.5 mul -0.25 cctexty mul 0 exch moveto
+ 0 1 1 {
+ ( ) show
+ copyright exch get
+ show
+ } for
+ grestore
+ } if
+ } if
+ } if
+} def
+/text_ul {
+} def
+/text_l {
+ 0 texty 0.5 mul translate
+ cyany 0 le { 0 texty moveto text_yellow } if
+ 0 0 moveto text_cyan
+} def
+
+/ranges2 {
+
+ /gridoy szoy margby 4 mul sub gn div def
+
+ 0 1 gm { /yellowy exch def
+
+ /yellowval yellowy cmy_xy2val def
+ /text_u_p yellowy 1 ge def
+ gsave
+ 0
+ yellowy neg gm add gridoy margby add mul
+ translate
+ someyellow
+ grestore
+ } for
+
+ finish_page
+
+} def
+
+ /text_l_p true def