cmyk.ps

   1 %!
   2
   3 /m 16 def
   4
   5 /knx 2 def
   6 /kny 4 def
   7
   8 % o = outer, i = inner, f = final
   9
  10 /szox 595 def
  11 /szoy 842 def
  12
  13 /margox 5 def
  14 /margoy 5 def
  15
  16 /margix 2 def
  17 /margiy 2 def
  18
  19 % strid = stride
  20
  21 /n      m     1 add   def
  22 /kmx    knx   1 sub   def
  23 /kmy    kny   1 sub   def
  24
  25 /stridox  szox  n  div  def
  26 /stridoy  szoy  n  div  def
  27
  28 /szix  stridox  margox sub  def
  29 /sziy  stridoy  margoy sub  def
  30
  31 /stridix  szix  knx  div def
  32 /stridiy  sziy  kny  div def
  33
  34 /szfx  stridix  margix sub  def
  35 /szfy  stridiy  margiy sub  def
  36
  37 0 1 m {                 /yellow  exch def
  38     0 1 m {             /magenta exch def
  39     0 1 m {             /cyan    exch def
  40
  41     gsave
  42
  43         magenta                 stridox mul
  44         cyan    neg m add       stridoy mul  translate
  45
  46         szfy setlinewidth
  47
  48         0 1 kmx {       /blackx exch def
  49         0 1 kmy {       /blacky exch def
  50
  51                 cyan            n div
  52                  magenta        n div
  53                  yellow         n div
  54                  blackx         knx div
  55                  blacky  add    kny div
  56
  57                  setcmykcolor
  58
  59                 blackx                          stridix mul
  60                  blacky  neg kmy add            stridiy mul
  61                  szfy -0.5 mul add
  62                  moveto
  63
  64                 szfx 0 rlineto stroke
  65
  66         } for
  67         } for
  68
  69     grestore
  70
  71     } for
  72     } for
  73
  74     0 setgray
  75
  76     /Helvetica findfont 18 scalefont setfont
  77     0 0 moveto
  78     (Y) show
  79     yellow (___) cvs show
  80     showpage
  81
  82 } for