home *** CD-ROM | disk | FTP | other *** search
/ Computer Club Elmshorn Atari PD / CCE_PD.iso / mac / 0600 / CCE_0687.ZIP / CCE_0687.PD / ADDONS / BBOLD.STY < prev    next >
Text File  |  1993-11-28  |  2KB  |  69 lines
  1. %% bbold.sty  v 1.1b von J"org Knappen 10. 9. 1992
  2. %% (c) J"org Knappen 1991, 1992         knappen@vkpmzd.kph.uni-mainz.de
  3. %% Copying conditions:  Gnu licence v 1.0
  4. %% Created 28-apr-1991
  5. %% Changed 10-sep-1992: Added sizes 20 and 25
  6. %% Changed  7-oct-1991: Added English Documentation
  7. %%                      and an error message, if the New Font Selection Scheme
  8. %%                      is not used
  9. %% Changed  9-jan-1992: \RIfM@ and the following definion block is defined
  10. %%                      without any condition. The condition
  11. %%                      \@ifundefined{RIfM@} had lead to incompatibility
  12. %%                      with e.g. amsbsy.sty (v 1.0)
  13. %%
  14. %% L"adt die BBOLD-Zeichens"atze unter dem neuen Zeichensatzwahlschema
  15. %% und definiert \bbold (als Fontschalter) sowie \Eins (Zeichen f"ur die
  16. %% Einheitsmatrix)
  17. %% The BBOLD fonts are loaded and the following control sequences are
  18. %% defined:
  19. %% \bbold    acts as a font switch, switching its argument to BBOLD
  20. %% \Eins     prints the bbold 1 (Unit matrix)
  21. \@ifundefined{extract@font}
  22.      {\errmessage{The style option `bbold' does not make sense if you
  23.                   do not use a format with the new font selection scheme.}
  24.       \endinput}
  25.      {}
  26.  
  27.   \def\RIfM@{\relax\protect\ifmmode}
  28.     \let\boxz@\fi % \if \fi matching hack
  29.   \def\boxz@{\box\z@}
  30.   \def\setboxz@h{\setbox\z@\hbox}
  31.   \def\wdz@{\wd\z@}
  32.   \def\noaccents@{\def\accentclass@{0}}
  33.   \def\Invalid@@{Invalid use of \string}
  34.   \def\nonmatherr@#1{\err@
  35.     {\string#1\space allowed only in math mode}\@ehd}
  36.   \def\err@{\@latexerr}
  37.  
  38. \newmathalphabet\bbold@
  39. \addtoversion{normal}\bbold@{bbold}{m}{n}
  40. \addtoversion{bold}\bbold@{bbold}{m}{n}
  41. \def\pbbold{\RIfM@\expandafter\bbold@\else
  42.                   \expandafter\nonmatherr@\expandafter\bbold\fi}
  43. \def\bbold{\protect\pbbold}
  44. \new@fontshape{bbold}{m}{n}{%
  45.   <5>bbold5%
  46.   <6>bbold6%
  47.   <7>bbold7%
  48.   <8>bbold8%
  49.   <9>bbold9%
  50.   <10>bbold10%
  51.   <11>bbold11%  This one was computed with the help of the Sauter tools
  52. %  <11>bbold10 at10.95pt% alternative, change the position of the % sign to
  53. %                         choose this
  54.   <12>bbold12%
  55.   <14>bbold14%  Ditto, design_size:=14.4;
  56. %  <14>bbold12 at14.4pt%  alternative
  57.   <17>bbold17%
  58.   <20>bbold17 at19.71pt%
  59.   <25>bbold17 at24.48pt%
  60.   }{}
  61. \extra@def{bbold}{}{\noaccents@}
  62.  
  63.  
  64. % Die Einheitsmatrix (Unit matrix)
  65.  
  66. \def\Eins{\bbold 1 }
  67.  
  68. \endinput
  69.