fontch update (4sep07)

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

5 files changed, 1134 insertions, 395 deletions

diff --git a/Master/texmf-dist/doc/plain/fontch/README b/Master/texmf-dist/doc/plain/fontch/README
index 4585d157cf8..5d8f5703b78 100644
--- a/Master/texmf-dist/doc/plain/fontch/README
+++ b/Master/texmf-dist/doc/plain/fontch/README
@@ -1,98 +1,202 @@
-README File of the package fontch.tex   V1.3  2007/04/22
+README File of the package fontch.tex   V2.0 2007/09/04
+ fontch.tex:  Macros for changing fonts and sizes in plain TeX
 
- fontch.tex:  Macros for changing fonts and sizes in plain TeX 
- 
  Rodrigo Medina (IVIC) rmedina@ivic.ve
 
- Suggested locations: .../texmf/tex/plain/fontch/fontch.tex
- 			.../texmf/doc/tex/fontch/README.txt
- Licence: LPPL
-
-Purpose
--------
-	This package allows, in plain TeX, to change with a single
+Suggested locations: .../texmf/tex/plain/fontch/
+                     .../texmf/doc/tex/fontch/README.txt
+Licence: LPPL
+
+Components
+----------
+The fontch V2.0 package is composed of the following files:
+   README.txt   -- This file 
+   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
+-----------
+       This package allows, in plain TeX, to change with a single
 command the size of all fonts that are used for text input and math input.
 Main text fonts of sizes 8, 10, 12, 14, 20 and 24 points are available.
- The package also permits to load the Latin Modern fonts with T1 encoding
-and the corresponding companion symbol fonts TS1.
+Fonts of sizes 5, 6, 7 and 9 points are used in subscripts and subscripts of
+subscripts of other main sizes.
+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
+ 
+Requierements
+-------------
+- In order to use the T1 options LMTone and LMTSone, you need to have installed
+  the Latin Modern fonts.
+- In order to use the AMSfont option you need to have installed the AMS fonts.
+- In order to use the DStroke option ou need to have installed the Double
+  Stroke fonts.
 
 Installation
 ------------
-	You have only to put the file fontch.tex in any sensible place
-in the texmf tree, like
-
-       .../texmf/tex/plain/fontch/fontch.tex.
+        You have only to put the macro files fontch.tex, bsymbols.tex,
+ TS1mac.tex and DSmac.tex in any sensible place in the texmf tree, like
+       .../texmf/tex/plain/fontch/
 
-  It is also commendable to put this README file in a proper place such as
+It is also commendable to put this README file in a proper place such as
 
        .../texmf/doc/tex/fontch/README.txt
 
-  In order to use the T1 option you need to have installed the Latin Modern
-fonts.
- 
 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 using fonts.tex with OT1 fonts (Computer Modern) put at the
-beginning of the document:
-
-	\input fontch.tex
+The file bsymbols.tex provides macro definitions for boldface versions
+of math symbols. For using it just input the file where you need it.
 
-  For activating T1 fonts (Latin Modern) put at the beginning:
+The fontch package has four options for handling different kinds of fonts:
 
-	\let\LMTone\relax
-	\input fontch.tex
+  -  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.
 
-  If you want also activating support for the TS1 companion symbol font
+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\LMTSone\relax
-	\let\LMTone\relax
-	\input fontch.tex
-
-  If you want TS1 but you don't need T1 you may also activate TS1 alone:
+ \let\AMSfont\relax
+ \let\DStroke\relax 
+ \let\LMTone\relax
+ \let\LMTSone\relax
+ \input fontch.tex
+ \input bsymbols.tex
 
-	\let\LMTSone\relax
-	\input fontch.tex
-
-  NOTE: If you are using the T1 option it is mandatory to set some size
-type before start writing, even if you start using \tenpoint, which is the
-default size. This is needed in order to force the re-definitions of the
-accents.
-
-  If you are using the T1 option it is commendable the use of encoding file
-il1-t1.tcx (or il2-t1.tcx depending on the language). You have to put as the
-first line of your TeX document
-	%& --translate-file=il1-t1.tcx
-
-and then you can write your document with ISOlatin1 encoding.
+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.
+
+ (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.
+
+ (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. 
+
+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 of V2.0 should be compatible with V1.3 except for case explained
+in Note (1).
+-----------------------------------------------------
+%%%%%%%%% Commands of fontch %%%%%%
 
 General Commands
-------------------
+----------------
 The package fontch defines the following commands valid for any option.
 
 Commands for changing font size:
-	\eightpoint      -- Change to small type
-	\tenpoint        -- Change to normal type
-	\twelvepoint     -- Change to large type
-	\fourteenpoint   -- Change to very large type
-	\twentypoint     -- Change to huge type
-	\twentyfourpoint -- Change to immense type
-
-Commands for changing family, already in plain TeX (except for \sf)
-	\rm	  -- Roman
-	\it	  -- Italic
-	\bf	  -- Boldface
-	\tt	  -- Teletype
-	\sf	  -- Sans Serif (new)
-	\sc	  -- Small Caps
-	\cal	  -- Calligraphic
-	\mit	  -- Math Italic
-	\oldstyle -- Old style digits
+        \eightpoint      -- Change to small type
+        \tenpoint        -- Change to normal type
+        \twelvepoint     -- Change to large type
+        \fourteenpoint   -- Change to very large type
+        \twentypoint     -- Change to huge type
+        \twentyfourpoint -- Change to immense type
+
+Commands for changing family, most already in plain TeX.
+
+        \rm            -- Roman
+        \it            -- Italic
+        \bf            -- Boldface
+        \tt            -- Teletype
+        \sf            -- Sans Serif (new)
+        \sc            -- Small Caps
+        \cal           -- Calligraphic
+        \mit           -- Math Italic
+        \mb            -- Math Boldface (new)
+        \bcal          -- Boldface calligraphica (new)
+        \oldstyle      -- Old style digits
+        \boldstyle     -- Boldface old style digitsa (new)
+        \setmathbold   -- set families 1 and 2 to cmmib and cmmbsy (new)
+        \unsetmathbold -- reset families 1 and 2 to cmmi and cmmsy (new)
 
 Command for changing line spacing
-	\doublespace   -- Double Space for ten & twelve points
-
+        \doublespace   -- Double Space for ten & twelve points
+
+
+
+Macros of bold symbols (Require input of bsymbols.tex)
+----------------------
+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
 ---------------------------
 
@@ -104,23 +208,23 @@ Redefined Plain TeX Commands:
 
 New T1 Commands for non-latin1 characters
 
-	\lh  -- l'
-	\Lh  -- L'
-	\dh  -- d'
-	\th  -- t'
-	\dbar -- d slash
-	\Edh
-	\edh
-	\ij
-	\IJ
-	\nj
-	\NJ
-	\thorn
-	\Thorn
-	\smallzero
-	\lguille   -- left guillemot (does not appear in il1-t1.tcx)
-	\rguille   -- right guillemot (does not appear in il1-t1.tcx)
-	\vispace   -- visible space
+        \lh  -- l'
+        \Lh  -- L'
+        \dh  -- d'
+        \th  -- t'
+        \dbar -- d slash
+        \Edh
+        \edh
+        \ij
+        \IJ
+        \nj
+        \NJ
+        \thorn
+        \Thorn
+        \smallzero
+        \lguille   -- left guillemot (does not appear in il1-t1.tcx)
+        \rguille   -- right guillemot (does not appear in il1-t1.tcx)
+        \vispace   -- visible space
 
 Redefined plain TeX accents
   \` , \' , \^ , \~ , \" , \H , \v , \u , \= , \. , \b , \c
@@ -129,106 +233,106 @@ Redefined plain TeX math-accents
   \acute,\grave,\ddot,\tilde,\bar,\breve,\check,\hat,\dot
 
 New T1 accents
-	\r   -- ring accent
-	\k   -- ogonek
+        \r   -- ring accent
+        \k   -- ogonek
 
 New T1 math-accent
-	\ring
+        \ring
 
-Commands of the LMTS1 option 
+Commands of the LMTS1 option
 ----------------------------
 
-TS1 symbols 
-	\tcchar{#1} -- Character of TS1 table
+TS1 symbols
+        \tcchar{#1} -- Character of TS1 table
 
 Redefined plain TeX commands
-	\t{#1} --  tie-after-accent
-	\P     --  pilcrow
-	\S     --  section
-	\dag   --  dagger
-	\ddag  --  double dagger
-	\copyright
+        \t{#1} --  tie-after-accent
+        \P     --  pilcrow
+        \S     --  section
+        \dag   --  dagger
+        \ddag  --  double dagger
+        \copyright
 
 Most TS1 symbols (in increasing charcode order)
 Some are text versions of symbols of the math mode.
 
-	\arrowl      -- left arrow
-	\arrowr      -- right arrow
-	\blank
-	\dollar
-	\caster      -- centered asterisk
-	\sequals     -- short equals
-	\anglel
-	\angler
-	\mho
-	\bigcircle
-	\Ohm
-	\bbracketl   -- left double square bracket
-	\bbracketr   -- right double square bracket
-	\arrowu      -- up arrow
-	\arrowd      -- down arrow
-	\textstar    -- star
-	\born
-	\died
-	\leaf
-	\married
-	\music
-	\doublevert  -- Double vertical bar
-	\perthousand
-	\bull        -- bullet (is in manmac)
-	\centigrade
-	\olddollar
-	\oldcent
-	\florin
-	\Colon
-	\won
-	\naira
-	\guarani
-	\peso
-	\lira
-	\recipe
-	\interrobang -- Question+Exclamation
-	\gnaborretni -- Question+Exclamation upside-down
-	\dong
-	\TM
-	\pertenth    -- per ten thousand
-	\npilcrow    -- narrow pilcrow
-	\baht
-	\numero
-	\abzueglich
-	\aestimated  -- Big e
-	\openbull
-	\SM
-	\qbrackl     -- left quill bracket
-	\qbrackr     -- right quill bracket
-	\cent
-	\sterling
-	\currency
-	\yen
-	\brokenvert  -- broken vertical bar
-	\feminine
-	\copyleft
-	\lognot      -- logical not
-	\circledP
-	\registered
-	\degree
-	\plusminus
-	\twoup
-	\threeup
-	\micro
-	\centereddot
-	\reference
-	\oneup
-	\masculine
-	\root
-	\onequarter
-	\onehalf
-	\threequarters
-	\euro
-	\texttimes
-	\textdiv
+        \arrowl      -- left arrow
+        \arrowr      -- right arrow
+        \blank
+        \dollar
+        \caster      -- centered asterisk
+        \sequals     -- short equals
+        \anglel
+        \angler
+        \mho
+        \bigcircle
+        \Ohm
+        \bbracketl   -- left double square bracket
+        \bbracketr   -- right double square bracket
+        \arrowu      -- up arrow
+        \arrowd      -- down arrow
+        \textstar    -- star
+        \born
+        \died
+        \leaf
+        \married
+        \music
+        \doublevert  -- Double vertical bar
+        \perthousand
+        \bull        -- bullet (is in manmac)
+        \centigrade
+        \olddollar
+        \oldcent
+        \florin
+        \Colon
+        \won
+        \naira
+        \guarani
+        \peso
+        \lira
+        \recipe
+        \interrobang -- Question+Exclamation
+        \gnaborretni -- Question+Exclamation upside-down
+        \dong
+        \TM
+        \pertenth    -- per ten thousand
+        \npilcrow    -- narrow pilcrow
+        \baht
+        \numero
+        \abzueglich
+        \aestimated  -- Big e
+        \openbull
+        \SM
+        \qbrackl     -- left quill bracket
+        \qbrackr     -- right quill bracket
+        \cent
+        \sterling
+        \currency
+        \yen
+        \brokenvert  -- broken vertical bar
+        \feminine
+        \copyleft
+        \lognot      -- logical not
+        \circledP
+        \registered
+        \degree
+        \plusminus
+        \twoup
+        \threeup
+        \micro
+        \centereddot
+        \reference
+        \oneup
+        \masculine
+        \root
+        \onequarter
+        \onehalf
+        \threequarters
+        \euro
+        \texttimes
+        \textdiv
 
 Bugs
 ----
   Comments and bug reports are welcome at rmedina@ivic.ve
-
+-.-
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
+