# conv.pl $rmfont = "/Palatino-Roman"; $ttfont = "/Courier"; $sffont = "/Helvetica"; $i=0; while (<>) { if (!$i) { ($first,$num) = $ARGV =~ /(\w+).(\d+)/; $output = $first.$num.".eps"; print "generating $output\n"; open(output,">".$output); # ergänze die EPSF-Kennung print output "%!PS-Adobe-3.0 EPS-1.2\n"; # schreibe den ganzen Prolog do { $_ = <>; print output $_; } while (!/%%EndProlog/); # füge nun den Fonthack ein # ist für andere Fonts abzuändern!!! print output <