<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">% 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{}
</pre></body></html>