blob: 30c2e0598bd30554f1cb4a66db65fef798c9e160 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
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'.
|
