- (string-append "
-/Helvetica-Bold findfont
-0.7 scalefont
-setfont
-0.1 setlinewidth
- 0 0 moveto
-0 setgray
-0.5 0 0.5 0 360 arc
-closepath "
- (if (equal? ball-col 0) " fill " " stroke ")
- (number->string letter-col)
- "
-setgray
-% 0.25 is empiric centering. Change to taste
-0.25 -0.25 moveto
- (" ch ") show
-showpage ")
- )