Initial commit

1 files changed, 842 insertions, 0 deletions

diff --git a/info/digests/tex88/tree/l_pic.tex b/info/digests/tex88/tree/l_pic.tex
new file mode 100644
index 0000000000..11aeab036a
--- /dev/null
+++ b/info/digests/tex88/tree/l_pic.tex
@@ -0,0 +1,842 @@
+% All this stuff comes from latex.tex, most of it from the                      
+% picture environment. No changes!!!                                            
+% It is needed if you want to use TreeTeX together with plain TeX.              
+                                                                                
+\catcode`\@=11                                                                  
+                                                                                
+\def\@height{height}                                                            
+\def\@depth{depth}                                                              
+\def\@width{width}                                                              
+                                                                                
+\font\tenln=line10                                                              
+\font\tencirc=circle10                                                          
+\font\tenlnw=linew10                                                            
+\font\tencircw=circlew10                                                        
+                                                                                
+\newcount\@tempcnta                                                             
+\newcount\@tempcntb                                                             
+\newdimen\@tempdima                                                             
+\newdimen\@tempdimb                                                             
+\newbox\@tempboxa                                                               
+                                                                                
+\def\@whilenoop#1{}                                                             
+\def\@whilenum#1\do #2{\ifnum #1\relax #2\relax\@iwhilenum{#1\relax 
+     #2\relax}\fi}
+\def\@iwhilenum#1{\ifnum #1\let\@nextwhile=\@iwhilenum 
+         \else\let\@nextwhile=\@whilenoop\fi\@nextwhile{#1}}
+                                                                                
+\def\@whiledim#1\do #2{\ifdim #1\relax#2\@iwhiledim{#1\relax#2}\fi}             
+\def\@iwhiledim#1{\ifdim #1\let\@nextwhile=\@iwhiledim                          
+        \else\let\@nextwhile=\@whilenoop\fi\@nextwhile{#1}}                     
+                                                                                
+\def\@ifnextchar#1#2#3{\let\@tempe #1\def\@tempa{#2}\def\@tempb{#3}\futurelet   
+    \@tempc\@ifnch}                                                             
+\def\@ifnch{\ifx \@tempc \@sptoken \let\@tempd\@xifnch                          
+      \else \ifx \@tempc \@tempe\let\@tempd\@tempa\else\let\@tempd\@tempb\fi    
+      \fi \@tempd}                                                              
+                                                                                
+% NOTE: the following hacking must precede the definition of \:                 
+%  as math medium space.                                                        
+                                                                                
+\def\:{\let\@sptoken= } \:  % this makes \@sptoken a space token                
+                                                                                
+\def\:{\@xifnch} \expandafter\def\: {\futurelet\@tempc\@ifnch}                  
+                                                                                
+\def\@ifstar#1#2{\@ifnextchar *{\def\@tempa*{#1}\@tempa}{#2}}                   
+                                                                                
+\let\:=\>                                                                       
+                                                                                
+%      ****************************************                                 
+%      *       THE PICTURE ENVIRONMENT        *                                 
+%      ****************************************                                 
+%                                                                               
+%  \unitlength     = value of dimension argument                                
+%  \@wholewidth    = current line width                                         
+%  \@halfwidth     = half of current line width                                 
+%  \@linefnt       = font for drawing lines                                     
+%  \@circlefnt     = font for drawing circles                                   
+%                                                                               
+% \linethickness{DIM} : Sets the width of horizontal and vertical lines         
+%     in a picture to DIM.  Does not change width of slanted lines              
+%     or circles.   Width of all lines reset by \thinlines and                  
+%     \thicklines                                                               
+%                                                                               
+% \picture(XSIZE,YSIZE)(XORG,YORG)                                              
+%   BEGIN                                                                       
+%     \@picht :=L YSIZE * \unitlength                                           
+%     box \@picbox :=                                                           
+%          \hbox to XSIZE * \unitlength                                         
+%            {\hskip -XORG * \unitlength                                        
+%             \lower YORG * \unitlength                                         
+%             \hbox{                                                            
+%   END                                                                         
+%                                                                               
+% \endpicture ==                                                                
+%   BEGIN                                                                       
+%                   } \hss }                                                    
+%                   heigth of \@picbox := \@picht                               
+%                   depth  of \@picbox := 0                                     
+%                   leavevmode                                                  
+%                   \box\@picbox                                                
+%   END                                                                         
+%                                                                               
+% \put(X, Y){OBJ} ==                                                            
+%   BEGIN                                                                       
+%     \@killglue                                                                
+%     \raise Y * \unitlength  \hbox to 0pt { \hskip X * \unitlength             
+%                                              OBJ \hss             }           
+%     \ignorespaces                                                             
+%   END                                                                         
+%                                                                               
+% \multiput(X,Y)(DELX,DELY){N}{OBJ} ==                                          
+%   BEGIN                                                                       
+%    \@killglue                                                                 
+%    \@multicnt := N                                                            
+%    \@xdim  := X * \unitlength                                                 
+%    \@ydim  := Y * \unitlength                                                 
+%    while \@multicnt > 0                                                       
+%      do \raise \@ydim \hbox to 0pt { \hskip \@xdim                            
+%                                             OBJ \hss   }                      
+%         \@multicnt := \@multicnt - 1                                          
+%         \@xdim     := \@xdim + DELX * \unitlength                             
+%         \@ydim     := \@ydim + DELY * \unitlength                             
+%      od                                                                       
+%    \ignorespaces                                                              
+%   END                                                                         
+%                                                                               
+%  \shortstack[POS]{TEXT} : Makes a \vbox containing TEXT stacked as            
+%      a one-column array, positioned l, r or c as indicated by POS.            
+                                                                                
+\newdimen\@wholewidth                                                           
+\newdimen\@halfwidth                                                            
+\newdimen\unitlength \unitlength =1pt                                           
+\newbox\@picbox                                                                 
+\newdimen\@picht                                                                
+                                                                                
+\def\picture(#1,#2){\@ifnextchar({\@picture(#1,#2)}{\@picture(#1,#2)(0,0)}}     
+                                                                                
+\def\@picture(#1,#2)(#3,#4){\@picht #2\unitlength                               
+\setbox\@picbox\hbox to #1\unitlength\bgroup                                    
+\hskip -#3\unitlength \lower #4\unitlength \hbox\bgroup}                        
+                                                                                
+\def\endpicture{\egroup\hss\egroup\ht\@picbox\@picht                            
+\dp\@picbox\z@\leavevmode\box\@picbox}                                          
+                                                                                
+\long\def\put(#1,#2)#3{\@killglue\raise#2\unitlength\hbox to \z@{\hskip         
+#1\unitlength #3\hss}\ignorespaces}                                             
+                                                                                
+\long\def\multiput(#1,#2)(#3,#4)#5#6{\@killglue\@multicnt=#5\relax              
+\@xdim=#1\unitlength                                                            
+\@ydim=#2\unitlength                                                            
+\@whilenum \@multicnt > 0\do                                                    
+{\raise\@ydim\hbox to \z@{\hskip                                                
+\@xdim #6\hss}\advance\@multicnt \m@ne\advance\@xdim                            
+#3\unitlength\advance\@ydim #4\unitlength}\ignorespaces}                        
+                                                                                
+\def\@killglue{\unskip\@whiledim \lastskip >\z@\do{\unskip}}                    
+                                                                                
+\def\thinlines{\let\@linefnt\tenln \let\@circlefnt\tencirc                      
+  \@wholewidth\fontdimen8\tenln \@halfwidth .5\@wholewidth}                     
+\def\thicklines{\let\@linefnt\tenlnw \let\@circlefnt\tencircw                   
+  \@wholewidth\fontdimen8\tenlnw \@halfwidth .5\@wholewidth}                    
+                                                                                
+\def\linethickness#1{\@wholewidth #1\relax \@halfwidth .5\@wholewidth}          
+                                                                                
+\def\shortstack{\@ifnextchar[{\@shortstack}{\@shortstack[c]}}                   
+                                                                                
+\def\@shortstack[#1]{\leavevmode                                                
+\vbox\bgroup\baselineskip-1pt\lineskip 3pt\let\mb@l\hss                         
+\let\mb@r\hss \expandafter\let\csname mb@#1\endcsname\relax                     
+\let\\\@stackcr\@ishortstack}                                                   
+                                                                                
+\def\@ishortstack#1{\halign{\mb@l ##\unskip\mb@r\cr #1\crcr}\egroup}            
+                                                                                
+                                                                                
+\def\@stackcr{\@ifstar{\@ixstackcr}{\@ixstackcr}}                               
+\def\@ixstackcr{\@ifnextchar[{\@istackcr}{\cr\ignorespaces}}                    
+                                                                                
+\def\@istackcr[#1]{\cr\noalign{\vskip #1}\ignorespaces}                         
+                                                                                
+                                                                                
+% \line(X,Y){LEN} ==                                                            
+% BEGIN                                                                         
+%  \@xarg    := X                                                               
+%  \@yarg    := Y                                                               
+%  \@linelen := LEN * \unitlength                                               
+%  if \@xarg = 0                                                                
+%     then \@vline                                                              
+%     else if \@yarg = 0                                                        
+%            then \@hline                                                       
+%            else \@sline                                                       
+%          if                                                                   
+%  if                                                                           
+% END                                                                           
+%                                                                               
+% \@sline ==                                                                    
+%  BEGIN                                                                        
+%    if \@xarg < 0                                                              
+%      then @negarg := T                                                        
+%           \@xarg  := -\@xarg                                                  
+%           \@yyarg := -\@yarg                                                  
+%      else @negarg := F                                                        
+%           \@yyarg := \@yarg                                                   
+%    fi                                                                         
+%    \@tempcnta := |\@yyarg|                                                    
+%    if \@tempcnta > 6                                                          
+%      then error: 'LATEX ERROR: Illegal \line or \vector argument.'            
+%           \@tempcnta := 0                                                     
+%    fi                                                                         
+%    \box\@linechar := \hbox{\@linefnt \@getlinechar(\@xarg,\@yyarg) }          
+%     if \@yarg > 0 then \@upordown = \raise                                    
+%                         \@clnht := 0                                          
+%                   else \@upordown = \lower                                    
+%                        \@clnht := height of \box\@linechar                    
+%     fi                                                                        
+%     \@clnwd  := width of \box\@linechar                                       
+%     if @negarg                                                                
+%       then \hskip - width of \box\@linechar                                   
+%            \@tempa == \hskip - 2* width of box \@linechar                     
+%       else \@tempa == \relax                                                  
+%     fi                                                                        
+%  %% Put out integral number of line segments                                  
+%     while \@clnwd <  \@linelen                                                
+%       do  \@upordown \@clnht \copy\@linechar                                  
+%           \@tempa                                                             
+%           \@clnht := \@clnht + ht of \box\@linechar                           
+%           \@clnwd := \@clnwd + width of \box\@linechar                        
+%       od                                                                      
+%                                                                               
+%  %% Put out last segment                                                      
+%     \@clnht := \@clnht - height of \box\@linechar                             
+%     \@clnwd := \@clnwd - width of \box\@linechar                              
+%     \@tempdima   := \@linelen - \@clnwd                                       
+%     \@tempdimb   := \@tempdima - width of \box\@linechar                      
+%     if @negarg  then \hskip -\@tempdimb                                       
+%                 else \hskip  \@tempdimb                                       
+%     fi                                                                        
+%     \@tempdima   := 1000 * \@tempdima                                         
+%     \@tempcnta   := \@tempdima / width of \box\@linechar                      
+%     \@tempdima   := (\@tempcnta * ht of \box\@linechar)/1000                  
+%     \@clnht := \@clnht + \@tempdima                                           
+%     if \@linelen < width of box\@linechar                                     
+%         then \hskip width of box\@linechar                                    
+%         else \hbox{\@upordown \@clnht \copy\@linechar}                        
+%     fi                                                                        
+% END                                                                           
+%                                                                               
+% \@hline ==                                                                    
+%   BEGIN                                                                       
+%     if \@xarg < 0 then  \hskip -\@linelen \fi                                 
+%     \vrule height \@halfwidth depth \@halfwidth width \@linelen               
+%     if \@xarg < 0 then  \hskip -\@linelen \fi                                 
+%  END                                                                          
+%                                                                               
+% \@vline == if \@yarg < 0 \@downline else \@upline  fi                         
+%                                                                               
+%                                                                               
+% \@getlinechar(X,Y) ==                                                         
+%   BEGIN                                                                       
+%     \@tempcnta := 8*X - 9                                                     
+%     if Y > 0                                                                  
+%       then \@tempcnta := \@tempcnta + Y                                       
+%       else \@tempcnta := \@tempcnta - Y + 64                                  
+%     fi                                                                        
+%     \char\@tempcnta                                                           
+%   END                                                                         
+%                                                                               
+% \vector(X,Y){LEN} ==                                                          
+% BEGIN                                                                         
+%  \@xarg    := X                                                               
+%  \@yarg    := Y                                                               
+%  \@linelen := LEN * \unitlength                                               
+%  if \@xarg = 0                                                                
+%     then \@vvector                                                            
+%     else if \@yarg = 0                                                        
+%            then \@hvector                                                     
+%            else \@svector                                                     
+%          if                                                                   
+%  if                                                                           
+% END                                                                           
+%                                                                               
+% \@hvector ==                                                                  
+%   BEGIN                                                                       
+%     \@hline                                                                   
+%     {\@linefnt if \@xarg < 0 then  \@getlarrow(1,0)                           
+%                              else  \@getrarrow(1,0)                           
+%                 fi}                                                           
+%   END                                                                         
+%                                                                               
+% \@vvector == if \@yarg < 0 \@downvector else \@upvector  fi                   
+%                                                                               
+% \@svector ==                                                                  
+%  BEGIN                                                                        
+%   \@sline                                                                     
+%   \@tempcnta := |\@yarg|                                                      
+%     if  \@tempcnta < 5                                                        
+%        then  \hskip - width of \box\@linechar                                 
+%              \@upordown \@clnht \hbox                                         
+%                       {\@linefnt                                              
+%                        if @negarg then \@getlarrow(\@xarg,\@yyarg)            
+%                                   else \@getrarrow(\@xarg,\@yyarg)            
+%                        fi }                                                   
+%        else  error: 'LATEX ERROR: Illegal \line or \vector argument.'         
+%     fi                                                                        
+%  END                                                                          
+%                                                                               
+% \@getlarrow(X,Y) ==                                                           
+%  BEGIN                                                                        
+%   if Y = 0                                                                    
+%     then \@tempcnta := '33                                                    
+%     else \@tempcnta := 16 * X  -  9                                           
+%          \@tempcntb := 2 * Y                                                  
+%          if \@tempcntb > 0                                                    
+%            then  \@tempcnta := \@tempcnta  +  \@tempcntb                      
+%            else  \@tempcnta := \@tempcnta  -  \@tempcntb +  64                
+%          fi                                                                   
+%   fi                                                                          
+%   \char\@tempcnta                                                             
+%  END                                                                          
+%                                                                               
+% \@getrarrow(X,Y) ==                                                           
+%  BEGIN                                                                        
+%   \@tempcntb := |Y|                                                           
+%   case of \@tempcntb                                                          
+%     0 : \@tempcnta := '55                                                     
+%     1 : if X < 3                                                              
+%           then \@tempcnta :=  24*X - 6                                        
+%           else if X = 3                                                       
+%                  then \@tempcnta := 49                                        
+%                  else \@tempcnta := 58  fi                                    
+%         fi                                                                    
+%     2 : if X < 3                                                              
+%           then \@tempcnta :=  24*X - 3                                        
+%           else \@tempcnta := 51     % X must = 3                              
+%         fi                                                                    
+%     3 : \@tempcnta := 16*X - 2                                                
+%     4 : \@tempcnta := 16*X + 7                                                
+%   endcase                                                                     
+%   if Y < 0                                                                    
+%     then \@tempcnta := \@tempcnta + 64                                        
+%   fi                                                                          
+%   \char\@tempcnta                                                             
+%  END                                                                          
+                                                                                
+\newif\if@negarg                                                                
+                                                                                
+\def\line(#1,#2)#3{\@xarg #1\relax \@yarg #2\relax                              
+\@linelen=#3\unitlength                                                         
+\ifnum\@xarg =0 \@vline                                                         
+  \else \ifnum\@yarg =0 \@hline \else \@sline\fi                                
+\fi}                                                                            
+                                                                                
+\def\@sline{\ifnum\@xarg< 0 \@negargtrue \@xarg -\@xarg \@yyarg -\@yarg         
+  \else \@negargfalse \@yyarg \@yarg \fi                                        
+\ifnum \@yyarg >0 \@tempcnta\@yyarg \else \@tempcnta -\@yyarg \fi               
+\ifnum\@tempcnta>6 \@badlinearg\@tempcnta0 \fi                                  
+\setbox\@linechar\hbox{\@linefnt\@getlinechar(\@xarg,\@yyarg)}%                 
+\ifnum \@yarg >0 \let\@upordown\raise \@clnht\z@                                
+   \else\let\@upordown\lower \@clnht \ht\@linechar\fi                           
+\@clnwd=\wd\@linechar                                                           
+\if@negarg \hskip -\wd\@linechar \def\@tempa{\hskip -2\wd\@linechar}\else       
+     \let\@tempa\relax \fi                                                      
+\@whiledim \@clnwd <\@linelen \do                                               
+  {\@upordown\@clnht\copy\@linechar                                             
+   \@tempa                                                                      
+   \advance\@clnht \ht\@linechar                                                
+   \advance\@clnwd \wd\@linechar}%                                              
+\advance\@clnht -\ht\@linechar                                                  
+\advance\@clnwd -\wd\@linechar                                                  
+\@tempdima\@linelen\advance\@tempdima -\@clnwd                                  
+\@tempdimb\@tempdima\advance\@tempdimb -\wd\@linechar                           
+\if@negarg \hskip -\@tempdimb \else \hskip \@tempdimb \fi                       
+\multiply\@tempdima \@m                                                         
+\@tempcnta \@tempdima \@tempdima \wd\@linechar \divide\@tempcnta \@tempdima     
+\@tempdima \ht\@linechar \multiply\@tempdima \@tempcnta                         
+\divide\@tempdima \@m                                                           
+\advance\@clnht \@tempdima                                                      
+\ifdim \@linelen <\wd\@linechar                                                 
+   \hskip \wd\@linechar                                                         
+  \else\@upordown\@clnht\copy\@linechar\fi}                                     
+                                                                                
+\def\@hline{\ifnum \@xarg <0 \hskip -\@linelen \fi                              
+\vrule \@height \@halfwidth \@depth \@halfwidth \@width \@linelen               
+\ifnum \@xarg <0 \hskip -\@linelen \fi}                                         
+                                                                                
+\def\@getlinechar(#1,#2){\@tempcnta#1\relax\multiply\@tempcnta 8                
+\advance\@tempcnta -9 \ifnum #2>0 \advance\@tempcnta #2\relax\else              
+\advance\@tempcnta -#2\relax\advance\@tempcnta 64 \fi                           
+\char\@tempcnta}                                                                
+                                                                                
+\def\vector(#1,#2)#3{\@xarg #1\relax \@yarg #2\relax                            
+\@linelen=#3\unitlength                                                         
+\ifnum\@xarg =0 \@vvector                                                       
+  \else \ifnum\@yarg =0 \@hvector \else \@svector\fi                            
+\fi}                                                                            
+                                                                                
+\def\@hvector{\@hline\hbox to 0pt{\@linefnt                                     
+\ifnum \@xarg <0 \@getlarrow(1,0)\hss\else                                      
+    \hss\@getrarrow(1,0)\fi}}                                                   
+                                                                                
+\def\@vvector{\ifnum \@yarg <0 \@downvector \else \@upvector \fi}               
+                                                                                
+\def\@svector{\@sline                                                           
+\@tempcnta\@yarg \ifnum\@tempcnta <0 \@tempcnta=-\@tempcnta\fi                  
+\ifnum\@tempcnta <5                                                             
+  \hskip -\wd\@linechar                                                         
+  \@upordown\@clnht \hbox{\@linefnt  \if@negarg                                 
+  \@getlarrow(\@xarg,\@yyarg) \else \@getrarrow(\@xarg,\@yyarg) \fi}%           
+\else\@badlinearg\fi}                                                           
+                                                                                
+\def\@getlarrow(#1,#2){\ifnum #2 =\z@ \@tempcnta='33\else                       
+\@tempcnta=#1\relax\multiply\@tempcnta \sixt@@n \advance\@tempcnta              
+-9 \@tempcntb=#2\relax\multiply\@tempcntb \tw@                                  
+\ifnum \@tempcntb >0 \advance\@tempcnta \@tempcntb\relax                        
+\else\advance\@tempcnta -\@tempcntb\advance\@tempcnta 64                        
+\fi\fi\char\@tempcnta}                                                          
+                                                                                
+\def\@getrarrow(#1,#2){\@tempcntb=#2\relax                                      
+\ifnum\@tempcntb < 0 \@tempcntb=-\@tempcntb\relax\fi                            
+\ifcase \@tempcntb\relax \@tempcnta='55 \or                                     
+\ifnum #1<3 \@tempcnta=#1\relax\multiply\@tempcnta                              
+24 \advance\@tempcnta -6 \else \ifnum #1=3 \@tempcnta=49                        
+\else\@tempcnta=58 \fi\fi\or                                                    
+\ifnum #1<3 \@tempcnta=#1\relax\multiply\@tempcnta                              
+24 \advance\@tempcnta -3 \else \@tempcnta=51\fi\or                              
+\@tempcnta=#1\relax\multiply\@tempcnta                                          
+\sixt@@n \advance\@tempcnta -\tw@ \else                                         
+\@tempcnta=#1\relax\multiply\@tempcnta                                          
+\sixt@@n \advance\@tempcnta 7 \fi\ifnum #2<0 \advance\@tempcnta 64 \fi          
+\char\@tempcnta}                                                                
+                                                                                
+                                                                                
+                                                                                
+\def\@vline{\ifnum \@yarg <0 \@downline \else \@upline\fi}                      
+                                                                                
+\def\@upline{\hbox to \z@{\hskip -\@halfwidth \vrule \@width \@wholewidth       
+   \@height \@linelen \@depth \z@\hss}}                                         
+                                                                                
+\def\@downline{\hbox to \z@{\hskip -\@halfwidth \vrule \@width \@wholewidth     
+   \@height \z@ \@depth \@linelen \hss}}                                        
+                                                                                
+\def\@upvector{\@upline\setbox\@tempboxa\hbox{\@linefnt\char'66}\raise          
+     \@linelen \hbox to\z@{\lower \ht\@tempboxa\box\@tempboxa\hss}}             
+                                                                                
+\def\@downvector{\@downline\lower \@linelen                                     
+      \hbox to \z@{\@linefnt\char'77\hss}}                                      
+                                                                                
+% \dashbox{D}(X,Y) ==                                                           
+%  BEGIN                                                                        
+%  leave vertical mode                                                          
+%  \hbox to 0pt {                                                               
+%       \baselineskip := 0pt                                                    
+%       \lineskip     := 0pt                                                    
+%  %% HORIZONTAL DASHES                                                         
+%       \@dashdim := X * \unitlength                                            
+%       \@dashcnt := \@dashdim + 200 % to prevent roundoff error                
+%       \@dashdim := D * \unitlength                                            
+%       \@dashcnt := \@dashcnt / \@dashdim                                      
+%       if \@dashcnt is odd                                                     
+%         then \@dashdim := 0pt                                                 
+%              \@dashcnt := (\@dashcnt + 1) / 2                                 
+%         else \@dashdim := \@dashdim / 2                                       
+%              \@dashcnt := \@dashcnt / 2 - 1                                   
+%              \box\@dashbox   := \hbox{\vrule height \@halfwidth               
+%                                    depth \@halfwidth width \@dashdim}         
+%              \put(0,0){\copy\@dashbox}                                        
+%              \put(0,Y){\copy\@dashbox}                                        
+%              \put(X,0){\hskip -\@dashdim\copy\@dashbox}                       
+%              \put(X,Y){\hskip -\@dashdim\box\@dashbox}                        
+%              \@dashdim := 3 * \@dashdim                                       
+%       fi                                                                      
+%       \box\@dashbox := \hbox{\vrule height \@halfwidth                        
+%                                 depth \@halfwidth width D * \unitlength       
+%                              \hskip D * \unitlength}                          
+%       \@tempcnta := 0                                                         
+%       \put(0,0){\hskip \@dashdim                                              
+%                while \@tempcnta < \@dascnt                                    
+%                  do \copy\@dashbox                                            
+%                     \@tempcnta := \@tempcnta + 1                              
+%                  od                                                           
+%               }                                                               
+%       \@tempcnta := 0                                                         
+%       put(0,Y){\hskip \@dashdim                                               
+%                while \@tempcnta < \@dascnt                                    
+%                  do \copy\@dashbox                                            
+%                     \@tempcnta := \@tempcnta + 1                              
+%                  od                                                           
+%               }                                                               
+%                                                                               
+% %% vertical dashes                                                            
+%       \@dashdim := Y * \unitlength                                            
+%       \@dashcnt := \@dashdim + 200 % to prevent roundoff error                
+%       \@dashdim := D * \unitlength                                            
+%       \@dashcnt := \@dashcnt / \@dashdim                                      
+%       if \@dashcnt is odd                                                     
+%         then \@dashdim := 0pt                                                 
+%              \@dashcnt := (\@dashcnt + 1) / 2                                 
+%         else \@dashdim := \@dashdim / 2                                       
+%              \@dashcnt := \@dashcnt / 2 - 1                                   
+%              \box\@dashbox   := \hbox{\hskip -\@halfwidth                     
+%                                       \vrule width \@wholewidth               
+%                                                height \@dashdim  }            
+%              \put(0,0){\copy\@dashbox}                                        
+%              \put(X,0){\copy\@dashbox}                                        
+%              \put(0,Y){\lower\@dashdim\copy\@dashbox}                         
+%              \put(X,Y){\lower\@dashdim\copy\@dashbox}                         
+%              \@dashdim := 3 * \@dashdim                                       
+%       fi                                                                      
+%       \box\@dashbox := \hbox{\vrule width \@wholewidth                        
+%                                 height D * \unitlength       }                
+%       \@tempcnta := 0                                                         
+%       put(0,0){\hskip -\halfwidth                                             
+%                \vbox{while \@tempcnta < \@dashcnt                             
+%                       do \vskip D*\unitlength                                 
+%                          \copy\@dashbox                                       
+%                          \@tempcnta := \@tempcnta + 1                         
+%                       od                                                      
+%                      \vskip \@dashdim                                         
+%                     } }                                                       
+%       \@tempcnta := 0                                                         
+%       put(X,0){\hskip -\halfwidth                                             
+%                \vbox{while \@tempcnta < \@dashcnt                             
+%                       do \vskip D*\unitlength                                 
+%                          \copy\@dashbox                                       
+%                          \@tempcnta := \@tempcnta + 1                         
+%                       od                                                      
+%                      \vskip \@dashdim                                         
+%                     }                                                         
+%               }                                                               
+%    }     % END DASHES                                                         
+%                                                                               
+%  \@imakepicbox(X,Y)                                                           
+% END                                                                           
+                                                                                
+\def\dashbox#1(#2,#3){\leavevmode\hbox to \z@{\baselineskip \z@%                
+\lineskip \z@%                                                                  
+\@dashdim=#2\unitlength%                                                        
+\@dashcnt=\@dashdim \advance\@dashcnt 200                                       
+\@dashdim=#1\unitlength\divide\@dashcnt \@dashdim                               
+\ifodd\@dashcnt\@dashdim=\z@%                                                   
+\advance\@dashcnt \@ne \divide\@dashcnt \tw@                                    
+\else \divide\@dashdim \tw@ \divide\@dashcnt \tw@                               
+\advance\@dashcnt \m@ne                                                         
+\setbox\@dashbox=\hbox{\vrule \@height \@halfwidth \@depth \@halfwidth          
+\@width \@dashdim}\put(0,0){\copy\@dashbox}%                                    
+\put(0,#3){\copy\@dashbox}%                                                     
+\put(#2,0){\hskip-\@dashdim\copy\@dashbox}%                                     
+\put(#2,#3){\hskip-\@dashdim\box\@dashbox}%                                     
+\multiply\@dashdim 3                                                            
+\fi                                                                             
+\setbox\@dashbox=\hbox{\vrule \@height \@halfwidth \@depth \@halfwidth          
+\@width #1\unitlength\hskip #1\unitlength}\@tempcnta=0                          
+\put(0,0){\hskip\@dashdim \@whilenum \@tempcnta <\@dashcnt                      
+\do{\copy\@dashbox\advance\@tempcnta \@ne }}\@tempcnta=0                        
+\put(0,#3){\hskip\@dashdim \@whilenum \@tempcnta <\@dashcnt                     
+\do{\copy\@dashbox\advance\@tempcnta \@ne }}%                                   
+\@dashdim=#3\unitlength%                                                        
+\@dashcnt=\@dashdim \advance\@dashcnt 200                                       
+\@dashdim=#1\unitlength\divide\@dashcnt \@dashdim                               
+\ifodd\@dashcnt \@dashdim=\z@%                                                  
+\advance\@dashcnt \@ne \divide\@dashcnt \tw@                                    
+\else                                                                           
+\divide\@dashdim \tw@ \divide\@dashcnt \tw@                                     
+\advance\@dashcnt \m@ne                                                         
+\setbox\@dashbox\hbox{\hskip -\@halfwidth                                       
+\vrule \@width \@wholewidth                                                     
+\@height \@dashdim}\put(0,0){\copy\@dashbox}%                                   
+\put(#2,0){\copy\@dashbox}%                                                     
+\put(0,#3){\lower\@dashdim\copy\@dashbox}%                                      
+\put(#2,#3){\lower\@dashdim\copy\@dashbox}%                                     
+\multiply\@dashdim 3                                                            
+\fi                                                                             
+\setbox\@dashbox\hbox{\vrule \@width \@wholewidth                               
+\@height #1\unitlength}\@tempcnta0                                              
+\put(0,0){\hskip -\@halfwidth \vbox{\@whilenum \@tempcnta < \@dashcnt           
+\do{\vskip #1\unitlength\copy\@dashbox\advance\@tempcnta \@ne }%                
+\vskip\@dashdim}}\@tempcnta0                                                    
+\put(#2,0){\hskip -\@halfwidth \vbox{\@whilenum \@tempcnta< \@dashcnt           
+\relax\do{\vskip #1\unitlength\copy\@dashbox\advance\@tempcnta \@ne }%          
+\vskip\@dashdim}}}\@makepicbox(#2,#3)}                                          
+                                                                                
+% CIRCLES AND OVALS                                                             
+%                                                                               
+%  USER COMMANDS:                                                               
+%                                                                               
+%  \circle{D} : Produces the circle with the diameter as close as               
+%               possible to D * \unitlength.  \put(X,Y){\circle{D}}             
+%               puts the circle with its center at (X,Y).                       
+%                                                                               
+%  \oval(X,Y) : Makes an oval as round as possible that fits in the             
+%               rectangle of width X * \unitlength and height                   
+%               Y * \unitlength. The reference point is the center.             
+%                                                                               
+% \oval(X,Y)[POS] : Save as \oval(X,Y) except it draws only the                 
+%                   half or quadrant of the oval indicated by POS.              
+%                   E.G., \oval(X,Y)[t] draws just the top half                 
+%                   and \oval(X,Y)[br] draws just the bottom right              
+%                   quadrant.  In all cases, the reference point is             
+%                   the same as the unqualified \oval(X,Y) command.             
+%                                                                               
+% \@ovvert {DELTA1} {DELTA2} : Makes a vbox containing either the left side     
+%        or the right side of the oval being constructed.  The baseline         
+%        will coincide with the outside bottom edge of the oval; the left       
+%        side of the box will coincide with the left edge of the vertical       
+%        rule.  The width of the box will be \@tempdima.                        
+%        DELTA1 and DELTA2 are added to the character number in \@tempcnta      
+%        to get the characters for the top and bottom quarter circle pieces.    
+%                                                                               
+% \@ovhorz : Makes an hbox containing the straight rule for either the          
+%         top or the bottom of the oval being constructed.  The baseline        
+%         will coincide with bottom edge of the rule; the left side of          
+%         the box will coincide with the left side of the oval.                 
+%         The width of the box will be \@ovxx.                                  
+%                                                                               
+% \@getcirc {DIAM} : Sets \@tempcnta to the character number                    
+%                   of the top-right quarter circle with the largest            
+%                   diameter less than or equal to DIAM.                        
+%                   Sets \@tempboxa to an hbox containing that character.       
+%                   Sets \@tempdima to \wd \@tempboxa, which is the distance    
+%                   from the circle's left outside edge to its right            
+%                   inside edge.                                                
+%                   (These characters are like those described in the           
+%                   TeXbook, pp. 389-90.)                                       
+%                                                                               
+% \@getcirc {DIAM} ==                                                           
+%   BEGIN                                                                       
+%     \@tempcnta       := integer coercion of DIAM                              
+%     \@tempcnta       := \@tempcnta / integer coercion of 4pt                  
+%     if \@tempcnta > 10                                                        
+%       then \@tempcnta := 10 fi                                                
+%     if \@tempcnta > 0                                                         
+%       then \@tempcnta := \@tempcnta-1                                         
+%       else LaTeX Warning: Oval too small.                                     
+%     fi                                                                        
+%     \@tempcnta       := 4 * \@tempcnta                                        
+%     \@tempboxa       := \hbox{\@circlefnt \char \@tempcnta}                   
+%     \@tempdima       := \wd \@tempboxa                                        
+%   END                                                                         
+%                                                                               
+% \@put{X}{Y}{OBJ} ==                                                           
+%   BEGIN                                                                       
+%     \raise Y \hbox to 0pt{\hskip X OBJ \hss}                                  
+%   END                                                                         
+%                                                                               
+% \@oval(X,Y)[POS] ==                                                           
+%   BEGIN                                                                       
+%     \begingroup                                                               
+%	\boxmaxdepth := \maxdimen                                                     
+%       @ovt := @ovb := @ovl := @ovr := true                                    
+%       for all E in POS                                                        
+%         do  @ovE := false od                                                  
+%       \@ovxx      := X * \unitlength                                          
+%       \@ovyy      := Y * \unitlength                                          
+%       \@tempdimb := min(\@ovxx,\@ovyy)                                        
+%       \@getcirc{\@tempdimb}                                                   
+%       \@ovro     := \ht \@tempboxa                                            
+%       \@ovri     := \dp \@tempboxa                                            
+%       \@ovdx     := \@ovxx - \@tempdima                                       
+%       \@ovdx     := \@ovdx/2                                                  
+%       \@ovdy     := \@ovyy - \@tempdima                                       
+%       \@ovdy     := \@ovyy/2                                                  
+%       \@circlefnt                                                             
+%       \@tempboxa :=                                                           
+%           \hbox{                                                              
+%                 if @ovr                                                       
+%                   then \@ovvert{3}{2} \kern -\@tempdima                       
+%                 fi                                                            
+%                 if @ovl                                                       
+%                   then \kern \@ovxx \@ovvert{0}{1} \kern -\@tempdima          
+%                        \kern -\@ovxx                                          
+%                 fi                                                            
+%                 if @ovt                                                       
+%                   then \@ovhorz \kern -\@ovxx                                 
+%                 fi                                                            
+%                 if @ovb                                                       
+%                   then \raise \@ovyy \@ovhorz                                 
+%                 fi                                                            
+%                }                                                              
+%       \@ovdx    := \@ovdx + \@ovro                                            
+%       \@ovdy    := \@ovdy + \@ovro                                            
+%      \ht\@tempboxa := \dp\@tempboxa := 0                                      
+%       \@put{-\@ovdx}{-\@ovdy}{\box\@tempboxa}                                 
+%    \endgroup                                                                  
+%   END                                                                         
+%                                                                               
+% \@ovvert {DELTA1} {DELTA2} ==                                                 
+%   BEGIN                                                                       
+%      \vbox to \@ovyy {                                                        
+%                      if @ovb                                                  
+%                        then \@tempcntb := \@tempcnta + DELTA1                 
+%                             \kern -\@ovro                                     
+%                             \hbox { \char \@tempcntb }                        
+%                             \nointerlineskip                                  
+%                        else \kern \@ovri \kern \@ovdy                         
+%                      fi                                                       
+%                      \leaders \vrule width \@wholewidth \vfil                 
+%                      \nointerlineskip                                         
+%                      if @ovt                                                  
+%                        then \@tempcntb := \@tempcnta + DELTA2                 
+%                             \hbox { \char \@tempcntb }                        
+%                        else \kern \@ovdy \kern \@ovro                         
+%                      fi                                                       
+%                     }                                                         
+%   END                                                                         
+%                                                                               
+% \@ovhorz ==                                                                   
+%   BEGIN                                                                       
+%    \hbox to \@ovxx{                                                           
+%                   \kern \@ovro                                                
+%                   if @ovr                                                     
+%                     then                                                      
+%                     else \kern \@ovdx                                         
+%                   fi                                                          
+%                   \leaders \hrule height \@wholewidth \hfil                   
+%                   if @ovl                                                     
+%                     then                                                      
+%                     else \kern \@ovdx                                         
+%                   fi                                                          
+%                   \kern \@ovri                                                
+%                  }                                                            
+%   END                                                                         
+%                                                                               
+% \circle{DIAM} ==                                                              
+%   BEGIN                                                                       
+%    \begingroup                                                                
+%    \boxmaxdepth := maxdimen                                                   
+%    \@tempdimb := DIAM *\unitlength                                            
+%    if \@tempdimb > 15.5pt                                                     
+%      then \@getcirc{\@tempdimb}                                               
+%           \@ovro := \ht \@tempboxa                                            
+%           \@tempboxa := \hbox{                                                
+%                   \@circlefnt                                                 
+%                   \@tempcnta := \@tempcnta + 2                                
+%                   \char \@tempcnta                                            
+%                   \@tempcnta := \@tempcnta - 1                                
+%                   \char \@tempcnta                                            
+%                   \kern -2\@tempdima                                          
+%                   \@tempcnta := \@tempcnta + 2                                
+%                   \raise \@tempdima \hbox { \char \@tempcnta }                
+%                   \raise \@tempdima \box\@tempboxa                            
+%                  }                                                            
+%           \ht\@tempboxa := \dp\@tempboxa := 0                                 
+%           \@put{-\@ovro}{-\@ovro}{\@tempboxa}                                 
+%      else                                                                     
+%           \@circ{\@tempdimb}{96}                                              
+%    fi                                                                         
+%   \endgroup                                                                   
+%   END                                                                         
+%                                                                               
+% \circle*{DIAM}  ==  \@dot{DIAM} == \@circ{DIAM*\unitlength}{112}              
+%                                                                               
+% \@circ{DIAM}{CHAR} ==                                                         
+%  BEGIN                                                                        
+%   \@tempcnta := integer coercion of (DIAM + .5pt)/1pt.                        
+%   if \@tempcnta > 15 then \@tempcnta := 15 fi                                 
+%   if \@tempcnta > 1  then \@tempcnta := \@tempcnta - 1 fi                     
+%   \@tempcnta := \@tempcnta + CHAR                                             
+%   \@circlefnt                                                                 
+%   \char \@tempcnta                                                            
+%  END                                                                          
+%                                                                               
+                                                                                
+\newif\if@ovt                                                                   
+\newif\if@ovb                                                                   
+\newif\if@ovl                                                                   
+\newif\if@ovr                                                                   
+\newdimen\@ovxx                                                                 
+\newdimen\@ovyy                                                                 
+\newdimen\@ovdx                                                                 
+\newdimen\@ovdy                                                                 
+\newdimen\@ovro                                                                 
+\newdimen\@ovri                                                                 
+                                                                                
+\def\@getcirc#1{\@tempdima #1\relax \@tempcnta\@tempdima                        
+  \@tempdima 4pt\relax \divide\@tempcnta\@tempdima                              
+  \ifnum \@tempcnta > 10\relax \@tempcnta 10\relax\fi                           
+  \ifnum \@tempcnta >\z@ \advance\@tempcnta\m@ne                                
+    \else \@warning{Oval too small}\fi                                          
+  \multiply\@tempcnta 4\relax                                                   
+  \setbox \@tempboxa \hbox{\@circlefnt                                          
+  \char \@tempcnta}\@tempdima \wd \@tempboxa}                                   
+                                                                                
+\def\@put#1#2#3{\raise #2\hbox to \z@{\hskip #1#3\hss}}                         
+                                                                                
+\def\oval(#1,#2){\@ifnextchar[{\@oval(#1,#2)}{\@oval(#1,#2)[]}}                 
+                                                                                
+\def\@oval(#1,#2)[#3]{\begingroup\boxmaxdepth \maxdimen                         
+  \@ovttrue \@ovbtrue \@ovltrue \@ovrtrue                                       
+  \@tfor\@tempa :=#3\do{\csname @ov\@tempa false\endcsname}\@ovxx               
+  #1\unitlength \@ovyy #2\unitlength                                            
+  \@tempdimb \ifdim \@ovyy >\@ovxx \@ovxx\else \@ovyy \fi                       
+  \@getcirc \@tempdimb                                                          
+  \@ovro \ht\@tempboxa \@ovri \dp\@tempboxa                                     
+  \@ovdx\@ovxx \advance\@ovdx -\@tempdima \divide\@ovdx \tw@                    
+  \@ovdy\@ovyy \advance\@ovdy -\@tempdima \divide\@ovdy \tw@                    
+  \@circlefnt \setbox\@tempboxa                                                 
+  \hbox{\if@ovr \@ovvert32\kern -\@tempdima \fi                                 
+  \if@ovl \kern \@ovxx \@ovvert01\kern -\@tempdima \kern -\@ovxx \fi            
+  \if@ovt \@ovhorz \kern -\@ovxx \fi                                            
+  \if@ovb \raise \@ovyy \@ovhorz \fi}\advance\@ovdx\@ovro                       
+  \advance\@ovdy\@ovro \ht\@tempboxa\z@ \dp\@tempboxa\z@                        
+  \@put{-\@ovdx}{-\@ovdy}{\box\@tempboxa}%                                      
+  \endgroup}                                                                    
+                                                                                
+\def\@ovvert#1#2{\vbox to \@ovyy{%                                              
+    \if@ovb \@tempcntb \@tempcnta \advance \@tempcntb by #1\relax               
+	\kern -\@ovro \hbox{\char \@tempcntb}\nointerlineskip                          
+    \else \kern \@ovri \kern \@ovdy \fi                                         
+    \leaders\vrule width \@wholewidth\vfil \nointerlineskip                     
+    \if@ovt \@tempcntb \@tempcnta \advance \@tempcntb by #2\relax               
+	\hbox{\char \@tempcntb}%                                                       
+    \else \kern \@ovdy \kern \@ovro \fi}}                                       
+                                                                                
+\def\@ovhorz{\hbox to \@ovxx{\kern \@ovro                                       
+    \if@ovr \else \kern \@ovdx \fi                                              
+    \leaders \hrule height \@wholewidth \hfil                                   
+    \if@ovl \else \kern \@ovdx \fi                                              
+    \kern \@ovri}}                                                              
+                                                                                
+\def\circle{\@ifstar{\@dot}{\@circle}}                                          
+\def\@circle#1{\begingroup \boxmaxdepth \maxdimen \@tempdimb #1\unitlength      
+   \ifdim \@tempdimb >15.5pt\relax \@getcirc\@tempdimb                          
+      \@ovro\ht\@tempboxa                                                       
+     \setbox\@tempboxa\hbox{\@circlefnt                                         
+      \advance\@tempcnta\tw@ \char \@tempcnta                                   
+      \advance\@tempcnta\m@ne \char \@tempcnta \kern -2\@tempdima               
+      \advance\@tempcnta\tw@                                                    
+      \raise \@tempdima \hbox{\char\@tempcnta}\raise \@tempdima                 
+        \box\@tempboxa}\ht\@tempboxa\z@ \dp\@tempboxa\z@                        
+      \@put{-\@ovro}{-\@ovro}{\box\@tempboxa}%                                  
+   \else  \@circ\@tempdimb{96}\fi\endgroup}                                     
+                                                                                
+\def\@dot#1{\@tempdimb #1\unitlength \@circ\@tempdimb{112}}                     
+                                                                                
+\def\@circ#1#2{\@tempdima #1\relax \advance\@tempdima .5pt\relax                
+   \@tempcnta\@tempdima \@tempdima 1pt\relax                                    
+   \divide\@tempcnta\@tempdima                                                  
+   \ifnum\@tempcnta > 15\relax \@tempcnta 15\relax \fi                          
+   \ifnum \@tempcnta >\z@ \advance\@tempcnta\m@ne\fi                            
+   \advance\@tempcnta #2\relax                                                  
+   \@circlefnt \char\@tempcnta}                                                 
+                                                                                
+                                                                                
+%INITIALIZATION                                                                 
+\thinlines                                                                      
+                                                                                
+\newcount\@xarg                                                                 
+\newcount\@yarg                                                                 
+\newcount\@yyarg                                                                
+\newcount\@multicnt                                                             
+\newdimen\@xdim                                                                 
+\newdimen\@ydim                                                                 
+\newbox\@linechar                                                               
+\newdimen\@linelen                                                              
+\newdimen\@clnwd                                                                
+\newdimen\@clnht                                                                
+\newdimen\@dashdim                                                              
+\newbox\@dashbox                                                                
+\newcount\@dashcnt                                                              
+                                                                                
+                                                                                
+                                                                                
+%