summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/source/platex/base/plfonts.dtx
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2010-05-18 18:19:00 +0000
committerKarl Berry <karl@freefriends.org>2010-05-18 18:19:00 +0000
commita9eff7800c1787b0af5f140437003eea9e53cbb3 (patch)
tree6a6bee46035290fe65d79ff8cae90279eca08759 /Master/texmf-dist/source/platex/base/plfonts.dtx
parent8c3ddaae131e42eb2318cfe675eaff5a184892e1 (diff)
towards 2010 pretest: enabling restricted write18, PDF 1.5 by default, ptex support files, other new programs, with i386-linux binaries
git-svn-id: svn://tug.org/texlive/trunk@18336 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/source/platex/base/plfonts.dtx')
-rw-r--r--Master/texmf-dist/source/platex/base/plfonts.dtx1884
1 files changed, 1884 insertions, 0 deletions
diff --git a/Master/texmf-dist/source/platex/base/plfonts.dtx b/Master/texmf-dist/source/platex/base/plfonts.dtx
new file mode 100644
index 00000000000..02b21a3d17e
--- /dev/null
+++ b/Master/texmf-dist/source/platex/base/plfonts.dtx
@@ -0,0 +1,1884 @@
+% \iffalse meta-comment
+%% File: plfonts.dtx
+%
+% Copyright 1994-2006 ASCII Corporation.
+%
+% This file is part of pLaTeX2e system.
+% -------------------------------------
+%
+% \fi
+%
+% \CheckSum{1685}
+%% \CharacterTable
+%% {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
+%% 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
+%% Digits \0\1\2\3\4\5\6\7\8\9
+%% Exclamation \! Double quote \" Hash (number) \#
+%% Dollar \$ Percent \% Ampersand \&
+%% Acute accent \' Left paren \( Right paren \)
+%% Asterisk \* Plus \+ Comma \,
+%% Minus \- Point \. Solidus \/
+%% Colon \: Semicolon \; Less than \<
+%% Equals \= Greater than \> Question mark \?
+%% Commercial at \@ Left bracket \[ Backslash \\
+%% Right bracket \] Circumflex \^ Underscore \_
+%% Grave accent \` Left brace \{ Vertical bar \|
+%% Right brace \} Tilde \~}
+%%
+%
+% \setcounter{StandardModuleDepth}{1}
+% \StopEventually{}
+%
+% \iffalse
+% \changes{v1.0}{1994/09/16}{first edition}
+% \changes{v1.1}{1995/02/21}{\cs{selectfont}$B%"%k%4%j%:%`JQ99(B}
+% \changes{v1.1b}{1995/04/25}{\cs{selectfont}$B=$@5(B}
+% \changes{v1.1c}{1995/08/22}{$B=D2#%U%)%s%HF1;~@Z$jBX$((B}
+% \changes{v1.2}{1995/11/09}{\cs{DeclareFixedFont}$B$NF|K\8l2=(B}
+% \changes{v1.3}{1996/03/25}{$B?t<0%U%!%_%j$NDj5AJQ99(B}
+% \changes{v1.3a}{1997/01/25}{\LaTeX\ \texttt{!<1996/12/01!>$B$KBP1~(B}}
+% \changes{v1.3b}{1997/01/28}{\cs{textmc}, \cs{textgt}$B$NF0:n=$@5(B}
+% \changes{v1.3c}{1997/04/08}{$BOBJ8%(%s%3!<%I4XO"$N=$@5(B}
+% \changes{v1.3d}{1997/06/25}{\cs{em},\cs{emph}$B$GOBJ8$r6/D4=qBN$K(B}
+% \changes{v1.3e}{1997/07/10}{fd$B%U%!%$%kL>$N>.J8;z2=$,8z$$$F$$$J$+$C$?$N$r=$@5(B}
+% \changes{v1.3f}{1998/08/10}{\cs{DeclareFixedCommand}$B$r(B\cs{@onlypreamble}$B$K(B
+% $B$7$F$7$^$C$F$$$?$N$r=$@5(B}
+% \changes{v1.3g}{1999/04/05}{plpatch.ltx$B$NFbMF$rH?1G(B}
+% \changes{v1.3h}{1999/08/09}{\cs{strut}$B$N2~A1(B}
+% \changes{v1.3i}{2000/07/13}{\cs{text..}$B%3%^%s%I$N:8B&$K(B\cs{xkanjiskip}$B$,(B
+% $BF~$i$J$$$N$r=$@5(B}
+% \changes{v1.3j}{2000/10/24}{\cs{adjustbaseline}$B$GM>J,$J%"%-$,F~$i$J$$(B
+% $B$h$&$K$7$?(B}
+% \changes{v1.3k}{2001/05/10}{\cs{adjustbaseline}$B$ND4@0NL(B}
+% \changes{v1.3l}{2002/04/05}{\cs{adjustbaseline}$B$G%U%)%s%H$N4p=`CM$,=D=q$-(B
+% $B0J30$G$O@_Dj$5$l$J$$$N$r=$@5(B}
+% \changes{v1.3m}{2004/06/14}{\cs{fontfamily}$B%3%^%s%IFbIt%U%i%0JQ99(B}
+% \changes{v1.3n}{2004/08/10}{$BOBJ8%(%s%3!<%G%#%s%0$N@Z$jBX$($rM-8z2=(B}
+% \changes{v1.3o}{2005/01/04}{\cs{fontfamily}$BCf$N%U%i%0=$@5(B}
+% \changes{v1.3p}{2006/01/04}{\cs{DeclareFontEncoding@}$BCf$G(B
+% \cs{LastDeclaredEncodeng}$B$N:FDj5A$,H4$1$F$$$?$N$GDI2C(B}
+% \changes{v1.4}{2006/06/27}{\cs{reDeclareMathAlphabet}$B$r=$@5!#(B
+% $B$"$j$,$H$&!"(Bymt$B$5$s!#(B}
+% \changes{v1.5}{2006/11/10}{\cs{reDeclareMathAlphabet}$B$r=$@5!#(B
+% $B$"$j$,$H$&!"(Bymt$B$5$s!#(B}
+% \fi
+%
+% \iffalse
+%<*driver>
+\NeedsTeXFormat{pLaTeX2e}
+% \fi
+\ProvidesFile{plfonts.dtx}[2006/11/10 v1.5 pLaTeX New Font Selection Scheme]
+% \iffalse
+\documentclass{jltxdoc}
+\GetFileInfo{plfonts.dtx}
+\title{p\LaTeXe{}$B$N%U%)%s%H%3%^%s%I(B\space\fileversion}
+\author{Ken Nakano \& Hideaki Togashi}
+\date{$B:n@.F|!'(B\filedate}
+\begin{document}
+ \maketitle
+ \tableofcontents
+ \DocInput{\filename}
+\end{document}
+%</driver>
+% \fi
+%
+% \section{$B35MW(B}\label{plfonts:intro}
+% $B$3$3$G$O!"OBJ8=qBN$r(B\NFSS2$B$N%$%s%?!<%U%'%$%9$GA*Br$9$k$?$a$N(B
+% $B%3%^%s%I$d%^%/%m$K$D$$$F@bL@$r$7$F$$$^$9!#(B
+% $B$^$?!"%U%)%s%HDj5A%U%!%$%k$d=i4|@_Dj%U%!%$%k$J$I$N@bL@$b$7$F$$$^$9!#(B
+% $B?7$7$$%U%)%s%HA*Br%3%^%s%I$N;H$$J}$K$D$$$F$O!"(B\file{fntguide.tex}$B$d(B
+% \file{usrguide.tex}$B$r;2>H$7$F$/$@$5$$!#(B
+%
+% \begin{description}
+% \item[$BBh(B\ref{plfonts:intro}$B@a(B] $B$3$N@a$G$9!#$3$N%U%!%$%k$N35MW$H(B
+% \dst{}$B%W%m%0%i%`$N$?$a$N%*%W%7%g%s$r<($7$F$$$^$9!#(B
+% \item[$BBh(B\ref{plfonts:codes}$B@a(B] $B<B:]$N%3!<%I$NItJ,$G$9!#(B
+% \item[$BBh(B\ref{plfonts:pldefs}$B@a(B] $B%W%j%m!<%I%U%)%s%H$d%(%i!<%U%)%s%H$J$I$N(B
+% $B=i4|@_Dj$K$D$$$F@bL@$r$7$F$$$^$9!#(B
+% \item[$BBh(B\ref{plfonts:fontdef}$B@a(B] $B%U%)%s%HDj5A%U%!%$%k$K$D$$$F(B
+% $B@bL@$r$7$F$$$^$9!#(B
+% \end{description}
+%
+%
+% \subsection{\dst{}$B%W%m%0%i%`$N$?$a$N%*%W%7%g%s(B}
+% \dst{}$B%W%m%0%i%`$N$?$a$N%*%W%7%g%s$r<!$K<($7$^$9!#(B
+%
+% \DeleteShortVerb{\|}
+% \begin{center}
+% \begin{tabular}{l|p{0.7\linewidth}}
+% \emph{$B%*%W%7%g%s(B} & \emph{$B0UL#(B}\\\hline
+% plcore & \file{plfonts.ltx}$B$r@8@.$7$^$9!#(B\\
+% trace & \file{ptrace.sty}$B$r@8@.$7$^$9!#(B\\
+% JY1mc & $B2#AHMQ!"L@D+BN$N%U%)%s%HDj5A%U%!%$%k$r@8@.$7$^$9!#(B\\
+% JY1gt & $B2#AHMQ!"%4%7%C%/BN$N%U%)%s%HDj5A%U%!%$%k$r@8@.$7$^$9!#(B\\
+% JT1mc & $B=DAHMQ!"L@D+BN$N%U%)%s%HDj5A%U%!%$%k$r@8@.$7$^$9!#(B\\
+% JT1gt & $B=DAHMQ!"%4%7%C%/BN$N%U%)%s%HDj5A%U%!%$%k$r@8@.$7$^$9!#(B\\
+% pldefs & \file{pldefs.ltx}$B$r@8@.$7$^$9!#<!$N#4$D$N%*%W%7%g%s$rIU2C$9$k(B
+% $B$3$H$G!"%W%j%m!<%I$9$k%U%)%s%H$rA*Br$9$k$3$H$,$G$-$^$9!#(B
+% $B%G%U%)%k%H$O(B10pt$B$G$9!#(B\\
+% xpt & 10pt $B%W%j%m!<%I(B\\
+% xipt & 11pt $B%W%j%m!<%I(B\\
+% xiipt & 12pt $B%W%j%m!<%I(B\\
+% ori & \file{plfonts.tex}$B$K;w$?%W%j%m!<%I(B\\
+% \end{tabular}
+% \end{center}
+% \MakeShortVerb{\|}
+%
+%
+%
+% \section{$B%3!<%I(B}\label{plfonts:codes}
+% $B$3$N@a$G!"6qBNE*$K(B\NFSS2$B$r3HD%$9$k%3%^%s%I$d%^%/%m$NDj5A$r9T$J$C$F$$$^$9!#(B
+%
+% \subsection{$B=`Hw(B}
+% \NFSS2$B$r3HD%$9$k$?$a$N=`Hw$G$9!#(B
+% $BOBJ8%U%)%s%H$NB0@-$r3JG<$9$k%*%V%8%'%/%H$dD9$5JQ?t!"(B
+% $BB0@-$r@ZBX$($k:]$NH=CG:`NA$H$7$F;H$&%j%9%H$J$I$rDj5A$7$F$$$^$9!#(B
+%
+%
+% \subsubsection{$BOBJ8%U%)%s%HB0@-(B}
+% $B$3$3$G$O!"OBJ8%U%)%s%H$NB0@-$r3JG<$9$k$?$a$N%*%V%8%'%/%H$K$D$$$F(B
+% $B@bL@$r$7$F$$$^$9!#(B
+%
+% \begin{macro}{\k@encoding}
+% \begin{macro}{\ck@encoding}
+% \begin{macro}{\cy@encoding}
+% \begin{macro}{\ct@encoding}
+% $BOBJ8%(%s%3!<%I$r<($9%*%V%8%'%/%H$G$9!#(B
+% |\ck@encoding|$B$O!":G8e$KA*Br$5$l$?OBJ8%(%s%3!<%IL>$r<($7$F$$$^$9!#(B
+% |\cy@encoding|$B$H(B|\ct@encoding|$B$O$=$l$>$l!":G8e$KA*Br$5$l$?!"(B
+% $B2#AHMQ$H=DAHMQ$NOBJ8%(%s%3!<%IL>$r<($7$F$$$^$9!#(B
+% \begin{macrocode}
+%<*plcore>
+\let\k@encoding\@empty
+\let\ck@encoding\@empty
+\def\cy@encoding{JY1}
+\def\ct@encoding{JT1}
+% \end{macrocode}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+%
+% \begin{macro}{\k@family}
+% $BOBJ8=qBN$N%U%!%_%j$r<($9%*%V%8%'%/%H$G$9!#(B
+% \begin{macrocode}
+\let\k@family\@empty
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\k@series}
+% $BOBJ8=qBN$N%7%j!<%:$r<($9%*%V%8%'%/%H$G$9!#(B
+% \begin{macrocode}
+\let\k@series\@empty
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\k@shape}
+% $BOBJ8=qBN$N%7%'%$%W$r<($9%*%V%8%'%/%H$G$9!#(B
+% \begin{macrocode}
+\let\k@shape\@empty
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\curr@kfontshape}
+% $B8=:_$NOBJ8%U%)%s%HL>$r<($9%*%V%8%'%/%H$G$9!#(B
+% \begin{macrocode}
+\def\curr@kfontshape{\k@encoding/\k@family/\k@series/\k@shape}
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\rel@fontshape}
+% $B4XO"IU$1$5$l$?%U%)%s%HL>$r<($9%*%V%8%'%/%H$G$9!#(B
+% \begin{macrocode}
+\def\rel@fontshape{\f@encoding/\f@family/\f@series/\f@shape}
+% \end{macrocode}
+% \end{macro}
+%
+% \subsubsection{$BD9$5JQ?t(B}
+% $B$3$3$G$O!"OBJ8%U%)%s%H$NI}$d9b$5$J$I$r3JG<$9$kJQ?t$K$D$$$F@bL@$r$7$F$$$^$9!#(B
+%
+% $BF,J8;z$,BgJ8;z$NJQ?t$O!"%N!<%^%k%5%$%:$N=qBN$NBg$-$5$G!"4p=`CM$H$J$j$^$9!#(B
+% $B$3$l$i$O!"(B\file{jart10.clo}$B$J$I$NJd=u%/%i%9%U%!%$%k$G@_Dj$5$l$^$9!#(B
+%
+% $B>.J8;z$@$1$+$i$J$kJQ?t$O!"(B
+% $B%U%)%s%H$,JQ99$5$l$?$H$-$K!J(B|\selectfont|$BFb$G!K99?7$5$l$^$9!#(B
+%
+% \begin{macro}{\Cht}
+% \begin{macro}{\cht}
+% |\Cht|$B$O4p=`$H$J$kOBJ8%U%)%s%H$NJ8;z$N9b$5$r<($7$^$9!#(B
+% |\cht|$B$O8=:_$NOBJ8%U%)%s%H$NJ8;z$N9b$5$r<($7$^$9!#(B
+% $B$J$*!"$3$N(B``$B9b$5(B''$B$O%Y!<%9%i%$%s$h$j>e$ND9$5$G$9!#(B
+% \begin{macrocode}
+\newdimen\Cht
+\newdimen\cht
+% \end{macrocode}
+% \end{macro}
+% \end{macro}
+%
+% \begin{macro}{\Cdp}
+% \begin{macro}{\cdp}
+% |\Cdp|$B$O4p=`$H$J$kOBJ8%U%)%s%H$NJ8;z$N?<$5$r<($7$^$9!#(B
+% |\cdp|$B$O8=:_$NOBJ8%U%)%s%H$NJ8;z$N?<$5$r<($7$^$9!#(B
+% $B$J$*!"$3$N(B``$B?<$5(B''$B$O%Y!<%9%i%$%s$h$j2<$ND9$5$G$9!#(B
+% \begin{macrocode}
+\newdimen\Cdp
+\newdimen\cdp
+% \end{macrocode}
+% \end{macro}
+% \end{macro}
+%
+% \begin{macro}{\Cwd}
+% \begin{macro}{\cwd}
+% |\Cwd|$B$O4p=`$H$J$kOBJ8%U%)%s%H$NJ8;z$NI}$r<($7$^$9!#(B
+% |\cwd|$B$O8=:_$NOBJ8%U%)%s%H$NJ8;z$NI}$r<($7$^$9!#(B
+% \begin{macrocode}
+\newdimen\Cwd
+\newdimen\cwd
+% \end{macrocode}
+% \end{macro}
+% \end{macro}
+%
+% \begin{macro}{\Cvs}
+% \begin{macro}{\cvs}
+% |\Cvs|$B$O4p=`$H$J$k9TAw$j$r<($7$^$9!#(B
+% $B%N!<%^%k%5%$%:$N(B|\baselineskip|$B$HF1CM$G$9!#(B
+% |\cvs|$B$O8=:_$N9TAw$j$r<($7$^$9!#(B
+% \begin{macrocode}
+\newdimen\Cvs
+\newdimen\cvs
+% \end{macrocode}
+% \end{macro}
+% \end{macro}
+%
+% \begin{macro}{\Chs}
+% \begin{macro}{\chs}
+% |\Chs|$B$O4p=`$H$J$k;zAw$j$r<($7$^$9!#(B|\Cwd|$B$HF1CM$G$9!#(B
+% |\chs|$B$O8=:_$N;zAw$j$r<($7$^$9!#(B
+% \begin{macrocode}
+\newdimen\Chs
+\newdimen\chs
+% \end{macrocode}
+% \end{macro}
+% \end{macro}
+%
+% \begin{macro}{\cHT}
+% |\cHT|$B$O!"8=:_$N%U%)%s%H$N9b$5$K?<$5$r2C$($?D9$5$r<($7$^$9!#(B
+% |\set@fontsize|$B%3%^%s%I!J<B:]$O(B|\size@update|$B!K$G99?7$5$l$^$9!#(B
+% \begin{macrocode}
+\newdimen\cHT
+% \end{macrocode}
+% \end{macro}
+%
+% \subsubsection{$B0l;~%3%^%s%I(B}
+%
+% \begin{macro}{\afont}
+% \LaTeX{}$BFbIt$N(B|\do@subst@correction|$B%^%/%m$G$O!"(B
+% |\fontname\font|$B$GJV$5$l$k30It%U%)%s%HL>$rMQ$$$F!"(B
+% \LaTeX{}$B%U%)%s%HL>$rDj5A$7$F$$$^$9!#$7$?$,$C$F!"(B|\font|$B$r$=$N$^$^;H$&$H!"(B
+% $BOBJ8%U%)%s%HL>$K2$J8$N30It%U%)%s%H$,EPO?$5$l$?$j!"(B
+% $B=DAH%U%)%s%HL>$K2#AHMQ$N30It%U%)%s%H$,3d$jIU$1$i$l$?$j$7$^$9$N$G!"(B
+% |\jfont|$B$+(B|\tfont|$B$rMQ$$$k$h$&$K$7$^$9!#(B
+% |\afont|$B$O!"(B|\font|$B%3%^%s%I$NJ]B8MQ$G$9!#(B
+% \begin{macrocode}
+\let\afont\font
+% \end{macrocode}
+% \end{macro}
+%
+%
+% \subsubsection{$B%U%)%s%H%j%9%H(B}
+% $B$3$3$G$O!"%U%)%s%H$N%(%s%3!<%I$d%U%!%_%j$NL>A0$rEPO?$9$k%j%9%H$K$D$$$F(B
+% $B@bL@$r$7$F$$$^$9!#(B
+%
+% p\LaTeXe{}$B$N(B\NFSS2$B$G$O!"0l$D$N%3%^%s%I$GOBJ8$+2$J8$N$$$:$l$+!"$"$k$$$ON>J}$r(B
+% $BJQ99$9$k$?$a!"%3%^%s%I$K;XDj$5$l$?0z?t$,2?$r<($9$N$+$rH=CG$7$J$/$F$O(B
+% $B$J$j$^$;$s!#$3$NH=CG:`NA$H$7$F!"%j%9%H$rMQ$$$^$9!#(B
+%
+% $B$3$N$H$-$N6qBNE*$JH=CG<j=g$K$D$$$F$O!"%(%s%3!<%IA*Br%3%^%s%I$d(B
+% $B%U%!%_%jA*Br%3%^%s%I$J$I$NDj5A$r;2>H$7$F$/$@$5$$!#(B
+%
+% \begin{macro}{\inlist}
+% $B<!$N%3%^%s%I$O!"%(%s%3!<%I$d%U%!%_%j$N%j%9%HFb$KBhFs0z?t$G;XDj$5$l$?J8;zNs(B
+% $B$,$"$k$+$I$&$+$rD4$Y$k%^%/%m$G$9!#(B
+% \begin{macrocode}
+\def\inlist@#1#2{%
+ \def\in@@##1<#1>##2##3\in@@{%
+ \ifx\in@##2\in@false\else\in@true\fi}%
+ \in@@#2<#1>\in@\in@@}
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\enc@elt}
+% \begin{macro}{\fam@elt}
+% |\enc@elt|$B$H(B|\fam@elt|$B$O!"EPO?$5$l$F$$$k%(%s%3!<%I$KBP$7$F!"(B
+% $B$J$s$i$+$N=hM}$rC`<!E*$K9T$J$$$?$$$H$-$K;HMQ$9$k$3$H$,$G$-$^$9!#(B
+% \begin{macrocode}
+\def\fam@elt{\noexpand\fam@elt}
+\def\enc@elt{\noexpand\enc@elt}
+% \end{macrocode}
+% \end{macro}
+% \end{macro}
+%
+% \begin{macro}{\fenc@list}
+% \begin{macro}{\kenc@list}
+% \begin{macro}{\kyenc@list}
+% \begin{macro}{\ktenc@list}
+% |\fenc@list|$B$K$O!"(B|\DeclareFontEncoding|$B%3%^%s%I$G@k8@$5$l$?%(%s%3!<%IL>$,(B
+% $B3JG<$5$l$F$$$-$^$9!#(B
+%
+% |\kyenc@list|$B$K$O!"(B|\DeclareYokoKanjiEncoding|$B%3%^%s%I$G@k8@$5$l$?(B
+% $B%(%s%3!<%IL>$,3JG<$5$l$F$$$-$^$9!#(B
+% |\ktenc@list|$B$K$O!"(B|\DeclareTateKanjiEncoding|$B%3%^%s%I$G@k8@$5$l$?(B
+% $B%(%s%3!<%IL>$,3JG<$5$l$F$$$-$^$9!#(B
+%
+% \changes{v1.1b}{1995/03/28}{$B%j%9%H$N=i4|CM$rJQ99(B}
+% \changes{v1.1b}{1995/05/10}{$B%j%9%HFb$N6uGr$r:o=|(B}
+%
+% $B$3$3$G!"$3$l$i$N%j%9%H$K6qBNE*$JCM$rF~$l$F=i4|2=$r$9$k$N$O!"(B
+% $B%j%9%H$K%(%s%3!<%I$NEPO?$r$9$k$h$&$K(B|\DeclareFontEncoding|$B$r:FDj5A(B
+% $B$9$kA0$K!"2$J8%(%s%3!<%I$,@k8@$5$l$k$?$a!"%j%9%H$KEPO?$5$l$J$$$+$i$G$9!#(B
+% \changes{v1.1}{1997/01/25}{Add TS1 encoding to the starting member of
+% \cs{fenc@list}.}
+% \begin{macrocode}
+\def\fenc@list{\enc@elt<OML>\enc@elt<T1>\enc@elt<OT1>\enc@elt<OMS>%
+ \enc@elt<OMX>\enc@elt<TS1>\enc@elt<U>}
+\let\kenc@list\@empty
+\let\kyenc@list\@empty
+\let\ktenc@list\@empty
+% \end{macrocode}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+%
+% \begin{macro}{\kfam@list}
+% \begin{macro}{\ffam@list}
+% \begin{macro}{\notkfam@list}
+% \begin{macro}{\notffam@list}
+% |\kfam@list|$B$K$O!"(B|\DeclareKanjiFamily|$B%3%^%s%I$G@k8@$5$l$?%U%!%_%jL>$,(B
+% $B3JG<$5$l$F$$$-$^$9!#(B
+%
+% |\ffam@list|$B$K$O!"(B|\DeclareFontFamily|$B%3%^%s%I$G@k8@$5$l$?%U%!%_%jL>$,(B
+% $B3JG<$5$l$F$$$-$^$9!#(B
+%
+% |\notkfam@list|$B$K$O!"OBJ8%U%!%_%j$G$O$J$$$H?dB,$5$l$?%U%!%_%jL>$,(B
+% $B3JG<$5$l$F$$$-$^$9!#$3$N%j%9%H$O(B|\fontfamily|$B%3%^%s%I$G:n@.$5$l$^$9!#(B
+%
+% |\notffam@list|$B$K$O2$J8%U%!%_%j$G$O$J$$$H?dB,$5$l$?%U%!%_%jL>$,(B
+% $B3JG<$5$l$F$$$-$^$9!#$3$N%j%9%H$O(B|\fontfamily|$B%3%^%s%I$G:n@.$5$l$^$9!#(B
+%
+% \changes{v1.1b}{1995/03/28}{$B%j%9%H$N=i4|CM$rJQ99(B}
+% \changes{v1.1b}{1995/05/10}{$B%j%9%HFb$N6uGr$r:o=|(B}
+%
+% $B$3$3$G!"$3$l$i$N%j%9%H$K6qBNE*$JCM$rF~$l$F=i4|2=$r$9$k$N$O!"(B
+% $B%j%9%H$K%U%!%_%j$NEPO?$r$9$k$h$&$K!"(B|\DeclareFontFamily|$B$,(B
+% $B:FDj5A$5$l$kA0$K!"$3$N%3%^%s%I$,;HMQ$5$l$k$?$a!"(B
+% $B%j%9%H$KEPO?$5$l$J$$$+$i$G$9!#(B
+% \begin{macrocode}
+\def\kfam@list{\fam@elt<mc>\fam@elt<gt>}
+\def\ffam@list{\fam@elt<cmr>\fam@elt<cmss>\fam@elt<cmtt>%
+ \fam@elt<cmm>\fam@elt<cmsy>\fam@elt<cmex>}
+% \end{macrocode}
+% \changes{v1.1c}{1996/03/06}{\cs{notkfam@list}$B$H(B\cs{notffam@list}$B$N(B
+% $B=i4|CM$rJQ99(B}
+% $B$D$.$NFs$D$N%j%9%H$N=i4|CM$H$7$F!">e5-$NCM$rMQ$$$^$9!#(B
+% $B$3$l$i$N%U%!%_%jL>$O!"OBJ8$G$J$$$3$H!"2$J8$G$J$$$3$H$,$O$C$-$j$7$F$$$^$9!#(B
+% \begin{macrocode}
+\let\notkfam@list\ffam@list
+\let\notffam@list\kfam@list
+% \end{macrocode}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+%
+%
+% \subsubsection{$B;YCl(B}
+% $B9T4V$ND4@0$J$I$KMQ$$$k;YCl$G$9!#(B
+% $B;YCl$N$b$H$H$J$k%\%C%/%9$NBg$-$5$O!"%U%)%s%H%5%$%:$,JQ99$5$l$k$?$S$K!"(B
+% |\set@fontsize|$B%3%^%s%I$K$h$C$FJQ2=$7$^$9!#(B
+%
+% $B%U%)%s%H%5%$%:$,JQ99$5$l$?$H$-$K!"(B|\set@fontsize|$B%3%^%s%I$G99?7$5$l$^$9!#(B
+%
+% \begin{macro}{\tstrutbox}
+% \begin{macro}{\zstrutbox}
+% |\tstrutbox|$B$O9b$5$H?<$5$,#5BP#5!"(B
+% |\zstrutbox|$B$O9b$5$H?<$5$,#7BP#3$N;YCl%\%C%/%9$H$J$j$^$9!#(B
+% $B$3$l$i$O=DAH%\%C%/%9$N9T4V$ND4@0$J$I$K;H$$$^$9!#(B
+% $B$J$*!"2#AH%\%C%/%9MQ$N;YCl$O(B|\strutbox|$B$G!"9b$5$H?<$5$,#7BP#3$H$J$C$F$$$^$9!#(B
+% \begin{macrocode}
+\newbox\tstrutbox
+\newbox\zstrutbox
+% \end{macrocode}
+% \end{macro}
+% \end{macro}
+%
+% \begin{macro}{\strut}
+% \begin{macro}{\tstrut}
+% \begin{macro}{\zstrut}
+% |\strutbox|$B$O(B|\yoko|$B%G%#%l%/%7%g%s$GAH$^$l$F$$$^$9$N$G!"(B
+% $B=DAH%\%C%/%9Fb$G(B|\unhcopy|$B$r$9$k$H%(%i!<$H$J$j$^$9!#(B
+% $B$3$N%^%/%m$O(B\file{ltplain.dtx}$B$GDj5A$5$l$F$$$^$9!#(B
+%
+% \changes{v1.1c}{1995/08/24}{``\cs{centerling}~\cs{strut}''$B$NI}$,%<%m$K(B
+% $B$J$C$F$7$^$&$N$r=$@5(B}
+% \changes{v1.3h}{1999/08/09}{$B=DAH$N$H$-!"I}$N$"$k%\%C%/%9$K$J$C$F$7$^$&(B
+% $B$N$r=$@5(B}
+% \begin{macrocode}
+\def\strut{\relax
+ \ifydir
+ \ifmmode\copy\strutbox\else\unhcopy\strutbox\fi
+ \else
+ \ifmmode\copy\tstrutbox\else\unhcopy\tstrutbox\fi
+ \fi}
+\def\tstrut{\relax\hbox{\tate
+ \ifmmode\copy\tstrutbox\else\unhcopy\tstrutbox\fi}}
+\def\zstrut{\relax\hbox{\tate
+ \ifmmode\copy\zstrutbox\else\unhcopy\zstrutbox\fi}}
+% \end{macrocode}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+%
+%
+%
+% \subsection{$B%3%^%s%I(B}
+% $B<!$N%3%^%s%I$NDj5A$r$7$F$$$^$9!#(B
+%
+% \DeleteShortVerb{\|}
+% \MakeShortVerb{\+}
+% \begin{center}
+% \begin{tabular}{l|l}
+% \emph{$B%3%^%s%I(B} & \emph{$B0UL#(B}\\\hline
+% +\Declare{Font|YokoKanji|TateKanji}Encoding+ & $B%(%s%3!<%I$N@k8@(B\\
+% +\Declare{Yoko|Tate}KanjiEncodingDefaults+ &
+% $B%G%U%)%k%H$NOBJ8%(%s%3!<%I$N@k8@(B\\
+% +\Declare{Font|Kanji}Family+ & $B%U%!%_%j$N@k8@(B\\
+% +\DeclareKanjiSubstitution+ & $BOBJ8$NBeMQ%U%)%s%H$N@k8@(B\\
+% +\DeclareErrorKanjiFont+ & $BOBJ8$N%(%i!<%U%)%s%H$N@k8@(B \\
+% +\DeclareFixedFont+ & $B%U%)%s%H$NL>A0$N@k8@(B \\
+% +\reDeclareMathAlphabet+ & $BOB2$J8$rF1;~$K@Z$jBX$($k%3%^%s%I@k8@(B\\
+% +\{Declare|Set}RelationFont+ & $B=>B0=qBN$N@k8@(B\\
+% +\userelfont+ & $B2$J8=qBN$r=>B0=qBN$K$9$k(B\\
+% +\selectfont+ & $B%U%)%s%H$r@Z$jBX$($k(B\\
+% +\set@fontsize+ & $B%U%)%s%H%5%$%:$NJQ99(B\\
+% +\adjustbaseline+ & $B%Y!<%9%i%$%s%7%U%HNL$N@_Dj(B\\
+% +\{font|roman|kanji}encoding+ & $B%(%s%3!<%I$N;XDj(B\\
+% +\{font|roman|kanji}family+ & $B%U%!%_%j$N;XDj(B\\
+% +\{font|roman|kanji}series+ & $B%7%j!<%:$N;XDj(B\\
+% +\{font|roman|kanji}shape+ & $B%7%'%$%W$N;XDj(B\\
+% +\use{font|roman|kanji}+ & $B=qBN$N@Z$jBX$((B\\
+% +\normalfont+ & $B%G%U%)%k%HCM$N@_Dj$K@Z$jBX$($k(B\\
+% +\mcfamily+,+\gtfamily+ & $BOBJ8=qBN$rL@D+BN!"%4%7%C%/BN$K$9$k(B\\
+% +\textunderscore+ & $B%F%-%9%H%b!<%I$G$N2<@~%^%/%m(B\\
+% \end{tabular}
+% \end{center}
+% \DeleteShortVerb{\+}
+% \MakeShortVerb{\|}
+%
+%
+% \begin{macro}{\DeclareFontEncoding}
+% \begin{macro}{\DeclareFontEncoding@}
+% $B2$J8%(%s%3!<%I$r@k8@$9$k$?$a$N%3%^%s%I$G$9!#(B
+% \file{ltfssbas.dtx}$B$GDj5A$5$l$F$$$k$b$N$r!"(B
+% |\fenc@list|$B$r:n$k$h$&$K:FDj5A$r$7$F$$$^$9!#(B
+% \changes{v1.3p}{2006/01/04}{\cs{DeclareFontEncoding@}$BCf$G(B
+% \cs{LastDeclaredEncodeng}$B$N:FDj5A$,H4$1$F$$$?$N$GDI2C(B}
+% \begin{macrocode}
+\def\DeclareFontEncoding{%
+ \begingroup
+ \nfss@catcodes
+ \expandafter\endgroup
+ \DeclareFontEncoding@}
+%
+\def\DeclareFontEncoding@#1#2#3{%
+ \expandafter
+ \ifx\csname T@#1\endcsname\relax
+ \def\cdp@elt{\noexpand\cdp@elt}%
+ \xdef\cdp@list{\cdp@list\cdp@elt{#1}%
+ {\default@family}{\default@series}%
+ {\default@shape}}%
+ \expandafter\let\csname#1-cmd\endcsname\@changed@cmd
+ \def\enc@elt{\noexpand\enc@elt}%
+ \xdef\fenc@list{\fenc@list\enc@elt<#1>}%
+ \else
+ \@font@info{Redeclaring font encoding #1}%
+ \fi
+ \global\@namedef{T@#1}{#2}%
+ \global\@namedef{M@#1}{\default@M#3}%
+ \xdef\LastDeclaredEncoding{#1}%
+ }
+% \end{macrocode}
+% \end{macro}
+% \end{macro}
+%
+%
+% \begin{macro}{\DeclareKanjiEncoding}
+% \begin{macro}{\DeclareYokoKanjiEncoding}
+% \begin{macro}{\DeclareYokoKanjiEncoding@}
+% \begin{macro}{\DeclareTateKanjiEncoding}
+% \begin{macro}{\DeclareTateKanjiEncoding@}
+% $BOBJ8%(%s%3!<%I$N@k8@$r$9$k%3%^%s%I$G$9!#(B
+% \changes{v1.3c}{1997/04/08}{$BOBJ8%(%s%3!<%I@k8@%3%^%s%I$r=DAHMQ$H2#AHMQ$G(B
+% $BJ,$1$k$h$&$K$7$?!#(B}
+% \begin{macrocode}
+\def\DeclareKanjiEncoding#1{%
+ \@latex@warning{%
+ The \string\DeclareKanjiEncoding\space is obsoleted command. Please use
+ \MessageBreak
+ the \string\DeclareTateKanjiEncoding\space for `Tate-kumi' encoding, and
+ \MessageBreak
+ the \string\DeclareYokoKanjiEncoding\space for `Yoko-kumi' encoding.
+ \MessageBreak
+ I treat the `#1' encoding as `Yoko-kumi'.}
+ \DeclareYokoKanjiEncoding{#1}%
+}
+\def\DeclareYokoKanjiEncoding{%
+ \begingroup
+ \nfss@catcodes
+ \expandafter\endgroup
+ \DeclareYokoKanjiEncoding@}
+%
+\def\DeclareYokoKanjiEncoding@#1#2#3{%
+ \expandafter
+ \ifx\csname T@#1\endcsname\relax
+ \def\cdp@elt{\noexpand\cdp@elt}%
+ \xdef\cdp@list{\cdp@list\cdp@elt{#1}%
+ {\default@k@family}{\default@k@series}%
+ {\default@k@shape}}%
+ \expandafter\let\csname#1-cmd\endcsname\@changed@kcmd
+ \def\enc@elt{\noexpand\enc@elt}%
+ \xdef\kyenc@list{\kyenc@list\enc@elt<#1>}%
+ \xdef\kenc@list{\kenc@list\enc@elt<#1>}%
+ \else
+ \@font@info{Redeclaring KANJI (yoko) font encoding #1}%
+ \fi
+ \global\@namedef{T@#1}{#2}%
+ \global\@namedef{M@#1}{\default@KM#3}%
+ }
+%
+\def\DeclareTateKanjiEncoding{%
+ \begingroup
+ \nfss@catcodes
+ \expandafter\endgroup
+ \DeclareTateKanjiEncoding@}
+%
+\def\DeclareTateKanjiEncoding@#1#2#3{%
+ \expandafter
+ \ifx\csname T@#1\endcsname\relax
+ \def\cdp@elt{\noexpand\cdp@elt}%
+ \xdef\cdp@list{\cdp@list\cdp@elt{#1}%
+ {\default@k@family}{\default@k@series}%
+ {\default@k@shape}}%
+ \expandafter\let\csname#1-cmd\endcsname\@changed@kcmd
+ \def\enc@elt{\noexpand\enc@elt}%
+ \xdef\ktenc@list{\ktenc@list\enc@elt<#1>}%
+ \xdef\kenc@list{\kenc@list\enc@elt<#1>}%
+ \else
+ \@font@info{Redeclaring KANJI (tate) font encoding #1}%
+ \fi
+ \global\@namedef{T@#1}{#2}%
+ \global\@namedef{M@#1}{\default@KM#3}%
+ }
+%
+\@onlypreamble\DeclareKanjiEncoding
+\@onlypreamble\DeclareYokoKanjiEncoding
+\@onlypreamble\DeclareYokoKanjiEncoding@
+\@onlypreamble\DeclareTateKanjiEncoding
+\@onlypreamble\DeclareTateKanjiEncoding@
+% \end{macrocode}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+%
+%
+% \begin{macro}{\DeclareKanjiEncodingDefaults}
+% $BOBJ8%(%s%3!<%I$N%G%U%)%k%HCM$r@k8@$9$k%3%^%s%I$G$9!#(B
+% \begin{macrocode}
+\def\DeclareKanjiEncodingDefaults#1#2{%
+ \ifx\relax#1\else
+ \ifx\default@KT\@empty\else
+ \@font@info{Overwriting KANJI encoding scheme text defaults}%
+ \fi
+ \gdef\default@KT{#1}%
+ \fi
+ \ifx\relax#2\else
+ \ifx\default@KM\@empty\else
+ \@font@info{Overwriting KANJI encoding scheme math defaults}%
+ \fi
+ \gdef\default@KM{#2}%
+ \fi}
+\let\default@KT\@empty
+\let\default@KM\@empty
+\@onlypreamble\DeclareKanjiEncodingDefaults
+% \end{macrocode}
+% \end{macro}
+%
+%
+% \begin{macro}{\DeclareFontFamily}
+% $B2$J8%U%!%_%j$r@k8@$9$k$?$a$N%3%^%s%I$G$9!#(B
+% |\ffam@list|$B$r:n$k$h$&$K:FDj5A$r$7$^$9!#(B
+% \begin{macrocode}
+\def\DeclareFontFamily#1#2#3{%
+ \@ifundefined{T@#1}%
+ {\@latex@error{Encoding scheme `#1' unknown}\@eha}%
+ {\edef\tmp@item{{#2}}%
+ \expandafter\expandafter\expandafter
+ \inlist@\expandafter\tmp@item\expandafter{\ffam@list}%
+ \ifin@ \else
+ \def\fam@elt{\noexpand\fam@elt}%
+ \xdef\ffam@list{\ffam@list\fam@elt<#2>}%
+ \fi
+ \def\reserved@a{#3}%
+ \global
+ \expandafter\let\csname #1+#2\expandafter\endcsname
+ \ifx \reserved@a\@empty
+ \@empty
+ \else \reserved@a
+ \fi
+ }%
+}
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\DeclareKanjiFamily}
+% $B2$J8%U%!%_%j$r@k8@$9$k$?$a$N%3%^%s%I$G$9!#(B
+% \begin{macrocode}
+\def\DeclareKanjiFamily#1#2#3{%
+ \@ifundefined{T@#1}%
+ {\@latex@error{KANJI Encoding scheme `#1' unknown}\@eha}%
+ {\edef\tmp@item{{#2}}%
+ \expandafter\expandafter\expandafter
+ \inlist@\expandafter\tmp@item\expandafter{\kfam@list}%
+ \ifin@ \else
+ \def\fam@elt{\noexpand\fam@elt}%
+ \xdef\kfam@list{\kfam@list\fam@elt<#2>}%
+ \fi
+ \def\reserved@a{#3}%
+ \global
+ \expandafter\let\csname #1+#2\expandafter\endcsname
+ \ifx \reserved@a\@empty
+ \@empty
+ \else \reserved@a
+ \fi
+ }%
+}
+% \end{macrocode}
+% \end{macro}
+%
+%
+% \begin{macro}{\DeclareKanjiSubstitution}
+% \begin{macro}{\DeclareErrorKanjiFont}
+% $BL\E*$NOBJ8%U%)%s%H$,8+$D$+$i$J$+$C$?$H$-$K;H$&%U%)%s%H$N@k8@$r$9$k(B
+% $B%3%^%s%I$G$9!#(B
+% $B$=$l$>$l!"(B|\DeclareFontSubstitution|$B$H(B|\DeclareErrorFont|$B$KBP1~$7$^$9!#(B
+% \begin{macrocode}
+\def\DeclareKanjiSubstitution#1#2#3#4{%
+ \expandafter\ifx\csname T@#1\endcsname\relax
+ \@latex@error{KANJI Encoding scheme `#1' unknown}\@eha
+ \else
+ \begingroup
+ \def\reserved@a{#1}%
+ \toks@{}%
+ \def\cdp@elt##1##2##3##4{%
+ \def\reserved@b{##1}%
+ \ifx\reserved@a\reserved@b
+ \addto@hook\toks@{\cdp@elt{#1}{#2}{#3}{#4}}%
+ \else
+ \addto@hook\toks@{\cdp@elt{##1}{##2}{##3}{##4}}%
+ \fi}%
+ \cdp@list
+ \xdef\cdp@list{\the\toks@}%
+ \endgroup
+ \global\@namedef{D@#1}{\def\default@family{#2}%
+ \def\default@series{#3}%
+ \def\default@shape{#4}}%
+ \fi}
+%
+\def\DeclareErrorKanjiFont#1#2#3#4#5{%
+ \xdef\error@kfontshape{%
+ \noexpand\expandafter\noexpand\split@name\noexpand\string
+ \expandafter\noexpand\csname#1/#2/#3/#4/#5\endcsname
+ \noexpand\@nil}%
+ \gdef\default@k@family{#2}%
+ \gdef\default@k@series{#3}%
+ \gdef\default@k@shape{#4}%
+ \global\let\k@family\default@k@family
+ \global\let\k@series\default@k@series
+ \global\let\k@shape\default@k@shape
+ \gdef\f@size{#5}%
+ \gdef\f@baselineskip{#5pt}}
+%
+\@onlypreamble\DeclareKanjiSubstitution
+\@onlypreamble\DeclareErrorKanjiFont
+% \end{macrocode}
+% \end{macro}
+% \end{macro}
+%
+%
+% \begin{macro}{\DeclareFixedFont}
+% $B%U%)%s%HL>$r@k8@$9$k%3%^%s%I$G$9!#(B
+%
+% \changes{v1.2}{1995/11/09}{\cs{DeclareFixedFont}$B$NF|K\8l2=(B}
+% \changes{v1.3c}{1997/04/09}{$B=D2#%(%s%3!<%I!&%j%9%H$NJ,N%$K$h$k3HD%(B}
+% \changes{v1.3f}{1998/08/10}{$B%W%j%"%s%V%k!&%3%^%s%I$K$7$F$7$^$C$F$$$?$N$r2r=|(B}
+% \begin{macrocode}
+\def\DeclareFixedFont#1#2#3#4#5#6{%
+ \begingroup
+ \let\afont\font
+ \math@fontsfalse
+ \every@math@size{}%
+ \fontsize{#6}\z@
+ \edef\tmp@item{{#2}}%
+ \expandafter\expandafter\expandafter
+ \inlist@\expandafter\tmp@item\expandafter{\kyenc@list}%
+ \ifin@
+ \usekanji{#2}{#3}{#4}{#5}%
+ \let\font\jfont
+ \else
+ \expandafter\expandafter\expandafter
+ \inlist@\expandafter\tmp@item\expandafter{\ktenc@list}%
+ \ifin@
+ \usekanji{#2}{#3}{#4}{#5}%
+ \let\font\tfont
+ \else
+ \useroman{#2}{#3}{#4}{#5}%
+ \let\font\afont
+ \fi
+ \fi
+ \global\expandafter\let\expandafter#1\the\font
+ \let\font\afont
+ \endgroup
+ }
+% \end{macrocode}
+% \end{macro}
+%
+%
+% \begin{macro}{\reDeclareMathAlphabet}
+% \changes{v1.0}{1997/01/30}{\cs{reDeclareMathAlphabet}$B$rDI2C!#(B
+% $B$"$j$,$H$&!"(Bymt$B$5$s!#(B}
+% \changes{v1.4}{2006/06/27}{\cs{reDeclareMathAlphabet}$B$r=$@5!#(B
+% $B$"$j$,$H$&!"(Bymt$B$5$s!#(B}
+% \changes{v1.5}{2006/11/10}{\cs{reDeclareMathAlphabet}$B$r=$@5!#(B
+% $B$"$j$,$H$&!"(Bymt$B$5$s!#(B}
+% $B?t<0%b!<%IFb$G!"?t<0J8;zMQ$NOB2$J8%U%)%s%H$rF1;~$K@Z$jBX$($k%3%^%s%I$G$9!#(B
+%
+% p\LaTeXe{}$B$K$O!"K\Mh$NF0:n%b!<%I$H(B2.09$B8_49%b!<%I$NFs$D$,$"$j!"(B
+% $BN>%b!<%I$G?t<0J8;z$rJQ99$9$k%3%^%s%I$dF0:n$,0[$J$j$^$9!#(B
+% $BK\Mh$NF0:n%b!<%I$G$O!"(B|\mathrm{...}|$B$N$h$&$K(B|\math??|$B$K0z?t$r;XDj$7$F(B
+% $B;H$$$^$9!#$3$N$H$-$O0z?t$K$@$11F6A$7$^$9!#(B2.09$B8_49%b!<%I$G$O!"(B|\rm|$B$N(B
+% $B$h$&$JFsJ8;z%3%^%s%I$r;H$$$^$9!#$3$N%3%^%s%I$K$O0z?t$r<h$i$:!"=qBN$O(B
+% $B%0%k!<%T%s%0$NHO0O$GH?1G$5$l$^$9!#FsJ8;z%3%^%s%I$O!"%M%$%F%#%V%b!<%I(B
+% $B$G$b;H$($k$h$&$K$J$C$F$$$F!"F0:n$b(B2.09$B8_49%b!<%I$N%3%^%s%I$HF1$8$G$9!#(B
+%
+% $B$7$+$7!"FbItE*$K$O(B|\math??|$B$H$$$&0l$D$N%3%^%s%I$,$9$Y$F$NF0:n$r<u$1;}$A!"(B
+% |\math??|$B%3%^%s%I$d(B|\??|$B%3%^%s%I$+$i8F$S=P$5$l$?>uBV$K1~$8$F!"F0:n$rJQ$((B
+% $B$F$$$^$9!#$7$?$,$C$F!"2$J8%U%)%s%H$HOBJ8%U%)%s%H$NN>J}$r0lEY$KJQ99$9$k!"(B
+% $B?t<0J8;zJQ99%3%^%s%I$r:n$k$H$-!"$=$l$>$l$N>uBV$K9g$C$?F0:n$GF0$/$h$&$K(B
+% $B%U%)%s%H@Z$jBX$(%3%^%s%I$r<B9T$5$;$kI,MW$,$"$j$^$9!#(B
+%
+% \textbf{$B;H$$J}(B}
+% \begin{verbatim}
+% usage: \reDeclareMathAlphabet{\mathAA}{\mathBB}{\mathCC}
+% \end{verbatim}
+% $B2$J8!&OBJ8N>MQ$N?t<0J8;zJQ99%3%^%s%I(B |\mathAA| $B$r(B($B:F(B)$BDj5A$7$^$9!#(B
+% $B2$J8MQ$N%3%^%s%I(B |\mathBB| $B$H!"OBJ8MQ$N(B |\mathCC| $B$r(B (p)\LaTeX{} $BI8=`$N(B
+% $BJ}K!$GDj5A$7$F$*$$$?8e!">e$N$h$&$K5-=R$7$^$9!#$J$*!"(B|{\mathBB}{\mathCC}|
+% $B$NItJ,$K$D$$$F$O(B |{\@mathBB}{\@mathCC}| $B$N$h$&$K(B @ $B$r$D$1$?5-=R(B
+% $B$r$7$F$b$+$^$$$^$;$s(B($B8_49@-$N$?$a(B)$B!#>e$N$h$&$JL?Na$rH/9T$9$k$H!"(B
+% |\mathAA| $B$,!"2$J8$KBP$7$F$O(B |\mathBB|$B!"(B $BOBJ8$KBP$7$F$O(B |\mathCC| $B$N0UL#$r(B
+% $B;}$D$h$&$K$J$j$^$9!#(B
+% $BDL>o$O!"(B|\reDeclareMathAlphabet{\mathrm}{\mathrm}{\mathmc}| $B$N$h$&$K(B
+% |AA=BB| $B$H$7$FMQ$$$^$9!#$^$?!"(B|\mathrm| $B$O(B \LaTeX{} kernel $B$K$*$$$F(B
+% $BI8=`$N%3%^%s%I$H$7$F4{$KDj5A$5$l$F$$$k$N$G!"$3$N>l9g$O(B |\mathrm| $B$N(B
+% $B:FDj5A$H$J$j$^$9!#(Bnative mode $B$G$N(B |\rm| $B$N$h$&$J(B two letter command
+% (old font command) $B$KBP$7$F$bF1MM$J$3$H$,0z$-$*$3$j$^$9!#$D$^$j!"(B
+% $B?t<0%b!<%I$K$*$$$F!"?7$?$J(B |\rm| $B$O!"(B\LaTeX{} original $B$N(B |\rm| $B$H(B |\mc|
+% ($B@53N$K8@$($P(B |\mathrm| $B$H(B |\mathmc| $B$G$"$k$,(B)$B$N0UL#$r9g$o$;;}$D$h$&$K(B
+% $B$J$j$^$9!#(B
+%
+% \textbf{$BJdB-(B}
+% \begin{itemize}
+% \item
+% |\mathAA| $B$r:FDj5A$9$kB>$NL?Na(B(|\DeclareSymbolFontAlphabet| $B$rMQ$$$k(B
+% $B%Q%C%1!<%8$N;HMQEy(B)$B$H$N>WFM$rHr$1$k$?$a$K$O!"(B|\AtBeginDocument| $B$rJ;MQ(B
+% $B$9$k$J$I$7$FE83+0LCV$N@)8f$r9T$C$F$/$@$5$$!#(B
+% \item
+% $B%F%-%9%H%b!<%I;~$N%(%i!<I=<(MQ$K(B |\mathBB| $B$N$_$rMQ$$$k$3$H$r=|$$$F!"(B
+% |\mathBB| $B$H(B |\mathCC| $B$N=g$O<B:]$K$O0UL#$r;}$A$^$;$s!#OBJ8!"2$J8$N=g$K(B
+% $BDj5A$7$F$bLdBj$O$"$j$^$;$s!#(B
+% \item
+% $BBh(B2,3$B0z$-?t$K$O(B |{\@mathBB}{\@mathCC}| $B$N$h$&$K(B |@| $B$r$D$1$?5-=R$b(B
+% $B9T$($^$9!#$?$@$7!"7A<0$OE}0l$7$F$/$@$5$$!#H=CG$OBh(B2$B0z$-?t$G9T$C$F(B
+% $B$$$k$?$a!"(B |{\@mathBB}{\mathCC}| $B$N$h$&$J5-=R$G$O$&$^$/F0:n$7$^$;$s!#(B
+% $B$^$?!"(B|\makeatletter| $B$J>uBV$G(B |{\@mathBB }{\@mathCC }| $B$N$h$&$J(B |@| $B$H(B
+% $BM>J,$J%9%Z!<%9$r$D$1$?>l9g$K$OL58B%k!<%W$r0z$-5/$3$9$3$H$,$"$j$^$9!#(B
+% $B$3$N$h$&$J5-=R$OHr$1$k$h$&$K$7$F2<$5$$!#(B
+% \item
+% |\reDeclareMathAlphabet| $B$r<B9T$9$k:]$K$O!"(B|\mathBB|, |\mathCC| $B$,Dj5A(B
+% $B$5$l$F$$$kI,MW$O$"$j$^$;$s!#<B:]$K(B |\mathAA| $B$rMQ$$$k:]$K$O$3$l$i$N(B
+% |\mathBB|, |\mathCC| $B$,(B (p)\LaTeX{}$BI8=`$NJ}K!$GDj5A$5$l$F$$$kI,MW$,$"$j$^$9!#(B
+% \item
+% $BB>$NItJ,$G(B |\mathAA| $B$rA4$/Dj5A$7$J$$>l9g$r=|$-!"(B|\mathAA| $B$O(B
+% |\reDeclareMathAlphabet| $B$r<B9T$9$k0JA0$G(B (p)\LaTeX{}$BI8=`$NJ}K!$GDj5A$5$l(B
+% $B$F$$$kI,MW$,$"$j$^$9(B(|\mathrm| $B$d(B |\mathbf| $B$NI8=`E*$J%3%^%s%I$O!"(B
+% \LaTeX{} kernel $B$G4{$KDj5A$5$l$F$$$^$9(B)$B!#(B
+% |\DeclareMathAlphabet| $B$N>l9g$K$O!"(B|\reDeclareMathAlphabet| $B$h$j$bA0$G(B1$BEY(B
+% |\mathAA| $B$rDj5A$7$F$"$l$P!"(B|\reDeclareMathAlphabet| $B$N8e$m$G:FEY(B
+% |\DeclareMathAlphabet| $B$rMQ$$$F(B |\mathAA| $B$NFbIt$NDj5AFbMF$rJQ99$9$k$3$H(B
+% $B$K$OLdBj$"$j$^$;$s!#(B
+% |\DeclareSymbolFontAlphabet| $B$N>l9g!":FDj5A$K$*$$$F$b(B |\mathAA| $B$,D>@\(B
+% $BDj5A$5$l$k$N$G!"(B|\mathAA| $B$KBP$9$k:G8e$N(B |\DeclareSymbolFontAlphabet| $B$N(B
+% $B$5$i$K8e$G(B |\reDeclareMathAlphabet| $B$r<B9T$7$J$1$l$PM-8z$H$O$J$j$^$;$s!#(B
+% \item
+% |\documentstyle| $B$N8_49%b!<%I$N>l9g!"(B|\rm| $BEy$N(B two letter command
+% (old font command) $B$O!"(B|\reDeclareMathAlphabet| $B$H$O4XO"$9$k$3$H$N$J$$(B
+% $BJL8D$N%3%^%s%I$H$7$FDj5A$5$l$^$9!#=>$C$F!"$3$N>l9g$K$O(B
+% |\reDeclareMathAlphabet| $B$rMQ$$$F$b(B |\rm| $BEy$O?t<0%b!<%I$K$*$$$F(B
+% $B2$J8!&OBJ8N>MQ$N$b$N$H$O$J$j$^$;$s!#(B
+% \end{itemize}
+% \begin{macrocode}
+\def\reDeclareMathAlphabet#1#2#3{%
+ \edef#1{\noexpand\protect\expandafter\noexpand\csname%
+ \expandafter\@gobble\string#1\space\space\endcsname}%
+ \edef\@tempa{\expandafter\@gobble\string#2}%
+ \edef\@tempb{\expandafter\@gobble\string#3}%
+ \edef\@tempc{\string @\expandafter\@gobbletwo\string#2}%
+ \ifx\@tempc\@tempa%
+ \edef\@tempa{\expandafter\@gobbletwo\string#2}%
+ \edef\@tempb{\expandafter\@gobbletwo\string#3}%
+ \fi
+ \expandafter\edef\csname\expandafter\@gobble\string#1\space\space\endcsname%
+ {\noexpand\DualLang@mathalph@bet%
+ {\expandafter\noexpand\csname\@tempa\space\endcsname}%
+ {\expandafter\noexpand\csname\@tempb\space\endcsname}%
+ }%
+}
+\@onlypreamble\reDeclareMathAlphabet
+\def\DualLang@mathalph@bet#1#2{%
+ \relax\ifmmode
+ \ifx\math@bgroup\bgroup% 2e normal style (\mathrm{...})
+ \bgroup\let\DualLang@Mfontsw\DLMfontsw@standard
+ \else
+ \ifx\math@bgroup\relax% 2e two letter style (\rm->\mathrm)
+ \let\DualLang@Mfontsw\DLMfontsw@oldstyle
+ \else
+ \ifx\math@bgroup\@empty% 2.09 oldlfont style ({\mathrm ...})
+ \let\DualLang@Mfontsw\DLMfontsw@oldlfont
+ \else% panic! assume 2e normal style
+ \bgroup\let\DualLang@Mfontsw\DLMfontsw@standard
+ \fi
+ \fi
+ \fi
+ \else
+ \let\DualLang@Mfontsw\@firstoftwo
+ \fi
+ \DualLang@Mfontsw{#1}{#2}%
+}
+\def\DLMfontsw@standard#1#2#3{#1{#2{#3}}\egroup}
+\def\DLMfontsw@oldstyle#1#2{#1\relax\@fontswitch\relax{#2}}
+\def\DLMfontsw@oldlfont#1#2{#1\relax#2\relax}
+% \end{macrocode}
+% \end{macro}
+%
+%
+% \begin{macro}{\DeclareRelationFont}
+% \begin{macro}{\SetRelationFont}
+% $BOBJ8=qBN$KBP$9$k=>B0=qBN$r@k8@$9$k%3%^%s%I$G$9!#(B\emph{$B=>B0=qBN(B}$B$H$O!"(B
+% $B$"$kOBJ8=qBN$H%Z%"$K$J$k2$J8=qBN$N$3$H$G$9!#(B
+% $B<g$KB?=qBN%Q%C%1!<%8(B|skfonts|$B$rMQ$$$k$?$a$N;EAH$_$G$9!#(B
+%
+% |\DeclareRelationFont|$B%3%^%s%I$N:G=i$N(B4$B$D$N0z?t$NAH$,OBJ8=qBN$NB0@-!"(B
+% $B$=$N8e$N(B4$B$D$N0z?t$NAH$,=>B0=qBN$NB0@-$G$9!#(B
+% \begin{verbatim}
+% \DeclareRelationFont{JY1}{mc}{m}{n}{OT1}{cmr}{m}{n}
+% \DeclareRelationFont{JY1}{gt}{m}{n}{OT1}{cmr}{bx}{n}
+% \end{verbatim}
+% $B>e5-$NNc$O!"L@D+BN$N=>B0=qBN$H$7$F%3%s%T%e!<%?%b%@%s%m!<%^%s!"(B
+% $B%4%7%C%/BN$N=>B0=qBN$H$7$F%3%s%T%e!<%?%b%@%s%\!<%k%I$r@k8@$7$F$$$^$9!#(B
+% $B%+%l%s%HOBJ8=qBN$,(B|\JY1/mc/m/n|$B$H$J$k$H!"(B
+% $B<+F0E*$K2$J8=qBN$,(B|\OT1/cmr/m/n|$B$K$J$j$^$9!#(B
+% $B$^$?!"OBJ8=qBN$,(B|\JY1/gt/m/n|$B$K$J$C$?$H$-$O!"(B
+% $B2$J8=qBN$,(B|\OT1/cmr/bx/n|$B$K$J$j$^$9!#(B
+%
+% $BOBJ8=qBN$N%7%'%$%W;XDj$r>JN,$9$k$H%(%s%3!<%I!?%U%!%_%j!?%7%j!<%:$NAH9g$;$G(B
+% $B=>B0=qBN$,;H$o$l$^$9!#$3$N$H$-$O!"(B|\selectfont|$B$,8F$S=P$5$l$?;~E@$G$N(B
+% $B%7%'%$%W!J(B|\f@shape|$B!K$NCM$,;H$o$l$^$9!#(B
+%
+% |\DeclareRelationFont|$B$N@_DjCM$O%0%m!<%P%k$KM-8z$G$9!#(B
+% |\SetRelationFont|$B$N@_DjCM$O%m!<%+%k$KM-8z$G$9!#(B
+% $B%U%)%s%HDj5A%U%!%$%k$G@k8@$r$9$k>l9g$O!"(B
+% |\DeclareRelationFont|$B$r;H$C$F$/$@$5$$!#(B
+% \begin{macrocode}
+\def\all@shape{all}%
+\def\DeclareRelationFont#1#2#3#4#5#6#7#8{%
+ \def\rel@shape{#4}%
+ \ifx\rel@shape\@empty
+ \global
+ \expandafter\def\csname rel@#1/#2/#3/all\endcsname{%
+ \romanencoding{#5}\romanfamily{#6}%
+ \romanseries{#7}}%
+ \else
+ \global
+ \expandafter\def\csname rel@#1/#2/#3/#4\endcsname{%
+ \romanencoding{#5}\romanfamily{#6}%
+ \romanseries{#7}\romanshape{#8}}%
+ \fi
+}
+\def\SetRelationFont#1#2#3#4#5#6#7#8{%
+ \def\rel@shape{#4}%
+ \ifx\rel@shape\@empty
+ \expandafter\def\csname rel@#1/#2/#3/all\endcsname{%
+ \romanencoding{#5}\romanfamily{#6}%
+ \romanseries{#7}}%
+ \else
+ \expandafter\def\csname rel@#1/#2/#3/#4\endcsname{%
+ \romanencoding{#5}\romanfamily{#6}%
+ \romanseries{#7}\romanshape{#8}}%
+ \fi
+}
+% \end{macrocode}
+% \end{macro}
+% \end{macro}
+%
+%
+% \begin{macro}{\if@knjcmd}
+% \begin{macro}{\userelfont}
+% |\if@knjcmd|$B$O2$J8=qBN$r=>B0=qBN$K$9$k$+$I$&$+$N%U%i%0$G$9!#(B
+% $B$3$N%U%i%0$,??$K$J$k$H!"2$J8=qBN$K=>B0=qBN$,;H$o$l$^$9!#(B
+% $B$3$N%U%i%0$O(B|\userelfont|$B%3%^%s%I$K$h$C$F!"(B\emph{$B??(B}$B$H$J$j$^$9!#(B
+% $B$=$7$F(B|\selectfont|$B<B9T8e$K$O(B\emph{$B56(B}$B$K=i4|2=$5$l$^$9!#(B
+% \begin{macrocode}
+\newif\if@knjcmd
+\def\userelfont{\@knjcmdtrue}
+% \end{macrocode}
+% \end{macro}
+% \end{macro}
+%
+% \begin{macro}{\selectfont}
+% |\selectfont|$B$N%*%j%8%J%k$+$i$NJQ99ItJ,$O!"<!$N#3E@$G$9!#(B
+% \begin{itemize}
+% \item $BOBJ8=qBN$rJQ99$9$kItJ,(B
+% \item $B=>B0=qBN$KJQ99$9$kItJ,(B
+% \item $BOB2$J8$N%Y!<%9%i%$%s$rD4@0$9$kItJ,(B
+% \end{itemize}
+%
+% \changes{v1.0c}{1995/08/22}{$B=D2#N>J}$N%U%)%s%H$r@Z$jBX$($k$h$&$K$7$?(B}
+% \changes{v1.2}{1995/11/22}{$B%(%i!<%U%)%s%H$KBP1~$7$?(B}
+% \changes{v1.3n}{2004/08/10}{$BOBJ8%(%s%3!<%G%#%s%0$N@Z$jBX$($rM-8z2=(B}
+% |\selectfont|$B%3%^%s%I$O!"$^$:!"OBJ8%U%)%s%H$r@Z$jBX$($^$9!#(B
+% \begin{macrocode}
+%</plcore>
+%<*plcore|trace>
+\DeclareRobustCommand\selectfont{%
+ \let\tmp@error@fontshape\error@fontshape
+ \let\error@fontshape\error@kfontshape
+ \edef\tmp@item{{\k@encoding}}%
+ \expandafter\expandafter\expandafter
+ \inlist@\expandafter\tmp@item\expandafter{\kyenc@list}%
+ \ifin@
+ \let\cy@encoding\k@encoding
+ \edef\ct@encoding{\csname t@enc@\k@encoding\endcsname}%
+ \else
+ \expandafter\expandafter\expandafter
+ \inlist@\expandafter\tmp@item\expandafter{\ktenc@list}%
+ \ifin@
+ \let\ct@encoding\k@encoding
+ \edef\cy@encoding{\csname y@enc@\k@encoding\endcsname}%
+ \else
+ \@latex@error{KANJI Encoding scheme `\k@encoding' unknown}\@eha
+ \fi
+ \fi
+ \let\font\tfont
+ \let\k@encoding\ct@encoding
+ \xdef\font@name{\csname\curr@kfontshape/\f@size\endcsname}%
+ \pickup@font
+ \font@name
+ \let\font\jfont
+ \let\k@encoding\cy@encoding
+ \xdef\font@name{\csname\curr@kfontshape/\f@size\endcsname}%
+ \pickup@font
+ \font@name
+ \expandafter\def\expandafter\k@encoding\tmp@item
+ \kenc@update
+ \let\error@fontshape\tmp@error@fontshape
+% \end{macrocode}
+% $B<!$K!"(B|\if@knjcmd|$B$,??$N>l9g!"(B
+% $B2$J8=qBN$r8=:_$NOBJ8=qBN$K4XO"IU$1$5$l$?%U%)%s%H$KJQ$($^$9!#(B
+% $B$3$N%U%i%0$O(B|\userelfont|$B%3%^%s%I$K$h$C$F(B\emph{$B??(B}$B$H$J$j$^$9!#(B
+% $B$3$N%U%i%0$O$3$3$G:F$S!"(B\emph{$B56(B}$B$K@_Dj$5$l$^$9!#(B
+% \begin{macrocode}
+ \if@knjcmd \@knjcmdfalse
+ \expandafter\ifx
+ \csname rel@\k@encoding/\k@family/\k@series/\k@shape\endcsname\relax
+ \expandafter\ifx
+ \csname rel@\k@encoding/\k@family/\k@series/all\endcsname\relax
+ \else
+ \csname rel@\k@encoding/\k@family/\k@series/all\endcsname
+ \fi
+ \else
+ \csname rel@\k@encoding/\k@family/\k@series/\k@shape\endcsname
+ \fi
+ \fi
+% \end{macrocode}
+% $B$=$7$F!"2$J8%U%)%s%H$r@Z$jBX$($^$9!#(B
+% \begin{macrocode}
+ \let\font\afont
+ \xdef\font@name{\csname\curr@fontshape/\f@size\endcsname}%
+ \pickup@font
+ \font@name
+%<trace>\ifnum \tracingfonts>\tw@
+%<trace> \@font@info{Roman:Switching to \font@name}\fi
+ \enc@update
+% \end{macrocode}
+% $B:G8e$K!"%5%$%:$,JQ99$5$l$F$$$l$P!"%Y!<%9%i%$%s$ND4@0$J$I$r9T$J$$$^$9!#(B
+% $B1Q8lHG$N(B|\selectfont|$B$G$O:G=i$K9T$J$C$F$$$^$9$,!"(B
+% p\LaTeXe{}$B$G$O%Y!<%9%i%$%s%7%U%H$ND4@0$r$9$k$?$a$K!"(B
+% $B=qBN$r3NDj$7$J$1$l$P$J$i$J$$$?$a!"0lHV:G8e$K9T$J$$$^$9(B
+%
+% \changes{v1.1b}{1995/04/26}{$B%Y!<%9%i%$%s$ND4@0$r%5%$%:JQ99;~$K(B
+% $B9T$J$&$h$&$K$7$?(B}
+% \begin{macrocode}
+ \ifx\f@linespread\baselinestretch \else
+ \set@fontsize\baselinestretch\f@size\f@baselineskip
+ \fi
+ \size@update}
+% \end{macrocode}
+% \end{macro}
+%
+%
+% \begin{macro}{\KanjiEncodingPair}
+% $BOBJ8$N=D2#$N%(%s%3!<%G%#%s%0$O$=$l$>$lBP$K$7$F07$&$?$a!"%;%C%H2=$7$^$9(B
+% \changes{v1.3n}{2004/08/10}{$BOBJ8%(%s%3!<%G%#%s%0$N@Z$jBX$($rM-8z2=(B}
+% \begin{macrocode}
+\def\KanjiEncodingPair#1#2{\@namedef{t@enc@#1}{#2}\@namedef{y@enc@#2}{#1}}
+\KanjiEncodingPair{JY1}{JT1}
+% \end{macrocode}
+% \end{macro}
+%
+%
+% \begin{macro}{\set@fontsize}
+% |\fontsize|$B%3%^%s%I$NFbIt7A<0$G$9!#(B
+% $B%Y!<%9%i%$%s$N@_Dj$H!";YCl$N@_Dj$r9T$J$$$^$9!#(B
+% \begin{macrocode}
+\def\set@fontsize#1#2#3{%
+ \@defaultunits\@tempdimb#2pt\relax\@nnil
+ \edef\f@size{\strip@pt\@tempdimb}%
+ \@defaultunits\@tempskipa#3pt\relax\@nnil
+ \edef\f@baselineskip{\the\@tempskipa}%
+ \edef\f@linespread{#1}%
+ \let\baselinestretch\f@linespread
+ \def\size@update{%
+ \baselineskip\f@baselineskip\relax
+ \baselineskip\f@linespread\baselineskip
+ \normalbaselineskip\baselineskip
+% \end{macrocode}
+% $B$3$3$G!"%Y!<%9%i%$%s%7%U%H$ND4@0$H;YCl$rAH$_N)$F$^$9!#(B
+% \begin{macrocode}
+ \adjustbaseline
+ \setbox\strutbox\hbox{\yoko
+ \vrule\@width\z@
+ \@height.7\baselineskip \@depth.3\baselineskip}%
+ \setbox\tstrutbox\hbox{\tate
+ \vrule\@width\z@
+ \@height.5\baselineskip \@depth.5\baselineskip}%
+ \setbox\zstrutbox\hbox{\tate
+ \vrule\@width\z@
+ \@height.7\baselineskip \@depth.3\baselineskip}%
+% \end{macrocode}
+% $B%U%)%s%H%5%$%:$H%Y!<%9%i%$%s$K4X$9$k?GCG>pJs$r=PNO$7$^$9!#(B
+% \begin{macrocode}
+%<*trace>
+ \ifnum \tracingfonts>\tw@
+ \ifx\f@linespread\@empty
+ \let\reserved@a\@empty
+ \else
+ \def\reserved@a{\f@linespread x}%
+ \fi
+ \@font@info{Changing size to\space
+ \f@size/\reserved@a \f@baselineskip}%
+ \aftergroup\type@restoreinfo
+ \fi
+%</trace>
+ \let\size@update\relax}}
+% \end{macrocode}
+% \end{macro}
+%
+%
+% \begin{macro}{\adjustbaseline}
+% $B8=:_$NOBJ8%U%)%s%H$N6uGr!J(BEUC$B%3!<%I(B\texttt{0xA1A1}$B!K$NCf1{$K(B
+% $B8=:_$N2$J8%U%)%s%H$N(B``/''$B$NCf1{$,$/$k$h$&$K%Y!<%9%i%$%s%7%U%H$r@_Dj$7$^$9!#(B
+% \changes{v1.0c}{1995/08/31}{$B2$J8=qBN$N4p=`$r(B`M'$B$+$i(B`/'$B$KJQ99(B}
+% \changes{v1.2}{1995/11/21}{$B=DAH;~$N$_D4@0$9$k$h$&$K$7$?(B}
+% \changes{v1.3j}{2000/10/24}{$BJ8F,$K3C3g8L$J$I$,$"$k$H$-$KM>7W$J%"%-$,$G(B
+% $B$kLdBj$KBP=h(B}
+% \changes{v1.3l}{2002/04/05}{\cs{adjustbaseline}$B$G%U%)%s%H$N4p=`CM$,=D=q$-(B
+% $B0J30$G$O@_Dj$5$l$J$$$N$r=$@5(B}
+%
+% $BEv=i$O$^$:%Y!<%9%i%$%s%7%U%HNL$r%<%m$K$7$F$$$^$7$?$,!"(B
+% \cs{tbaselineshift}$B$rO"B3$7$FJQ99$7$?8e$K3C3g8LN`$r;H$&$HM>7W$J%"%-$,(B
+% $B$G$kLdBj$,5/$3$k$?$a!"(B\cs{tbaselineshift}$B$r%<%m%/%j%"$9$k=hM}$r:o=|$7(B
+% $B$^$7$?!#(B
+%
+% $B$7$+$7!"$=$l$G$O%Y!<%9%i%$%s%7%U%H$rD4@0:Q$_$N2$J8%\%C%/%9$HHf3S$7$F(B
+% $B$7$^$&$?$a!"7W;;$7$?CM$,Bg$-$/$J$C$F$7$^$$$^$9!#$=$3$G!"$3$N%\%C%/%9(B
+% $B$NCf$G%<%m$K$9$k$h$&$K$7$^$7$?!#$^$?!"(B``/''$B$HHf3S$7$F$$$?$N$r(B``M''$B$K(B
+% $B$7$^$7$?!#(B
+% \changes{v1.3k}{2001/05/10}{\cs{adjustbaseline}$B$ND4@0NL(B}
+% \begin{macrocode}
+\newbox\adjust@box
+\newdimen\adjust@dimen
+\def\adjustbaseline{%
+% \end{macrocode}
+% $BOBJ8%U%)%s%H$N4p=`CM$r@_Dj$7$^$9!#(B
+% \begin{macrocode}
+ \setbox\adjust@box\hbox{\char\euc"A1A1}%
+ \cht\ht\adjust@box
+ \cdp\dp\adjust@box
+ \cwd\wd\adjust@box
+ \cvs\normalbaselineskip
+ \chs\cwd
+ \cHT\cht \advance\cHT\cdp
+% \end{macrocode}
+% $B4p=`$H$J$k2$J8%U%)%s%H$NJ8;z$r4^$s$@%\%C%/%9$r:n@.$7!"(B
+% $B%Y!<%9%i%$%s%7%U%HNL$N7W;;$r9T$J$$$^$9!#(B
+% $B7W;;<0$O<!$N$H$*$j$G$9!#(B
+%
+% \begin{eqnarray*}
+% \textmc{$B%Y!<%9%i%$%s%7%U%HNL(B} &=&
+% \{ (\textmc{$BA43Q6uGr$N?<$5(B}) - (\textmc{/$B$N?<$5(B}) \} \\
+% &&- \frac{(\textmc{$BA43Q6uGr$N9b$5(B$+$$B?<$5(B})
+% - (\textmc{/$B$N9b$5(B$+$$B?<$5(B})}{2}
+% \end{eqnarray*}
+%
+% \begin{macrocode}
+ \iftdir
+ \setbox\adjust@box\hbox{\tbaselineshift\z@ M}%
+ \adjust@dimen\ht\adjust@box
+ \advance\adjust@dimen\dp\adjust@box
+ \advance\adjust@dimen-\cHT
+ \divide\adjust@dimen\tw@
+ \advance\adjust@dimen\cdp
+ \advance\adjust@dimen-\dp\adjust@box
+ \tbaselineshift\adjust@dimen
+%<trace> \ifnum \tracingfonts>\tw@
+%<trace> \typeout{baselineshift:\the\tbaselineshift}
+%<trace> \fi
+ \fi}
+%</plcore|trace>
+%<*plcore>
+% \end{macrocode}
+% \end{macro}
+%
+%
+% \begin{macro}{\romanencoding}
+% \begin{macro}{\kanjiencoding}
+% \begin{macro}{\fontencoding}
+% $B=qBN$N%(%s%3!<%I$r;XDj$9$k%3%^%s%I$G$9!#(B
+% |\fontencoding|$B%3%^%s%I$OOB2$J8$N$I$A$i$+$K1F6A$7$^$9!#(B
+% |\DeclareKanjiEncoding|$B$G;XDj$5$l$?%(%s%3!<%I$OOBJ8%(%s%3!<%I$H$7$F!"(B
+% |\DeclareFontEncoding|$B$G;XDj$5$l$?%(%s%3!<%I$O2$J8%(%s%3!<%I$H$7$F(B
+% $BG'<1$5$l$^$9!#(B
+%
+% |\kanjiencoding|$B$H(B|\romanencoding|$B$OM?$($i$l$?0z?t$,!"(B
+% $B%(%s%3!<%I$H$7$FEPO?$5$l$F$$$k$+$I$&$+$@$1$r3NG'$7!"(B
+% $B$=$l$,OBJ8$+2$J8$+$N%A%'%C%/$O9T$J$C$F$$$^$;$s!#(B
+% $B$=$N$?$a!"9bB.$KF0:n$r$7$^$9$,!"(B|\kanjiencoding|$B$K2$J8%(%s%3!<%I$r;XDj$7$?$j!"(B
+% $B5U$K(B|\romanencoding|$B$KOBJ8%(%s%3!<%I$r;XDj$7$?>l9g$O%(%i!<$H$J$j$^$9!#(B
+% \begin{macrocode}
+\DeclareRobustCommand\romanencoding[1]{%
+ \expandafter\ifx\csname T@#1\endcsname\relax
+ \@latex@error{Encoding scheme `#1' unknown}\@eha
+ \else
+ \edef\f@encoding{#1}%
+ \ifx\cf@encoding\f@encoding
+ \let\enc@update\relax
+ \else
+ \let\enc@update\@@enc@update
+ \fi
+ \fi
+}
+\DeclareRobustCommand\kanjiencoding[1]{%
+ \expandafter\ifx\csname T@#1\endcsname\relax
+ \@latex@error{KANJI Encoding scheme `#1' unknown}\@eha
+ \else
+ \edef\k@encoding{#1}%
+ \ifx\ck@encoding\k@encoding
+ \let\kenc@update\relax
+ \else
+ \let\kenc@update\@@kenc@update
+ \fi
+ \fi
+}
+\DeclareRobustCommand\fontencoding[1]{%
+ \edef\tmp@item{{#1}}%
+ \expandafter\expandafter\expandafter
+ \inlist@\expandafter\tmp@item\expandafter{\kenc@list}%
+ \ifin@ \kanjiencoding{#1}\else\romanencoding{#1}\fi}
+% \end{macrocode}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+%
+% \begin{macro}{\@@kenc@update}
+% |\kanjiencoding|$B%3%^%s%I$N%3!<%I$+$i$b$o$+$k$h$&$K!"(B
+% |\ck@encoding|$B$H(B|\k@encoding|$B$,0[$J$k>l9g!"(B
+% |\kenc@update|$B%3%^%s%I$O(B|\@@kenc@update|$B%3%^%s%I$HEy$7$/$J$j$^$9!#(B
+%
+% |\@@kenc@update|$B%3%^%s%I$O!"$=$N%(%s%3!<%I$G$N%G%U%)%k%HCM$r@_Dj$9$k$?$a$N(B
+% $B%3%^%s%I$G$9!#2$J8MQ$N(B|\@@enc@update|$B%3%^%s%I$G$O!"(B
+% \mlineplus{2}$B9TL\$H(B\mlineplus{3}$B9TL\$N$h$&$JBeF~$b$7$F$$$^$9$,!"(B
+% $BOBJ8MQ$K$O%3%a%s%H$K$7$F$"$j$^$9!#(B
+% $B$3$l$i$O(B|\DeclareTextCommand|$B$d(B|\ProvideTextCommand|$B$J$I$G(B
+% $B%(%s%3!<%I$4$H$K@_Dj$5$l$k%3%^%s%I$r;H$&$?$a$N;EAH$_$G$9!#(B
+% $B$7$+$7!"OBJ8%(%s%3!<%I$K0MB8$9$k$h$&$J%3%^%s%I$d%^%/%m$r:n@.$9$k$3$H$O!"(B
+% $B8=;~E@$G$O!"$J$$$H;W$$$^$9!#(B
+%
+% \changes{v1.0c}{1995/08/22}{$B=D2#MQ%(%s%3!<%I$NJ]B8(B}
+% \begin{macrocode}
+\def\@@kenc@update{%
+% \expandafter\let\csname\ck@encoding -cmd\endcsname\@changed@kcmd
+% \expandafter\let\csname\k@encoding-cmd\endcsname\@current@cmd
+ \default@KT
+ \csname T@\k@encoding\endcsname
+ \csname D@\k@encoding\endcsname
+ \let\kenc@update\relax
+ \let\ck@encoding\k@encoding
+ \edef\tmp@item{{\k@encoding}}%
+ \expandafter\expandafter\expandafter
+ \inlist@\expandafter\tmp@item\expandafter{\kyenc@list}%
+ \ifin@ \let\cy@encoding\k@encoding
+ \else
+ \expandafter\expandafter\expandafter
+ \inlist@\expandafter\tmp@item\expandafter{\ktenc@list}%
+ \ifin@ \let\ct@encoding\k@encoding
+ \else
+ \@latex@error{KANJI Encoding scheme `\k@encoding' unknown}\@eha
+ \fi
+ \fi
+}
+\let\kenc@update\relax
+% \end{macrocode}
+%
+% |\@changed@cmd|$B$NOBJ8%(%s%3!<%G%#%s%0%P!<%8%g%s!#(B
+% \changes{v1.3n}{2004/08/10}{$BOBJ8%(%s%3!<%G%#%s%0$N@Z$jBX$($rM-8z2=(B}
+% \begin{macrocode}
+\def\@changed@kcmd#1#2{%
+ \ifx\protect\@typeset@protect
+ \@inmathwarn#1%
+ \expandafter\ifx\csname\ck@encoding\string#1\endcsname\relax
+ \expandafter\ifx\csname ?\string#1\endcsname\relax
+ \expandafter\def\csname ?\string#1\endcsname{%
+ \TextSymbolUnavailable#1%
+ }%
+ \fi
+ \global\expandafter\let
+ \csname\cf@encoding \string#1\expandafter\endcsname
+ \csname ?\string#1\endcsname
+ \fi
+ \csname\ck@encoding\string#1%
+ \expandafter\endcsname
+ \else
+ \noexpand#1%
+ \fi}
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\@notkfam}
+% \begin{macro}{\@notffam}
+% |\fontfamily|$B%3%^%s%IFb$G;HMQ$9$k%U%i%0$G$9!#(B
+% |@notkfam|$B%U%i%0$OOBJ8%U%!%_%j$G$J$+$C$?$3$H$r!"(B
+% |@notffam|$B%U%i%0$O2$J8%U%!%_%j$G$J$+$C$?$3$H$r<($7$^$9!#(B
+%
+% \changes{v1.2}{1995/11/21}{\cs{fontfamily}$B%3%^%s%IMQ$N%U%i%0DI2C(B}
+% \begin{macrocode}
+\newif\if@notkfam
+\newif\if@notffam
+% \end{macrocode}
+% \changes{v1.3m}{2004/06/14}{\cs{fontfamily}$B%3%^%s%IFbIt%U%i%0JQ99(B}
+% \begin{macrocode}
+\newif\if@tempswz
+% \end{macrocode}
+% \end{macro}
+% \end{macro}
+%
+%
+% \begin{macro}{\romanfamily}
+% \begin{macro}{\kanjifamily}
+% \begin{macro}{\fontfamily}
+% $B=qBN$N%U%!%_%j$r;XDj$9$k%3%^%s%I$G$9!#(B
+%
+% |\kanjifamily|$B$H(B|\romanfamily|$B$OM?$($i$l$?0z?t$,!"(B
+% $BOBJ8$"$k$$$O2$J8$N%U%!%_%j$H$7$F@5$7$$$+$N%A%'%C%/$O9T$J$C$F$$$^$;$s!#(B
+% $B$=$N$?$a!"9bB.$KF0:n$r$7$^$9$,!"(B|\kanjifamily|$B$K2$J8%U%!%_%j$r;XDj$7$?$j!"(B
+% $B5U$K(B|\romanfamily|$B$KOBJ8%U%!%_%j$r;XDj$7$?>l9g$O!"%(%i!<$H$J$j!"(B
+% $BBeMQ%U%)%s%H$+%(%i!<%U%)%s%H$,;H$o$l$^$9!#(B
+% \begin{macrocode}
+\DeclareRobustCommand\romanfamily[1]{\edef\f@family{#1}}
+\DeclareRobustCommand\kanjifamily[1]{\edef\k@family{#1}}
+% \end{macrocode}
+%
+% |\fontfamily|$B$O!";XDj$5$l$?CM$K$h$C$F!"OBJ8%U%!%_%j$+2$J8%U%!%_%j!"(B
+% \emph{$B$"$k$$$ON>J}(B}$B$N%U%!%_%j$r@Z$jBX$($^$9!#(B
+% $BOB2$J8$H$b$KL58z$J%U%!%_%jL>$,;XDj$5$l$?>l9g$O!"OB2$J8$H$b$KBeBX=qBN$,(B
+% $B;HMQ$5$l$^$9!#(B
+%
+% $B0z?t$,(B|\rmfamily|$B$N$h$&$JL>A0$GM?$($i$l$k2DG=@-$,$"$k$?$a!"(B
+% $B$^$:!"$3$l$rE83+$7$?$b$N$r:n$j$^$9!#(B
+%
+% $B$^$?!"OBJ8%U%!%_%j$H2$J8%U%!%_%j$N$=$l$>$l$K$J$+$C$?$3$H$r<($9%U%i%0$r(B
+% $B56$K%;%C%H$7$^$9!#(B
+%
+% \changes{v1.2}{1995/11/21}{$BBeMQ%U%)%s%H$,;H$o$l$J$$%P%0$r=$@5(B}
+% \changes{v1.3m}{2004/06/14}{\cs{fontfamily}$B%3%^%s%IFbIt%U%i%0JQ99(B}
+% \changes{v1.3o}{2005/01/04}{\cs{fontfamily}$BCf$N%U%i%0=$@5(B}
+% \begin{macrocode}
+\DeclareRobustCommand\fontfamily[1]{%
+ \edef\tmp@item{{#1}}%
+ \@notkfamfalse
+ \@notffamfalse
+% \end{macrocode}
+% $B<!$K!"$3$N0z?t$,(B|\kfam@list|$B$KEPO?$5$l$F$$$k$+$I$&$+$rD4$Y$^$9!#(B
+% $BEPO?$5$l$F$$$l$P!"(B|\k@family|$B$K$=$NCM$rF~$l$^$9!#(B
+% \begin{macrocode}
+ \expandafter\expandafter\expandafter
+ \inlist@\expandafter\tmp@item\expandafter{\kfam@list}%
+ \ifin@ \edef\k@family{#1}%
+% \end{macrocode}
+% $B$=$&$G$J$$$H$-$O!"(B|\notkfam@list|$B$KEPO?$5$l$F$$$k$+$I$&$+$rD4$Y$^$9!#(B
+% $BEPO?$5$l$F$$$l$P!"$3$N0z?t$OOBJ8%U%!%_%j$G$O$"$j$^$;$s$N$G!"(B
+% |\@notkfam|$B%U%i%0$r??$K$7$F!"2$J8%U%!%_%j$N%k!<%A%s$K0\$j$^$9!#(B
+%
+% $B$3$N$H$-!"(B|\efam@list|$B$rD4$Y$k$N$G$O$J$$$3$H$KCm0U$r$7$F$/$@$5$$!#(B
+% |\efam@list|$B$rD4$Y!"$3$l$K$J$$%U%!%_%j$rOBJ8%U%!%_%j$G$"$k$H$9$k$H!"(B
+% $B$?$H$($P!"2$J8%J!<%k%U%!%_%j$,Dj5A$5$l$F$$$k$1$l$I$b!"OBJ8%J!<%k%U%!%_%j(B
+% $B$,L$Dj5A$N>l9g!"(B|\fontfamily{nar}|$B$H$$$&;XDj$O!"(B|nar|$B$,(B|\efam@list|$B$K$@$1!"(B
+% $BEPO?$5$l$F$$$k$?$a!"OBJ8=qBN$r%J!<%k$K$9$k$3$H$,$G$-$^$;$s!#(B
+%
+% $B5U$K!"(B|\kfam@list|$B$KEPO?$5$l$F$$$J$$$+$i$H$$$C$F!"(B|\k@family|$B$K(B|nar|$B$r@_Dj(B
+% $B$9$k$H!"(B|cmr|$B$N$h$&$J%U%!%_%j$b(B|\k@family|$B$K@_Dj$5$l$k2DG=@-$,$"$j$^$9!#(B
+% $B$7$?$,$C$F!"!V2$J8$G$J$$!W$rL@<(E*$K<($9(B|\notkfam@list|$B$r8+$kI,MW$,$"$j$^$9!#(B
+% \begin{macrocode}
+ \else
+ \expandafter\expandafter\expandafter
+ \inlist@\expandafter\tmp@item\expandafter{\notkfam@list}%
+ \ifin@ \@notkfamtrue
+% \end{macrocode}
+% |\notkfam@list|$B$KEPO?$5$l$F$$$J$$>l9g$O!"(B
+% $B%U%)%s%HDj5A%U%!%$%k$,B8:_$9$k$+$I$&$+$rD4$Y$^$9!#(B
+% $B%U%!%$%k$,B8:_$9$k>l9g$O!"(B|\k@family|$B$rJQ99$7$^$9!#(B
+% $B%U%!%$%k$,B8:_$7$J$$>l9g$O!"(B|\notkfam@list|$B$KEPO?$7$^$9!#(B
+%
+% |\kenc@list|$B$KEPO?$5$l$F$$$k%(%s%3!<%I$H!";XDj$5$l$?OBJ8%U%!%_%j$N(B
+% $BAH9g$;$N%U%)%s%HDj5A%U%!%$%k$,B8:_$9$k>l9g$O!"(B|\k@family|$B$K;XDj$5$l$?(B
+% $BCM$rF~$l$^$9!#(B
+% \changes{v1.3c}{1997/04/24}%
+% {$B%U%)%s%HDj5A%U%!%$%kL>$r>.J8;z$KJQ49$7$F$+$iC5$9$h$&$K$7$?!#(B}
+% \changes{v1.3e}{1997/07/10}{fd$B%U%!%$%kL>$N>.J8;z2=$,8z$$$F$$$J$+$C$?$N$r(B
+% $B=$@5!#$"$j$,$H$&!"Bg4d$5$s(B}
+% \begin{macrocode}
+ \else
+ \@tempswzfalse
+ \def\fam@elt{\noexpand\fam@elt}%
+ \message{(I search kanjifont definition file:}%
+ \def\enc@elt<##1>{\message{.}%
+ \edef\reserved@a{\lowercase{\noexpand\IfFileExists{##1#1.fd}}}%
+ \reserved@a{\@tempswztrue}{}\relax}%
+ \kenc@list
+ \message{)}%
+ \if@tempswz
+ \edef\k@family{#1}%
+% \end{macrocode}
+% $B$D$.$NItJ,$,<B9T$5$l$k$N$O!"OBJ8%U%!%_%j$H$7$FG'<1$G$-$J$+$C$?>l9g$G$9!#(B
+% $B$3$N>l9g$O!"(B|\@notkfam|$B%U%i%0$r??$K$7$F!"(B|\notkfam@list|$B$KEPO?$7$^$9!#(B
+% \changes{v1.1b}{1995/05/10}{\cs{notkfam@list}$B$K!"(B
+% $B%(%s%3!<%I$4$H$KEPO?$5$l$F$7$^$&$N$r=$@5$7$?!#2$J8$K$D$$$F$bF1MM!#(B}
+% \begin{macrocode}
+ \else
+ \@notkfamtrue
+ \xdef\notkfam@list{\notkfam@list\fam@elt<#1>}%
+ \fi
+% \end{macrocode}
+% |\kfam@list|$B$H(B|\notkfam@list|$B$KEPO?$5$l$F$$$k$+$I$&$+$r(B
+% $BD4$Y$?(B|\ifin@|$B$rJD$8$^$9!#(B
+% \begin{macrocode}
+ \fi\fi
+% \end{macrocode}
+% $B2$J8%U%!%_%j$N>l9g$b!"OBJ8%U%!%_%j$HF1MM$NJ}K!$G3NG'$r$7$^$9!#(B
+% \changes{v1.3e}{1997/07/10}{fd$B%U%!%$%kL>$N>.J8;z2=$,8z$$$F$$$J$+$C$?$N$r=$@5(B}
+% \begin{macrocode}
+ \expandafter\expandafter\expandafter
+ \inlist@\expandafter\tmp@item\expandafter{\ffam@list}%
+ \ifin@ \edef\f@family{#1}\else
+ \expandafter\expandafter\expandafter
+ \inlist@\expandafter\tmp@item\expandafter{\notffam@list}%
+ \ifin@ \@notffamtrue \else
+ \@tempswzfalse
+ \def\fam@elt{\noexpand\fam@elt}%
+ \message{(I search font definition file:}%
+ \def\enc@elt<##1>{\message{.}%
+ \edef\reserved@a{\lowercase{\noexpand\IfFileExists{##1#1.fd}}}%
+ \reserved@a{\@tempswztrue}{}\relax}%
+ \fenc@list
+ \message{)}%
+ \if@tempswz
+ \edef\f@family{#1}%
+ \else
+ \@notffamtrue
+ \xdef\notffam@list{\notffam@list\fam@elt<#1>}%
+ \fi
+ \fi\fi
+% \end{macrocode}
+% $B:G8e$K!";XDj$5$l$?J8;zNs$,!"OBJ8%U%!%_%j$H2$J8%U%!%_%j$N$$$:$l$+!"(B
+% $B$"$k$$$ON>J}$H$7$FG'<1$5$l$?$+$I$&$+$r3NG'$7$^$9!#(B
+%
+% $B$I$A$i$H$bG'<1$5$l$F$$$J$$>l9g$O!"%U%!%_%j$N;XDj%_%9$G$9$N$G!"(B
+% $BBeMQ%U%)%s%H$r;H$&$?$a$K!"8N0U$K;XDj$5$l$?J8;zNs$r%U%!%_%j$K(B
+% $BF~$l$^$9!#(B
+% \begin{macrocode}
+ \if@notkfam\if@notffam
+ \edef\k@family{#1}\edef\f@family{#1}%
+ \fi\fi}
+% \end{macrocode}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+%
+%
+% \begin{macro}{\romanseries}
+% \begin{macro}{\kanjiseries}
+% \begin{macro}{\fontseries}
+% $B=qBN$N%7%j!<%:$r;XDj$9$k%3%^%s%I$G$9!#(B
+% |\fontseries|$B%3%^%s%I$OOB2$J8$NN>J}$K1F6A$7$^$9!#(B
+% \begin{macrocode}
+\DeclareRobustCommand\romanseries[1]{\edef\f@series{#1}}
+\DeclareRobustCommand\kanjiseries[1]{\edef\k@series{#1}}
+\DeclareRobustCommand\fontseries[1]{\kanjiseries{#1}\romanseries{#1}}
+% \end{macrocode}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+%
+%
+% \begin{macro}{\romanshape}
+% \begin{macro}{\kanjishape}
+% \begin{macro}{\fontshape}
+% $B=qBN$N%7%'%$%W$r;XDj$9$k%3%^%s%I$G$9!#(B
+% |\fontshape|$B%3%^%s%I$OOB2$J8$NN>J}$K1F6A$7$^$9!#(B
+% \begin{macrocode}
+\DeclareRobustCommand\romanshape[1]{\edef\f@shape{#1}}
+\DeclareRobustCommand\kanjishape[1]{\edef\k@shape{#1}}
+\DeclareRobustCommand\fontshape[1]{\kanjishape{#1}\romanshape{#1}}
+% \end{macrocode}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+%
+%
+% \begin{macro}{\usekanji}
+% \begin{macro}{\useroman}
+% \begin{macro}{\usefont}
+% $B=qBNB0@-$r0lEY$K;XDj$9$k%3%^%s%I$G$9!#(B
+% $BOBJ8=qBN$K$O(B|\usekanji|$B$r!"2$J8=qBN$K$O(B|\useroman|$B$r;XDj$7$F$/$@$5$$!#(B
+%
+% |\usefont|$B%3%^%s%I$O!"Bh0l0z?t$G;XDj$5$l$k%(%s%3!<%I$K$h$C$F!"(B
+% $BOBJ8$^$?$O2$J8%U%)%s%H$r@Z$jBX$($^$9!#(B
+% \begin{macrocode}
+\def\usekanji#1#2#3#4{%
+ \kanjiencoding{#1}\kanjifamily{#2}\kanjiseries{#3}\kanjishape{#4}%
+ \selectfont\ignorespaces}
+\def\useroman#1#2#3#4{%
+ \romanencoding{#1}\romanfamily{#2}\romanseries{#3}\romanshape{#4}%
+ \selectfont\ignorespaces}
+\def\usefont#1#2#3#4{%
+ \edef\tmp@item{{#1}}%
+ \expandafter\expandafter\expandafter
+ \inlist@\expandafter\tmp@item\expandafter{\kenc@list}%
+ \ifin@ \usekanji{#1}{#2}{#3}{#4}%
+ \else\useroman{#1}{#2}{#3}{#4}%
+ \fi}
+% \end{macrocode}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+%
+%
+% \begin{macro}{\normalfont}
+% $B=qBN$r%G%U%)%k%HCM$K$9$k%3%^%s%I$G$9!#(B
+% $BOBJ8=qBN$b%G%U%)%k%HCM$K$J$k$h$&$K:FDj5A$7$F$$$^$9!#(B
+% $B$?$@$79bB.2=$N$?$a!"(B|\usekanji|$B$H(B|\useroman|$B$rE83+$7!"(B
+% |\selectfont|$B$r0lEY$7$+8F$S=P$5$J$$$h$&$K$7$F$$$^$9!#(B
+% \begin{macrocode}
+\DeclareRobustCommand\normalfont{%
+ \kanjiencoding{\kanjiencodingdefault}%
+ \kanjifamily{\kanjifamilydefault}%
+ \kanjiseries{\kanjiseriesdefault}%
+ \kanjishape{\kanjishapedefault}%
+ \romanencoding{\encodingdefault}%
+ \romanfamily{\familydefault}%
+ \romanseries{\seriesdefault}%
+ \romanshape{\shapedefault}%
+ \selectfont\ignorespaces}
+ \adjustbaseline
+\let\reset@font\normalfont
+% \end{macrocode}
+% \end{macro}
+%
+%
+% \begin{macro}{\mcfamily}
+% \begin{macro}{\gtfamily}
+% $BOBJ8=qBN$rL@D+BN$K$9$k(B|\mcfamily|$B$H%4%7%C%/BN$K$9$k(B|\gtfamily|$B$rDj5A$7$^$9!#(B
+% $B$3$l$i$O!"(B|\rmfamily|$B$J$I$KBP1~$7$^$9!#(B
+% |\mathmc|$B$H(B|\mathgt|$B$O?t<0Fb$GMQ$$$k$H$-$N%3%^%s%IL>$G$9!#(B
+% \begin{macrocode}
+\DeclareRobustCommand\mcfamily
+ {\not@math@alphabet\mcfamily\mathmc
+ \kanjifamily\mcdefault\selectfont}
+\DeclareRobustCommand\gtfamily
+ {\not@math@alphabet\gtfamily\mathgt
+ \kanjifamily\gtdefault\selectfont}
+% \end{macrocode}
+% \end{macro}
+% \end{macro}
+%
+%
+% \begin{macro}{\romanprocess@table}
+% \begin{macro}{\kanjiprocess@table}
+% \begin{macro}{\process@table}
+% $BJ8=q$N@hF,$G!"OBJ8%G%U%)%k%H%U%)%s%H$NJQ99$,H?1G$5$l$J$$$N$r=$@5$7$^$9!#(B
+% \changes{v1.3g}{1999/04/05}{plpatch.ltx$B$NFbMF$rH?1G!#(B
+% $B$"$j$,$H$&!";3K\$5$s!#(B}
+% \begin{macrocode}
+\let\romanprocess@table\process@table
+\def\kanjiprocess@table{%
+ \kanjiencoding{\kanjiencodingdefault}%
+ \kanjifamily{\kanjifamilydefault}%
+ \kanjiseries{\kanjiseriesdefault}%
+ \kanjishape{\kanjishapedefault}%
+}
+\def\process@table{%
+ \romanprocess@table
+ \kanjiprocess@table
+}
+\@onlypreamble\romanprocess@table
+\@onlypreamble\kanjiprocess@table
+% \end{macrocode}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+%
+%
+%
+% \begin{macro}{\textunderscore}
+% \changes{v1.1b}{1995/04/12}{$B2<@~%^%/%m$rDI2C(B}
+% $B$3$N%3%^%s%I$O%F%-%9%H%b!<%I$G;XDj$5$l$?(B|\_|$B$NFbIt%3%^%s%I$G$9!#(B
+% $B=DAH$G$N0LCV$rD4@0$9$k$h$&$K:FDj5A$r$7$^$9!#(B
+% $B$b$H$O(B\file{ltoutenc.dtx}$B$GDj5A$5$l$F$$$^$9!#(B
+%
+% $B$J$*!"(B|\_|$B$r?t<0%b!<%I$G;H$&$H(B|\mathunderscore|$B$,<B9T$5$l$^$9!#(B
+% \begin{macrocode}
+\DeclareTextCommandDefault{\textunderscore}{%
+ \leavevmode\kern.06em
+ \iftdir\raise-\tbaselineshift\fi
+ \vbox{\hrule\@width.3em}}
+% \end{macrocode}
+% \end{macro}
+%
+%
+%
+% \subsection{$B%G%U%)%k%H@_Dj%U%!%$%k$NFI$_9~$_(B}
+% $B:G8e$K!"%G%U%)%k%H@_Dj%U%!%$%k$G$"$k!"(B\file{pldefs.ltx}$B$rFI$_9~$_$^$9!#(B
+% $B$3$N%U%!%$%k$K$D$$$F$N>\:Y$O!"Bh(B\ref{plfonts:pldefs}$B@a$r;2>H$7$F$/$@$5$$!#(B
+% \TeX{}$B$NF~NO%U%!%$%k8!:w%Q%9$K@_Dj$5$l$F$$$k%G%#%l%/%H%j$K(B\file{pldefs.cfg}%
+% $B%U%!%$%k$,$"$k>l9g$O!"$=$N%U%!%$%k$r;H$$$^$9!#(B
+% \begin{macrocode}
+\InputIfFileExists{pldefs.cfg}
+ {\typeout{*************************************^^J%
+ * Local config file pldefs.cfg used^^J%
+ *************************************}}%
+ {\input{pldefs.ltx}}
+%</plcore>
+% \end{macrocode}
+%
+%
+%
+%
+% \section{$B%G%U%)%k%H@_Dj%U%!%$%k(B}\label{plfonts:pldefs}
+% $B$3$3$G$O!"%U%)!<%^%C%H%U%!%$%k$KFI$_9~$^$l$k%G%U%)%k%HCM$r@_Dj$7$F$$$^$9!#(B
+% $B$3$N@a$G$NFbMF$O(B\file{pldefs.ltx}$B$K=PNO$5$l$^$9!#(B
+% $B$3$N%U%!%$%k$NFbMF$r(B\file{plcore.ltx}$B$K4^$a$F$b$h$$$N$G$9$,!"(B
+% $B%G%U%)%k%H$N@_Dj$r;2>H$7$d$9$$$h$&$K!"JL%U%!%$%k$K$7$F$"$j$^$9!#(B
+% \file{pldefs.ltx}$B$O(B\file{plcore.ltx}$B$+$iFI$_9~$^$l$^$9!#(B
+%
+% $B%W%j%m!<%I%5%$%:$O!"(B\dst{}$B%W%m%0%i%`$N%*%W%7%g%s$GJQ99$9$k$3$H$,$G$-$^$9!#(B
+% $B$3$l0J30$N@_Dj$rJQ99$7$?$$>l9g$O!"(B\file{pldefs.ltx}$B$r(B
+% $BD>@\!"=$@5$9$k$N$G$O$J$/!"$3$N%U%!%$%k$r(B\file{pldefs.cfg}$B$H$$$&L>A0$G(B
+% $B%3%T!<$r$7$F!"$=$N%U%!%$%k$KBP$7$F=$@5$r2C$($k$h$&$K$7$F$/$@$5$$!#(B
+% \begin{macrocode}
+%<*pldefs>
+\ProvidesFile{pldefs.ltx}
+ [2000/07/13 v1.2 pLaTeX Kernel (Default settings)]
+% \end{macrocode}
+%
+% \subsection{$B%$%?%j%C%/Jd@5(B}
+% \changes{v1.3i}{2000/07/13}{\cs{text..}$B%3%^%s%I$N:8B&$K(B\cs{xkanjiskip}$B$,(B
+% $BF~$i$J$$$N$r=$@5!J$"$j$,$H$&!"25It!wElBg$5$s!K(B}
+% \begin{macro}{\check@nocorr@}
+% $B!V(B\verb|$B$"(B\texttt{abc}$B$$(B|$B!W$H$7$?$H$-!"=qBN$NJQ99$r;XDj$5$l$?2$J8$N:8B&$K(B
+% $BOB2$J84V%9%Z!<%9$,F~$i$J$$$N$r=$@5$7$^$9!#(B
+% \begin{macrocode}
+\def \check@nocorr@ #1#2\nocorr#3\@nil {%
+ \let \check@icl \relax% \maybe@ic $B$+$iJQ99(B
+ \def \check@icr {\ifvmode \else \aftergroup \maybe@ic \fi}%
+ \def \reserved@a {\nocorr}%
+ \def \reserved@b {#1}%
+ \def \reserved@c {#3}%
+ \ifx \reserved@a \reserved@b
+ \ifx \reserved@c \@empty
+ \let \check@icl \@empty
+ \else
+ \let \check@icl \@empty
+ \let \check@icr \@empty
+ \fi
+ \else
+ \ifx \reserved@c \@empty
+ \else
+ \let \check@icr \@empty
+ \fi
+ \fi
+}
+% \end{macrocode}
+% \end{macro}
+%
+%
+% \subsection{$B%F%-%9%H%U%)%s%H(B}
+% $B%F%-%9%H%U%)%s%H$N$?$a$NB0@-$d%(%i!<=qBN$J$I$N@k8@$G$9!#(B
+%
+% \noindent
+% $B=D2#%(%s%3!<%I6&DL!'(B
+% \begin{macrocode}
+\DeclareKanjiEncodingDefaults{}{}
+\DeclareErrorKanjiFont{JY1}{mc}{m}{n}{10}
+% \end{macrocode}
+% $B2#AH%(%s%3!<%I!'(B
+% \begin{macrocode}
+\DeclareYokoKanjiEncoding{JY1}{}{}
+\DeclareKanjiSubstitution{JY1}{mc}{m}{n}
+% \end{macrocode}
+% $B=DAH%(%s%3!<%I!'(B
+% \begin{macrocode}
+\DeclareTateKanjiEncoding{JT1}{}{}
+\DeclareKanjiSubstitution{JT1}{mc}{m}{n}
+% \end{macrocode}
+% $B%U%)%s%HB0@-$N%G%U%)%k%HCM!'(B
+% \begin{macrocode}
+\newcommand\mcdefault{mc}
+\newcommand\gtdefault{gt}
+\newcommand\kanjiencodingdefault{JY1}
+\newcommand\kanjifamilydefault{\mcdefault}
+\newcommand\kanjiseriesdefault{\mddefault}
+\newcommand\kanjishapedefault{\updefault}
+% \end{macrocode}
+% $BOBJ8%(%s%3!<%I$N;XDj!'(B
+% \begin{macrocode}
+\kanjiencoding{JY1}
+% \end{macrocode}
+% $B%U%)%s%HDj5A!'(B
+% $B$3$l$i$N6qBNE*$JFbMF$OBh(B\ref{plfonts:fontdef}$B@a$r;2>H$7$F$/$@$5$$!#(B
+% \changes{v1.3}{1997/01/24}{Rename font definition filename.}
+% \begin{macrocode}
+\input{jy1mc.fd}
+\input{jy1gt.fd}
+\input{jt1mc.fd}
+\input{jt1gt.fd}
+% \end{macrocode}
+% $B%U%)%s%H$rM-8z$K$9$k(B
+% \begin{macrocode}
+\fontencoding{JT1}\selectfont
+\fontencoding{JY1}\selectfont
+% \end{macrocode}
+%
+% \begin{macro}{\textmc}
+% \begin{macro}{\textgt}
+% \changes{v1.3b}{1997/01/28}{\cs{textmc}, \cs{textgt}$B$NF0:n=$@5(B}
+% $B%F%-%9%H%U%!%_%j$r@Z$jBX$($k$?$a$N%3%^%s%I$G$9!#(B
+% \file{ltfntcmd.dtx}$B$GDj5A$5$l$F$$$k(B|\textrm|$B$J$I$KBP1~$7$^$9!#(B
+% \begin{macrocode}
+\DeclareTextFontCommand{\textmc}{\mcfamily}
+\DeclareTextFontCommand{\textgt}{\gtfamily}
+% \end{macrocode}
+% \end{macro}
+% \end{macro}
+%
+% \begin{macro}{\em}
+% \begin{macro}{\emph}
+% \changes{v1.3d}{1997/06/25}{\cs{em},\cs{emph}$B$GOBJ8$r6/D4=qBN$K(B}
+% $B=>Mh$O(B|\em|, |\emph|$B$GOBJ8%U%)%s%H$N@Z$jBX$($O9T$C$F$$$^$;$s$G$7$?$,!"(B
+% $BOBJ8%U%)%s%H$b(B|\gtfamily|$B$K@Z$jBX$($k$h$&$K$7$^$7$?!#(B
+% \begin{macrocode}
+\DeclareRobustCommand\em
+ {\@nomath\em \ifdim \fontdimen\@ne\font >\z@
+ \mcfamily \upshape \else \gtfamily \itshape \fi}
+% \end{macrocode}
+% \end{macro}
+% \end{macro}
+%
+%
+% \changes{v1.3b}{1997/01/30}{$B?t<0MQ%U%)%s%H$N@k8@$r%/%i%9%U%!%$%k$K0\F0$7$?(B}
+%
+%
+% \subsection{$B%W%j%m!<%I%U%)%s%H(B}
+% $B$"$i$+$8$a%U%)!<%^%C%H%U%!%$%k$K%m!<%I$5$l$k%U%)%s%H$N@k8@$G$9!#(B
+% \dst{}$B%W%m%0%i%`$N%*%W%7%g%s$G%m!<%I$5$l$k%U%)%s%H$N%5%$%:$r(B
+% $BJQ99$9$k$3$H$,$G$-$^$9!#(B\file{platex.ins}$B$G$O(B|xpt|$B$r;XDj$7$F$$$^$9!#(B
+% \begin{macrocode}
+%<*xpt>
+\DeclarePreloadSizes{JY1}{mc}{m}{n}{5,7,10,12}
+\DeclarePreloadSizes{JY1}{gt}{m}{n}{5,7,10,12}
+\DeclarePreloadSizes{JT1}{mc}{m}{n}{5,7,10,12}
+\DeclarePreloadSizes{JT1}{gt}{m}{n}{5,7,10,12}
+%</xpt>
+%<*xipt>
+\DeclarePreloadSizes{JY1}{mc}{m}{n}{5,7,10.95,12}
+\DeclarePreloadSizes{JY1}{gt}{m}{n}{5,7,10.95,12}
+\DeclarePreloadSizes{JT1}{mc}{m}{n}{5,7,10.95,12}
+\DeclarePreloadSizes{JT1}{gt}{m}{n}{5,7,10.95,12}
+%</xipt>
+%<*xiipt>
+\DeclarePreloadSizes{JY1}{mc}{m}{n}{7,9,12,14.4}
+\DeclarePreloadSizes{JY1}{gt}{m}{n}{7,9,12,14.4}
+\DeclarePreloadSizes{JT1}{mc}{m}{n}{7,9,12,14.4}
+\DeclarePreloadSizes{JT1}{gt}{m}{n}{7,9,12,14.4}
+%</xiipt>
+%<*ori>
+\DeclarePreloadSizes{JY1}{mc}{m}{n}
+ {5,6,7,8,9,10,10.95,12,14.4,17.28,20.74,24.88}
+\DeclarePreloadSizes{JY1}{gt}{m}{n}
+ {5,6,7,8,9,10,10.95,12,14.4,17.28,20.74,24.88}
+\DeclarePreloadSizes{JT1}{mc}{m}{n}
+ {5,6,7,8,9,10,10.95,12,14.4,17.28,20.74,24.88}
+\DeclarePreloadSizes{JT1}{gt}{m}{n}
+ {5,6,7,8,9,10,10.95,12,14.4,17.28,20.74,24.88}
+%</ori>
+% \end{macrocode}
+%
+%
+% \subsection{$BAHHG%Q%i%a!<%?(B}
+% $B6XB'%Q%i%a!<%?$dJ8;z4V$XA^F~$9$k%9%Z!<%9$N@_Dj$J$I$G$9!#(B
+% $B<B:]$N3FJ8;z$X$N6XB'%Q%i%a!<%?$*$h$S%9%Z!<%9$NA^F~$N5v2D@_Dj$J$I$O!"(B
+% \file{kinsoku.tex}$B$G9T$J$C$F$$$^$9!#(B
+% $B6qBNE*$J@_Dj$K$D$$$F$O!"(B\file{kinsoku.dtx}$B$r;2>H$7$F$/$@$5$$!#(B
+% \begin{macrocode}
+\InputIfFileExists{kinsoku.tex}%
+ {\message{Loading kinsoku patterns for japanese.}}
+ {\errhelp{The configuration for kinsoku is incorrectly installed.^^J%
+ If you don't understand this error message you need
+ to seek^^Jexpert advice.}%
+ \errmessage{OOPS! I can't find any kinsoku patterns for japanese^^J%
+ \space Think of getting some or the
+ platex2e setup will never succeed}\@@end}
+% \end{macrocode}
+%
+% $BAHHG%Q%i%a!<%?$N@_Dj$r$7$^$9!#(B
+% |\kanjiskip|$B$O!"4A;z$H4A;z$N4V$KA^F~$5$l$k%0%k!<$G$9!#(B
+% |\noautospacing|$B$G!"A^F~$rCf;_$9$k$3$H$,$G$-$^$9!#(B
+% $B%G%U%)%k%H$O(B|\autospacing|$B$G$9!#(B
+% \begin{macrocode}
+\kanjiskip=0pt plus .4pt minus .5pt
+\autospacing
+% \end{macrocode}
+% |\xkanjiskip|$B$O!"OB2$J84V$K<+F0E*$KA^F~$5$l$k%0%k!<$G$9!#(B
+% |\noautoxspacing|$B$G!"A^F~$rCf;_$9$k$3$H$,$G$-$^$9!#(B
+% $B%G%U%)%k%H$O(B|\autoxspacing|$B$G$9!#(B
+% \changes{v1.1c}{1995/09/12}{\cs{xkanjiskip}$B$N%G%U%)%k%HCM(B}
+% \begin{macrocode}
+\xkanjiskip=.25zw plus1pt minus1pt
+\autoxspacing
+% \end{macrocode}
+% |\jcharwidowpenalty|$B$O!"%Q%i%0%i%U$KBP$9$k6XB'$G$9!#(B
+% $B%Q%i%0%i%U$N:G8e$N9T$,#1J8;z$@$1$K$J$i$J$$$h$&$KD4@0$9$k$?$a$K;H$o$l$^$9!#(B
+% \begin{macrocode}
+\jcharwidowpenalty=500
+% \end{macrocode}
+% $B:G8e$K!"(B|\inhibitglue|$B$N4JN,7A$rDj5A$7$^$9!#(B
+% $B$3$N%3%^%s%I$O!"OBJ8%U%)%s%H$N%a%H%j%C%/>pJs$+$i!"<+F0E*$KA^F~$5$l$k(B
+% $B%0%k!<$NA^F~$r6X;_$7$^$9!#(B
+% \begin{macrocode}
+\def\<{\inhibitglue}
+% \end{macrocode}
+%
+% $B$3$3$^$G$,!"(B\file{pldefs.ltx}$B$NFbMF$G$9!#(B
+% \begin{macrocode}
+%</pldefs>
+% \end{macrocode}
+%
+%
+%
+% \section{$B%U%)%s%HDj5A%U%!%$%k(B}\label{plfonts:fontdef}
+% \changes{v1.3}{1997/01/24}{Rename provided font definition filename.}
+% $B$3$3$G$O!"%U%)%s%HDj5A%U%!%$%k$N@_Dj$r$7$F$$$^$9!#%U%)%s%HDj5A%U%!%$%k$O!"(B
+% \LaTeX{}$B$N%U%)%s%HB0@-$r(B\TeX{}$B%U%)%s%H$KCV$-49$($k$?$a$N%U%!%$%k$G$9!#(B
+% $B5-=RJ}K!$K$D$$$F$N>\:Y$O!"(B|fntguide.tex|$B$r;2>H$7$F$/$@$5$$!#(B
+%
+% $B2$J8=qBN$N@_Dj$K$D$$$F$O!"(B
+% \file{cmfonts.fdd}$B$d(B\file{slides.fdd}$B$J$I$r;2>H$7$F$/$@$5$$!#(B
+% \file{skfonts.fdd}$B$K$O!"<L8&BeMQ=qBN$r;H$&$?$a$N%Q%C%1!<%8$H(B
+% $B%U%)%s%HDj5A$,5-=R$5$l$F$$$^$9!#(B
+% \begin{macrocode}
+%<JY1mc>\ProvidesFile{jy1mc.fd}
+%<JY1gt>\ProvidesFile{jy1gt.fd}
+%<JT1mc>\ProvidesFile{jt1mc.fd}
+%<JT1gt>\ProvidesFile{jt1gt.fd}
+%<JY1mc,JY1gt,JT1mc,JT1gt> [1997/01/24 v1.3 KANJI font defines]
+% \end{macrocode}
+% $B2#AHMQ!"=DAHMQ$H$b$K!"(B
+% $BL@D+BN$N%7%j!<%:(B|bx|$B$,%4%7%C%/BN$H$J$k$h$&$K@k8@$7$F$$$^$9!#(B
+% \changes{v1.2}{1995/11/24}{it, sl, sc $B$N@k8@$r30$7$?(B}
+% \changes{v1.3b}{1997/01/29}{$B%U%)%s%HDj5A%U%!%$%k$N%5%$%:;XDj$ND4@0(B}
+% \changes{v1.3b}{1997/03/11}{$B$9$Y$F$N%5%$%:$r%m!<%I2DG=$K$7$?(B}
+% \begin{macrocode}
+%<*JY1mc>
+\DeclareKanjiFamily{JY1}{mc}{}
+\DeclareRelationFont{JY1}{mc}{m}{}{OT1}{cmr}{m}{}
+\DeclareRelationFont{JY1}{mc}{bx}{}{OT1}{cmr}{bx}{}
+\DeclareFontShape{JY1}{mc}{m}{n}{<5> <6> <7> <8> <9> <10> sgen*min
+ <10.95><12><14.4><17.28><20.74><24.88> min10
+ <-> min10
+ }{}
+\DeclareFontShape{JY1}{mc}{bx}{n}{<->ssub*gt/m/n}{}
+%</JY1mc>
+%<*JT1mc>
+\DeclareKanjiFamily{JT1}{mc}{}
+\DeclareRelationFont{JT1}{mc}{m}{}{OT1}{cmr}{m}{}
+\DeclareRelationFont{JT1}{mc}{bx}{}{OT1}{cmr}{bx}{}
+\DeclareFontShape{JT1}{mc}{m}{n}{<5> <6> <7> <8> <9> <10> sgen*tmin
+ <10.95><12><14.4><17.28><20.74><24.88> tmin10
+ <-> tmin10
+ }{}
+\DeclareFontShape{JT1}{mc}{bx}{n}{<->ssub*gt/m/n}{}
+%</JT1mc>
+%<*JY1gt>
+\DeclareKanjiFamily{JY1}{gt}{}
+\DeclareRelationFont{JY1}{gt}{m}{}{OT1}{cmr}{bx}{}
+\DeclareFontShape{JY1}{gt}{m}{n}{<5> <6> <7> <8> <9> <10> sgen*goth
+ <10.95><12><14.4><17.28><20.74><24.88> goth10
+ <-> goth10
+ }{}
+\DeclareFontShape{JY1}{gt}{bx}{n}{<->ssub*gt/m/n}{}
+%</JY1gt>
+%<*JT1gt>
+\DeclareKanjiFamily{JT1}{gt}{}
+\DeclareRelationFont{JT1}{gt}{m}{}{OT1}{cmr}{bx}{}
+\DeclareFontShape{JT1}{gt}{m}{n}{<5> <6> <7> <8> <9> <10> sgen*tgoth
+ <10.95><12><14.4><17.28><20.74><24.88> tgoth10
+ <-> tgoth10
+ }{}
+\DeclareFontShape{JT1}{gt}{bx}{n}{<->ssub*gt/m/n}{}
+%</JT1gt>
+% \end{macrocode}
+%
+%
+% \Finale
+%
+\endinput