Select Code to Download

#!/usr/bin/perl
# afm.pl
...

    print "  (\"$s\" $w)\n";
}

(setq ZURIFB__afm12 '(
  ("R" 10.392)
...
  ("8" 6.708)
  ("9" 6.708)
  ("0" 6.708)))

/ZurichFigurine-Bold 12 sf
(1.d4 f5 2.c4 Nf6 3.Nc3 g6 4.Nf3 Bg7) justify
...
(Kh7 23.f4 Nh5 24.fxg5 Rxf1 25.Qxf1) justify
(Rxf1 26.Kxf1 Nf4 27.Rxe7 1-0) left-justify
newline