#!/usr/bin/perl -w 
use strict;
# wandeln.ttf.pl 
# converts True Type Fonts from Windows or other sources to
# bdf-files and pfc-files
# needs ttf2dbf, bdftopcf and perl
              
foreach my $i (@ARGV) {
   if ($i =~ /(.*?)(|b|bi|bd|i)\.ttf$/) {
      my $base = "$1$2";
      my $face = $2; 
      my $ttf = $i; 
      for my $p (8..16) {
         my $bdf = "$base$p.bdf"; 
         my $pcf = "$base$p.pcf";
         print "ttf2bdf -v -r 82 -p $p -o $bdf $ttf\n";
         print "bdftopcf -o $pcf $bdf\n";
      }
   }
} 
print "mkfontdir\n";
#