cmyk.ps

   1 %!
   2
   3 %    CYM     K
   4 %
   5 %    9^3     0 1 2     9 pagex   @   9 x 9 x 3       = 243
   6 %
   7 %    pages Y
   8 %      horiz M         } M-C-K grid
   9 %        vert C        } M-C-K grid
  10 %           veert' K   } M-C-K grid
  11 %
  12 %    5^3     3 4       1 page    @   5 x 5 x 5 x 2   = 250
  13 %    5^3     6 8       1 page    @   5 x 5 x 5 x 2   = 250
  14 %
  15 %    pages K
  16 %      columns K'
  17 %        vert Y
  18 %          horiz M     } M-C-K grid
  19 %            vert' C   } M-C-K grid
  20
  21 % OLD
  22 %   16^3 x    0 .. 3       1 Y per page
  23 %    8^3 x    4 .. 7       4 Y per page      8 = 0 2 4 6 8 10 12 15
  24 %             8 10 13 15
  25
  26 /paperx 595 def
  27 /papery 842 def
  28
  29 /margin 18 def
  30
  31 /printareax paperx margin 2 mul sub def
  32 /printareay papery margin 2 mul sub def
  33
  34 /textx 20 def
  35 /texty 12 def
  36
  37 /szox printareax textx sub def
  38 /szoy printareay texty sub def
  39
  40 % o = outer, i = inner, f = final
  41
  42 /margox 5 def
  43 /margoy 5 def
  44
  45 /margix 2 def
  46 /margiy 2 def
  47
  48 /margbx 10 def
  49 /margby 10 def
  50
  51 % strid = stride
  52
  53 /digits [ (0) (1) (2) (3) (4) (5) (6) (7) (8) (9)
  54           (a) (b) (c) (d) (e) (f) ] def
  55
  56 /Helvetica findfont texty scalefont setfont
  57
  58 /klist_get {
  59     klist
  60         blackx
  61         blacky  knx mul add
  62         get
  63 } def
  64 /kentry_x {
  65     textx
  66     magentax stridox mul  add
  67     blackx   stridix mul  add
  68
  69 } def
  70 /kentry_y {
  71     blacky  neg kmy add  stridiy mul
  72     cyany   neg  gm add  stridoy mul  add
  73 } def
  74
  75 /cm_xy2val {
  76     maxval gm div mul round cvi
  77 } def
  78
  79 /someyellow {
  80
  81     /gn     gm    1 add   def
  82     /kmx    knx   1 sub   def
  83     /kmy    kny   1 sub   def
  84
  85     /stridox  gridox  gn  div  def
  86     /stridoy  gridoy  gn  div  def
  87
  88     /szix  stridox  margox sub  def
  89     /sziy  stridoy  margoy sub  def
  90
  91     /stridix  szix  knx  div def
  92     /stridiy  sziy  kny  div def
  93
  94     /szfx  stridix  margix sub  def
  95     /szfy  stridiy  margiy sub  def
  96
  97     0 1 gm {            /cyany    exch def
  98     0 1 kmy {           /blacky   exch def
  99
 100     0 1 gm {            /magentax exch def
 101     0 1 kmx {           /blackx   exch def
 102
 103     gsave
 104         szfy setlinewidth
 105         kentry_x kentry_y translate
 106
 107                 cyany           gn div
 108                  magentax       gn div
 109                  yellowval      gn div
 110                  klist_get maxval div
 111
 112                  setcmykcolor
 113
 114                 0  szfy +0.5 mul  moveto
 115                 szfx 0 rlineto stroke
 116
 117       cyany 0 le  blacky 0 le  and {  % top row
 118           0  setgray
 119           0  stridiy margoy add  translate
 120           0 0 moveto
 121           text_u
 122       } if
 123
 124     grestore
 125
 126     } for
 127     } for
 128
 129       gsave
 130         0  kentry_y  translate
 131         0 0 moveto
 132         text_l
 133       grestore
 134
 135     } for
 136     } for
 137
 138     gsave
 139       0  printareay texty sub  translate
 140       0 0 moveto  text_ul
 141     grestore
 142
 143 } def
 144
 145 /start_page {
 146     margin margin translate
 147 } def
 148 start_page
 149
 150 /finish_page {
 151     0 setgray
 152
 153     showpage
 154     start_page
 155 } def
 156
 157 /maxval 8 def
 158
 159 /gm 8 def
 160
 161 /knx 1 def
 162 /kny 3 def
 163
 164 /klist [ 0 1 2 ] def
 165 /ylist [ 0 1 2 3 5 8 11 15 ] def
 166
 167 /gridox szox def
 168 /gridoy szoy def
 169
 170 /text_ul {
 171     (Y) show
 172     yellowval (_) cvs show
 173 } def
 174
 175 /text_cyan {
 176     (C) show
 177     cyany cm_xy2val (_) cvs show
 178 } def
 179 /text_magenta {
 180     (M) show
 181     magentax cm_xy2val (_) cvs show
 182 } def
 183
 184 /text_l {
 185     cyany 0 le {
 186       gsave
 187         0 texty rmoveto
 188  (K) show
 189       klist blacky get (_) cvs show
 190        grestore
 191     } if
 192     blacky 0 le {
 193         text_cyan
 194     } if
 195 } def
 196 /text_u {
 197     text_magenta
 198     magentax gm ge {
 199         (/) show
 200         gm (_) cvs show
 201     } if
 202 } def
 203
 204 /ranges {
 205     0 1 maxval {                /yellowval  exch def
 206
 207         /ytext { digits yellow get } def
 208
 209         someyellow
 210
 211     finish_page
 212     } for
 213 } def
 214 ranges
 215
 216 /gm 4 def
 217
 218 /knx 2 def
 219 /kny 1 def
 220
 221 /ranges2 {
 222
 223   /gridoy szoy 5 div margby 4 mul sub def
 224
 225   0 1 gm { /yellowy exch def
 226
 227     /yellow    yellowy maxval mul  gm div  def
 228     /text_u_p  yellowy 1 ge  def
 229     gsave
 230       0
 231         yellowy  gridoy margby add  mul
 232         translate
 233      someyellow
 234     grestore
 235   } for
 236
 237   finish_page
 238
 239 } def
 240
 241   /text_l_p true  def
 242
 243 /klist [ 3 4 ] def  ranges2
 244 /klist [ 6 8 ] def  /text_l_p false def  ranges2