cmyk.ps

   1 %!
   2
   3 /n 16 def
   4
   5 /knx 2 def
   6 /kny 4 def
   7
   8 /szfx 11.4 def
   9 /szfy 10.0 def
  10 /marg1x 3 def
  11 /marg1y 3 def
  12 /margfx 5 def
  13 /margfy 5 def
  14
  15 /sz1x szfx knx mul marg1x add def
  16 /sz1y szfy kny mul marg1x add def
  17
  18 0 1 n {                 /yellow  exch def
  19     0 1 n {             /magenta exch def
  20     0 1 n {             /cyan    exch def
  21
  22     gsave
  23
  24         magenta                 sz1x mul
  25         cyan    neg n add       sz1y mul  translate
  26
  27         szfy setlinewidth
  28
  29         0 1 knx 1 sub { /blackx exch def
  30         0 1 kny 1 sub { /blacky exch def
  31
  32                 cyan            n div
  33                  magenta        n div
  34                  yellow         n div
  35                  blackx         knx div
  36                  blacky  add    kny div
  37
  38                  setcmykcolor
  39
  40                 blackx                  knx div  sz1x mul  margfx add
  41                  blacky neg kny add     kny div  sz1y mul  margfy add
  42                  szfy -0.5 mul add
  43                  moveto
  44
  45                 szfx 0 rlineto stroke
  46
  47         } for
  48         } for
  49
  50     grestore
  51
  52     } for
  53     } for
  54
  55     0 setgray
  56
  57     /Helvetica findfont 18 scalefont setfont
  58     0 0 moveto
  59     (Y) show
  60     yellow (___) cvs show
  61     showpage
  62
  63 } for