diff options
author | Karl Berry <karl@freefriends.org> | 2009-05-19 18:54:54 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2009-05-19 18:54:54 +0000 |
commit | 2d248026682e0a02fa2b004a0ad2f13f57d8535c (patch) | |
tree | 7088bbd745de030191c2d843c4b3f4d9d5c46d91 /Master/texmf-dist/doc/latex/latex-tipps-und-tricks/conv.pl | |
parent | eecee5a57aa7fbeb22e0df8440fb3b06c5117fc7 (diff) |
move german latex docs out of texmf-doc
git-svn-id: svn://tug.org/texlive/trunk@13264 c570f23f-e606-0410-a88d-b1316a301751
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); } +} |