blob: c779961f8db83fd8d2009adafe0740fcb21d66a9 (
plain)
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); }
}
|