<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;"># conv.pl &lt;indat&gt;
$rmfont = "/Palatino-Roman";
$ttfont = "/Courier";
$sffont = "/Helvetica";

$i=0;
while (&lt;&gt;)
{ if (!$i)
  { ($first,$num) = $ARGV =~ /(\w+).(\d+)/;
    $output = $first.$num.".eps";
    print "generating $output\n";
    open(output,"&gt;".$output);

    # ergänze die EPSF-Kennung
    print output "%!PS-Adobe-3.0 EPS-1.2\n";

    # schreibe den ganzen Prolog
    do { $_ = &lt;&gt;; print output $_;
       } while (!/%%EndProlog/);

    # füge nun den Fonthack ein
    # ist für andere Fonts abzuändern!!!
    print output &lt;&lt;EOP
/pala $rmfont def
/courier $ttfont def
/cmr10 $rmfont def      % wg. TeX-Grundschrift
/cmr7 $rmfont def
/fshow {exch findfont exch scalefont setfont show} def
EOP
  }
  else
  { print output $_; }
  ++$i;
  if (eof) { $i=0;  close(output); }
}
</pre></body></html>