summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/latex/latex-tipps-und-tricks/ps.sty
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/ps.sty
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/ps.sty')
-rw-r--r--Master/texmf-dist/doc/latex/latex-tipps-und-tricks/ps.sty28
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
+}