summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/latex/latex-tipps-und-tricks/conv.pl
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2009-05-19 18:54:54 +0000
committerKarl Berry <karl@freefriends.org>2009-05-19 18:54:54 +0000
commit2d248026682e0a02fa2b004a0ad2f13f57d8535c (patch)
tree7088bbd745de030191c2d843c4b3f4d9d5c46d91 /Master/texmf-dist/doc/latex/latex-tipps-und-tricks/conv.pl
parenteecee5a57aa7fbeb22e0df8440fb3b06c5117fc7 (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.pl35
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); }
+}