summaryrefslogtreecommitdiff
path: root/fonts/cmolddig/texinput/cmolddig.sty
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
committerNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
commite0c6872cf40896c7be36b11dcc744620f10adf1d (patch)
tree60335e10d2f4354b0674ec22d7b53f0f8abee672 /fonts/cmolddig/texinput/cmolddig.sty
Initial commit
Diffstat (limited to 'fonts/cmolddig/texinput/cmolddig.sty')
-rw-r--r--fonts/cmolddig/texinput/cmolddig.sty171
1 files changed, 171 insertions, 0 deletions
diff --git a/fonts/cmolddig/texinput/cmolddig.sty b/fonts/cmolddig/texinput/cmolddig.sty
new file mode 100644
index 0000000000..1fe649090a
--- /dev/null
+++ b/fonts/cmolddig/texinput/cmolddig.sty
@@ -0,0 +1,171 @@
+% cmolddig.sty -- a LaTeX package file to use CM oldstyle digits.
+%
+% Copyright 1998 Rowland McDonnell
+% rowland.mcdonnell@physics.org
+%
+% This program can redistributed and/or modified under the terms
+% of the LaTeX Project Public License Distributed from CTAN
+% archives in directory macros/latex/base/lppl.txt; either
+% version 1 of the License, or (at your option) any later version.
+%
+% Partly stolen from Allin Cottrell (cottrell@wfu.edu)
+% http://www.wfu.edu/~cottrell
+%
+% In conjuction with the files listed below, this package file gives
+% you old style figures in cmr by default.
+%
+% The cm founts do not have any italic or slanted old style figures,
+% so you only get them with:
+% cmr/m/n, cmr/m/sc, cmr/bx/n, and cmr/b/n.
+%
+% ot1cmrod.fd
+% cmbj10.vf cmbj10.tfm
+% cmbxj10.vf cmbxj10.tfm
+% cmbxj12.vf cmbxj12.tfm
+% cmbxj5.vf cmbxj5.tfm
+% cmbxj6.vf cmbxj6.tfm
+% cmbxj7.vf cmbxj7.tfm
+% cmbxj8.vf cmbxj8.tfm
+% cmbxj9.vf cmbxj9.tfm
+% cmcscj10.vf cmcscj10.tfm
+% cmcscj9.vf cmcscj9.tfm - optional extra for those with the AMS founts
+% cmcscj8.vf cmcscj8.tfm - optional extra for those with the AMS founts
+% cmrj10.vf cmrj10.tfm
+% cmrj12.vf cmrj12.tfm
+% cmrj17.vf cmrj17.tfm
+% cmrj5.vf cmrj5.tfm
+% cmrj6.vf cmrj6.tfm
+% cmrj7.vf cmrj7.tfm
+% cmrj8.vf cmrj8.tfm
+% cmrj9.vf cmrj9.tfm
+% cmbj10.vf cmbj10.tfm
+%
+% 1999/06/23 v1.6 Added noams options
+% 1999/06/20 v1.5 Fixed maths default and option switching
+% 1999/05/31 v1.4 Added maths switching; fiddled with option names
+% and stuff
+% 1999/04/14 v1.3 Dealt with AMS extra csc founts
+% 1998/09/25 v1.2 Added \cmoldstyledigits and \cmliningdigits
+% 1998/09/25 v1.1 Possibly got cmcsc and cmr5 sorted out
+% 1998/05/25 v1.0 In the beginning...
+%
+\NeedsTeXFormat{LaTeX2e}[1998/12/01]
+\ProvidesPackage{cmolddig}[1999/06/23 v1.6 Use old style digits in cmr]
+
+\renewcommand{\rmdefault}{cmrj}
+% Well, that takes care of 'Roman'. Italic is 'left as an
+% exercise' (said Allin)
+%
+% Isn't it just? Personally, I have no intention of doing the
+% necessary Metafont hacking. (said Rowland)
+
+% A couple of options to use (or not) old style digits by default in
+% maths mode
+
+\newif\ifCMO@oldstylemaths\CMO@oldstylemathsfalse
+
+%
+% Bleedin' Yanks
+%
+\DeclareOption{cmoldstylemathdigits}{\CMO@oldstylemathstrue}
+\DeclareOption{cmliningmathdigits}{\CMO@oldstylemathsfalse}
+%
+% Speak English or die
+%
+\DeclareOption{cmoldstylemathsdigits}{\CMO@oldstylemathstrue}
+\DeclareOption{cmliningmathsdigits}{\CMO@oldstylemathsfalse}
+
+\newif\ifCMO@extracmsc\CMO@extracmscfalse
+
+\DeclareOption{extracmcsc}{\CMO@extracmsctrue}%\ equivalent; for those
+\DeclareOption{amsfonts}{\CMO@extracmsctrue}% / with the AMS founts
+
+\DeclareOption{noextracmcsc}{\CMO@extracmscfalse}%\ equivalent; for those
+\DeclareOption{noamsfonts}{\CMO@extracmscfalse}% / without the AMS founts
+
+\ExecuteOptions{cmliningmathdigits,noamsfonts}
+
+\ProcessOptions
+
+% Set up maths digits\ldots
+% (with a little help from Allin Cottrell and the nameless Canadian
+% guru)
+
+\DeclareMathSymbol{0}{\mathalpha}{operators}{`0}
+\DeclareMathSymbol{1}{\mathalpha}{operators}{`1}
+\DeclareMathSymbol{2}{\mathalpha}{operators}{`2}
+\DeclareMathSymbol{3}{\mathalpha}{operators}{`3}
+\DeclareMathSymbol{4}{\mathalpha}{operators}{`4}
+\DeclareMathSymbol{5}{\mathalpha}{operators}{`5}
+\DeclareMathSymbol{6}{\mathalpha}{operators}{`6}
+\DeclareMathSymbol{7}{\mathalpha}{operators}{`7}
+\DeclareMathSymbol{8}{\mathalpha}{operators}{`8}
+\DeclareMathSymbol{9}{\mathalpha}{operators}{`9}
+
+\edef\cmliningmathdigits{%
+\mathcode`0=\the\mathcode`0
+\mathcode`1=\the\mathcode`1
+\mathcode`2=\the\mathcode`2
+\mathcode`3=\the\mathcode`3
+\mathcode`4=\the\mathcode`4
+\mathcode`5=\the\mathcode`5
+\mathcode`6=\the\mathcode`6
+\mathcode`7=\the\mathcode`7
+\mathcode`8=\the\mathcode`8
+\mathcode`9=\the\mathcode`9
+}
+
+\DeclareMathSymbol{0}{0}{letters}{'060}
+\DeclareMathSymbol{1}{0}{letters}{'061}
+\DeclareMathSymbol{2}{0}{letters}{'062}
+\DeclareMathSymbol{3}{0}{letters}{'063}
+\DeclareMathSymbol{4}{0}{letters}{'064}
+\DeclareMathSymbol{5}{0}{letters}{'065}
+\DeclareMathSymbol{6}{0}{letters}{'066}
+\DeclareMathSymbol{7}{0}{letters}{'067}
+\DeclareMathSymbol{8}{0}{letters}{'070}
+\DeclareMathSymbol{9}{0}{letters}{'071}
+
+\edef\cmoldstylemathdigits{%
+\mathcode`0=\the\mathcode`0
+\mathcode`1=\the\mathcode`1
+\mathcode`2=\the\mathcode`2
+\mathcode`3=\the\mathcode`3
+\mathcode`4=\the\mathcode`4
+\mathcode`5=\the\mathcode`5
+\mathcode`6=\the\mathcode`6
+\mathcode`7=\the\mathcode`7
+\mathcode`8=\the\mathcode`8
+\mathcode`9=\the\mathcode`9
+}
+
+\ifCMO@oldstylemaths
+ \cmoldstylemathdigits
+ \else
+ \cmliningmathdigits
+ \fi
+
+\InputIfFileExists{ot1cmrj.fd}{}{%
+ \PackageError{cmolddig}
+ {Can't find file ot1cmrj.fd}
+ {The file ot1cmrj.fd seems to be missing. I can't
+ switch to oldstyle digits without it.}}
+
+%
+% If you've got the AMS founts:
+%
+\ifCMO@extracmsc
+ \DeclareFontShape{OT1}{cmrj}{m}{sc}{
+ <10><10.95><12> <14.4><17.28><20.74><24.88> cmcscj10
+ <9> cmcscj9
+ <5><6><7><8> cmcscj8}{}
+ \fi
+
+\newcommand{\cmoldstyledigits}{%
+ \renewcommand{\rmdefault}{cmrj}\rmfamily}
+
+\newcommand{\cmliningdigits}{%
+ \renewcommand{\rmdefault}{cmr}\rmfamily}
+
+\endinput
+%% end of cmolddig.sty \ No newline at end of file