#!/usr/bin/perl
# afm.pl
#
use strict;
use warnings;

use Font::AFM;

my $h = new Font::AFM $ARGV[0];

print "(setq $ARGV[0]afm12 '(\n";
metric($h,"R",12);
metric($h,"N",12);
metric($h,"B",12);
metric($h,"Q",12);
metric($h,"K",12);
metric($h,"O",12);
metric($h,"-",12);
metric($h,"x",12);
metric($h,"+",12);
metric($h,".",12);
metric($h,"a",12);
metric($h,"b",12);
metric($h,"c",12);
metric($h,"d",12);
metric($h,"e",12);
metric($h,"f",12);
metric($h,"g",12);
metric($h,"h",12);
metric($h,"1",12);
metric($h,"2",12);
metric($h,"3",12);
metric($h,"4",12);
metric($h,"5",12);
metric($h,"6",12);
metric($h,"7",12);
metric($h,"8",12);
metric($h,"9",12);
print "  (\"0\" ", $h->stringwidth("0",12), ")))\n";

sub metric {
	my $afm = shift;
	my $s = shift;
	my $p = shift;
	my $w = $afm->stringwidth($s,$p);

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