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 /m 16 def
  18
  19 /knx 2 def
  20 /kny 4 def
  21
  22 % o = outer, i = inner, f = final
  23
  24 /margox 5 def
  25 /margoy 5 def
  26
  27 /margix 2 def
  28 /margiy 2 def
  29
  30 % strid = stride
  31
  32 /n      m     1 add   def
  33 /kmx    knx   1 sub   def
  34 /kmy    kny   1 sub   def
  35
  36 /stridox  szox  n  div  def
  37 /stridoy  szoy  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 {                 /yellow  exch def
  52     0 1 m {             /magenta exch def
  53     0 1 m {             /cyan    exch def
  54
  55     gsave
  56
  57         magenta                 stridox mul
  58         cyan    neg m add       stridoy mul  translate
  59
  60         szfy setlinewidth
  61
  62         0 1 kmx {       /blackx exch def
  63         0 1 kmy {       /blacky exch def
  64
  65                 cyan            n div
  66                  magenta        n div
  67                  yellow         n div
  68                  blackx         knx div
  69                  blacky  add    kny div
  70
  71                  setcmykcolor
  72
  73                 blackx                          stridix mul
  74                  blacky  neg kmy add            stridiy mul
  75                  szfy -0.5 mul add
  76                  moveto
  77
  78                 szfx 0 rlineto stroke
  79
  80         } for
  81         } for
  82
  83     grestore
  84
  85     } for
  86     } for
  87
  88     0 setgray
  89
  90     /Helvetica findfont 18 scalefont setfont
  91     0 0 moveto
  92     (Y) show
  93     yellow (___) cvs show
  94     showpage
  95
  96 } for