diff options
Diffstat (limited to 'Master/texmf-dist/doc/latex/latex-tipps-und-tricks/conv.pl')
-rw-r--r-- | Master/texmf-dist/doc/latex/latex-tipps-und-tricks/conv.pl | 35 |
1 files changed, 35 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/latex/latex-tipps-und-tricks/conv.pl b/Master/texmf-dist/doc/latex/latex-tipps-und-tricks/conv.pl new file mode 100644 index 00000000000..335fec008b1 --- /dev/null +++ b/Master/texmf-dist/doc/latex/latex-tipps-und-tricks/conv.pl @@ -0,0 +1,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); } +} |