%%% Package Version 2002 V5.0                       2002.10.31
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%  Format for 科研費調書 2002
%%%%%%%  File ID: pkkh.mac 基本マクロ定義ファイル (plain TeX版)
%%%%%%%  Contact: kakenhi-macro@yukawa.kyoto-u.ac.jp
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% このファイルはplain TeX版に特有の定義のみを含みます。
% 利用される方はかならず、付属のreadme.doc をお読み下さい。
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% フォントのサイズと種類の変更命令のサポート
%
\catcode`\@=11 % This allows us to modify PLAIN macros.
%
\let\rel@x=\relax
\let\n@expand=\relax
\def\pr@tect{\let\n@expand=\noexpand}
\let\protect=\pr@tect
\let\gl@bal=\global
%
\newcount\f@ntkey               \f@ntkey=0
\def\f@m{\afterassignment\samef@nt\f@ntkey=}
\def\samef@nt{\fam=\f@ntkey\the\textfont\f@ntkey\rel@x}
%
\font\twelverm    =cmr12
\font\ninerm      =cmr9
\font\eightrm     =cmr8
\font\sixrm       =cmr6
\font\fiverm      =cmr5
%
\font\twelvebf    =cmbx12
\font\ninebf      =cmbx9
\font\eightbf     =cmbx8
\font\sixbf       =cmbx6
\font\fivebf      =cmbx5
%
\font\twelvei     =cmmi12                       \skewchar\twelvei='177
\font\ninei       =cmmi9                          \skewchar\ninei='177
\font\eighti      =cmmi8                         \skewchar\eighti='177
\font\sixi        =cmmi6                           \skewchar\sixi='177
\font\fivei       =cmmi5                          \skewchar\fivei='177
%
\font\twelvesy    =cmsy10 scaled\magstep1       \skewchar\twelvesy='60
\font\ninesy      =cmsy9                          \skewchar\ninesy='60
\font\eightsy     =cmsy8                         \skewchar\eightsy='60
\font\sixsy       =cmsy6                           \skewchar\sixsy='60
\font\fivesy      =cmsy5                          \skewchar\fivesy='60
%
\font\twelveex    =cmex10 scaled\magstep1
\batchmode\font\fontt@st=cmex8\relax\errorstopmode%
\ifx\fontt@st\nullfont\font\eightex=cmex10\else\font\eightex=cmex8\fi
%
\font\twelvesl    =cmsl12
\font\ninesl      =cmsl9
\font\eightsl     =cmsl8
%
\font\twelveit    =cmti12
\font\nineit      =cmti9
\font\eightit     =cmti8
%
\font\twelvett    =cmtt12
\font\eighttt     =cmtt8
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
\def\twelvef@nts{\relax
    \textfont0=\twelverm          \scriptfont0=\ninerm
      \scriptscriptfont0=\sixrm
    \textfont1=\twelvei           \scriptfont1=\ninei
      \scriptscriptfont1=\sixi
    \textfont2=\twelvesy           \scriptfont2=\ninesy
      \scriptscriptfont2=\sixsy
    \textfont3=\twelveex          \scriptfont3=\tenex
      \scriptscriptfont3=\tenex
    \textfont\itfam=\twelveit     \scriptfont\itfam=\nineit
    \textfont\slfam=\twelvesl     \scriptfont\slfam=\ninesl
    \textfont\bffam=\twelvebf     \scriptfont\bffam=\ninebf
      \scriptscriptfont\bffam=\sixbf
    \textfont\ttfam=\twelvett
}
%
\def\tenf@nts{\relax
    \textfont0=\tenrm          \scriptfont0=\sevenrm
      \scriptscriptfont0=\fiverm
    \textfont1=\teni           \scriptfont1=\seveni
      \scriptscriptfont1=\fivei
    \textfont2=\tensy          \scriptfont2=\sevensy
      \scriptscriptfont2=\fivesy
    \textfont3=\tenex          \scriptfont3=\tenex
      \scriptscriptfont3=\tenex
    \textfont\itfam=\tenit     \scriptfont\itfam=\seveni  % no \sevenit
    \textfont\slfam=\tensl     \scriptfont\slfam=\sevenrm % no \sevensl
    \textfont\bffam=\tenbf     \scriptfont\bffam=\sevenbf
      \scriptscriptfont\bffam=\fivebf
    \textfont\ttfam=\tentt
}
%
\def\eightf@nts{\relax
    \textfont0=\eightrm        \scriptfont0=\sixrm
      \scriptscriptfont0=\fiverm
    \textfont1=\eighti         \scriptfont1=\sixi
      \scriptscriptfont1=\fivei
    \textfont2=\eightsy        \scriptfont2=\sixsy
      \scriptscriptfont2=\fivesy
    \textfont3=\eightex        \scriptfont3=\eightex
      \scriptscriptfont3=\eightex
    \textfont\itfam=\eightit   \scriptfont\itfam=\sixi  % no \sevenit
    \textfont\slfam=\eightsl   \scriptfont\slfam=\sixrm % no \sevensl
    \textfont\bffam=\eightbf   \scriptfont\bffam=\sixbf
      \scriptscriptfont\bffam=\fivebf
    \textfont\ttfam=\eighttt
}
%
\def\rm{\n@expand\f@m0 }
\def\mit{\n@expand\f@m1 }         \let\oldstyle=\mit
\def\cal{\n@expand\f@m2}
\def\it{\n@expand\f@m\itfam}
\def\sl{\n@expand\f@m\slfam}
\def\bf{\n@expand\f@m\bffam}
\def\tt{\n@expand\f@m\ttfam}
\def\em@{\rel@x\ifnum\f@ntkey=0\it\else
        \ifnum\f@ntkey=\bffam\it\else\rm\fi \fi }
\def\em{\n@expand\em@}
%
\def\twelvepoint{\twelvef@nts \samef@nt}
\def\tenpoint{\tenf@nts \samef@nt}
\def\eightpoint{\eightf@nts \samef@nt}
%
\catcode`\@=12%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% 英字フォント
% （安全のためフォント名は２重に定義したままにする。）
\font\sixrm=cmr6
\font\eightrm=cmr8
\font\tenrm=cmr10
\font\elevenrm=cmr10 scaled \magstephalf
\font\twelverm=cmr12
\font\tenbf=cmbx10
\font\elevenbf=cmbx10 scaled \magstephalf
\font\twelvebf=cmbx12
% for 12pt math expression
\font\eighti=cmmi8
\font\teni=cmmi10
\font\twelvei=cmmi12
%
% 漢字フォント
\ifNTTTeX
 \jfont\fivemin=dm5
 \jfont\sixmin=dm6
 \jfont\sixgt=dg6
 \jfont\sevenmin=dm7
 \jfont\sevengt=dg7
 \jfont\eightmin=dm8
 \jfont\eightgt=dg8
 \jfont\ninemin=dm9
 \jfont\ninegt=dg9
 \jfont\tenmin=dm10
 \jfont\tengt=dg10
 \jfont\elevenmin=dm10 scaled \magstephalf
 \jfont\elevengt=dg10 scaled \magstephalf
 \jfont\twelvemin=dm10 scaled \magstep1
 \jfont\twelvegt=dg10 scaled \magstep1
 \jfont\fourteenmin=dm10 scaled \magstep2
 \jfont\fourteengt=dg10 scaled \magstep2
 \jfont\seventeenmin=dm10 scaled \magstep3
 \jfont\seventeengt=dg10 scaled \magstep3
 \jfont\twentyonegt=dg10 scaled \magstep4
\else
 \font\fivemin=min5
 \font\sixmin=min6
 \font\sixgt=goth6
 \font\sevenmin=min7
 \font\sevengt=goth7
 \font\eightmin=min8
 \font\eightgt=goth8
 \font\ninemin=min9
 \font\ninegt=goth9
 \font\tenmin=min10
 \font\tengt=goth10
 \font\elevenmin=min10 scaled\magstephalf
 \font\elevengt=goth10 scaled\magstephalf
 \font\twelvemin=min10 scaled\magstep1
 \font\twelvegt=goth10 scaled\magstep1
 \font\fourteenmin=min10 scaled\magstep2
 \font\fourteengt=goth10 scaled \magstep2
 \font\seventeenmin=min10 scaled\magstep3
 \font\seventeengt=goth10 scaled\magstep3
 \font\twentyonegt=goth10 scaled\magstep4
\fi
%
%
% 以下のサイズ定義はかなり簡易版です。
% 12pt
\def\Twelvepoint{
   \twelvepoint
   \twelvemin\twelverm
%   \textfont1=\twelvei
%   \scriptfont1=\teni
%   \scriptscriptfont1=\eighti
   \baselineskip=5.4mm plus0.2mm minus0.15mm
}
% 10pt
\def\Tenpoint{
   \tenpoint
   \tenmin\tenrm
%   \textfont1=\teni
%   \scriptfont1=\seveni
%  \scriptscriptfont1=\fivei
   \baselineskip=4.6mm plus0.16mm minus0.13mm
}
% 8pt
\def\Eightpoint{
   \eightpoint
   \eightmin\eightrm
%   \textfont1=\eighti
%   \scriptfont1=\sixi
%  \scriptscriptfont1=\fivei
   \baselineskip=3.6mm plus0.12mm minus0.11mm
}
% itemization (from PHYZZX)
\def\Textindent#1{\noindent\llap{#1\enspace}\ignorespaces}
\def\GENITEM#1;#2{\par \hangafter=0 \hangindent=#1
    \Textindent{#2}\ignorespaces}
\outer\def\newitem#1=#2;{\gdef#1{\GENITEM #2;}}
%
\newdimen\itemsize                \itemsize=30pt
\newitem\item=1\itemsize;
\newitem\sitem=1.75\itemsize;     \let\subitem=\sitem
\newitem\ssitem=2.5\itemsize;     \let\subsubitem=\ssitem
%%%%
% underline
\def\undertext#1{\vtop{\hbox{#1}\kern 1pt \hrule}}
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% dummy definitions for compatibility with LaTeX version
\newdimen\linewidth
\def\footnotesize{}
\def\normalsize{}
\def\marux#1{}
\def\nagamaru#1{}
\def\ls#1{}
\def\lsx#1{}
%
% Plain TeX で長丸をつけるためのマクロ
% SmallTeX option では読み込みません。
\ifSmallTeX\relax\else\input kkhpic.mac\relax\fi
%
%End of pkkh.mac