summaryrefslogtreecommitdiff
path: root/macros/plain/contrib/lextex/ruled.tex
blob: 9843b5d5945d2e14b22789aa9acda2a897d2ebee (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
% file: ruled.tex            TeXsis                  version 2.14
% $Revision: 1.8 $  :  $Date: 91/06/04 14:03:51 $  :  $Author: myers $
%======================================================================*
%  RULED TABLES.  Plain TeX macros for making nice ruled tables.
%
%  The actual guts of the ruled.tex macros are in the file TXSruled.tex,
%  which is loaded at the end of this file.  Here we just include
%  the interline spacing macros from TeXsis since they are also of
%  use in the table making macros.
%
% (C) copyright 1990, 1991 by Eric Myers and Frank E. Paige
%--------------------------------------------------*
% INTERLINE SPACING. (from TeXsis)

\def\singlespaced{% sets interline spacing to \normalbaselineskip
   \baselineskip=\normalbaselineskip            % reset interline
   \setRuledStrut                               % set ruled table spacing
   }
\def\singlespace{\singlespaced}                 % synonym for \singlespaced

\def\doublespaced{% sets interline spacing to 1.5 the \normalbaselineskip
   \baselineskip=\normalbaselineskip            % increase interline
   \multiply\baselineskip by 150                %  spacing by 1.50
   \divide\baselineskip by 100                  %  of normal
   \setRuledStrut                               % set ruled table spacing
   } 
\def\doublespace{\doublespaced}                 % synonym for \doublespaced

\def\TrueDoubleSpacing{% sets interline spacing to twice \normalbaselineskip
   \baselineskip=\normalbaselineskip            % increase interline
   \multiply\baselineskip by 2                  %  spacing by 2.0
   \setRuledStrut                               % set ruled table spacing
   } 
\def\truedoublespacing{\TrueDoubleSpacing} % synonym for \TrueDoubleSpacing

\def\triplespaced{% sets interline spacing to 3.0 the \normalbaselineskip
   \baselineskip=\normalbaselineskip            % increases interline
   \multiply\baselineskip by 3                  %   spacing by 3.0
   \setRuledStrut                               % set ruled table spacing
   } 

\def\widenspacing{% increases the interline spacing by 1.25
   \multiply\baselineskip by 125                % increase the interline
   \divide\baselineskip by 100                  %   spacing by a factor of 1.25
   \setRuledStrut                               % set ruled table spacing
   } 
\def\whitespaced{\widenspacing}                 % synonym for \widenspacing
\def\whitespace{\widenspacing}                  % synonym for \widenspacing


% \setRuledStrut creates a vertical strut to hold the interline
%  spacing in ruled tables.  It is defined in TXSruled.tex

\def\setRuledStrut{\relax}

%--------------------------------------------------*
% RULED TABLE MACROS:

\input TXSruled.tex

%>>> EOF TXSruled.tex <<<