#!/afs/athena/contrib/perl/perl

delete $ENV{'TEXFONTS'};
delete $ENV{'XDVIFONTS'};
delete $ENV{'PKFONTS'};
delete $ENV{'VFFONTS'}; 
delete $ENV{'TEXCONFIG'};
delete $ENV{'DVIPSHEADERS'};

#$ENV{'TEXFONTS'} = $ENV{'XDVIFONTS'} = $ENV{'PKFONTS'} = $ENV{'VFFONTS'} 
#  = '/mit/newtex/share/texmf/fonts//:';

# $prn = "-Pmeadow";
$prn = "-o/var/tmp/testfont.ps";

(chdir "/tmp") || die "No /tmp!";

open (TEX, "| /mit/newtex/bin/tex testfont");

foreach (@ARGV) {
    s/\..*$//;
    print TEX "$init$_\n\\table\\vfill\\break\n";
    $init = "\\init\n";
}
print TEX "\\end\n";

close(TEX);

system "/mit/newtex/bin/xdvi testfont.dvi";
exec "/mit/newtex/bin/dvips $prn testfont.dvi";