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/ps.sty | |
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/ps.sty')
-rw-r--r-- | Master/texmf-dist/doc/latex/latex-tipps-und-tricks/ps.sty | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/latex/latex-tipps-und-tricks/ps.sty b/Master/texmf-dist/doc/latex/latex-tipps-und-tricks/ps.sty new file mode 100644 index 00000000000..3bf3474802d --- /dev/null +++ b/Master/texmf-dist/doc/latex/latex-tipps-und-tricks/ps.sty @@ -0,0 +1,28 @@ +% PS.STY. Einbindung von literalem PostScript + +% \ps{Höhe des Bildes}{PS-Programm} +\long\def\ps#1#2{ + \vbox to #1{\vss \special{\string" + 72 2.54 div dup scale + privatedict begin /sobj save def + .02 setlinewidth + { #2 } stopped { err_handler } if + clear sobj restore end } } + } + +\special{! /privatedict 200 dict def +privatedict begin +/err_handler { + /Times-Roman findfont .6 scalefont setfont + 0 2 moveto (error occured) show + /Times-Roman findfont .4 scalefont setfont + 0 1 moveto (offending ps command : ) show + $error /command get 30 string cvs show + 0 .5 moveto (operand stack : ) show + $error /ostack get { 200 string cvs show } forall + 0 0 moveto (VMStatus : max. memory ) show + vmstatus 10 string cvs show + ( used memory ) show 10 string cvs show + ( level ) show 10 string cvs show + } def +} |