|
DataMuseum.dkPresents historical artifacts from the history of: DKUUG/EUUG Conference tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about DKUUG/EUUG Conference tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: T s
Length: 1377 (0x561)
Types: TextFile
Names: »setstrut.tip«
└─⟦52210d11f⟧ Bits:30007239 EUUGD2: TeX 3 1992-12
└─⟦af5ba6c8e⟧ »unix3.0/DVIWARE.tar.Z«
└─⟦ca79c7339⟧
└─⟦this⟧ »DVIware/laser-setters/dvi-to-ps/TeXPS/doc/setstrut.tip«
% This macro source file is from the four volume series
% "TeX in Practice" by Stephan v. Bechtolsheim, published
% 1990 by the Springer-Verlay, New York.
% Copyright 1990 Stephan v. Bechtolsheim.
% No warranty or liability is assumed.
% This macro may be copied freely if no fees other than
% media cost or shipping charges are charged and as long
% as this copyright and the following source code itself
% is not changed.
%
% Version 1.0
% Date: May 11, 1990
%
% This source code is documented in ?? ?? ??
\catcode`\@ = 11
\newdimen\@StrutBaseDimension
\newdimen\@StrutSkipTemp
\def\ComputeStrut{%
\@StrutBaseDimension = \baselineskip
\ifdim\baselineskip < 0pt
\errhelp = {You probably called \string\offinterlineskip
before \string\ComputeStrut}
\errmessage{\string\ComputeStrut: negative
\string\baselineskip (\the\baselineskip)}%
\fi
}
\def\MyStrut{%
\vrule height 0.7\@StrutBaseDimension
depth 0.3\@StrutBaseDimension
width 0pt
}
\def\HigherStrut #1{%
\@StrutSkipTemp = 0.7\@StrutBaseDimension
\advance\@StrutSkipTemp by #1%
\vrule height \@StrutSkipTemp
depth 0.3\@StrutBaseDimension
width 0pt
}
\def\DeeperStrut #1{%
\@StrutSkipTemp = 0.3\@StrutBaseDimension
\advance\@StrutSkipTemp by #1%
\vrule height 0.7\@StrutBaseDimension
depth \@StrutSkipTemp
width 0pt
}
\ComputeStrut
\catcode`\@ = 12