% jlplain.tex  Hideki ISOZAKI isozaki@ntt-20.ntt.jp 8 Feb 89
%
% This file is used to make jlatex for 10pt/11pt/12pt-based style files

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%          LaTeX and JTeX
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\let\eagerfont\font
\let\font\delayedfont
\input lplain
\let\font\eagerfont
\input jtexbase

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%          FONT USAGE
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\message{preloading japanese fonts, 8, 9, 10, 11, 12, 14, 17, 20, 25pt}
% Preload the fonts used by most users
%
% Check Fonts:  *=Japanese available
%
%      STYLE        10pt           11pt          12pt
%      ----------------------------------------------
%      tiny          5pt            6pt           6pt
%      scriptsize    7pt            8pt*          8pt*        
%      footnotesize  8pt*           9pt*         10pt*
%      small         9pt*          10pt*         11pt*
%      normalsize   10pt*          11pt*         12pt*
%      large        12pt*          12pt*         14pt*
%      Large        14pt*          14pt*         17pt*
%      LARGE        17pt*          17pt*         20pt*
%      huge         20pt*          20pt*         25pt*
%      Huge         25pt*          25pt*         25pt*
%      --------------------------------------------------
%      STYLE        jart10.sty     jart11.sty    jart12.sty
%      title        14pt*          14pt*         17pt*
%      author       12pt*          12pt*         14pt*
%      date         12pt*          12pt*         14pt*
%      footnote      8pt*           9pt*         10pt*
%      font@s       12pt*          12pt*         14pt*         
%      font@ss      12pt*          12pt*         14pt*
%      font@sss     10pt*          11pt*         12pt*
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%          DEFAULT FONT
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Don't add % immediately after these lines.
\makeatletter
%\jfont\sevendm=dm7
%\jfont\sevendg=dg7
\jfont\eightdm=dm8
\jfont\eightdg=dg8
\jfont\ninedm=dm9
\jfont\ninedg=dg9
\jfont\tendm=dm10
\jfont\tendg=dg10
\jfont\elevendm=dm10 scaled \magstephalf
\jfont\elevendg=dg10 scaled \magstephalf
\jfont\twelvedm=dm12
\jfont\twelvedg=dg12
\jfont\fourteendm=dm10 scaled \magstep2
\jfont\fourteendg=dg10 scaled \magstep2
\jfont\seventeendm=dm10 scaled \magstep3
\jfont\seventeendg=dg10 scaled \magstep3
\jfont\twentydm=dm10 scaled \magstep4
\jfont\twentydg=dg10 scaled \magstep4
\jfont\twentyfivedm=dm10 scaled \magstep5
\jfont\twentyfivedg=dg10 scaled \magstep5
\makeatother

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%          REDEFINITION
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Redefinition for Japanese
%
% Don't delete `\relax' at the end of the following redefinitions.
% If you delete it, it will gobble following numbers.
%
\makeatletter
\newcount\jfsize
\let\old@vpt=\vpt
\def\vpt{\old@vpt\eightdm\let\pdg\eightdg\let\pdm\eightdm\jfsize=8\relax}
\let\old@vipt=\vipt
\def\vipt{\old@vipt\eightdm\let\pdg\eightdg\let\pdm\eightdm\jfsize=8\relax}
\let\old@viipt=\viipt
\def\viipt{\old@viipt\eightdm\let\pdg\eightdg\let\pdm\eightdm\jfsize=8\relax}
\let\old@viiipt=\viiipt
\def\viiipt{\old@viiipt\eightdm\let\pdg\eightdg\let\pdm\eightdm\jfsize=8\relax}
\let\old@ixpt=\ixpt
\def\ixpt{\old@ixpt\ninedm\let\pdg\ninedg\let\pdm\ninedm\jfsize=9\relax}
\let\old@xpt=\xpt
\def\xpt{\old@xpt\tendm\let\pdg\tendg\let\pdm\tendm\jfsize=10\relax}
\let\old@xipt=\xipt
\def\xipt{\old@xipt\elevendm\let\pdg\elevendg\let\pdm\elevendm\jfsize=11\relax}
\let\old@xiipt=\xiipt
\def\xiipt{\old@xiipt\twelvedm\let\pdg\twelvedg\let\pdm\twelvedm
\jfsize=12\relax}
\let\old@xivpt=\xivpt
\def\xivpt{\old@xivpt\fourteendm\let\pdg\fourteendg%
\let\pdm\fourteendm\jfsize=14\relax}
\let\old@xviipt=\xviipt
\def\xviipt{\old@xviipt\seventeendm\let\pdg\seventeendg%
\let\pdm\seventeendm\jfsize=17\relax}
\let\old@xxpt=\xxpt
\def\xxpt{\old@xxpt\twentydm\let\pdg\twentydg
\let\pdm\twentydm\jfsize=20\relax}
\let\old@xxvpt=\xxvpt
\def\xxvpt{\old@xxvpt\twentyfivedm\let\pdg\twentyfivedg
\let\pdm\twentyfivedm\jfsize=25\relax}

\def\normalsize{\ifx\@currsize\normalsize \rm\dm \else \@normalsize\fi}

\def\dg{\protect\pdg}
\def\dm{\protect\pdm}

\makeatother

\xpt % select default size

\input sitekcode

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%          VERSION
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\def\fmtname{jlplain}%
\def\fmtversion{1.3}% identifies this format
\everyjob{\typeout{** JLaTeX ver.\fmtversion......Isozaki}}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%          COMPATIBILITY
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\def\usesecondlevel#1 of #2#3#4 {%
\typeout{>>Obsolete: usesecondlevel.}%
\typeout{>>You don't have to declare use of second level kanji.}}

\def\usesecondlevels#1 of #2#3#4 #5 #6 {%
\typeout{>>Obsolete: usesecondlevels.}%
\typeout{>>You don't have to declare use of second level kanji.}}

\def\loadjfont#1=#2#3#4 {%
\typeout{>>Obsolete: loadjfont.^^JUse jfont}\jfont#1=#2#3#4 }

\def\loadsfont#1=#2#3#4 #5 #6 {%
\typeout{>>Obsolete: loadsfont.^^JUse jfont}\jfont#1=#2#3#4 #5 #6 }

\def\use #1 of #2#3#4 {\typeout{>>Obsolete: use.}}
\def\uses #1 of #2#3#4 #5 #6 {\typeout{>>Obsolete: uses.}}

\def\dmget#1#2{}
\def\dgget#1#2{}
