#!/usr/bin/perl

use Font::BDF;

my $f = Font::BDF->new_from_bdf(\*ARGV);
my %p = $f->get_properties;
my $ascent = $p{FONT_ASCENT};
my $descent = $p{FONT_DESCENT};
my $fontname;
if ($ARGV[0]) {
 $fontname = $ARGV[0];
 $fontname =~ s/[^A-Za-z ]//g;
}
if (!length $fontname) { $fontname = "MyFont" }
my $num_chars = $f->encoded_chars;

print <<EOF;
SplineFontDB: 1.0
FontName: $fontname
Encoding: Unicode
Ascent: $ascent
Descent: $descent
BeginChars: $num_chars $num_chars
EOF

for my $enc ($f->encoded_chars) {
my ($name, $offset) = $f->get_char_info ($enc);
my ($hoff, $voff) = @$offset;
my ($pixels) = $f->get_pixels($enc);
print <<EOF;
StartChar: $name
Encoding: $enc $enc
Width: $hoff
Flags:
Fore
EOF
for (keys %$pixels) {
my ($x, $y) =  /^(.+),(.+)$/;
my ($xp, $yp) = ($x + 1, $y + 1);
print <<EOF;
$x $y m 1
$xp $y l 1
$xp $yp l 1
$x $yp l 1
$x $y l 1
EOF
}
print <<EOF;
EndSplineSet
EndChar
EOF
}