1 files changed, 39 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/latex/tsemlines/tsemlines.sty b/Master/texmf-dist/tex/latex/tsemlines/tsemlines.sty
new file mode 100644
index 00000000000..f46f8b59882
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/tsemlines/tsemlines.sty
@@ -0,0 +1,39 @@
+% tsemlines.sty 2011, Tobias Schlemmer
+% License: Public domain.
+%
+% Macros for drawing lines with arbitrary slopes. This package is
+% intended to assist the usage of old pictures with TeX systems and 
+% DVI drivers that don't support the em specials.
+%
+% Emulation of  emlines.sty by Georg Horn / Eberhard Mattes.
+%
+% No further EmTeX specials will be used. \emline will use \unitlength
+% and \linethickness from the standard picture environment instaed.
+%
+% Usage:
+% \usepackage{tikz,tsemlines}
+% ...
+% \begin{picture}%
+% \emline{1.1}{2.5}{4}{-3.4}{6.6}{5}%
+% \end{picture}
+%
+% As a special benefit the first coodinate will be availlable via 
+% (em point picturelabel #3) and the last one via
+% (em point picturelabel #6). picturelabel can be changed with
+% \newpic{newpicturelabel}. After the package has been loaded it
+% defaults to the empty string.
+
+\ProvidesPackage{tsemlines}[2011/06/23 v1.0 line support for emTeX's TeXcad]
+
+
+\def\newpic#1{%
+   \def\emline##1##2##3##4##5##6{%
+     \put(0,0){\tikz[remember picture,x=\unitlength,y=\unitlength,
+       line width=\@wholewidth]{\draw(##1,##2)
+         coordinate (em point #1 ##3) -- (##4,##5) coordinate
+         (em point #1 ##6);
+         \useasboundingbox (0,0) -- (em point #1
+         ##3) -- (em point #1 ##6);}%
+     }}}
+
+\newpic{}