beton

git-svn-id: svn://tug.org/texlive/trunk@704 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 73 insertions, 0 deletions

diff --git a/Master/texmf-dist/tex/latex/beton/beton.sty b/Master/texmf-dist/tex/latex/beton/beton.sty
new file mode 100644
index 00000000000..30c2e0598bd
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/beton/beton.sty
@@ -0,0 +1,73 @@
+%%
+%% 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'.