home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fonts 1 / freshfonts1.bin / programs / amiga / pastex / macros / distribs / nfss / dclfont.sty < prev    next >
Encoding:
Text File  |  1992-11-30  |  10.5 KB  |  346 lines
  1. %% 
  2. %% This is file `dclfont.sty', generated 
  3. %% on <1992/9/24> with the docstrip utility (2.0r).
  4. %% 
  5. %% The original source files were:
  6. %% 
  7. %% basefont.doc  (with options: `dclf')
  8. %% 
  9. %% Copyright (C) 1989-1992 by Frank Mittelbach, Rainer Schoepf. 
  10. %% All rights reserved. 
  11. %% 
  12. %% This file is part of the NFSS (New Font Selection Scheme) package. 
  13. %% 
  14. %% IMPORTANT NOTICE: 
  15. %% 
  16. %% You are not allowed to change this file. You may however copy 
  17. %% this file to a file with a different name and then change the copy 
  18. %% if you obey the restrictions on file changes described in 
  19. %% readme.mz. 
  20. %% 
  21. %% You are allowed to distribute this file under the condition that 
  22. %% it is distributed together with all files mentioned in readme.mz3. 
  23. %% If you receive only some of these files from someone, complain! 
  24. %% 
  25. %% You are NOT ALLOWED to distribute this file alone. You are NOT 
  26. %% ALLOWED to take money for the distribution or use of either this 
  27. %% file or a changed version, except for a nominal charge for copying 
  28. %% etc. 
  29. %% 
  30. %% For error reports in case of UNCHANGED versions see readme files. 
  31. %% 
  32. %% Please do not request updates from us directly. Distribution is 
  33. %% done through Mail-Servers and TeX organizations. 
  34. %% 
  35. \def\fileversion{v1.4d}
  36. \def\filedate{92/09/22}
  37. \def\docdate {92/09/22}
  38.  
  39. %% \CheckSum{626}
  40. %% \CharacterTable
  41. %%  {Upper-case    \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
  42. %%   Lower-case    \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
  43. %%   Digits        \0\1\2\3\4\5\6\7\8\9
  44. %%   Exclamation   \!     Double quote  \"     Hash (number) \#
  45. %%   Dollar        \$     Percent       \%     Ampersand     \&
  46. %%   Acute accent  \'     Left paren    \(     Right paren   \)
  47. %%   Asterisk      \*     Plus          \+     Comma         \,
  48. %%   Minus         \-     Point         \.     Solidus       \/
  49. %%   Colon         \:     Semicolon     \;     Less than     \<
  50. %%   Equals        \=     Greater than  \>     Question mark \?
  51. %%   Commercial at \@     Left bracket  \[     Backslash     \\
  52. %%   Right bracket \]     Circumflex    \^     Underscore    \_
  53. %%   Grave accent  \`     Left brace    \{     Vertical bar  \|
  54. %%   Right brace   \}     Tilde         \~}
  55. %%
  56. \immediate
  57.   \write\sixt@@n{Style-Option: `dclfont'
  58.  \fileversion\space <\filedate> (FMi and RmS)}
  59. \immediate
  60.  \write\sixt@@n{English Documentation
  61.   \@spaces\@spaces <\docdate> (FMi and RmS)}
  62.  \ifx\@latexerr\undefined\else
  63.  \@ifundefined{selectfont}
  64.      {\@latexerr{%
  65.        `dclfont' style option can only be used
  66.         with the new font selection scheme}\@eha
  67.        \endinput}{}
  68.  \fi
  69. \def\newfont#1#2{\@ifdefinable#1{\global
  70.                         \font#1=#2\relax}}
  71. \def\symbol#1{\char #1\relax}
  72. \def\@gobbletwo#1#2{}
  73. \let\load\@gobbletwo
  74. \def\@setsize#1#2#3#4{\@nomath#1%
  75.     \ifx\protect\relax
  76.       \let\@currsize#1%
  77.     \fi
  78.     \fontsize{#4}{#2}\selectfont}
  79. \def\prm{\not@math@alphabet\rm\mathrm
  80.          \fontfamily\rmdefault\selectfont}
  81. \def\psf{\not@math@alphabet\sf\mathsf
  82.          \fontfamily\sfdefault\selectfont}
  83. \def\ptt{\not@math@alphabet\tt\relax
  84.          \fontfamily\ttdefault\selectfont}
  85. \def\psl{\not@math@alphabet\sf\relax
  86.          \fontshape\sldefault\selectfont}
  87. \def\psc{\not@math@alphabet\sc\relax
  88.          \fontshape\scdefault\selectfont}
  89. \def\pit{\not@math@alphabet\it\relax
  90.          \fontshape\itdefault\selectfont}
  91. \def\pbf{\not@math@alphabet\bf\mathbf
  92.          \fontseries\bfdefault\selectfont}
  93. \def\em{\protect\pem}
  94. \def\pem{\@nomath\em \ifdim \fontdimen\@ne\font >\z@
  95.                        \normalshape \else \it \fi}
  96. \def\not@math@alphabet#1#2{%
  97.    \ifmmode
  98.      \ifx#2\relax
  99.        \errhelp{%
  100.             In NFSS fonts you need to define a new math alphabet^^J%
  101.             if you want to use a special font in math mode.%
  102.             }%
  103.      \else
  104.        \errhelp{%
  105.             Please use the math alphabet #2instead of
  106.             the #1command.%
  107.             }%
  108.      \fi
  109.      \errmessage{Command \noexpand#1not supported in math mode}%
  110.    \fi}
  111. \ifx\bffam\@undefined
  112.   \new@mathgroup\bffam
  113.   \new@mathgroup\sffam
  114. \fi
  115. \new@internalmathalphabet\mathbf\bffam{cmr}{bx}{n}
  116. \new@internalmathalphabet\mathsf\sffam{cmss}{m}{n}
  117.  \let\math@bgroup\begingroup
  118.  \def\math@egroup#1{#1\endgroup}
  119.  \ifx\lyfam\undefined
  120.  \new@mathgroup\lyfam
  121.  \define@mathgroup\mv@normal\lyfam
  122.        {lasy}{m}{n}
  123.  \define@mathgroup\mv@bold\lyfam
  124.        {lasy}{b}{n}
  125.  \edef\@tempa{\hexnumber@\lyfam}
  126.  \mathchardef\mho"0\@tempa 30
  127.  \mathchardef\Join"3\@tempa 31
  128.  \mathchardef\Box"0\@tempa 32
  129.  \mathchardef\Diamond"0\@tempa 33
  130.  \mathchardef\leadsto"3\@tempa 3B
  131.  \mathchardef\sqsubset"3\@tempa 3C
  132.  \mathchardef\sqsupset"3\@tempa 3D
  133.  \mathchardef\lhd"3\@tempa 01
  134.  \mathchardef\unlhd"3\@tempa 02
  135.  \mathchardef\rhd"3\@tempa 03
  136.  \mathchardef\unrhd"3\@tempa 04
  137.  \fi
  138. \def\@accent@def#1#2#3{\expandafter\def
  139.        \csname @#1@\string#2@#1@\endcsname{#3}}
  140. \def\@accent@use#1#2#3{%
  141.   \expandafter\ifx \csname @#1@\string#3@#1@\endcsname \relax
  142.       {\accent#2 #3}%
  143.     \else  \csname @#1@\string#3@#1@\endcsname\fi}
  144. \def\`{\@accent@use{grave}{0}}
  145. \let\@accii=\`
  146. \@accent@def{grave}{a}{^^e0}
  147. \@accent@def{grave}{e}{^^e8}
  148. \@accent@def{grave}{\i}{^^ec}
  149. \@accent@def{grave}{i}{^^ec}
  150. \@accent@def{grave}{o}{^^f2}
  151. \@accent@def{grave}{u}{^^f9}
  152. \@accent@def{grave}{A}{^^c0}
  153. \@accent@def{grave}{E}{^^c8}
  154. \@accent@def{grave}{I}{^^cc}
  155. \@accent@def{grave}{O}{^^d2}
  156. \@accent@def{grave}{U}{^^d9}
  157. \def\'{\@accent@use{acute}{1}}
  158. \let\@acci=\'
  159. \@accent@def{acute}{n}{^^ab}
  160. \@accent@def{acute}{l}{^^a8}
  161. \@accent@def{acute}{r}{^^af}
  162. \@accent@def{acute}{s}{^^b1}
  163. \@accent@def{acute}{z}{^^b9}
  164. \@accent@def{acute}{a}{^^e1}
  165. \@accent@def{acute}{e}{^^e9}
  166. \@accent@def{acute}{\i}{^^ed}
  167. \@accent@def{acute}{i}{^^ed}
  168. \@accent@def{acute}{o}{^^f3}
  169. \@accent@def{acute}{u}{^^fa}
  170. \@accent@def{acute}{y}{^^fd}
  171. \@accent@def{acute}{N}{^^8b}
  172. \@accent@def{acute}{L}{^^88}
  173. \@accent@def{acute}{R}{^^8f}
  174. \@accent@def{acute}{S}{^^91}
  175. \@accent@def{acute}{Z}{^^99}
  176. \@accent@def{acute}{A}{^^c1}
  177. \@accent@def{acute}{E}{^^c9}
  178. \@accent@def{acute}{I}{^^cd}
  179. \@accent@def{acute}{O}{^^d3}
  180. \@accent@def{acute}{U}{^^da}
  181. \@accent@def{acute}{Y}{^^dd}
  182. \@accent@def{acute}{c}{^^a2}
  183. \@accent@def{acute}{C}{^^82}
  184. \def\v{\@accent@use{check}{7}}
  185. \@accent@def{check}{c}{^^a3}
  186. \@accent@def{check}{e}{^^a5}
  187. \@accent@def{check}{n}{^^ac}
  188. \@accent@def{check}{r}{^^b0}
  189. \@accent@def{check}{s}{^^b2}
  190. \@accent@def{check}{z}{^^ba}
  191. \@accent@def{check}{C}{^^83}
  192. \@accent@def{check}{D}{^^84}
  193. \@accent@def{check}{E}{^^85}
  194. \@accent@def{check}{N}{^^8c}
  195. \@accent@def{check}{R}{^^90}
  196. \@accent@def{check}{S}{^^92}
  197. \@accent@def{check}{T}{^^94}
  198. \@accent@def{check}{Z}{^^9a}
  199. \def\u{\@accent@use{breve}{8}}
  200. \@accent@def{breve}{a}{^^a0}
  201. \@accent@def{breve}{g}{^^a7}
  202. \@accent@def{breve}{A}{^^80}
  203. \@accent@def{breve}{G}{^^87}
  204. \def\=#1{{\accent9 #1}}
  205. \let\@acciii=\=
  206. \def\^{\@accent@use{circflx}{2}}
  207. \@accent@def{circflx}{a}{^^e2}
  208. \@accent@def{circflx}{e}{^^ea}
  209. \@accent@def{circflx}{\i}{^^ee}
  210. \@accent@def{circflx}{i}{^^ee}
  211. \@accent@def{circflx}{o}{^^f4}
  212. \@accent@def{circflx}{u}{^^fb}
  213. \@accent@def{circflx}{A}{^^c2}
  214. \@accent@def{circflx}{E}{^^ca}
  215. \@accent@def{circflx}{I}{^^ce}
  216. \@accent@def{circflx}{O}{^^d4}
  217. \@accent@def{circflx}{U}{^^db}
  218. \def\.{\@accent@use{dot}{10}}
  219. \@accent@def{dot}{z}{^^bb}
  220. \@accent@def{dot}{Z}{^^9b}
  221. \@accent@def{dot}{I}{^^9d}
  222. \@accent@def{dot}{i}{i}
  223. \def\H{\@accent@use{Hung}{5}}
  224. \@accent@def{Hung}{o}{^^ae}
  225. \@accent@def{Hung}{u}{^^b6}
  226. \@accent@def{Hung}{O}{^^8e}
  227. \@accent@def{Hung}{U}{^^96}
  228. \def\~{\@accent@use{tilde}{3}}
  229. \@accent@def{tilde}{a}{^^e3}
  230. \@accent@def{tilde}{n}{^^f1}
  231. \@accent@def{tilde}{o}{^^f5}
  232. \@accent@def{tilde}{A}{^^c3}
  233. \@accent@def{tilde}{N}{^^d1}
  234. \@accent@def{tilde}{O}{^^d5}
  235. \def\"{\@accent@use{Umlaut}{4}}
  236. \@accent@def{Umlaut}{a}{^^e4}
  237. \@accent@def{Umlaut}{e}{^^eb}
  238. \@accent@def{Umlaut}{\i}{^^ef}
  239. \@accent@def{Umlaut}{i}{^^ef}
  240. \@accent@def{Umlaut}{o}{^^f6}
  241. \@accent@def{Umlaut}{u}{^^fc}
  242. \@accent@def{Umlaut}{A}{^^c4}
  243. \@accent@def{Umlaut}{E}{^^cb}
  244. \@accent@def{Umlaut}{I}{^^cf}
  245. \@accent@def{Umlaut}{O}{^^d6}
  246. \@accent@def{Umlaut}{U}{^^dc}
  247. \def\pb#1{\oalign{#1\crcr\hidewidth
  248.     \vbox to.2ex{\hbox{\char9}\vss}\hidewidth}}
  249. \def\pc#1{\expandafter\ifx
  250.     \csname @cedilla@\string#1@cedilla@\endcsname \relax
  251.     \c@dilla#1\else \csname @cedilla@\string#1@cedilla@\endcsname\fi}
  252. \@accent@def{cedilla}{s}{^^b3}
  253. \@accent@def{cedilla}{t}{^^b5}
  254. \@accent@def{cedilla}{c}{^^e7}
  255. \@accent@def{cedilla}{S}{^^93}
  256. \@accent@def{cedilla}{T}{^^95}
  257. \@accent@def{cedilla}{C}{^^c7}
  258. \def\c@dilla#1{\setbox\z@\hbox{#1}\ifdim\ht\z@=1ex\accent11 #1%
  259.   \else{\ooalign{\hidewidth\char11\hidewidth\crcr\unhbox\z@}}\fi}
  260. \chardef\aa="0E5
  261. \chardef\ae="0E6
  262. \chardef\l="0AA
  263. \chardef\oe="0F7
  264. \chardef\o="0F8
  265. \chardef\ss="0FF
  266. \chardef\AA="0C5
  267. \chardef\AE="0C6
  268. \chardef\L="8A
  269. \chardef\OE="0D7
  270. \chardef\O="0D8
  271. \chardef\SS="0DF
  272. \chardef\i="19
  273. \chardef\j="1A
  274. \chardef\pounds="0BF
  275. \def\hbar{{\mathchar'11\mkern-9muh}}
  276. \begingroup
  277.   \count@=128
  278.   \loop
  279.     \count1=\count@
  280.     \advance\count1 by 32
  281.     \global\lccode\count@=\count1
  282.     \global\uccode\count@=\count@
  283.     \global\uccode\count1=\count@
  284.     \global\lccode\count1=\count1
  285.     \global\sfcode\count1=999
  286.    \ifnum \count@ <156
  287.     \advance \count@ 1
  288.   \repeat
  289.   \global\lccode157=105 \global\uccode157=157
  290.   \global\uccode158=208 \global\lccode158=158 \global\sfcode158=999
  291.   \count@=192
  292.   \loop
  293.     \count1=\count@
  294.     \advance\count1 by 32
  295.     \global\lccode\count@=\count1
  296.     \global\uccode\count@=\count@
  297.     \global\uccode\count1=\count@
  298.     \global\lccode\count1=\count1
  299.     \global\sfcode\count1=999
  300.    \ifnum \count@ <223
  301.     \advance \count@ 1
  302.   \repeat
  303. \endgroup
  304. \define@mathgroup\mv@normal{0}{dcr}{m}{n}
  305. \define@mathgroup\mv@bold{0}{dcr}{bx}{n}
  306. \begingroup
  307.   \catcode`\= 11
  308.   \gdef\p@mathrm{\use@mathgroup \=dcr \z@}
  309. \endgroup
  310. \def\rmdefault{dcr}
  311. \def\sfdefault{dcss}
  312. \def\ttdefault{dctt}
  313. \ifx\greek@group\undefined
  314.   \new@mathgroup\greek@group
  315.   \define@mathgroup\mv@normal\greek@group{cmr}{m}{n}
  316.   \define@mathgroup\mv@bold\greek@group{cmr}{bx}{n}
  317.   \edef\@tempa{\hexnumber@\greek@group}
  318.   \mathchardef\Gamma="0\@tempa00
  319.   \mathchardef\Delta="0\@tempa01
  320.   \mathchardef\Theta="0\@tempa02
  321.   \mathchardef\Lambda="0\@tempa03
  322.   \mathchardef\Xi="0\@tempa04
  323.   \mathchardef\Pi="0\@tempa05
  324.   \mathchardef\Sigma="0\@tempa06
  325.   \mathchardef\Upsilon="0\@tempa07
  326.   \mathchardef\Phi="0\@tempa08
  327.   \mathchardef\Psi="0\@tempa09
  328.   \mathchardef\Omega="0\@tempa0A
  329. \fi
  330. \expandafter\ifx\csname dcr/m/n\endcsname\relax
  331.   \@input{fontdef.dc}%
  332. \fi
  333. \def\acute{\mathaccent"7001 }
  334. \def\grave{\mathaccent"7000 }
  335. \def\ddot{\mathaccent"7004 }
  336. \def\tilde{\mathaccent"7003 }
  337. \def\bar{\mathaccent"7009 }
  338. \def\breve{\mathaccent"7008 }
  339. \def\check{\mathaccent"7007 }
  340. \def\hat{\mathaccent"7002 }
  341. \def\vec{\mathaccent"017E }
  342. \def\dot{\mathaccent"700A }
  343. \endinput
  344. %% 
  345. %% End of file `dclfont.sty'.
  346.