Master/texmf-doc/doc/german/latex-tipps-und-tricks/conv.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35

# conv.pl <indat>
$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 <<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); }
}