home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / mac / tex / inputs.sit / TeX-inputs / fleqn.sty < prev    next >
Encoding:
Text File  |  1989-09-18  |  1.3 KB  |  34 lines  |  [TEXT/????]
  1. % fleqn.sty 24-May-89
  2.  
  3.  
  4. \def\[{\relax\ifmmode\@badmath\else\bgroup\@beginparpenalty\predisplaypenalty
  5.  \@endparpenalty\postdisplaypenalty
  6.  \begin{trivlist}\item[]\leavevmode
  7.  \hbox to\linewidth\bgroup$ \displaystyle
  8.  \hskip\mathindent\bgroup\fi}
  9. \def\]{\relax\ifmmode \egroup $\hfil \egroup \end{trivlist}\egroup\else
  10. \@badmath \fi}
  11. \def\equation{\@beginparpenalty\predisplaypenalty
  12.  \@endparpenalty\postdisplaypenalty
  13. \refstepcounter{equation}\trivlist \item[]\leavevmode
  14.  \hbox to\linewidth\bgroup $ \displaystyle
  15. \hskip\mathindent}
  16. \def\endequation{$\hfil \displaywidth\linewidth\@eqnnum\egroup \endtrivlist}
  17. \def\eqnarray{\stepcounter{equation}\let\@currentlabel=\theequation
  18. \global\@eqnswtrue
  19. \global\@eqcnt\z@\tabskip\mathindent\let\\=\@eqncr
  20. \abovedisplayskip\topsep\ifvmode\advance\abovedisplayskip\partopsep\fi
  21. \belowdisplayskip\abovedisplayskip
  22. \belowdisplayshortskip\abovedisplayskip
  23. \abovedisplayshortskip\abovedisplayskip
  24. $$\halign to
  25. \linewidth\bgroup\@eqnsel\hskip\@centering$\displaystyle\tabskip\z@
  26.  {##}$&\global\@eqcnt\@ne \hskip 2\arraycolsep \hfil${##}$\hfil
  27.  &\global\@eqcnt\tw@ \hskip 2\arraycolsep $\displaystyle{##}$\hfil 
  28.  \tabskip\@centering&\llap{##}\tabskip\z@\cr}
  29. \def\endeqnarray{\@@eqncr\egroup
  30.  \global\advance\c@equation\m@ne$$\global\@ignoretrue }
  31. \newdimen\mathindent 
  32. \mathindent = \leftmargini
  33.  
  34.