--- /dev/null
+%!
+
+/n 16 def
+
+/knx 2 def
+/kny 4 def
+
+/szfx 11.4 def
+/szfy 10.0 def
+/marg1x 3 def
+/marg1y 3 def
+/margfx 5 def
+/margfy 5 def
+
+/sz1x szfx knx mul marg1x add def
+/sz1y szfy kny mul marg1x add def
+
+0 1 n { /yellow exch def
+ 0 1 n { /magenta exch def
+ 0 1 n { /cyan exch def
+
+ gsave
+
+ magenta sz1x mul
+ cyan neg n add sz1y mul translate
+
+ szfy setlinewidth
+
+ 0 1 knx 1 sub { /blackx exch def
+ 0 1 kny 1 sub { /blacky exch def
+
+ cyan n div
+ magenta n div
+ yellow n div
+ blackx knx div
+ blacky add kny div
+
+ setcmykcolor
+
+ blackx knx div sz1x mul margfx add
+ blacky neg kny add kny div sz1y mul margfy add
+ szfy -0.5 mul add
+ moveto
+
+ szfx 0 rlineto stroke
+
+ } for
+ } for
+
+ grestore
+
+ } for
+ } for
+
+ 0 setgray
+
+ /Helvetica findfont 18 scalefont setfont
+ 0 0 moveto
+ (Y) show
+ yellow (___) cvs show
+ showpage
+
+} for