%% %% This is file `beton.sty', %% generated with the docstrip utility. %% %% The original source files were: %% %% beton.dtx (with options: `package') %% %% File `beton.dtx'. %% Copyright (C) 1992--1995 Frank Jensen. All rights reserved. \def\fileversion{v1.3} \def\filedate{1995/03/05} %% \CharacterTable %% {Upper-case \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z %% Lower-case \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z %% Digits \0\1\2\3\4\5\6\7\8\9 %% Exclamation \! Double quote \" Hash (number) \# %% Dollar \$ Percent \% Ampersand \& %% Acute accent \' Left paren \( Right paren \) %% Asterisk \* Plus \+ Comma \, %% Minus \- Point \. Solidus \/ %% Colon \: Semicolon \; Less than \< %% Equals \= Greater than \> Question mark \? %% Commercial at \@ Left bracket \[ Backslash \\ %% Right bracket \] Circumflex \^ Underscore \_ %% Grave accent \` Left brace \{ Vertical bar \| %% Right brace \} Tilde \~} \NeedsTeXFormat{LaTeX2e}[1994/12/01] \ProvidesPackage{beton}[\filedate\space\fileversion] \typeout{Package: `beton' \fileversion\space <\filedate> (FJ)} \def\rmdefault{ccr} \def\beton@baselineskip@table {<\@viiipt>10<\@ixpt>11.5<\@xpt>13<\@xipt>14.5<\@xiipt>16} \def\beton@new@setfontsize#1#2#3% {\edef\@tempa{\def\noexpand\@tempb####1<#2}% \@tempa>##2<##3\@nil{\def\beton@baselineskip@value{##2}}% \edef\@tempa{\noexpand\@tempb\beton@baselineskip@table<#2}% \@tempa><\@nil \ifx\beton@baselineskip@value\@empty \def\beton@baselineskip@value{#3}% \fi \beton@old@setfontsize{#1}{#2}\beton@baselineskip@value} \AtBeginDocument {\let\beton@old@setfontsize=\@setfontsize \let\@setfontsize=\beton@new@setfontsize} \DeclareOption{standard-baselineskips} {\AtBeginDocument{\let\@setfontsize=\beton@old@setfontsize}} \DeclareOption{oldstyle-equation-numbers} {\@ifundefined{chapter} {\def\theequation{{\beton@oldstyle\arabic{equation}}}} {\def\theequation{{\beton@oldstyle\thechapter}.% {\beton@oldstyle\arabic{equation}}}}} \DeclareRobustCommand\beton@oldstyle{\usefont{OML}{ccm}\f@series{it}} \DeclareRobustCommand\oldstylenums[1]% {\begingroup \spaceskip\fontdimen\tw@\font \TextOldstyle \MathOldstyle #1% \endgroup} \let\TextOldstyle=\beton@oldstyle \providecommand\MathOldstyle{\mathgroup\symletters} \DeclareOption{concrete-math} {\DeclareSymbolFont{operators}{OT1}{ccr}{m}{n}% \DeclareSymbolFont{letters}{OML}{ccm}{m}{it}} \def\dash---{\thinspace---\hskip.16667em\relax} \def\qback{\kern-.15em} % between , or . and '' \def\t#1{{\edef\next{\the\font}\beton@oldstyle\accent"7F\next#1}} \ProcessOptions \AtBeginDocument{\normalsize} \endinput %% %% End of file `beton.sty'.