diff options
Diffstat (limited to 'Master/texmf-dist/tex/texsis/base/Tablebod.txs')
| -rw-r--r-- | Master/texmf-dist/tex/texsis/base/Tablebod.txs | 91 |
1 files changed, 91 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/texsis/base/Tablebod.txs b/Master/texmf-dist/tex/texsis/base/Tablebod.txs new file mode 100644 index 00000000000..6bebf965cbf --- /dev/null +++ b/Master/texmf-dist/tex/texsis/base/Tablebod.txs @@ -0,0 +1,91 @@ +%% Tablebod.txs (TeXsis version 2.16) +% $Revision: 16.0 $ : $Date: 1994/11/11 19:37:06 $ : $Author: myers $ +%======================================================================* +% Old-style Figure macros - This file is a part of TeXsis +% (C) copyright 1991 by Eric Myers and Frank Paige. +% +% SIMPLE(R) RULED TABLES: \Tablebody +% +% The following macros make simple ruled tables with automatic spacing, +% i.e. no vertical struts are needed. Taken from TechRpt with modifications as +% in TeXsis 2.11. These are included for backward compatability +% and will eventually be phased out. + +% \Tablebody actually begins the table body, with the \halign template. +% #1 is number of columns. \Tableskipsize is set by \singlespaced, +% \doublespaced, etc. in TXSmacs. +%======================================================================* +\catcode`@=11 % make @ a letter for this file + +\def\Tablebody#1{% % #1 = no. columns + \hbox to \hsize\bgroup % start hbox for table + \hss $$ \vbox\bgroup % centered displaymath + \offinterlineskip % No interline glue + \def\tablerule{\noalign{\hrule}} % simple rule + \def\T@bleskip{\Tableskip{#1}{\Tableskipsize}} % nice skip + \def\T@blerule{\T@bleskip\tablerule\T@bleskip} % nice rule + \def\Cr{\cr\T@bleskip} % \cr and nice skip + \def\CR{\cr\T@blerule} % \cr and nice rule + \def\CRCR{\cr\T@bleskip\tablerule % \cr and nice double + \Tableskip{#1}{1pt}\tablerule\T@bleskip} % rule + \def~{\phantom{0}} % ~ is digit-width space + \halign\bgroup % start \halign + \vrule## % do leftmost vrule + &&\quad\hfil##\hfil\quad\strut % repeat for each column + &\vrule##\crcr % vrule on the right + \tablerule % hrule at top of table + \T@bleskip} % add some space + +\def\tablebody{\Tablebody} % synonym + +% \endTablebody closes \Tablebody. + +\def\endTablebody{ % + \bottomrule % put rule at bottom + \crcr\egroup % close the \halign + \egroup $$ % close vbox, math + \hss\egroup} % close the hbox + +\def\endtablebody{\endTablebody} % synonym + +% \Tablebodyleft is just like \Tablebody except that the columns are +% set flush left. + +\def\Tablebodyleft#1{% % #1 = no. columns + \hbox to \hsize\bgroup % start hbox for table + \hss $$ \vbox\bgroup % centered displaymath + \offinterlineskip % No interline glue + \def\tablerule{\noalign{\hrule}} % simple rule + \def\T@bleskip{\Tableskip{#1}{\Tableskipsize}} % nice skip + \def\T@blerule{\T@bleskip\tablerule\T@bleskip} % nice rule + \def\Cr{\cr\T@bleskip} % \cr and nice skip + \def\CR{\cr\T@blerule} % \cr and nice rule + \def\CRCR{\cr\T@bleskip\tablerule % \cr and nice double + \Tableskip{#1}{1pt}\tablerule\T@bleskip} % rule + \def~{\phantom{0}} % ~ is digit-width space + \halign\bgroup % start \halign + \vrule## % do leftmost vrule + &&\quad##\hfil\quad\strut % repeat for each column + &\vrule##\crcr % vrule on the right + \tablerule % hrule at top of table + \T@bleskip} % add some space + +% \Tableskip#1#2 produces a vertical skip with rules of height #2 for +% a table with #1 columns. +% \tablerule produces just a rule. +% \Tablerule#1#2 produces a rule with a skip of dimen #2 on each side +% for a table with #1 columns. + +\def\Tableskip#1#2{height #2 \global\mscount#1% + \gloop\ifnum\mscount>\z@ \Tsk@p\repeat\cr} +\def\Tsk@p{&\omit&\global\advance\mscount\m@ne} + +\def\Tablerule#1#2{\Tableskip#1#2\tablerule\Tableskip#1#2} + +% \bottomrule is a horizontal rule across the table. It is turned off +% by \nobottomrule (locally to the \halign) + +\def\bottomrule{\tablerule} +\def\nobottomrule{\let\bottomrule=\relax} + +%>>> EOF Tablebod.txs <<< |