From 2097b0896c3c541cda7c4b654f434aed8b38581d Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Thu, 12 Jan 2006 23:52:08 +0000 Subject: beton git-svn-id: svn://tug.org/texlive/trunk@704 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/tex/latex/beton/beton.sty | 73 +++++++++++++++++++++++++++++ 1 file changed, 73 insertions(+) create mode 100644 Master/texmf-dist/tex/latex/beton/beton.sty (limited to 'Master/texmf-dist/tex/latex/beton') 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'. -- cgit v1.2.3