Count the black dots!

Count the black dots!

Ich hab das Bildchen auf einem Plakat gesehen und war sofort fasziniert.
Ich habs auch schon abfotografiert, aber das ist nat\"urlich nie so gut wie das Original.
Daher hab ich\'s generiert mit PostScript: Hier ist das Programm, f\"ur die, die selber experimentieren m\"ochten (und PostScript sprechen:)

%!PS-Adobe-2.0

72 2.45 div dup scale
{ pop 0 } settransfer erasepage { } settransfer

2 dup scale 1 1 translate

/w 8 def /h 6 def /s 1 def /d 0.18 def

% x y circle
/circle {
3 dict begin
/y exch def /x exch def /r d 2 div 1.4 mul def
newpath x r add y moveto x y r 0 360 arc fill
end
} def

0.4 setgray d setlinewidth
newpath 0 s w { /x exch def x 0 moveto x h lineto } for stroke

newpath 0 s h { /y exch def 0 y moveto w y lineto } for stroke

0.9 setgray 0 setlinewidth 0 s w {
/x exch def 0 s h { /y exch def x y circle } for
} for

showpage