summaryrefslogtreecommitdiff
path: root/Master/texmf-doc/doc/german/latex-tipps-und-tricks/ps.sty
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-doc/doc/german/latex-tipps-und-tricks/ps.sty')
-rw-r--r--Master/texmf-doc/doc/german/latex-tipps-und-tricks/ps.sty28
1 files changed, 0 insertions, 28 deletions
diff --git a/Master/texmf-doc/doc/german/latex-tipps-und-tricks/ps.sty b/Master/texmf-doc/doc/german/latex-tipps-und-tricks/ps.sty
deleted file mode 100644
index 3bf3474802d..00000000000
--- a/Master/texmf-doc/doc/german/latex-tipps-und-tricks/ps.sty
+++ /dev/null
@@ -1,28 +0,0 @@
-% 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
-}