diff options
author | Karl Berry <karl@freefriends.org> | 2009-11-22 18:58:23 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2009-11-22 18:58:23 +0000 |
commit | ae6dfdc6fd101623f9477cf506a23bcdfbf9035d (patch) | |
tree | ae8788e459c38bae47578041a70c8f4972ceedee /Master/texmf-dist/tex/plain/graphics-pln/picture.tex | |
parent | 814952f35a69ea15faac49052de0256174820e15 (diff) |
graphics-plain, replacing plgraph, for new miniltx (T S, 20 Nov 2009 15:42:40)
git-svn-id: svn://tug.org/texlive/trunk@16123 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/plain/graphics-pln/picture.tex')
-rw-r--r-- | Master/texmf-dist/tex/plain/graphics-pln/picture.tex | 51 |
1 files changed, 51 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/plain/graphics-pln/picture.tex b/Master/texmf-dist/tex/plain/graphics-pln/picture.tex new file mode 100644 index 00000000000..f17a7268ad5 --- /dev/null +++ b/Master/texmf-dist/tex/plain/graphics-pln/picture.tex @@ -0,0 +1,51 @@ +% Plain TeX interface to picture mode. +% David Carlisle + +\input miniltx + +\makeatletter +\let\@@line\line +\input autopict.sty +\let\LaTeX@line\line +\let\line\@@line + + +\newdimen\@wholewidth +\newdimen\@halfwidth +\newdimen\unitlength \unitlength =1pt +\newbox\@picbox +\newdimen\@picht +\newcount\@xarg +\newcount\@yarg +\newcount\@yyarg + +\font\tenln =line10 \font\tenlnw =linew10\relax +\font\tencirc=lcircle10 \font\tencircw=lcirclew10\relax +\newcount\@multicnt +\newdimen\@xdim +\newdimen\@ydim +\newbox\@linechar +\newdimen\@linelen +\newdimen\@clnwd +\newdimen\@clnht +\newdimen\@dashdim +\newbox\@dashbox +\newcount\@dashcnt +\let\@linefnt\tenln +\let\@circlefnt\tencirc +\@wholewidth\fontdimen8\tenln +\@halfwidth .5\@wholewidth + +\def\picture#1{% + \begingroup + \let\line\LaTeX@line + \def\end##1{\csname end##1\endcsname}% + \pictur@#1} + +\let\@@endpicture\endpicture +\def\endpicture{\@@endpicture\endgroup} + +\def\LaTeXbegin{\def\begin##1{\csname##1\endcsname}} + + +\resetatcatcode |