%% This is a plain TeX macro file for using mjn fonts
%% together with mt math fonts.

%% Created by MathInst0.8 on 03 Aug 98 at 10:51:10.

\input pdcfsel % get Damian Cugley's macros

\newfam\bifam \newfam\scfam

%% Special purpose fonts and templates...


\def\sanstemplate{%
  \@\M{rm}{hlsr7t}\@\f{it}{hlsri7t}%
  \@\f{bf}{hlsb7t}\@\f{bi}{hlsbi7t}% bold face
  %% \@\f{bf}{hlsd7t}\@\f{bi}{hlsdi7t}% semibold
}
%% \fontset{sans}\sanstemplate{10.0}{12pt}{}{}%ori 
\fontset{sans}\sanstemplate{8.5}{12pt}{}{}% this works better... 
\newfam\sffam 
\def\sf{\fam\sffam\sansrm}\textfont\sffam=\sansrm % for math

\def\tttemplate{%
  \@\f{rm}{cmtt10}%
}
\fontset{tt}\tttemplate{9.7}{12pt}{}{}
\def\tt{\fam\ttfam\ttrm}\textfont\ttfam = \ttrm % for math


\def\caltemplate{
  \@\f{rm}{cmsy10}%
}
\fontset{cal}\caltemplate{10.0}{12pt}{}{}
\newfam\calfam
\def\cal{\fam\calfam\calrm}\textfont\calfam = \calrm % for math


\def\fraktemplate{
  \@\f{rm}{eufm10}%
}
\fontset{frak}\fraktemplate{8.8}{12pt}{}{}
\newfam\frakfam
\def\frak{\fam\frakfam\frakrm}\textfont\frakfam = \frakrm % for math


\def\bbtemplate{
  \@\f{rm}{pmp6}%
}
\fontset{bb}\bbtemplate{10.0}{12pt}{}{}
\newfam\bbfam
\def\bb{\fam\bbfam\bbrm}\textfont\bbfam = \bbrm % for math


%% Now for the usual stuff, math and roman.

\font\tenex=mjnrm7v at 10 pt
\textfont3=\tenex \scriptfont3=\tenex \scriptscriptfont3=\tenex

\def\texttemplate{%
  \@\f{textrm}{mjnrm7t}% 
  \@\M{rm}{mjnrm7t}\@\M{mi}{mjnrm7m}%
  \@\M{sy}{mjnrm7y}% math fonts
  \@\M{it}{mjnri9t}\@\m{bf}{mjnbm7t}%
  \@\m{sc}{mjnrc9t}% % AH
  \@\f{bi}{mjnbi9t}}%
\def\scripttemplate{%
  \@\M{rm}{mjnrm7t7}\@\M{mi}{mjnrm7m7}%
  \@\M{sy}{mjnrm7y7}% math fonts
  \@\M{it}{mjnri9t}\@\m{bf}{mjnbm7t7}%
  \@\m{sc}{mjnrc9t}% % AH
  \@\f{bi}{mjnbi9t}}%
\def\sscripttemplate{%
  \@\M{rm}{mjnrm7t5}\@\M{mi}{mjnrm7m5}%
  \@\M{sy}{mjnrm7y5}% math fonts
  \@\m{sc}{mjnrc9t}% % AH
  \@\M{it}{mjnri9t}\@\m{bf}{mjnbm7t5}%
  \@\f{bi}{mjnbi9t}}%
\xfontset{scriptscript}\sscripttemplate{5}
\xfontset{script}\scripttemplate{7}
\fontset{body}\texttemplate{10}{12pt}{script}{scriptscript}
%% \fontset{body}\texttemplate{12}{14pt}{script}{scriptscript}
\fontset{heading}\texttemplate{12}{14pt}{body}{script}
\fontset{sansheading}\texttemplate{12}{14pt}{body}{script}
\fontset{note}\scripttemplate{8}{10pt}{scriptscript}{scriptscript}

%% Some miscellaneous hacks...

\def\l{\char170\relax}\def\L{\char138\relax}

\catcode`\@=11 
  \setbox0=\hbox{\tenex B}\p@renwd=\wd0 % for \bordermatrix
\catcode`\@=12

\mathchardef\varkappa="0180
\mathchardef\comp="2181
\def\vec{\mathaccent"717E }
\mathchardef\Relbar="3280
\mathcode`\;="6281

\bodyfonts
%% Assigning skewchars...
\skewchar\bodymi=127 \skewchar\scriptmi=127 \skewchar\scriptscriptmi=127
\skewchar\bodysy=48  \skewchar\scriptsy=48  \skewchar\scriptscriptmi=48

\let\tenrm=\textrm \textrm

\endinput

%%% Local Variables: 
%%% mode: plain-tex
%%% TeX-master: "zmtmjn"
%%% End: