fontch update (4sep07)

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

4 files changed, 858 insertions, 223 deletions

diff --git a/Master/texmf-dist/tex/plain/fontch/DSmac.tex b/Master/texmf-dist/tex/plain/fontch/DSmac.tex
new file mode 100644
index 00000000000..89231af349e
--- /dev/null
+++ b/Master/texmf-dist/tex/plain/fontch/DSmac.tex
@@ -0,0 +1,5 @@
+%% DSmac.tex This file is part of fontch package V2.0 2007/09/04
+%% This stupid file is for avoiding to define a new family when it is not
+%% necessary, because a \newfam macro cannot be inside an if structure.
+\newfam\dsfam
+
diff --git a/Master/texmf-dist/tex/plain/fontch/TS1mac.tex b/Master/texmf-dist/tex/plain/fontch/TS1mac.tex
new file mode 100644
index 00000000000..00cf719ed7c
--- /dev/null
+++ b/Master/texmf-dist/tex/plain/fontch/TS1mac.tex
@@ -0,0 +1,130 @@
+%% TS1mac.tex this file is part of fontch package V2.0 2007/09/04
+%% Support of TS1 fonts
+%% eight points fonts %%
+\font\eightcrm=ts1-lmr8
+\font\eightcbf=ts1-lmbx8
+\font\eightcsl=ts1-lmro8
+\font\eightctt=ts1-lmtt8
+\font\eightcit=ts1-lmri8
+\font\eightcss=ts1-lmss8
+%% ten points fonts %%
+\font\tencrm=ts1-lmr10
+\font\tencbf=ts1-lmbx10
+\font\tencsl=ts1-lmro10
+\font\tenctt=ts1-lmtt10
+\font\tencit=ts1-lmri10
+\font\tencss=ts1-lmss10
+%% twelve points fonts %%
+\font\twelvecrm=ts1-lmr12
+\font\twelvecbf=ts1-lmbx12
+\font\twelvecsl=ts1-lmro12
+\font\twelvectt=ts1-lmtt12
+\font\twelvecit=ts1-lmri12
+\font\twelvecss=ts1-lmss12
+%% fourteen points fonts %%
+\font\fourteencrm=ts1-lmr12 scaled 1167
+\font\fourteencbf=ts1-lmbx12 scaled 1167
+\font\fourteencsl=ts1-lmro12 scaled 1167
+\font\fourteenctt=ts1-lmtt12 scaled 1167
+\font\fourteencit=ts1-lmri12 scaled 1167
+\font\fourteencss=ts1-lmss12 scaled 1167
+%% twenty points fonts %%
+\font\twentycrm=ts1-lmr12 scaled 1667
+\font\twentycbf=ts1-lmbx12 scaled 1667
+\font\twentycsl=ts1-lmro12 scaled 1667
+\font\twentyctt=ts1-lmtt12 scaled 1667
+\font\twentycit=ts1-lmri12 scaled 1667
+\font\twentycss=ts1-lmss12 scaled 1667
+%% twentyfour  points fonts %%
+\font\twentyfourcrm=ts1-lmr12 scaled 2000
+\font\twentyfourcbf=ts1-lmbx12 scaled 2000
+\font\twentyfourcsl=ts1-lmro12 scaled 2000
+\font\twentyfourctt=ts1-lmtt12 scaled 2000
+\font\twentyfourcit=ts1-lmri12 scaled 2000
+\font\twentyfourcss=ts1-lmss12 scaled 2000
+%% Text companion symbols TS1 %%
+%% Redefinition of tie-accent
+\def\t#1{{\edef\next{\the\font}\tcfont\accent"1B\next#1}}
+%% TC character
+\def\tcchar#1{{\edef\next{\the\font}\tcfont\char#1\next}}
+%% TC symbols
+\def\arrowl{{\tcchar{"18}}}
+\def\arrowr{{\tcchar{"19}}}
+\def\blank{{\tcchar{"20}}}
+\def\dollar{{\tcchar{"24}}}
+\def\caster{{\tcchar{"2A}}}
+\def\sequals{{\tcchar{"2D}}}
+\def\anglel{{\tcchar{"3C}}}
+\def\angler{{\tcchar{"3E}}}
+\def\mho{{\tcchar{"4D}}}
+\def\bigcircle{{\tcchar{"4F}}}
+\def\Ohm{{\tcchar{"57}}}
+\def\bbracketl{{\tcchar{"5B}}}
+\def\bbracketr{{\tcchar{"5D}}}
+\def\arrowu{{\tcchar{"5E}}}
+\def\arrowd{{\tcchar{"5F}}}
+\def\textstar{{\tcchar{"62}}}
+\def\born{{\tcchar{"63}}}
+\def\died{{\tcchar{"64}}}
+\def\leaf{{\tcchar{"6C}}}
+\def\married{{\tcchar{"6D}}}
+\def\music{{\tcchar{"6E}}}
+\def\dag{{\tcchar{"84}}}%% Redefined
+\def\ddag{{\tcchar{"85}}}%% Redefined
+\def\doublevert{{\tcchar{"86}}}
+\def\perthousand{{\tcchar{"87}}}
+\def\bull{{\tcchar{"88}}}
+\def\centigrade{{\tcchar{"89}}}
+\def\olddollar{{\tcchar{"8A}}}
+\def\oldcent{{\tcchar{"8B}}}
+\def\florin{{\tcchar{"8C}}}
+\def\Colon{{\tcchar{"8D}}}
+\def\won{{\tcchar{"8E}}}
+\def\naira{{\tcchar{"8F}}}
+\def\guarani{{\tcchar{"90}}}
+\def\peso{{\tcchar{"91}}}
+\def\lira{{\tcchar{"92}}}
+\def\recipe{{\tcchar{"93}}}
+\def\interrobang{{\tcchar{"94}}}
+\def\gnaborretni{{\tcchar{"95}}}
+\def\dong{{\tcchar{"96}}}
+\def\TM{{\tcchar{"97}}}
+\def\pertenth{{\tcchar{"98}}}
+\def\npilcrow{{\tcchar{"99}}}
+\def\baht{{\tcchar{"9A}}}
+\def\numero{{\tcchar{"9B}}}
+\def\abzueglich{{\tcchar{"9C}}}
+\def\aestimated{{\tcchar{"9D}}}
+\def\openbull{{\tcchar{"9E}}}
+\def\SM{{\tcchar{"9F}}}
+\def\qbrackl{{\tcchar{"A0}}}
+\def\qbrackr{{\tcchar{"A1}}}
+\def\cent{{\tcchar{"A2}}}
+\def\sterling{{\tcchar{"A3}}}
+\def\currency{{\tcchar{"A4}}}
+\def\yen{{\tcchar{"A5}}}
+\def\brokenvert{{\tcchar{"A6}}}
+\def\S{{\tcchar{"A7}}}%% Redefined
+\def\copyright{{\tcchar{"A9}}}
+\def\feminine{{\tcchar{"AA}}}
+\def\copyleft{{\tcchar{"AB}}}
+\def\lognot{{\tcchar{"AC}}}
+\def\circledP{{\tcchar{"AD}}}
+\def\registered{{\tcchar{"AE}}}
+\def\degree{{\tcchar{"B0}}}
+\def\plusminus{{\tcchar{"B1}}}
+\def\twoup{{\tcchar{"B2}}}
+\def\threeup{{\tcchar{"B3}}}
+\def\micro{{\tcchar{"B5}}}
+\def\P{{\tcchar{"B6}}}%% Redefined
+\def\centereddot{{\tcchar{"B7}}}
+\def\reference{{\tcchar{"B8}}}
+\def\oneup{{\tcchar{"B9}}}
+\def\masculine{{\tcchar{"BA}}}
+\def\root{{\tcchar{"BB}}}
+\def\onequarter{{\tcchar{"BC}}}
+\def\onehalf{{\tcchar{"BD}}}
+\def\threequarters{{\tcchar{"BE}}}
+\def\euro{{\tcchar{"BF}}}
+\def\texttimes{{\tcchar{"D6}}}
+%% End of LMTSone option %%
diff --git a/Master/texmf-dist/tex/plain/fontch/bsymbols.tex b/Master/texmf-dist/tex/plain/fontch/bsymbols.tex
new file mode 100644
index 00000000000..b44d0818bc7
--- /dev/null
+++ b/Master/texmf-dist/tex/plain/fontch/bsymbols.tex
@@ -0,0 +1,228 @@
+%% bsymbols.tex Macros for bold symbols defined in cmmib and cmbsy
+%% Part of package fontch V2.0 2007/09/4
+%% Rodrigo Medina (IVIC) rmedina@ivic.ve
+%% Licence: LPPL
+%%
+%%%% Description
+%% Defines a macro for the bold version of each symbol that appears in
+%% cmmi and cmsy. The name of the bold symbol is the name of the normal symbol
+%% with the prefix "bf". For example the bold version of \Sigma is \bfSigma.
+%%
+%% There are also macros for the bold versions of  symbols that have their
+%% own key.  For example the bold version of "+" is  \bfplus.
+%%%% Requirement
+%% As it is defined in fontch.tex cmmib must be family #8 and cmbsy  family #9
+%%
+%%%% Usage
+%% You can use bsymbols.tex in two ways:
+%% 1- put \input bsymbols.tex in your document.
+%% 2- If need only a few bold symbols you may copy in your document
+%%    the lines of this file in which the symbols that you need appear.
+%%
+%%%%
+%%
+%% These have their own key, most are defined in cmr
+\mathchardef\bfexcl="0621
+\mathchardef\bflparen="4628
+\mathchardef\bfrparen="5629
+\mathchardef\bfplus="262B
+\mathchardef\bfcomma="662C
+\mathchardef\bfcolon="063A
+\mathchardef\bfsemicolon="663B
+\mathchardef\bfequal="363D
+\mathchardef\bflbraket="465B
+\mathchardef\bfrbraket="565D
+\mathchardef\bflt="383C
+\mathchardef\bfslash="283D
+\mathchardef\bfgt="383E
+\mathchardef\bfminus="2900
+\mathchardef\bfvert="296A
+%%  cmmi symbols
+\mathchardef\bfGamma="7800
+\mathchardef\bfDelta="7801
+\mathchardef\bfTheta="7802
+\mathchardef\bfLambda="7803
+\mathchardef\bfXi="7804
+\mathchardef\bfPi="7805
+\mathchardef\bfSigma="7806
+\mathchardef\bfUpsilon="7807
+\mathchardef\bfPhi="7808
+\mathchardef\bfPsi="7809
+\mathchardef\bfOmega="780A
+\mathchardef\bfalpha="080B
+\mathchardef\bfbeta="080C
+\mathchardef\bfgamma="080D
+\mathchardef\bfdelta="080E
+\mathchardef\bfepsilon="080F
+\mathchardef\bfzeta="0810
+\mathchardef\bfeta="0811
+\mathchardef\bftheta="0812
+\mathchardef\bfiota="0813
+\mathchardef\bfkappa="0814
+\mathchardef\bflambda="0815
+\mathchardef\bfmu="0816
+\mathchardef\bfnu="0817
+\mathchardef\bfxi="0818
+\mathchardef\bfpi="0819
+\mathchardef\bfrho="081A
+\mathchardef\bfsigma="081B
+\mathchardef\bftau="081C
+\mathchardef\bfupsilon="081D
+\mathchardef\bfphi="081E
+\mathchardef\bfchi="081F
+\mathchardef\bfpsi="0820
+\mathchardef\bfomega="0821
+\mathchardef\bfvarepsilon="0822
+\mathchardef\bfvartheta="0823
+\mathchardef\bfvarpi="0824
+\mathchardef\bfvarrho="0825
+\mathchardef\bfvarsigma="0826
+\mathchardef\bfvarphi="0827
+\mathchardef\bfleftharpoonup="3828
+\mathchardef\bfleftharpoondown="3829
+\mathchardef\bfrightharpoonup="382A
+\mathchardef\bfrightharpoondown="382B
+\mathchardef\bflhook="382C
+\mathchardef\bfrhook="382D
+\def\bfhookrightarrow{\bflhook\joinrel\bfrightarrow}
+\def\bfhookleftarrow{\bfleftarrow\joinrel\bfrhook}
+\def\bfrelbar{\mathrel{\smash\bfminus}}
+\def\bfRelbar{\mathrel\bfequal}
+\mathchardef\bftriangleright="282E
+\mathchardef\bftriangleleft="282F
+\def\bfjoinrel{\mathrel{\mkern-4mu}}
+\def\bfbowtie{\mathrel\bftriangleright\bfjoinrel\mathrel\bftriangleleft}
+\def\bfmodels{\mathrel\bfvert\bfjoinrel\bfequal}
+\def\bfLongrightarrow{\bfRelbar\bfjoinrel\bfRightarrow}
+\def\bflongrightarrow{\bfrelbar\bfjoinrel\bfrightarrow}
+\def\bflongmapsto{\bfmapstochar\bflongrightarrow}
+\def\bflongleftarrow{\bfleftarrow\bfjoinrel\bfrelbar}
+\def\bfLongleftarrow{\bfLeftarrow\bfjoinrel\bfRelbar}
+\def\bflongleftrightarrow{\bfleftarrow\bfjoinrel\bfrightarrow}
+\def\bfLongleftrightarrow{\bfLeftarrow\bfjoinrel\bfRightarrow}
+\def\bfiff{\;\bfLongleftrightarrow\;}
+
+
+\mathchardef\bfldotp="683A
+\def\bfldots{\mathinner{\bfldotp\bfldotp\bfldotp}}
+\let\bfdots=\bfldots
+\mathchardef\bfstar="283F
+\mathchardef\bfpartial="0840
+\mathchardef\bfflat="085B
+\mathchardef\bfnatural="085C
+\mathchardef\bfsharp="085D
+\mathchardef\bfsmile="385E
+\mathchardef\bffrown="385F
+\mathchardef\bfell="0860
+\mathchardef\bfimath="087B
+\mathchardef\bfjmath="087C
+\mathchardef\bfwp="087D
+%%
+%%  cmsy symbols
+\mathchardef\bfcdot="2901
+\mathchardef\bfcdotp="6201
+\def\bfcdots{\mathinner{\bfcdotp\bfcdotp\bfcdotp}}
+\mathchardef\bftimes="2902
+\mathchardef\bfast="2903
+\mathchardef\bfdiv="2904
+\mathchardef\bfdiamond="2905
+\mathchardef\bfpm="2906
+\mathchardef\bfmp="2907
+\mathchardef\bfoplus="2908
+\mathchardef\bfominus="2909
+\mathchardef\bfotimes="290A
+\mathchardef\bfoslash="290B
+\mathchardef\bfodot="290C
+\mathchardef\bfbigcirc="290D
+\mathchardef\bfcirc="290E
+\mathchardef\bfbullet="290F
+\mathchardef\bfasymp="3910
+\mathchardef\bfequiv="3911
+\mathchardef\bfsubseteq="3912
+\mathchardef\bfsupseteq="3913
+\mathchardef\bfleq="3914 \let\bfle=\bfleq
+\mathchardef\bfgeq="3915 \let\bfge=\bfgeq
+\mathchardef\bfpreceq="3916
+\mathchardef\bfsucceq="3917
+\mathchardef\bfsim="3918
+\mathchardef\bfapprox="3919
+\mathchardef\bfsubset="391A
+\mathchardef\bfsupset="391B
+\mathchardef\bfll="391C
+\mathchardef\bfgg="391D
+\mathchardef\bfprec="391E
+\mathchardef\bfsucc="391F
+\mathchardef\bfleftarrow="3920 \let\bfgets=\bfleftarrow
+\mathchardef\bfrightarrow="3921 \let\bfto=\bfrightarrow
+\mathchardef\bfuparrow="3922
+\mathchardef\bfdownarrow="3923
+\mathchardef\bfleftrightarrow="3924
+\mathchardef\bfnearrow="3925
+\mathchardef\bfsearrow="3926
+\mathchardef\bfsimeq="3927
+\mathchardef\bfLeftarrow="3928
+\mathchardef\bfRightarrow="3929
+\mathchardef\bfUparrow="392A
+\mathchardef\bfDownarrow="392B
+\mathchardef\bfLeftrightarrow="392C
+\mathchardef\bfnwarrow="392D
+\mathchardef\bfswarrow="392E
+\mathchardef\bfpropto="392F
+\mathchardef\bfprime="0930
+\mathchardef\bfinfty="0931
+\mathchardef\bfin="3932
+\mathchardef\bfni="3933
+\mathchardef\bfbigtriangle="2934
+\mathchardef\bfbigtriangledown="2935
+\mathchardef\bfnot="3936
+\mathchardef\bfmapstochar="3937
+\def\bfmapsto{\bfmapstochar\bfrightarrow}
+\mathchardef\bfforall="0938
+\mathchardef\bfexists="0939
+\mathchardef\bfneg="093A \let\bflnot=\bfneg
+\mathchardef\bfemptyset="093B
+\mathchardef\bfRe="093C
+\mathchardef\bfIm="093D
+\mathchardef\bftop="093E
+\mathchardef\bfbot="093F \let\bfperp=\bfbot
+\mathchardef\bfaleph="0940
+\mathchardef\bfcup="295B
+\mathchardef\bfcap="295C
+\mathchardef\bfuplus="295D
+\mathchardef\bfwedge="295E \let\bfland=\bfwedge
+\mathchardef\bfvee="295F \let\bflor=\bfvee
+\mathchardef\bfvdash="3960
+\mathchardef\bfdashv="2961
+\mathchardef\bflfloor="4962
+\mathchardef\bfrfloor="5963
+\mathchardef\bflceil="4964
+\mathchardef\bfrceil="5965
+\mathchardef\bflbrace="4966
+\mathchardef\bfrbrace="5967
+\mathchardef\bflangle="4968
+\mathchardef\bfrangle="5969
+\mathchardef\bfmid="396A
+\mathchardef\bfparallel="396B
+\mathchardef\bfVert="296B
+\mathchardef\bfupdownarrow="396C
+\mathchardef\bfUpdownarrow="396D
+\mathchardef\bfbackslash="096E
+\mathchardef\bfwr="296F
+\def\bfsurd{{\mathchar"1970}}
+\mathchardef\bfamalg="2971
+\mathchardef\bfnabla="0972
+\mathchardef\bfsmallint="1973
+\mathchardef\bfsqcup="2974
+\mathchardef\bfsqcap="2975
+\mathchardef\bfsqsubseteq="3976
+\mathchardef\bfsqsupseteq="3977
+\mathchardef\bfS="0978
+\mathchardef\bfdagger="2979
+\mathchardef\bfddagger="297A
+\mathchardef\bfP="097B
+\mathchardef\bfclubsuit="097C
+\mathchardef\bfdiamondsuit="097D
+\mathchardef\bfheartsuit="097E
+\mathchardef\bfspadesuit="097F
+%%
+~                                                                         
diff --git a/Master/texmf-dist/tex/plain/fontch/fontch.tex b/Master/texmf-dist/tex/plain/fontch/fontch.tex
index ae7394947c2..976d3016844 100644
--- a/Master/texmf-dist/tex/plain/fontch/fontch.tex
+++ b/Master/texmf-dist/tex/plain/fontch/fontch.tex
@@ -1,26 +1,104 @@
 %% fontch.tex Macros for easily changing fonts and sizes in plain TeX %%
-%% V1.3  2007/04/22 
+%% V2.0  2007/09/04 
 %% Rodrigo Medina (IVIC) rmedina@ivic.ve
 %% Suggested location: .../texmf/tex/plain/fontch/
 %% Licence: LPPL
 %%
-%% For using fonts.tex with OT1 fonts (Computer Modern)
-%% put at the beginning of the document:
+%%%%%% Components
+%% The fontch V2.0 package is composed of the following files
+%% README.txt   -- Explanation file (has essentially this information)
+%% fontch.tex   -- main macros
+%% bsymbols.tex -- macros for boldface  symbols
+%% TS1mac.tex   -- macros for the TS1 companion symbols
+%% DSmac.tex    -- auxiliary file for the DStroke option
+%%%%%% Description
+%%
+%%  Fontch implements a mechanism for changing type and size of fonts.  One
+%% can write text and math at main sizes of 8, 10, 12, 14, 20 and 24 points.
+%% Fonts of sizes 5, 6, 7 and 9 points are used in subscripts and subscripts of %% subscripts of other main sizes.
+%% A single command makes all the changes needed for changing font smoothly.
+%% In addition fontch gives support to:
+%%   - boldface math-italic and boldface math symbols,
+%%   - T1 Latin Modern fonts,
+%%   - TS1 companion symbol fonts.
+%%   - AMS fonts for boldface math,
+%%   - Double Stroke fonts for blackboard bold symbols
+%% 
+%%%%%% Usage
+%%
+%% For using fontch.tex with the original TeX OT1 fonts (Computer Modern)
+%% just put at the beginning of the document:
 %% \input fontch.tex
-%% For activating T1 fonts (Latin Modern)
-%% put before the fontch.tex call:
+%%
+%% The file bsymbols.tex provides macro definitions for boldface versions
+%% of math symbols. For using it just input the file where you need it.
+%%
+%% The fontch package has four options for handling different kinds of fonts:
+%%
+%%  -  LMTone     for Latin Modern T1 fonts.
+%%  -  LMTSone    for the TS1 companion symbol font.
+%%  -  AMSfont    for AMS fonts used for boldface math.
+%%  -  DStroke    for Doublestroke fonts providing blackboard-boldface symbols.
+%%
+%% The four options are independent. They are activated by setting the
+%% corresponding variable before calling  fontch.tex. For example for
+%% activating all the four options and using the macros for bold math
+%% put at the beginning of the document:
+%%
+%% \let\AMSfont\relax
+%% \let\DStroke\relax 
 %% \let\LMTone\relax
-%% For activating support for the TS1 companion symbol font
-%% put before the fontch.tex call:
 %% \let\LMTSone\relax
+%% \input fontch.tex
+%% \input bsymbols.tex
+%%
+%%
+%%%%%% NOTES:
+%% (1) There is one modification of the standard behavior of plain TeX. Plain
+%%     TeX defines for the font #3 the same font (tenex) for text, script and
+%%     scriptscript. That is awfull. The fontch package uses sevenex for
+%%     script and fiveex for scriptscript, as for the other fonts.
+%%     
+%% (2) The use of files il1-t1.tcx or il2-t1.tcx is recommended together
+%%     with the LMT1 fonts.
+%%
+%% (3) Only the cmcs, cmmib, cmbsy and cmex AMS fonts are supported. These
+%%     are used for small caps and for boldface math-italic and boldface
+%%     greek symbols. The other AMS fonts like the Euler, Cyrillic and extra
+%%     symbols are not supported.
+%%
+%% (4) Only the roman Doublestroke font is supported. The sans serif version
+%%     is not supported.
+%%
+%% (5) There are two main uses of boldface math. One case is the use of
+%%     isolated bold  characters or symbols inside a formula. For this case
+%%     fontch provides bold versions of math synbols and the macro \mb for bold
+%%     math-italic characters.  The plain TeX macro "\bf" yields roman-bold
+%%     characters in math mode.  The name of the bold version of a math symbol
+%%     is obtained adding the prefix "bf" to the name of the normal symbol. For
+%%     example a boldface italic "a" is {\mb a}, a boldface roman "P" is
+%%     {\bf P}, a boldface \Sigma is \bfSigma, a boldface \iff is \bfiff.
+%%
+%%     The other case is when one wants to write a complete formula in
+%%     boldface, for example inside a title. For this case fontch has the
+%%     macro \setmathbold that changes the font families 1 (cmmi) and 2 (cmsy)
+%%     to the bold versions cmmib and cmmbsy. The macro  \unsetmathbold resets
+%%     the families 1 and 2 to their original values. These macros should be
+%%     put before and after the formula.
 %%
-%% NOTE: When using T1 fonts it is mandatory to set the type size,
-%% even when one is writing in \tenpoint which is the default size;
-%% this is needed in order to activate the re-definitions of the accents.
+%% (6) Usually the macro \setmathbold does not change the whole formula to
+%%     boldface. This is due to the fact that in math mode some symbols
+%%     come from family #0 (cmr) or #3 (cmex) such as "+" or \int. Fontch
+%%     provides macros for the symbols that come from family #0, For
+%%     example the bold version of "(" is \bflparen.
 %%
-%% The use of files il1-t1.tcx or il2-t1.tcx is recommended
+%% (7) Math symbols of family #3 (cmex) do not have bold versions. In particular
+%%     \int, \sum and \prod. Never the less \smallint is of cmsy and does
+%%     a bold version. 
 %%
-%% General Commands
+%%%%%%%%% Commands of fontch %%%%%%
+%%
+%%%%%% General Commands
 %  \rm  -- Roman
 %  \it  -- Italic
 %  \bf  -- Boldface
@@ -29,7 +107,12 @@
 %  \sc  -- Small Caps
 %  \cal -- Calligraphic
 %  \mit -- Math Italic
+%  \mb  -- Math Boldface
+%  \bcal          -- Boldface calligraphic
 %  \oldstyle      -- Old style digits
+%  \boldstyle     -- Boldface old style digits
+%  \setmathbold   -- set families 1 and 2 to cmmib and cmmbsy
+%  \unsetmathbold -- reset families 1 and 2 to cmmi and cmmsy
 %  \eightpoint    -- Change to small type
 %  \tenpoint      -- Change to normal type
 %  \twelvepoint   -- Change to large type
@@ -38,6 +121,30 @@
 %  \twentyfourpoint -- Change to immense type
 %  \doublespace   -- Double Space for ten & twelve points
 %
+%%%%%%   Macros of bold symbols
+%  Symbols that have a keyword 
+%   bold_keyword = bf + normal_keyword
+%
+%  Symbols that do not have a keyword
+%   \bfexcl        -- !
+%   \bflparen      -- (
+%   \bfrparen      -- )
+%   \bfplus        -- +
+%   \bfcomma       -- ,
+%   \bfcolon       -- :
+%   \bfsemicolon   -- ;
+%   \bfequal       -- =
+%   \bflbraket     -- [
+%   \bflt          -- <
+%   \bfslash       -- /
+%   \bfgt          -- >
+%   \bfminus       -- -
+%   \bfvert        -- |
+%   \bfVert        -- \|
+%
+%%%%%%   Command of the DStroke option
+%  \ds  -- Double Stroke
+%
 %%%%%%   Commands of the LMT1 option
 %% Redefined Plain TeX Commands
 %  \i , \j , \ae , \AE, \oe , \OE , \o , \O ,
@@ -163,10 +270,25 @@
 %  \textdiv
 %
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%
+%% Modifications from version 1.3
+%%
+%% Version 2.0 is a mayor revision.
+%%
+%% There are many improvements such as
+%% -- Proper handling of smallcaps
+%% -- Support for bold-math
+%% -- Support for AMS fonts
+%% -- Support for blackboard boldface
+%% -- Correction of bugs and scaling.
+%%
+%%  The behavior should be compatible with V1.3 except for
+%%  case explained in Note (1).
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 \wlog{File: fontch.tex
-        [v1.3 (2007/04/22) font package for plain TeX]}
+        [v2.0 (2007/09/04) font change package for plain TeX]}
 %
-%% Math fonts, valid for both options
+%% Math fonts, valid for any option
 %% five points fonts (defined in plain.tex) %%
 %% six points fonts %%
 \font\sixi=cmmi6
@@ -177,7 +299,6 @@
 %% eight points fonts %%
 \font\eighti=cmmi8
 \font\eightsy=cmsy8
-\font\eightex=cmex10 at 8pt
 \skewchar\eighti='177
 \skewchar\eightsy='60
 %% nine points fonts %%
@@ -185,42 +306,57 @@
 \font\ninesy=cmsy9
 \skewchar\ninei='177
 \skewchar\ninesy='60
-%% ten points fonts (defined in plain.tex) %%
+%% ten points fonts %%
+\font\tenmib=cmmib10
+\font\tenbsy=cmbsy10
+\skewchar\tenmib='177
+\skewchar\tenbsy='60
 %% twelve points fonts %%
 \font\twelvei=cmmi12
-\font\twelvesy=cmsy10 scaled\magstep1
-\font\twelveex=cmex10 scaled\magstep1
+\font\twelvesy=cmsy10 scaled 1200
+\font\twelveex=cmex10 scaled 1200
+\font\twelvemib=cmmib10 scaled 1200
+\font\twelvebsy=cmbsy10 scaled 1200
 \skewchar\twelvei='177
+\skewchar\twelvemib='177
 \skewchar\twelvesy='60
+\skewchar\twelvebsy='60
 %% fourteen points fonts %%
-\font\fourteeni=cmmi12 scaled\magstep1
-\font\fourteensy=cmsy10 scaled\magstep2
-\font\fourteenex=cmex10 scaled\magstep2
+\font\fourteeni=cmmi12 scaled 1167
+\font\fourteensy=cmsy10 scaled 1400
+\font\fourteenex=cmex10 scaled 1400
+\font\fourteenmib=cmmib10 scaled 1400
+\font\fourteenbsy=cmbsy10 scaled 1400
 \skewchar\fourteeni='177
+\skewchar\fourteenmib='177
 \skewchar\fourteensy='60
+\skewchar\fourteenbsy='60
 %% twenty points fonts %%
-\font\twentyi=cmmi10 scaled 2000
+\font\twentyi=cmmi12 scaled 1667
 \font\twentysy=cmsy10 scaled 2000
 \font\twentyex=cmex10 scaled 2000
+\font\twentymib=cmmib10 scaled 2000
+\font\twentybsy=cmbsy10 scaled 2000
 \skewchar\twentyi='177
+\skewchar\twentymib='177
 \skewchar\twentysy='60
+\skewchar\twentybsy='60
 %% twentyfour  points fonts %%
 \font\twentyfouri=cmmi12 scaled 2000
 \font\twentyfoursy=cmsy10 scaled 2400
 \font\twentyfourex=cmex10 scaled 2400
+\font\twentyfourmib=cmmib10 scaled 2400
+\font\twentyfourbsy=cmsy10 scaled 2400
 \skewchar\twentyfouri='177
+\skewchar\twentyfourmib='177
 \skewchar\twentyfoursy='60
+\skewchar\twentyfourbsy='60
 %%
 %% big... operators
 \newdimen\bigsize
 \newdimen\Bigsize
 \newdimen\biggsize
 \newdimen\Biggsize
-%% Initial values for ten points
-\bigsize=8.5pt
-\Bigsize=11.5pt
-\biggsize=14.5pt
-\Biggsize=17.5pt
 %% Make @ visible
 \catcode`\@=11
 \def\big#1{{\hbox{$\left#1\vbox to \bigsize{}\right.\n@space$}}}
@@ -228,6 +364,18 @@
 \def\bigg#1{{\hbox{$\left#1\vbox to \biggsize{}\right.\n@space$}}}
 \def\Bigg#1{{\hbox{$\left#1\vbox to \Biggsize{}\right.\n@space$}}}
 %%
+\ifx\AMSfont\@undefined%
+{}
+\else
+\let\ifAMS=\relax
+\fi
+%%
+\ifx\DStroke\@undefined%
+{}
+\else
+\let\ifDS=\relax
+\fi
+%%
 \ifx\LMTone\@undefined%
 {}
 \else
@@ -242,26 +390,71 @@
 %% Make @ invisible
 \catcode`\@=12
 %%
+\ifx\ifAMS\relax%
+%% AMS option activated %%
+\immediate\write16{*** AMS option activated. AMS fonts are used ***}
+%% extension font
+\font\sevenex=cmex7
+\font\eightex=cmex8
+\font\nineex=cmex9
+\font\fiveex=cmex7 scaled 714
+\font\sixex=cmex7 scaled 857
+%% math-italic boldface font
+\font\fivemib=cmmib5
+\font\sixmib=cmmib6
+\font\sevenmib=cmmib7
+\font\eightmib=cmmib8
+\font\ninemib=cmmib9
+%% boldface symbols fonts
+\font\fivebsy=cmbsy5
+\font\sixbsy=cmbsy6
+\font\sevenbsy=cmbsy7
+\font\eightbsy=cmbsy8
+\font\ninebsy=cmbsy9
+\else
+%% extension font
+\font\fiveex=cmex10 scaled 500
+\font\sixex=cmex10 scaled 600
+\font\sevenex=cmex10 scaled 700
+\font\eightex=cmex10 scaled 800
+\font\nineex=cmex10 scaled 900
+%% math-italic boldface font
+\font\fivemib=cmmib10 scaled 500
+\font\sixmib=cmmib10 scaled 600
+\font\sevenmib=cmmib10 scaled 700
+\font\eightmib=cmmib10 scaled 800
+\font\ninemib=cmmib10 scaled 900
+%% boldface symbols fonts
+\font\fivebsy=cmbsy10 scaled 500
+\font\sixbsy=cmbsy10 scaled 600
+\font\sevenbsy=cmbsy10 scaled 700
+\font\eightbsy=cmbsy10 scaled 800
+\font\ninebsy=cmbsy10 scaled 900
+\fi
+%% End of AMS option
+\skewchar\fivemib='177
+\skewchar\sixmib='177
+\skewchar\sevenmib='177
+\skewchar\eightmib='177
+\skewchar\ninemib='177
+\skewchar\fivebsy='60
+\skewchar\sixbsy='60
+\skewchar\sevenbsy='60
+\skewchar\eightbsy='60
+\skewchar\ninebsy='60
+%%
 \ifx\ifLMT\relax%
-%% T1 option activated %%
+%% T1 option activated %
 \immediate\write16{*** T1 option activated. cork-LM fonts are used ***}
-%% Replace CM text fonts already defined %%
-%% five points fonts %%
-\font\fiverm=cork-lmr5
-\font\fivebf=cork-lmbx5
-%% seven points fonts %%
-\font\sevenrm=cork-lmr7
-\font\sevenbf=cork-lmbx7
+%% Replace CM text fonts %%
 %% ten points fonts %%
 \font\tenrm=cork-lmr10
 \font\tenbf=cork-lmbx10
 \font\tensl=cork-lmro10
 \font\tentt=cork-lmtt10
 \font\tenit=cork-lmri10
-%% Non defined textfonts %%
-%% six poi:nts fonts %%
-\font\sixrm=cork-lmr6
-\font\sixbf=cork-lmbx6
+\font\tenss=cork-lmss10
+\font\tencsc=cork-lmcsc10
 %% eight points fonts %%
 \font\eightrm=cork-lmr8
 \font\eightbf=cork-lmbx8
@@ -269,11 +462,23 @@
 \font\eighttt=cork-lmtt8
 \font\eightit=cork-lmri8
 \font\eightss=cork-lmss8
+\font\eightcsc=cork-lmcsc10 at 8pt
+%% five points fonts %%
+\font\fiverm=cork-lmr5
+\font\fivebf=cork-lmbx5
+\font\fivess=cork-lmss8 scaled 625
+%% six points fonts %%
+\font\sixrm=cork-lmr6
+\font\sixbf=cork-lmbx6
+\font\sixss=cork-lmss8 scaled 750
+%% seven points fonts %%
+\font\sevenrm=cork-lmr7
+\font\sevenbf=cork-lmbx7
+\font\sevenss=cork-lmss8 scaled 875
 %% nine points fonts %%
 \font\ninerm=cork-lmr9
 \font\ninebf=cork-lmbx9
-%% ten points fonts %%
-\font\tenss=cork-lmss10
+\font\niness=cork-lmss9
 %% twelve points fonts %%
 \font\twelverm=cork-lmr12
 \font\twelvebf=cork-lmbx12
@@ -281,20 +486,23 @@
 \font\twelvett=cork-lmtt12
 \font\twelveit=cork-lmri12
 \font\twelvess=cork-lmss12
+\font\twelvecsc=cork-lmcsc10 scaled 1200
 %% fourteen points fonts %%
-\font\fourteenrm=cork-lmr12 scaled\magstep1
-\font\fourteenbf=cork-lmbx12 scaled\magstep1
-\font\fourteensl=cork-lmro12 scaled\magstep1
-\font\fourteentt=cork-lmtt12 scaled\magstep1
-\font\fourteenit=cork-lmri12 scaled\magstep1
-\font\fourteenss=cork-lmss12 scaled\magstep1
+\font\fourteenrm=cork-lmr12 scaled 1167
+\font\fourteenbf=cork-lmbx12 scaled 1167
+\font\fourteensl=cork-lmro12 scaled 1167
+\font\fourteentt=cork-lmtt12 scaled 1167
+\font\fourteenit=cork-lmri12 scaled 1167
+\font\fourteenss=cork-lmss12 scaled 1167
+\font\fourteencsc=cork-lmcsc10 scaled 1400
 %% twenty points fonts %%
-\font\twentyrm=cork-lmr10 scaled 2000
-\font\twentybf=cork-lmbx10 scaled 2000
-\font\twentysl=cork-lmro10 scaled 2000
-\font\twentytt=cork-lmtt10 scaled 2000
-\font\twentyit=cork-lmri10 scaled 2000
-\font\twentyss=cork-lmss10 scaled 2000
+\font\twentyrm=cork-lmr12 scaled 1667
+\font\twentybf=cork-lmbx12 scaled 1667
+\font\twentysl=cork-lmro12 scaled 1667
+\font\twentytt=cork-lmtt12 scaled 1667
+\font\twentyit=cork-lmri12 scaled 1667
+\font\twentyss=cork-lmss12 scaled 1667
+\font\twentycsc=cork-lmcsc10 scaled 2000
 %% twentyfour  points fonts %%
 \font\twentyfourrm=cork-lmr12 scaled 2000
 \font\twentyfourbf=cork-lmbx12 scaled 2000
@@ -302,6 +510,7 @@
 \font\twentyfourtt=cork-lmtt12 scaled 2000
 \font\twentyfourit=cork-lmri12 scaled 2000
 \font\twentyfourss=cork-lmss12 scaled 2000
+\font\twentyfourcsc=cork-lmcsc10 scaled 2400
 %%
 %% Redefinition of character commands %%
 \chardef\i="19 \chardef\j="1A
@@ -499,11 +708,6 @@
 \else
 %%
 %% Other CM fonts
-%% five points fonts (defined in plain TeX)
-%% six points fonts %%
-\font\sixrm=cmr6
-\font\sixbf=cmbx6
-%% seven points fonts (defined in plain.tex) %%
 %% eight points fonts %%
 \font\eightrm=cmr8
 \font\eightbf=cmbx8
@@ -511,11 +715,21 @@
 \font\eighttt=cmtt8
 \font\eightit=cmti8
 \font\eightss=cmss8
+%% five points fonts %%
+\font\fivess=cmss8 scaled 625
+%% six points fonts %%
+\font\sixrm=cmr6
+\font\sixbf=cmbx6
+\font\sixss=cmss8 scaled 750
+%% seven points fonts %%
+\font\sevenss=cmss8 scaled 875
 %% nine points fonts %%
 \font\ninerm=cmr9
 \font\ninebf=cmbx9
+\font\niness=cmss9
 %% ten points fonts (not defined in plain.tex)%%
 \font\tenss=cmss10
+\font\tencsc=cmcsc10
 %% twelve points fonts %%
 \font\twelverm=cmr12
 \font\twelvebf=cmbx12
@@ -523,20 +737,23 @@
 \font\twelvett=cmtt12
 \font\twelveit=cmti12
 \font\twelvess=cmss12
+\font\twelvecsc=cmcsc10 scaled 1200
 %% fourteen points fonts %%
-\font\fourteenrm=cmr12 scaled\magstep1
-\font\fourteenbf=cmbx12 scaled\magstep1
-\font\fourteensl=cmsl12 scaled\magstep1
-\font\fourteentt=cmtt12 scaled\magstep1
-\font\fourteenit=cmti12 scaled\magstep1
-\font\fourteenss=cmss12 scaled\magstep1
+\font\fourteenrm=cmr12 scaled 1167
+\font\fourteenbf=cmbx12 scaled 1167
+\font\fourteensl=cmsl12 scaled 1167
+\font\fourteentt=cmtt12 scaled 1167
+\font\fourteenit=cmti12 scaled 1167
+\font\fourteenss=cmss12 scaled 1167
+\font\fourteencsc=cmcsc10 scaled 1400
 %% twenty points fonts %%
-\font\twentyrm=cmr10 scaled 2000
-\font\twentybf=cmbx10 scaled 2000
-\font\twentysl=cmsl10 scaled 2000
-\font\twentytt=cmtt10 scaled 2000
-\font\twentyit=cmti10 scaled 2000
-\font\twentyss=cmss10 scaled 2000
+\font\twentyrm=cmr12 scaled 1667
+\font\twentybf=cmbx12 scaled 1667
+\font\twentysl=cmsl12 scaled 1667
+\font\twentytt=cmtt12 scaled 1667
+\font\twentyit=cmti12 scaled 1667
+\font\twentyss=cmss12 scaled 1667
+\font\twentycsc=cmcsc10 scaled 2000
 %% twentyfour  points fonts %%
 \font\twentyfourrm=cmr12 scaled 2000
 \font\twentyfourbf=cmbx12 scaled 2000
@@ -544,154 +761,67 @@
 \font\twentyfourtt=cmtt12 scaled 2000
 \font\twentyfourit=cmti12 scaled 2000
 \font\twentyfourss=cmss12 scaled 2000
+\font\twentyfourcsc=cmcsc10 scaled 2400
+%% AMS activated
+\ifx\ifAMS\relax%
+%% small caps font
+\font\eightcsc=cmcsc8
+\else
+%% small caps font
+\font\eightcsc=cmcsc10 scaled 800
+\fi
+%% end of AMS option
 \fi
+%% end of LMT1 option
 %% Support of TS1 fonts
 \ifx\ifLMTS\relax%
 \immediate\write16{*** TS1 option activated. ts1-LM fonts are used ***}
-%% eight points fonts %%
-\font\eightcrm=ts1-lmr8
-\font\eightcbf=ts1-lmbx8
-\font\eightcsl=ts1-lmro8
-\font\eightctt=ts1-lmtt8
-\font\eightcit=ts1-lmri8
-\font\eightcss=ts1-lmss8
-%% ten points fonts %%
-\font\tencrm=ts1-lmr10
-\font\tencbf=ts1-lmbx10
-\font\tencsl=ts1-lmro10
-\font\tenctt=ts1-lmtt10
-\font\tencit=ts1-lmri10
-\font\tencss=ts1-lmss10
-%% twelve points fonts %%
-\font\twelvecrm=ts1-lmr12
-\font\twelvecbf=ts1-lmbx12
-\font\twelvecsl=ts1-lmro12
-\font\twelvectt=ts1-lmtt12
-\font\twelvecit=ts1-lmri12
-\font\twelvecss=ts1-lmss12
-%% fourteen points fonts %%
-\font\fourteencrm=ts1-lmr12 scaled\magstep1
-\font\fourteencbf=ts1-lmbx12 scaled\magstep1
-\font\fourteencsl=ts1-lmro12 scaled\magstep1
-\font\fourteenctt=ts1-lmtt12 scaled\magstep1
-\font\fourteencit=ts1-lmri12 scaled\magstep1
-\font\fourteencss=ts1-lmss12 scaled\magstep1
-%% twenty points fonts %%
-\font\twentycrm=ts1-lmr10 scaled 2000
-\font\twentycbf=ts1-lmbx10 scaled 2000
-\font\twentycsl=ts1-lmro10 scaled 2000
-\font\twentyctt=ts1-lmtt10 scaled 2000
-\font\twentycit=ts1-lmri10 scaled 2000
-\font\twentycss=ts1-lmss10 scaled 2000
-%% twentyfour  points fonts %%
-\font\twentyfourcrm=ts1-lmr12 scaled 2000
-\font\twentyfourcbf=ts1-lmbx12 scaled 2000
-\font\twentyfourcsl=ts1-lmro12 scaled 2000
-\font\twentyfourctt=ts1-lmtt12 scaled 2000
-\font\twentyfourcit=ts1-lmri12 scaled 2000
-\font\twentyfourcss=ts1-lmss12 scaled 2000
-%% Text companion symbols TS1 %%
-%% Redefinition of tie-accent
-\def\t#1{{\edef\next{\the\font}\tcfont\accent"1B\next#1}}
-%% TC character
-\def\tcchar#1{{\edef\next{\the\font}\tcfont\char#1\next}}
-%% TC symbols
-\def\arrowl{{\tcchar{"18}}}
-\def\arrowr{{\tcchar{"19}}}
-\def\blank{{\tcchar{"20}}}
-\def\dollar{{\tcchar{"24}}}
-\def\caster{{\tcchar{"2A}}}
-\def\sequals{{\tcchar{"2D}}}
-\def\anglel{{\tcchar{"3C}}}
-\def\angler{{\tcchar{"3E}}}
-\def\mho{{\tcchar{"4D}}}
-\def\bigcircle{{\tcchar{"4F}}}
-\def\Ohm{{\tcchar{"57}}}
-\def\bbracketl{{\tcchar{"5B}}}
-\def\bbracketr{{\tcchar{"5D}}}
-\def\arrowu{{\tcchar{"5E}}}
-\def\arrowd{{\tcchar{"5F}}}
-\def\textstar{{\tcchar{"62}}}
-\def\born{{\tcchar{"63}}}
-\def\died{{\tcchar{"64}}}
-\def\leaf{{\tcchar{"6C}}}
-\def\married{{\tcchar{"6D}}}
-\def\music{{\tcchar{"6E}}}
-\def\dag{{\tcchar{"84}}}%% Redefined
-\def\ddag{{\tcchar{"85}}}%% Redefined
-\def\doublevert{{\tcchar{"86}}}
-\def\perthousand{{\tcchar{"87}}}
-\def\bull{{\tcchar{"88}}}
-\def\centigrade{{\tcchar{"89}}}
-\def\olddollar{{\tcchar{"8A}}}
-\def\oldcent{{\tcchar{"8B}}}
-\def\florin{{\tcchar{"8C}}}
-\def\Colon{{\tcchar{"8D}}}
-\def\won{{\tcchar{"8E}}}
-\def\naira{{\tcchar{"8F}}}
-\def\guarani{{\tcchar{"90}}}
-\def\peso{{\tcchar{"91}}}
-\def\lira{{\tcchar{"92}}}
-\def\recipe{{\tcchar{"93}}}
-\def\interrobang{{\tcchar{"94}}}
-\def\gnaborretni{{\tcchar{"95}}}
-\def\dong{{\tcchar{"96}}}
-\def\TM{{\tcchar{"97}}}
-\def\pertenth{{\tcchar{"98}}}
-\def\npilcrow{{\tcchar{"99}}}
-\def\baht{{\tcchar{"9A}}}
-\def\numero{{\tcchar{"9B}}}
-\def\abzueglich{{\tcchar{"9C}}}
-\def\aestimated{{\tcchar{"9D}}}
-\def\openbull{{\tcchar{"9E}}}
-\def\SM{{\tcchar{"9F}}}
-\def\qbrackl{{\tcchar{"A0}}}
-\def\qbrackr{{\tcchar{"A1}}}
-\def\cent{{\tcchar{"A2}}}
-\def\sterling{{\tcchar{"A3}}}
-\def\currency{{\tcchar{"A4}}}
-\def\yen{{\tcchar{"A5}}}
-\def\brokenvert{{\tcchar{"A6}}}
-\def\S{{\tcchar{"A7}}}%% Redefined
-\def\copyright{{\tcchar{"A9}}}
-\def\feminine{{\tcchar{"AA}}}
-\def\copyleft{{\tcchar{"AB}}}
-\def\lognot{{\tcchar{"AC}}}
-\def\circledP{{\tcchar{"AD}}}
-\def\registered{{\tcchar{"AE}}}
-\def\degree{{\tcchar{"B0}}}
-\def\plusminus{{\tcchar{"B1}}}
-\def\twoup{{\tcchar{"B2}}}
-\def\threeup{{\tcchar{"B3}}}
-\def\micro{{\tcchar{"B5}}}
-\def\P{{\tcchar{"B6}}}%% Redefined
-\def\centereddot{{\tcchar{"B7}}}
-\def\reference{{\tcchar{"B8}}}
-\def\oneup{{\tcchar{"B9}}}
-\def\masculine{{\tcchar{"BA}}}
-\def\root{{\tcchar{"BB}}}
-\def\onequarter{{\tcchar{"BC}}}
-\def\onehalf{{\tcchar{"BD}}}
-\def\threequarters{{\tcchar{"BE}}}
-\def\euro{{\tcchar{"BF}}}
-\def\texttimes{{\tcchar{"D6}}}
+\input TS1mac.tex
+\fi
 %% End of LMTSone option %%
+%% DStroke option %%
+\ifx\ifDS\relax%
+\immediate\write16{*** Doublestroke option activated. DS fonts used ***}
+\font\fiveds=dsrom8 scaled 625
+\font\sixds=dsrom8 scaled 750
+\font\sevends=dsrom8 scaled 875
+\font\eightds=dsrom8
+\font\nineds=dsrom10 scaled 900
+\font\tends=dsrom10
+\font\twelveds=dsrom12
+\font\fourteends=dsrom12 scaled 1167
+\font\twentyds=dsrom12 scaled 1667
+\font\twentyfourds=dsrom12 scaled 2000
 \fi
+%% End of DStroke option %%
+%%
+%% Families defined in plain.tex %%
+%% fam0 rm roman
+%% fam1 i  math-italic
+%% fam2 sy symbols
+%% fam3 ex extension fonts
+%% fam4 itfam text-italic
+%% fam5 slfam slanted
+%% fam6 bffam roman boldface
+%% fam7 ttfam teletype
+%%
+%% New family math-italic bold. Must be fam8 %%
+\newfam\mibfam
+%%
+%% New family symbols boldface. Must be fam9 %%
+\newfam\bsyfam
+%%
 %% New family sans serif  %%
 \newfam\ssfam
-\textfont\ssfam=\tenss
-%% Initial tenpoint definitions
-\ifx\ifLMTS\relax%
-\def\rm{\fam0 \tenrm \let\tcfont=\tencrm}
-\def\it{\fam\itfam\tenit \let\tcfont=\tencit}
-\def\sl{\fam\slfam\tensl \let\tcfont=\tencsl}
-\def\tt{\fam\ttfam\tentt \let\tcfont=\tenctt}
-\def\sf{\fam\ssfam\tenss \let\tcfont=\tencss}
-\def\bf{\fam\bffam\tenbf \let\tcfont=\tencbf}
-\let\tcfont=\tencrm
-\else
-\def\sf{\fam\ssfam\tenss}
+%%
+%% New family small caps %%
+\newfam\cscfam
+%%
+%% New family doublestroke %%
+\ifx\ifDS\relax%
+\input DSmac.tex
 \fi
+\def\ds{}
 %%
 %% Change to tenpoint fonts %%
 \def\tenpoint{
@@ -700,13 +830,26 @@
 \def\mit{\fam1 } \def\oldstyle{\fam1 \teni}
 \textfont2=\tensy \scriptfont2=\sevensy \scriptscriptfont2=\fivesy
 \def\cal{\fam2 }
-\textfont3=\tenex \scriptfont3=\tenex \scriptscriptfont3=\tenex
+\textfont3=\tenex \scriptfont3=\sevenex \scriptscriptfont3=\fiveex
 \textfont\itfam=\tenit
 \textfont\slfam=\tensl
 \textfont\ttfam=\tentt
 \textfont\ssfam=\tenss
+\scriptfont\ssfam=\sevenss \scriptscriptfont\ssfam=\fivess
 \textfont\bffam=\tenbf
 \scriptfont\bffam=\sevenbf \scriptscriptfont\bffam=\fivebf
+\textfont\cscfam=\tencsc
+\textfont\mibfam=\tenmib
+\scriptfont\mibfam=\sevenmib \scriptscriptfont\bffam=\fivemib
+\textfont\bsyfam=\tenbsy
+\scriptfont\bsyfam=\sevenbsy \scriptscriptfont\bffam=\fivebsy
+\ifx\ifDS\relax%
+\textfont\dsfam=\tends
+\scriptfont\dsfam=\sevends \scriptscriptfont\dsfam=\fiveds
+\def\ds{\fam\dsfam\tends}
+\else
+{}
+\fi
 \ifx\ifLMTS\relax%
 \def\rm{\fam0 \tenrm \let\tcfont=\tencrm}
 \def\it{\fam\itfam\tenit \let\tcfont=\tencit}
@@ -722,13 +865,23 @@
 \def\sf{\fam\ssfam\tenss}
 \def\bf{\fam\bffam\tenbf}
 \fi
+\def\sc{\fam\cscfam\tencsc}
+\def\mb{\fam\mibfam} \def\boldstyle{\fam\mibfam\tenmib}
+\def\bcal{\fam\bsyfam\tenbsy}
+\def\unsetmathbold{
+\textfont1=\teni \scriptfont1=\seveni \scriptscriptfont1=\fivei
+\textfont2=\tensy \scriptfont2=\sevensy \scriptscriptfont2=\fivesy
+\def\oldstyle{\fam1 \teni} }
+\def\setmathbold{
+\textfont1=\tenmib \scriptfont1=\sevenmib \scriptscriptfont1=\fivemib
+\textfont2=\tenbsy \scriptfont2=\sevenbsy \scriptscriptfont2=\fivebsy
+\def\oldstyle{\fam1 \tenmib} }
 \normalbaselineskip=12pt minus 1pt
 \setbox\strutbox=\hbox{\vrule height8.5pt depth3.5pt width0pt}
 \bigsize=8.5pt
 \Bigsize=11.5pt
 \biggsize=14.5pt
 \Biggsize=17.5pt
-\let\sc=\eightrm
 \normalbaselines\rm}
 %%
 %% Change to twelve points fonts %%
@@ -738,13 +891,26 @@
 \def\mit{\fam1 } \def\oldstyle{\fam1 \twelvei}
 \textfont2=\twelvesy \scriptfont2=\eightsy \scriptscriptfont2=\sixsy
 \def\cal{\fam2 }
-\textfont3=\twelveex \scriptfont3=\twelveex \scriptscriptfont3=\twelveex
+\textfont3=\twelveex \scriptfont3=\eightex \scriptscriptfont3=\sixex
 \textfont\itfam=\twelveit
 \textfont\slfam=\twelvesl
 \textfont\ttfam=\twelvett
 \textfont\ssfam=\twelvess
+\scriptfont\ssfam=\eightss \scriptscriptfont\ssfam=\sixss
 \textfont\bffam=\twelvebf
 \scriptfont\bffam=\eightbf \scriptscriptfont\bffam=\sixbf
+\textfont\cscfam=\twelvecsc
+\textfont\mibfam=\twelvemib
+\scriptfont\mibfam=\eightmib \scriptscriptfont\mibfam=\sixmib
+\textfont\bsyfam=\twelvebsy
+\scriptfont\bsyfam=\eightbsy \scriptscriptfont\bsyfam=\sixbsy
+\ifx\ifDS\relax%
+\textfont\dsfam=\twelveds
+\scriptfont\dsfam=\eightds \scriptscriptfont\dsfam=\sixds
+\def\ds{\fam\dsfam\twelveds}
+\else
+{}
+\fi
 \ifx\ifLMTS\relax%
 \def\rm{\fam0 \twelverm \let\tcfont=\twelvecrm}
 \def\it{\fam\itfam\twelveit \let\tcfont=\twelvecit}
@@ -760,13 +926,23 @@
 \def\sf{\fam\ssfam\twelvess}
 \def\bf{\fam\bffam\twelvebf}
 \fi
+\def\sc{\fam\cscfam\twelvecsc}
+\def\mb{\fam\mibfam} \def\boldstyle{\fam\mibfam\twelvemib}
+\def\bcal{\fam\bsyfam}
+\def\unsetmathbold{
+\textfont1=\twelvei \scriptfont1=\eighti \scriptscriptfont1=\sixi
+\textfont2=\twelvesy \scriptfont2=\eightsy \scriptscriptfont2=\sixsy
+\def\oldstyle{\fam1 \twelvei} }
+\def\setmathbold{
+\textfont1=\twelvemib \scriptfont1=\eightmib \scriptscriptfont1=\sixmib
+\textfont2=\twelvebsy \scriptfont2=\eightbsy \scriptscriptfont2=\sixbsy
+\def\oldstyle{\fam1 \twelvemib} }
 \normalbaselineskip=14pt minus 1pt
 \setbox\strutbox=\hbox{\vrule height10pt depth4pt width0pt}
 \bigsize=10.2pt
 \Bigsize=13.8pt
 \biggsize=17.4pt
 \Biggsize=21pt
-\let\sc=\tenrm
 \normalbaselines\rm}
 %%
 %% Change to eight points fonts %%
@@ -776,13 +952,26 @@
 \def\mit{\fam1 } \def\oldstyle{\fam1 \eighti}
 \textfont2=\eightsy \scriptfont2=\sixsy \scriptscriptfont2=\fivesy
 \def\cal{\fam2 }
-\textfont3=\eightex \scriptfont3=\eightex \scriptscriptfont3=\eightex
+\textfont3=\eightex \scriptfont3=\sixex \scriptscriptfont3=\fiveex
 \textfont\itfam=\eightit
 \textfont\slfam=\eightsl
 \textfont\ttfam=\eighttt
 \textfont\ssfam=\eightss
+\scriptfont\ssfam=\sixss \scriptscriptfont\ssfam=\fivess
 \textfont\bffam=\eightbf
 \scriptfont\bffam=\sixbf \scriptscriptfont\bffam=\fivebf
+\textfont\cscfam=\eightcsc
+\textfont\mibfam=\eightmib
+\scriptfont\mibfam=\sixmib \scriptscriptfont\mibfam=\fivemib
+\textfont\bsyfam=\eightbsy
+\scriptfont\bsyfam=\sixbsy \scriptscriptfont\bsyfam=\fivebsy
+\ifx\ifDS\relax%
+\textfont\dsfam=\eightds
+\scriptfont\dsfam=\sixds \scriptscriptfont\dsfam=\fiveds
+\def\ds{\fam\dsfam\eightds}
+\else
+{}
+\fi
 \ifx\ifLMTS\relax%
 \def\rm{\fam0 \eightrm \let\tcfont=\eightcrm}
 \def\it{\fam\itfam\eightit \let\tcfont=\eightcit}
@@ -798,13 +987,23 @@
 \def\sf{\fam\ssfam\eightss}
 \def\bf{\fam\bffam\eightbf}
 \fi
+\def\sc{\fam\cscfam\eightcsc}
+\def\mb{\fam\mibfam} \def\boldstyle{\fam\mibfam\eightmib}
+\def\bcal{\fam\bsyfam}
+\def\unsetmathbold{
+\textfont1=\eighti \scriptfont1=\sixi \scriptscriptfont1=\fivei
+\textfont2=\eightsy \scriptfont2=\sixsy \scriptscriptfont2=\fivesy
+\def\oldstyle{\fam1 \eighti} }
+\def\setmathbold{
+\textfont1=\eightmib \scriptfont1=\sixmib \scriptscriptfont1=\fivemib
+\textfont2=\eightbsy \scriptfont2=\sixbsy \scriptscriptfont2=\fivebsy
+\def\oldstyle{\fam1 \eightmib} }
 \normalbaselineskip=9pt
 \setbox\strutbox=\hbox{\vrule height7pt depth2pt width0pt}
 \bigsize=6.8pt
 \Bigsize=9.2pt
 \biggsize=11.6pt
 \Biggsize=14pt
-\let\sc=\sixrm
 \normalbaselines\rm}
 %%
 %% Change to fourteen points fonts %%
@@ -814,13 +1013,26 @@
 \def\mit{\fam1 } \def\oldstyle{\fam1 \fourteeni}
 \textfont2=\fourteensy \scriptfont2=\ninesy \scriptscriptfont2=\sevensy
 \def\cal{\fam2 }
-\textfont3=\fourteenex \scriptfont3=\fourteenex \scriptscriptfont3=\fourteenex
+\textfont3=\fourteenex \scriptfont3=\nineex \scriptscriptfont3=\sevenex
 \textfont\itfam=\fourteenit
 \textfont\slfam=\fourteensl
 \textfont\ttfam=\fourteentt
 \textfont\ssfam=\fourteenss
+\scriptfont\ssfam=\niness \scriptscriptfont\ssfam=\sevenss
 \textfont\bffam=\fourteenbf
 \scriptfont\bffam=\ninebf \scriptscriptfont\bffam=\sevenbf
+\textfont\cscfam=\fourteencsc
+\textfont\mibfam=\fourteenmib
+\scriptfont\mibfam=\ninemib \scriptscriptfont\mibfam=\sevenmib
+\textfont\bsyfam=\fourteenbsy
+\scriptfont\bsyfam=\ninebsy \scriptscriptfont\bsyfam=\sevenbsy
+\ifx\ifDS\relax%
+\textfont\dsfam=\fourteends
+\scriptfont\dsfam=\nineds \scriptscriptfont\dsfam=\sevends
+\def\ds{\fam\dsfam\fourteends}
+\else
+{}
+\fi
 \ifx\ifLMTS\relax%
 \def\rm{\fam0 \fourteenrm \let\tcfont=\fourteencrm}
 \def\it{\fam\itfam\fourteenit \let\tcfont=\fourteencit}
@@ -836,13 +1048,23 @@
 \def\bf{\fam\bffam\fourteenbf}
 \def\sf{\fam\ssfam\fourteenss}
 \fi
+\def\sc{\fam\cscfam\fourteencsc}
+\def\mb{\fam\mibfam} \def\boldstyle{\fam\mibfam\fourteenmib}
+\def\bcal{\fam\bsyfam}
+\def\unsetmathbold{
+\textfont1=\fourteeni \scriptfont1=\ninei \scriptscriptfont1=\seveni
+\textfont2=\fourteensy \scriptfont2=\ninesy \scriptscriptfont2=\sevensy
+\def\oldstyle{\fam1 \fourteeni} }
+\def\setmathbold{
+\textfont1=\fourteenmib \scriptfont1=\ninemib \scriptscriptfont1=\sevenmib
+\textfont2=\fourteenbsy \scriptfont2=\ninebsy \scriptscriptfont2=\sevenbsy
+\def\oldstyle{\fam1 \fourteenmib} }
 \normalbaselineskip=17pt minus 1pt
 \setbox\strutbox=\hbox{\vrule height12pt depth5pt width0pt}
 \bigsize=11.9pt
 \Bigsize=16.1pt
 \biggsize=20.3pt
 \Biggsize=24.5pt
-\let\sc=\twelverm
 \normalbaselines\rm}
 %%
 %% Change to twentypoint fonts %%
@@ -852,13 +1074,26 @@
 \def\mit{\fam1 } \def\oldstyle{\fam1 \twentyi}
 \textfont2=\twentysy \scriptfont2=\fourteensy \scriptscriptfont2=\tensy
 \def\cal{\fam2 }
-\textfont3=\twentyex \scriptfont3=\twentyex \scriptscriptfont3=\twentyex
+\textfont3=\twentyex \scriptfont3=\fourteenex \scriptscriptfont3=\tenex
 \textfont\itfam=\twentyit
 \textfont\slfam=\twentysl
 \textfont\ttfam=\twentytt
 \textfont\ssfam=\twentyss
+\scriptfont\ssfam=\fourteenss \scriptscriptfont\ssfam=\tenss
 \textfont\bffam=\twentybf
 \scriptfont\bffam=\fourteenbf \scriptscriptfont\bffam=\tenbf
+\textfont\cscfam=\twentycsc
+\textfont\mibfam=\twentymib
+\scriptfont\mibfam=\fourteenmib \scriptscriptfont\mibfam=\tenmib
+\textfont\bsyfam=\twentybsy
+\scriptfont\bsyfam=\fourteenbsy \scriptscriptfont\bsyfam=\tenbsy
+\ifx\ifDS\relax%
+\textfont\dsfam=\twentyds
+\scriptfont\dsfam=\fourteends \scriptscriptfont\dsfam=\tends
+\def\ds{\fam\dsfam\twentyds}
+\else
+{}
+\fi
 \ifx\ifLMTS\relax%
 \def\rm{\fam0 \twentyrm \let\tcfont=\twentycrm}
 \def\it{\fam\itfam\twentyit \let\tcfont=\twentycit}
@@ -874,14 +1109,22 @@
 \def\sf{\fam\ssfam\twentyss}
 \def\bf{\fam\bffam\twentybf}
 \fi
+\def\sc{\fam\cscfam\twentycsc}
+\def\mb{\fam\mibfam} \def\boldstyle{\fam\mibfam\twentymib}
+\def\unsetmathbold{
+\textfont1=\twentyi \scriptfont1=\fourteeni \scriptscriptfont1=\teni
+\textfont2=\twentysy \scriptfont2=\fourteensy \scriptscriptfont2=\tensy
+\def\oldstyle{\fam1 \twentyi} }
+\def\setmathbold{
+\textfont1=\twentymib \scriptfont1=\fourteenmib \scriptscriptfont1=\tenmib
+\textfont2=\twentybsy \scriptfont2=\fourteenbsy \scriptscriptfont2=\tenbsy
+\def\oldstyle{\fam1 \twentymib} }
 \normalbaselineskip=24pt minus 2pt
 \setbox\strutbox=\hbox{\vrule height17pt depth7pt width0pt}
 \bigsize=17pt
 \Bigsize=23pt
 \biggsize=29pt
 \Biggsize=35pt
-%\let\sc=\sixteenrm?
-\let\sc=\fourteenrm
 \normalbaselines\rm}
 %%
 %% Change to twentyfour points fonts %%
@@ -891,12 +1134,26 @@
 \def\mit{\fam1 } \def\oldstyle{\fam1 \twentyfouri}
 \textfont2=\twentyfoursy \scriptfont2=\fourteensy \scriptscriptfont2=\twelvesy
 \def\cal{\fam2 }
-\textfont3=\twentyfourex \scriptfont3=\twentyfourex \scriptscriptfont3=\twentyfourex
+\textfont3=\twentyfourex \scriptfont3=\fourteenex \scriptscriptfont3=\twelveex
 \textfont\itfam=\twentyfourit
 \textfont\slfam=\twentyfoursl
 \textfont\ttfam=\twentyfourtt
 \textfont\ssfam=\twentyfourss
+\scriptfont\ssfam=\fourteenss \scriptscriptfont\ssfam=\twelvess
 \textfont\bffam=\twentyfourbf
+\scriptfont\bffam=\fourteenbf \scriptscriptfont\bffam=\twelvebf
+\textfont\cscfam=\twentyfourcsc
+\textfont\mibfam=\twentyfourmib
+\scriptfont\mibfam=\fourteenmib \scriptscriptfont\mibfam=\twelvemib
+\textfont\bsyfam=\twentyfourbsy
+\scriptfont\bsyfam=\fourteenbsy \scriptscriptfont\bsyfam=\twelvebsy
+\ifx\ifDS\relax%
+\textfont\dsfam=\twentyfourds
+\scriptfont\dsfam=\fourteends \scriptscriptfont\dsfam=\twelveds
+\def\ds{\fam\dsfam\twentyfourds}
+\else
+{}
+\fi
 \ifx\ifLMTS\relax%
 \def\rm{\fam0 \twentyfourrm \let\tcfont=\twentyfourcrm}
 \def\it{\fam\itfam\twentyfourit \let\tcfont=\twentyfourcit}
@@ -912,13 +1169,25 @@
 \def\sf{\fam\ssfam\twentyfourss}
 \def\bf{\fam\bffam\twentyfourbf}
 \fi
+\def\sc{\fam\cscfam\twentyfourcsc}
+\def\mb{\fam\mibfam} \def\boldstyle{\fam\mibfam\twentyfourmib}
+\def\bcal{\fam\bsyfam}
+\def\unsetmathbold{
+\textfont1=\twentyfouri \scriptfont1=\fourteeni \scriptscriptfont1=\twelvei
+\textfont2=\twentyfoursy \scriptfont2=\fourteensy \scriptscriptfont2=\twelvesy
+\def\oldstyle{\fam1 \twentyfouri} }
+\def\setmathbold{
+\textfont1=\twentyfourmib \scriptfont1=\fourteenmib
+\scriptscriptfont1=\twelvemib
+\textfont2=\twentyfourbsy \scriptfont2=\fourteenbsy
+\scriptscriptfont2=\twelvebsy
+\def\oldstyle{\fam1 \twentyfourmib} }
 \normalbaselineskip=28pt minus 2pt
 \setbox\strutbox=\hbox{\vrule height20pt depth8pt width0pt}
 \bigsize=20.4pt
 \Bigsize=27.6pt
 \biggsize=34.8pt
 \Biggsize=42pt
-\let\sc=\twentyrm
 \normalbaselines\rm}
 %%
 %% double space
@@ -926,4 +1195,7 @@
 \normalbaselineskip=24pt minus 1pt
 \setbox\strutbox=\hbox{\vrule height17pt depth 7pt width0pt}
 \normalbaselines}
-%%                                                                                                                                                       
+%%
+%% Initial set at ten points
+\tenpoint
+