%% 
%% 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'.
