cmyk.ps

   1 %!
   2
   3 /paperx 595 def
   4 /papery 842 def
   5
   6 /margin 18 def
   7
   8 /printareax paperx margin 2 mul sub def
   9 /printareay papery margin 2 mul sub def
  10
  11 /textx 12 def
  12 /texty 12 def
  13
  14 /szox printareax textx sub def
  15 /szoy printareay texty sub def
  16
  17 % o = outer, i = inner, f = final
  18
  19 /margox 5 def
  20 /margoy 5 def
  21
  22 /margix 2 def
  23 /margiy 2 def
  24
  25 /margbx 10 def
  26 /margby 10 def
  27
  28 % strid = stride
  29
  30 /someyellow {
  31
  32     /n      m     1 add   def
  33     /kmx    knx   1 sub   def
  34     /kmy    kny   1 sub   def
  35
  36     /stridox  gridox  n  div  def
  37     /stridoy  gridoy  n  div  def
  38
  39     /szix  stridox  margox sub  def
  40     /sziy  stridoy  margoy sub  def
  41
  42     /stridix  szix  knx  div def
  43     /stridiy  sziy  kny  div def
  44
  45     /szfx  stridix  margix sub  def
  46     /szfy  stridiy  margiy sub  def
  47
  48     margin margin translate
  49     textx  0      translate
  50
  51     0 1 m {             /magenta exch def
  52     0 1 m {             /cyan    exch def
  53
  54     gsave
  55
  56         magenta                 stridox mul
  57         cyan    neg m add       stridoy mul  translate
  58
  59         szfy setlinewidth
  60
  61         0 1 kmx {       /blackx exch def
  62         0 1 kmy {       /blacky exch def
  63
  64                 cyan            n div
  65                  magenta        n div
  66                  yellow         n div
  67
  68                  blackx         knx div
  69                  blacky  add    kny div
  70                  kfact mul  kbase add
  71
  72                  setcmykcolor
  73
  74                 blackx                          stridix mul
  75                  blacky  neg kmy add            stridiy mul
  76                  szfy -0.5 mul add
  77                  moveto
  78
  79                 szfx 0 rlineto stroke
  80
  81         } for
  82         } for
  83
  84     grestore
  85
  86     } for
  87     } for
  88
  89 } def
  90
  91 /ranges {
  92
  93     0 1 m {                     /yellow  exch def
  94         someyellow
  95
  96     0 setgray
  97     /Helvetica findfont 18 scalefont setfont
  98     0 0 moveto
  99     (Y) show
 100     yellow (___) cvs show
 101
 102         showpage
 103     } for
 104
 105 } def
 106
 107 /m 16 def
 108
 109 /knx 2 def
 110 /kny 3 def
 111
 112 /kbase 0 def
 113 /kfact 5 16 div def
 114
 115 /gridox szox def
 116 /gridoy szoy def
 117
 118 ranges
 119
 120 /m 8 def
 121 /kbase 6 16 div def
 122
 123 /gridox szox 2 div margbx sub def
 124 /gridoy szoy 2 div margby sub def
 125
 126 0 1 3 { /yellowpage exch def
 127 0 1 1 { /yellowx exch def
 128 0 1 1 { /yellowy exch def
 129
 130 gsave
 131  yellowx  gridox margbx add  mul
 132  yellowy  gridoy margby add  mul
 133  translate
 134
 135  /yellow
 136  yellowpage 2 div
 137  yellowx add  2 div
 138  yellowy add  2 div
 139  def
 140
 141  yellow pstack pop
 142
 143  someyellow
 144
 145 grestore
 146
 147 } for
 148 } for
 149 showpage
 150 } for
 151