#!/usr/bin/perl
# Copyright (c), 2002 Apostolos Syropoulos 
#                     apostolo@ocean1.ee.duth.gr
# This program generates all the TFM files for the CB fonts by
# Claudio Beccari. 
#
# Initialiaze arrays!
@std_sizes = ("0500", "0600", "0700", "0800", "0900", "1000",
              "1095", "1200", "1440", "1728", "2074", "2488",
              "2986", "3583");

@lstd_sizes = ("0700", "0800", "1000", "1200", "1382", "1659",
               "1991", "2389", "2866", "3440", "4128");

@std_names = ( "gmmn", "gmmo", "gmtr", "gmxn", "gmxo", "gomc",
               "gomi", "gomn", "gomo", "gomu", "goxc", "goxi",
               "goxn", "goxo", "goxu", "grbl", "grmc", "grmi",
               "grml", "grmn", "grmo", "grmu", "grxc", "grxi",
               "grxl", "grxn", "grxo", "grxu", "gsmc", "gsmi",
               "gsmn", "gsmo", "gsmu", "gsxc", "gsxi", "gsxn",
               "gsxo", "gsxu", "gttc", "gtti", "gttn", "gtto",
               "gttu");

@lstd_names = ( "glic", "glii", "glin", "glio", "gliu", "gljc",
                "gljn", "gljo", "glmc", "glmi", "glmn", "glmo",
                "glmu", "gltc", "gltn", "glto", "glwc", "glwi",
                "glwn", "glwo", "glwu", "glxc", "glxi", "glxn",
                "glxo", "glxu");
# create batch file that will be used to create the TFM files.
open(TFM,">gentfms")||die "Can't create file gentfms\n";
print TFM "#!/usr/bin/bash\n";
#
#First we process normal fonts
#
foreach $size (@std_sizes) {
  foreach $name (@std_names) {
    $font_name = "$name$size";
    print TFM "echo \"\\mode=ljfour; mag=1; nonstopmode; input $font_name\"";
    print TFM " | mf\n";
    print TFM "rm $font_name.log $font_name.600gf\n";
  }
}
#
#And now we process slide fonts
#
foreach $size (@lstd_sizes) {
  foreach $name (@lstd_names) {
    $font_name = "$name$size";
    print TFM "echo \"\\mode=ljfour; mag=1; nonstopmode; input $font_name\"";
    print TFM " | mf\n";
    print TFM "rm $font_name.log $font_name.600gf\n";
  }
}
__END__

