src/ltjsclasses.dtx

   1 % \iffalse meta-comment
   2 %% File: ltjsclasses.dtx
   3 %  -----------------------------------------
   4 %  Original: jsclasses.dtx
   5 %
   6 %  pLaTeX2ε新ドキュメントクラス
   7 %
   8 %  これは LaTeX3 Project の classes.dtx と株式会社アスキーの jclasses.dtx
   9 %  に基づいて，もともと奥村晴彦 <okumura@okumuralab.org> により
  10 %  作成されたものです。
  11 %  現在は日本語\TeX 開発コミュニティにより管理されています。
  12 %
  13 %  [2002-12-19] いろいろなものに収録していただく際にライセンスを明確にする
  14 %  必要が生じてきました。アスキーのものが最近はmodified BSDライセンスになっ
  15 %  ていますので，私のものもそれに準じてmodified BSDとすることにします。
  16 %
  17 %  [2016-07-11] abenoriさんによる\texttt{nomag}オプションをマージしました。
  18 %  なお，ソースコードの管理はGitHubで行うことにしました。
  19 %
  20 %  [2016-07-13] 日本語\TeX 開発コミュニティによる管理に移行しました。
  21 %
  22 %  Copyright 1993 1994 1995 1996 1997 1998 1999
  23 %  The LaTeX3 Project and any individual authors listed elsewhere
  24 %  in this file.
  25 %
  26 %  Copyright 1995-1999 ASCII Corporation.
  27 %  Copyright 1999-2016 Haruhiko Okumura
  28 %  Copyright 2016 Japanese TeX Development Community
  29 %  -----------------------------------------
  30 %
  31 % \fi
  32 %% \CharacterTable
  33 %%  {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
  34 %%   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
  35 %%   Digits        \0\1\2\3\4\5\6\7\8\9
  36 %%   Exclamation   \!     Double quote  \"     Hash (number) \#
  37 %%   Dollar        \$     Percent       \%     Ampersand     \&
  38 %%   Acute accent  \'     Left paren    \(     Right paren   \)
  39 %%   Asterisk      \*     Plus          \+     Comma         \,
  40 %%   Minus         \-     Point         \.     Solidus       \/
  41 %%   Colon         \:     Semicolon     \;     Less than     \<
  42 %%   Equals        \=     Greater than  \>     Question mark \?
  43 %%   Commercial at \@     Left bracket  \[     Backslash     \\
  44 %%   Right bracket \]     Circumflex    \^     Underscore    \_
  45 %%   Grave accent  \`     Left brace    \{     Vertical bar  \|
  46 %%   Right brace   \}     Tilde         \~}
  47 %
  48 % \iffalse
  49 %
  50 %    \begin{macrocode}
  51 %<article|book|jspf|kiyou>\NeedsTeXFormat{LaTeX2e}
  52 %<article>\ProvidesClass{ltjsarticle}
  53 %<book>\ProvidesClass{ltjsbook}
  54 %<jspf>\ProvidesClass{ltjspf}
  55 %<kiyou>\ProvidesClass{ltjskiyou}
  56 %<*driver>
  57 \ProvidesFile{ltjsclasses.dtx}
  58 %</driver>
  59   [2017/01/23 ltjsclasses ]
  60 %<*driver>
  61 \IfFileExists{luatex85.sty}{\RequirePackage{luatex85}}{}
  62 \documentclass{ltjsarticle}
  63 \usepackage{hypdoc}
  64 \hypersetup{unicode=true}
  65 \usepackage[ipaex,nfssonly]{luatexja-preset}
  66 \ltjsetparameter{alxspmode={`\*,allow}}
  67 \ltjsetparameter{alxspmode={`\\,allow}}
  68 %%%%\usepackage{unicode-math}
  69 %%%%\setmathfont{Latin Modern Math}
  70 \addtolength{\textwidth}{-1in}
  71 \addtolength{\evensidemargin}{1in}
  72 \addtolength{\oddsidemargin}{1in}
  73 \addtolength{\marginparwidth}{1in}
  74 \setlength\marginparpush{0pt}
  75 % \OnlyDescription
  76 \EnableCrossrefs
  77 \setcounter{StandardModuleDepth}{1}
  78 \GetFileInfo{ltjsclasses.dtx}
  79 \CodelineNumbered
  80 \begin{document}
  81 \DocInput{ltjsclasses.dtx}
  82 \end{document}
  83 %</driver>
  84 %    \end{macrocode}
  85 %
  86 % \fi
  87 %
  88 % \title{Lua\LaTeX-ja用\texttt{jsclasses}互換クラス}
  89 % \author{Lua\TeX-jaプロジェクト}
  90 % \date{\filedate}
  91 % \maketitle
  92 % \tableofcontents
  93 %
  94 % \MakeShortVerb{\|}
  95 %
  96 % \section{はじめに}
  97 %
  98 % これは，元々奥村晴彦先生により作成され，現在は日本語\TeX 開発コミュニティにより
  99 % 管理されている\texttt{jsclasses.dtx}をLua\LaTeX-ja用に改変したものです。
 100 % 次のドキュメントクラス（スタイルファイル）を生成します。
 101 % \begin{quote}
 102 %   \begin{tabular}{lll}
 103 %     $\langle$\textsf{article}$\rangle$ & \texttt{ltjsarticle.cls}  & 論文・レポート用 \\
 104 %     $\langle$\textsf{book}$\rangle$    & \texttt{ltjsbook.cls}     & 書籍用 \\
 105 %     $\langle$\textsf{jspf}$\rangle$    & \texttt{ltjspf.cls}       & 某学会誌用 \\
 106 %     $\langle$\textsf{kiyou}$\rangle$   & \texttt{ltjskiyou.cls}      & 某紀要用
 107 %   \end{tabular}
 108 % \end{quote}
 109 %
 110 % \subsection{\texttt{jsclasses.dtx}からの主な変更点}
 111 % 全ての変更点を知りたい場合は，\texttt{jsclasses.dtx}と\texttt{ltjsclasses.dtx}でdiffを
 112 % とって下さい。zw, zh は全て |\zw|, |\zh| に置き換えられています。
 113 % \begin{itemize}
 114 % \item フォントメトリック関係のオプション\texttt{winjis}は単に無視されます。
 115 % \item 標準では\texttt{jfm-ujis.lua}（Lua\TeX-ja標準のメトリック，OTFパッケージのものがベース）を使用します。
 116 % \item \texttt{uplatex}オプション，\texttt{autodetect-engine}オプションを
 117 % 削除してあります（前者ではエラーを出すようにしています）。
 118 % \item \texttt{disablejfam}オプションが無効になっています。もし
 119 % \begin{quotation}
 120 %   |! LaTeX Error: Too many math alphabets used in version ****.|
 121 % \end{quotation}
 122 % のエラーが起こった場合は，\texttt{lualatex-math}パッケージを読み込んでみて下さい。
 123 % \item \texttt{papersize}オプションの指定に関わらずPDFのページサイズは適切に
 124 %   設定されます。
 125 % \item Lua\TeX-ja同梱のメトリックを用いる限りは，段落の頭にグルーは挿入されません。
 126 %   そのため，オリジナルの\texttt{jsclasses}内にあったhack (|\everyparhook|)は不要になったので，
 127 %   削除しました。
 128 % \item 「\texttt{amsmath}との衝突の回避」のコードは，上流で既に対処されているうえ，
 129 %   これがあると\texttt{grfext.sty}を読み込んだ際にエラーを引き起こすので削除しました。
 130 % \item 本家\texttt{jsclasses}では |\mag| を用いて「10\,pt時の組版結果を本文フォントサイズに合わせ拡大縮小」
 131 %   という方針でしたが，本\texttt{ltjsclasses}ではそのような方法を取っていません。
 132 %   \begin{itemize}
 133 %    \item \texttt{nomag}オプション指定時には，単にレイアウトに用いる各種長さの値をスケールさせるだけです。
 134 %      そのため，例えば本文の文字サイズが17\,ptのときにはcmr10でなくcmr17を用いることになり，組版結果の印象が
 135 %      異なる恐れがあります。
 136 %    \item \texttt{nomag*}オプション指定時には，上記に加えてオプティカルサイズを調整する（本文ではcmr17の代わりに
 137 %      cmr10を拡大縮小する，など）ため，\LaTeX のフォント選択システムNFSSへパッチを当てます。
 138 %      こうすることで前項に書いた不具合はなくなりますが，かえって別の不具合が起きる可能性
 139 %      はあります\footnote{%
 140 %        \texttt{nomag*}は\texttt{jsclasses}でも利用可能ですが，\texttt{ltjsclasses}では\texttt{jsclasses}とは
 141 %        別の実装をしています。
 142 %      }。
 143 %   \end{itemize}
 144 %   標準では\texttt{nomag*}オプションが有効になっています。\texttt{jsclasses}で用意され，かつ既定になっている
 145 %   \texttt{usemag}オプションを指定すると警告を出します。
 146 % \end{itemize}
 147 %
 148 % [2014-02-07 LTJ] jsclasses 2014-02-07 ベースにしました。
 149 %
 150 % [2014-07-26 LTJ] 縦組用和文フォントの設定を加えました。
 151 %
 152 % [2014-12-24 LTJ] |\@setfontsize| 中の和欧文間空白の設定で if 文が抜けていたのを直しました。
 153 %
 154 % [2016-01-30 LTJ] |\rmfamily| 他で和文フォントファミリも変更するコードを
 155 % Lua\TeX-ja カーネル内に移しました。
 156 %
 157 % [2016-03-21 LTJ] Lua\TeX~beta-0.87.0 ではPDF出力時に|\mag|が使用できなくなったので，
 158 % ZRさんの\texttt{bxjscls}を参考に使わないように書き換えました。
 159 %
 160 % [2016-03-31 LTJ] \texttt{xreal}オプションを標準で有効にしました。
 161 %
 162 % [2016-07-12 LTJ] \texttt{jsclasses}開発版に合わせ，\texttt{real},~\texttt{xreal}オプションの名称を変更するなどの変更を行いました。
 163 %
 164 % [2016-07-18 LTJ] \texttt{usemag}オプションが指定されると警告を出すようにしました。
 165 %
 166 % [2016-07-21 LTJ] \LaTeX 等のロゴの再定義で，\texttt{jslogo}パッケージがあればそちらを読み込むことにしました。
 167 %
 168 % [2016-10-13 LTJ] \texttt{slide}オプションの使用時にエラーが出るのを修正．
 169 %
 170 % \StopEventually{}
 171 %
 172 % 以下では実際のコードに即して説明します。
 173 %
 174 % \begin{macro}{\jsc@clsname}
 175 %
 176 % 文書クラスの名前です。エラーメッセージ表示などで使われます。
 177 %
 178 %    \begin{macrocode}
 179 %<article>\def\jsc@clsname{ltjsarticle}
 180 %<book>\def\jsc@clsname{ltjsbook}
 181 %<jspf>\def\jsc@clsname{ltjspf}
 182 %<kiyou>\def\jsc@clsname{ltjskiyou}
 183 %    \end{macrocode}
 184 % \end{macro}
 185 %
 186 % \section{Lua\TeX-jaの読み込み}
 187 %
 188 % まず，Lua\TeX-jaを読み込みます。
 189 %    \begin{macrocode}
 190 \RequirePackage{luatexja}
 191 %    \end{macrocode}
 192 %
 193 % \section{オプション}
 194 %
 195 % これらのクラスは |\documentclass{ltjsarticle}|
 196 % あるいは |\documentclass[オプション]{ltjsarticle}|
 197 % のように呼び出します。
 198 %
 199 % まず，オプションに関連するいくつかのコマンドやスイッチ（論理変数）を定
 200 % 義します。
 201 %
 202 % \begin{macro}{\if@restonecol}
 203 %
 204 % 段組のときに真になる論理変数です。
 205 %
 206 %    \begin{macrocode}
 207 \newif\if@restonecol
 208 %    \end{macrocode}
 209 % \end{macro}
 210 %
 211 % \begin{macro}{\if@titlepage}
 212 %
 213 % これを真にすると表題，概要を独立したページに出力します。
 214 %
 215 %    \begin{macrocode}
 216 \newif\if@titlepage
 217 %    \end{macrocode}
 218 % \end{macro}
 219 %
 220 % \begin{macro}{\if@openright}
 221 %
 222 % |\chapter|，|\part| を奇数ページ起こしにするかどうかです。
 223 % 書籍では真が標準です。
 224 %
 225 %    \begin{macrocode}
 226 %<book>\newif\if@openright
 227 %    \end{macrocode}
 228 % \end{macro}
 229 %
 230 % \begin{macro}{\if@mainmatter}
 231 %
 232 % 真なら本文，偽なら前付け・後付けです。
 233 % 偽なら |\chapter| で章番号が出ません。
 234 %
 235 %    \begin{macrocode}
 236 %<book>\newif\if@mainmatter \@mainmattertrue
 237 %    \end{macrocode}
 238 % \end{macro}
 239 %
 240 % \begin{macro}{\if@enablejfam}
 241 %
 242 % 和文フォントを数式フォントとして登録するかどうかを示すスイッチですが，
 243 % 実際には用いられません。
 244 %
 245 %    \begin{macrocode}
 246 \newif\if@enablejfam \@enablejfamtrue
 247 %    \end{macrocode}
 248 % \end{macro}
 249 %
 250 % 以下で各オプションを宣言します。
 251 %
 252 % \paragraph{用紙サイズ}
 253 %
 254 % JISやISOのA0判は面積 $1\,\mathrm{m}^2$，縦横比 $1:\sqrt{2}$
 255 % の長方形の辺の長さを mm 単位に切り捨てたものです。
 256 % これを基準として順に半截しては mm 単位に切り捨てたものがA1，A2，…です。
 257 %
 258 % B判はJISとISOで定義が異なります。
 259 % JISではB0判の面積が $1.5\,\mathrm{m}^2$ ですが，
 260 % ISOではB1判の辺の長さがA0判とA1判の辺の長さの幾何平均です。
 261 % したがってISOのB0判は $1000\,\mathrm{mm} \times 1414\,\mathrm{mm}$ です。
 262 % このため，\LaTeXe の \texttt{b5paper}
 263 % は $250\,\mathrm{mm} \times 176\,\mathrm{mm}$ ですが，
 264 % \pLaTeXe の \texttt{b5paper}
 265 % は $257\,\mathrm{mm} \times 182\,\mathrm{mm}$ になっています。
 266 % ここでは\pLaTeXe にならってJISに従いました。
 267 %
 268 % デフォルトは \texttt{a4paper} です。
 269 %
 270 % \texttt{b5var}（B5変形，182mm×230mm），
 271 % \texttt{a4var}（A4変形，210mm×283mm）を追加しました。
 272 %
 273 %    \begin{macrocode}
 274 \DeclareOption{a3paper}{%
 275   \setlength\paperheight {420mm}%
 276   \setlength\paperwidth  {297mm}}
 277 \DeclareOption{a4paper}{%
 278   \setlength\paperheight {297mm}%
 279   \setlength\paperwidth  {210mm}}
 280 \DeclareOption{a5paper}{%
 281   \setlength\paperheight {210mm}%
 282   \setlength\paperwidth  {148mm}}
 283 \DeclareOption{a6paper}{%
 284   \setlength\paperheight {148mm}%
 285   \setlength\paperwidth  {105mm}}
 286 \DeclareOption{b4paper}{%
 287   \setlength\paperheight {364mm}%
 288   \setlength\paperwidth  {257mm}}
 289 \DeclareOption{b5paper}{%
 290   \setlength\paperheight {257mm}%
 291   \setlength\paperwidth  {182mm}}
 292 \DeclareOption{b6paper}{%
 293   \setlength\paperheight {182mm}%
 294   \setlength\paperwidth  {128mm}}
 295 \DeclareOption{a4j}{%
 296   \setlength\paperheight {297mm}%
 297   \setlength\paperwidth  {210mm}}
 298 \DeclareOption{a5j}{%
 299   \setlength\paperheight {210mm}%
 300   \setlength\paperwidth  {148mm}}
 301 \DeclareOption{b4j}{%
 302   \setlength\paperheight {364mm}%
 303   \setlength\paperwidth  {257mm}}
 304 \DeclareOption{b5j}{%
 305   \setlength\paperheight {257mm}%
 306   \setlength\paperwidth  {182mm}}
 307 \DeclareOption{a4var}{%
 308   \setlength\paperheight {283mm}%
 309   \setlength\paperwidth  {210mm}}
 310 \DeclareOption{b5var}{%
 311   \setlength\paperheight {230mm}%
 312   \setlength\paperwidth  {182mm}}
 313 \DeclareOption{letterpaper}{%
 314   \setlength\paperheight {11in}%
 315   \setlength\paperwidth  {8.5in}}
 316 \DeclareOption{legalpaper}{%
 317   \setlength\paperheight {14in}%
 318   \setlength\paperwidth  {8.5in}}
 319 \DeclareOption{executivepaper}{%
 320   \setlength\paperheight {10.5in}%
 321   \setlength\paperwidth  {7.25in}}
 322 %    \end{macrocode}
 323 %
 324 % \paragraph{横置き}
 325 %
 326 % 用紙の縦と横の長さを入れ換えます。
 327 %
 328 %    \begin{macrocode}
 329 \newif\if@landscape
 330 \@landscapefalse
 331 \DeclareOption{landscape}{\@landscapetrue}
 332 %    \end{macrocode}
 333 %
 334 % \paragraph{slide}
 335 %
 336 % オプション \texttt{slide} を新設しました。
 337 %
 338 % [2016-10-08] \texttt{slide} オプションは article 以外では使い物にならなかったので，
 339 % 簡単のため article のみで使えるオプションとしました。
 340 %
 341 %    \begin{macrocode}
 342 \newif\if@slide
 343 \@slidefalse
 344 %    \end{macrocode}
 345 %
 346 % \paragraph{サイズオプション}
 347 %
 348 % 10pt，11pt，12pt のほかに，8pt，9pt，14pt，17pt，21pt，25pt，30pt，36pt，43pt を追加しました。
 349 % これは等比数列になるように選んだものです（従来の 20pt も残しました）。
 350 % |\@ptsize| の定義が変だったのでご迷惑をおかけしましたが，
 351 % 標準的なドキュメントクラスと同様にポイント数から10を引いたものに直しました。
 352 %
 353 % [2003-03-22] 14Qオプションを追加しました。
 354 %
 355 % [2003-04-18] 12Qオプションを追加しました。
 356 %
 357 % [2016-07-08] |\mag| を使わずに各種寸法をスケールさせるためのオプション \texttt{nomag} を新設しました。
 358 % \texttt{usemag} オプションの指定で従来通りの動作となります。デフォルトは \texttt{usemag} です。
 359 %
 360 % [2016-07-24] オプティカルサイズを調整するためにNFSSへパッチを当てるオプション \texttt{nomag*} を新設しました。
 361 %
 362 %    \begin{macrocode}
 363 \def\jsc@magscale{1}
 364 %<*article>
 365 \DeclareOption{slide}{\@slidetrue\def\jsc@magscale{3.583}\@landscapetrue\@titlepagetrue}
 366 %</article>
 367 \DeclareOption{8pt} {\def\jsc@magscale{0.833}}% 1.2^(-1)
 368 \DeclareOption{9pt} {\def\jsc@magscale{0.913}}% 1.2^(-0.5}
 369 \DeclareOption{10pt}{\def\jsc@magscale{1}}
 370 \DeclareOption{11pt}{\def\jsc@magscale{1.095}}% 1.2^0.5
 371 \DeclareOption{12pt}{\def\jsc@magscale{1.200}}
 372 \DeclareOption{14pt}{\def\jsc@magscale{1.440}}
 373 \DeclareOption{17pt}{\def\jsc@magscale{1.728}}
 374 \DeclareOption{20pt}{\def\jsc@magscale{2}}
 375 \DeclareOption{21pt}{\def\jsc@magscale{2.074}}
 376 \DeclareOption{25pt}{\def\jsc@magscale{2.488}}
 377 \DeclareOption{30pt}{\def\jsc@magscale{2.986}}
 378 \DeclareOption{36pt}{\def\jsc@magscale{3.583}}
 379 \DeclareOption{43pt}{\def\jsc@magscale{4.300}}
 380 \DeclareOption{12Q} {\def\jsc@magscale{0.923}}% 1pt*12Q/13Q
 381 \DeclareOption{14Q} {\def\jsc@magscale{1.077}}% 1pt*14Q/13Q
 382 \DeclareOption{10ptj}{\def\jsc@magscale{1.085}}% 1pt*10bp/13Q
 383 \DeclareOption{10.5ptj}{\def\jsc@magscale{1.139}}
 384 \DeclareOption{11ptj}{\def\jsc@magscale{1.194}}
 385 \DeclareOption{12ptj}{\def\jsc@magscale{1.302}}
 386 %    \end{macrocode}
 387 %
 388 % \paragraph{オプティカルサイズの補正}
 389 % \texttt{nomag*}オプション指定時には，本文のフォントサイズが10pt以外の場合に
 390 % オプティカルサイズの補正を行うためにNFSSにパッチを当てます。
 391 % 現在の\texttt{ltjsclasses}ではこのパッチ当ては標準では行いますが，
 392 % 将来どうなるかわからないので\texttt{nomag}で無効化することができるようにしました。
 393 %
 394 % \texttt{noxreal},~\texttt{real}は旧来の互換性として今は残してありますが，2017年7月に削除する予定です。
 395 %    \begin{macrocode}
 396 \newif\if@ltjs@mag@xreal
 397 \@ltjs@mag@xrealtrue
 398 \DeclareOption{nomag*}{\@ltjs@mag@xrealtrue}
 399 \DeclareOption{nomag}{\@ltjs@mag@xrealfalse}
 400 \DeclareOption{noxreal}{%
 401   \ClassWarningNoLine{\jsc@clsname}{%
 402     The class option `noxreal' is obsolete. \MessageBreak
 403     Please use the `nomag' option instead}%
 404   \@ltjs@mag@xrealfalse}
 405 \DeclareOption{real}{%
 406   \ClassWarningNoLine{\jsc@clsname}{%
 407     The class option `real' is obsolete. \MessageBreak
 408     Please use the `nomag' option instead}%
 409   \@ltjs@mag@xrealfalse}
 410 \DeclareOption{usemag}{%
 411   \ClassWarningNoLine{\jsc@clsname}{%
 412     This \jsc@clsname\space cls does not support `usemag'\MessageBreak
 413         option, since LuaTeX does not support \string\mag\MessageBreak in pdf output}%
 414   \@ltjs@mag@xrealtrue}
 415
 416
 417 %    \end{macrocode}
 418 %
 419 %
 420 % \paragraph{トンボオプション}
 421 %
 422 % トンボ（crop marks）を出力します。
 423 % 実際の処理は\texttt{lltjcore.sty}で行います。
 424 % オプション \texttt{tombow} で日付付きのトンボ，
 425 % オプション \texttt{tombo} で日付なしのトンボを出力します。
 426 % これらはアスキー版のままです。
 427 % カウンタ |\hour|，|\minute| は\texttt{luatexja-compat.sty}で宣言されています。
 428 %
 429 %    \begin{macrocode}
 430 \hour\time \divide\hour by 60\relax
 431 \@tempcnta\hour \multiply\@tempcnta 60\relax
 432 \minute\time \advance\minute-\@tempcnta
 433 \DeclareOption{tombow}{%
 434   \tombowtrue \tombowdatetrue
 435   \setlength{\@tombowwidth}{.1\p@}%
 436   \@bannertoken{%
 437      \jobname\space(\number\year-\two@digits\month-\two@digits\day
 438      \space\two@digits\hour:\two@digits\minute)}%
 439   \maketombowbox}
 440 \DeclareOption{tombo}{%
 441   \tombowtrue \tombowdatefalse
 442   \setlength{\@tombowwidth}{.1\p@}%
 443   \maketombowbox}
 444 %    \end{macrocode}
 445 %
 446 % \paragraph{面付け}
 447 %
 448 % オプション \texttt{mentuke} で幅ゼロのトンボを出力します。
 449 % 面付けに便利です。これもアスキー版のままです。
 450 %
 451 %    \begin{macrocode}
 452 \DeclareOption{mentuke}{%
 453   \tombowtrue \tombowdatefalse
 454   \setlength{\@tombowwidth}{\z@}%
 455   \maketombowbox}
 456 %    \end{macrocode}
 457 %
 458 % \paragraph{両面，片面オプション}
 459 %
 460 % \texttt{twoside} で奇数ページ・偶数ページのレイアウトが変わります。
 461 %
 462 % [2003-04-29] \texttt{vartwoside} でどちらのページも傍注が右側になります。
 463 %
 464 %    \begin{macrocode}
 465 \DeclareOption{oneside}{\@twosidefalse \@mparswitchfalse}
 466 \DeclareOption{twoside}{\@twosidetrue \@mparswitchtrue}
 467 \DeclareOption{vartwoside}{\@twosidetrue \@mparswitchfalse}
 468 %    \end{macrocode}
 469 %
 470 % \paragraph{二段組}
 471 %
 472 % \texttt{twocolumn} で二段組になります。
 473 %
 474 %    \begin{macrocode}
 475 \DeclareOption{onecolumn}{\@twocolumnfalse}
 476 \DeclareOption{twocolumn}{\@twocolumntrue}
 477 %    \end{macrocode}
 478 %
 479 % \paragraph{表題ページ}
 480 %
 481 % \texttt{titlepage} で表題・概要を独立したページに出力します。
 482 %
 483 %    \begin{macrocode}
 484 \DeclareOption{titlepage}{\@titlepagetrue}
 485 \DeclareOption{notitlepage}{\@titlepagefalse}
 486 %    \end{macrocode}
 487 %
 488 % \paragraph{右左起こし}
 489 %
 490 % 書籍では章は通常は奇数ページ起こしになりますが，
 491 % \texttt{openany} で偶数ページからでも始まるようになります。
 492 %
 493 %    \begin{macrocode}
 494 %<book>\DeclareOption{openright}{\@openrighttrue}
 495 %<book>\DeclareOption{openany}{\@openrightfalse}
 496 %    \end{macrocode}
 497 %
 498 % \paragraph{eqnarray環境と数式の位置}
 499 %
 500 % 森本さんのご教示にしたがって前に移動しました。
 501 %
 502 % \begin{environment}{eqnarray}
 503 %
 504 %    \LaTeX の |eqnarray| 環境では |&| でできるアキが大きすぎる
 505 %    ようですので，少し小さくします。
 506 %    また，中央の要素も |\displaystyle| にします。
 507 %
 508 %    \begin{macrocode}
 509 \def\eqnarray{%
 510    \stepcounter{equation}%
 511    \def\@currentlabel{\p@equation\theequation}%
 512    \global\@eqnswtrue
 513    \m@th
 514    \global\@eqcnt\z@
 515    \tabskip\@centering
 516    \let\\\@eqncr
 517    $$\everycr{}\halign to\displaywidth\bgroup
 518        \hskip\@centering$\displaystyle\tabskip\z@skip{##}$\@eqnsel
 519       &\global\@eqcnt\@ne \hfil$\displaystyle{{}##{}}$\hfil
 520       &\global\@eqcnt\tw@ $\displaystyle{##}$\hfil\tabskip\@centering
 521       &\global\@eqcnt\thr@@ \hb@xt@\z@\bgroup\hss##\egroup
 522          \tabskip\z@skip
 523       \cr}
 524 %    \end{macrocode}
 525 % \end{environment}
 526 %
 527 % \texttt{leqno} で数式番号が左側になります。
 528 % \texttt{fleqn} で数式が本文左端から一定距離のところに出力されます。
 529 % 森本さんにしたがって訂正しました。
 530 %
 531 %    \begin{macrocode}
 532 \DeclareOption{leqno}{\input{leqno.clo}}
 533 \DeclareOption{fleqn}{\input{fleqn.clo}%
 534 % fleqn用のeqnarray環境の再定義
 535   \def\eqnarray{%
 536     \stepcounter{equation}%
 537     \def\@currentlabel{\p@equation\theequation}%
 538     \global\@eqnswtrue\m@th
 539     \global\@eqcnt\z@
 540     \tabskip\mathindent
 541     \let\\=\@eqncr
 542     \setlength\abovedisplayskip{\topsep}%
 543     \ifvmode
 544       \addtolength\abovedisplayskip{\partopsep}%
 545     \fi
 546     \addtolength\abovedisplayskip{\parskip}%
 547     \setlength\belowdisplayskip{\abovedisplayskip}%
 548     \setlength\belowdisplayshortskip{\abovedisplayskip}%
 549     \setlength\abovedisplayshortskip{\abovedisplayskip}%
 550     $$\everycr{}\halign to\linewidth% $$
 551     \bgroup
 552       \hskip\@centering$\displaystyle\tabskip\z@skip{##}$\@eqnsel
 553       &\global\@eqcnt\@ne \hfil$\displaystyle{{}##{}}$\hfil
 554       &\global\@eqcnt\tw@
 555         $\displaystyle{##}$\hfil \tabskip\@centering
 556       &\global\@eqcnt\thr@@ \hb@xt@\z@\bgroup\hss##\egroup
 557     \tabskip\z@skip\cr
 558     }}
 559 %    \end{macrocode}
 560 %
 561 % \paragraph{文献リスト}
 562 %
 563 % 文献リストをopen形式（著者名や書名の後に改行が入る）で出力します。
 564 % これは使われることはないのでコメントアウトしてあります。
 565 %
 566 %    \begin{macrocode}
 567 % \DeclareOption{openbib}{%
 568 %   \AtEndOfPackage{%
 569 %    \renewcommand\@openbib@code{%
 570 %       \advance\leftmargin\bibindent
 571 %       \itemindent -\bibindent
 572 %       \listparindent \itemindent
 573 %       \parsep \z@}%
 574 %    \renewcommand\newblock{\par}}}
 575 %    \end{macrocode}
 576 %
 577 % \paragraph{数式フォントとして和文フォントを登録しないオプション}
 578 %
 579 % \pTeX では数式中では16通りのフォントしか使えませんでしたが，Lua\TeX では
 580 % Omega拡張が取り込まれていて256通りのフォントが使えます。
 581 % ただし，\LaTeXe カーネルでは未だに数式ファミリの数は16個に制限されているので，
 582 % 実際に使用可能な数式ファミリの数を増やすためには\texttt{lualatex-math}パッケージを
 583 % 読み込む必要があることに注意が必要です。
 584 %
 585 %    \begin{macrocode}
 586 \DeclareOption{disablejfam}{%
 587   \ClassWarningNoLine{\jsc@clsname}{The class option 'disablejfam' is obsolete}}
 588 %    \end{macrocode}
 589 %
 590 % \paragraph{ドラフト}
 591 %
 592 % \texttt{draft} でoverfull boxの起きた行末に5ptの罫線を引きます。
 593 %
 594 % [2016-07-13] |\ifdraft| を定義するのをやめました。
 595 %
 596 %    \begin{macrocode}
 597 \DeclareOption{draft}{\setlength\overfullrule{5pt}}
 598 \DeclareOption{final}{\setlength\overfullrule{0pt}}
 599 %    \end{macrocode}
 600 %
 601 % \paragraph{和文フォントメトリックの選択}
 602 %
 603 % ここではOTFパッケージのメトリックを元とした，\texttt{jfm-ujis.lua}メトリックを標準で使います。
 604 % 古い\texttt{min10}，\texttt{goth10}互換のメトリックを使いたいときは\texttt{mingoth}
 605 % というオプションを指定します。
 606 % \pTeX でよく利用される\texttt{jis}フォントメトリックと互換のメトリックを使いたい場合は，
 607 % \texttt{ptexjis}というオプションを指定します。
 608 % \texttt{winjis}メトリックは用済みのため，\texttt{winjis}オプションは無視されます。
 609 %
 610 % [2016-11-09] pLaTeX / upLaTeX を自動判別するオプション \texttt{autodetect-engine} を新設しました。
 611 %
 612 % [2016-11-24 LTJ] \texttt{autodetect-engine} はLua\TeX-jaでは意味がないので警告を表示させます．
 613 %
 614 %    \begin{macrocode}
 615 \newif\ifmingoth
 616 \mingothfalse
 617 \newif\ifjisfont
 618 \jisfontfalse
 619 \newif\ifptexjis
 620 \ptexjisfalse
 621 \DeclareOption{winjis}{%
 622   \ClassWarningNoLine{\jsc@clsname}{The \jsc@clsname\space class does not support `winjis' option}}
 623 \DeclareOption{uplatex}{%
 624   \ClassErrorNoLine{\jsc@clsname}{The \jsc@clsname\space class does not support `uplatex' option}}
 625 \DeclareOption{autodetect-engine}{%
 626   \ClassWarningNoLine{\jsc@clsname}{The \jsc@clsname\space class does not support `autodetect-engine' option}}
 627 \DeclareOption{mingoth}{\mingothtrue}
 628 \DeclareOption{ptexjis}{\ptexjistrue}
 629 \DeclareOption{jis}{\jisfonttrue}
 630 %    \end{macrocode}
 631 %
 632 % \paragraph{papersizeスペシャルの利用}
 633 %
 634 % \texttt{ltjsclasses}では\texttt{papersize}オプションの有無に関わらず，
 635 % PDFのページサイズは適切に設定されるので，削除しました。
 636 %
 637 % \paragraph{英語化}
 638 %
 639 % オプション \texttt{english} を新設しました。
 640 %
 641 %    \begin{macrocode}
 642 \newif\if@english
 643 \@englishfalse
 644 \DeclareOption{english}{\@englishtrue}
 645 %    \end{macrocode}
 646 %
 647 % \paragraph{ltjsreport相当}
 648 %
 649 % オプション \texttt{report} を新設しました。
 650 %
 651 %    \begin{macrocode}
 652 %<*book>
 653 \newif\if@report
 654 \@reportfalse
 655 \DeclareOption{report}{\@reporttrue\@openrightfalse\@twosidefalse\@mparswitchfalse}
 656 %</book>
 657 %    \end{macrocode}
 658 %
 659 % \paragraph{\texttt{jslogo}パッケージの読み込み}
 660 %
 661 % \LaTeX 関連のロゴを再定義する\texttt{jslogo}パッケージを
 662 % 読み込まないオプション\texttt{nojslogo}を新設しました。
 663 % \texttt{jslogo}オプションの指定で従来どおりの動作となります。
 664 % デフォルトは\texttt{jslogo}で，すなわちパッケージを読み込みます。
 665 %    \begin{macrocode}
 666 \newif\if@jslogo \@jslogotrue
 667 \DeclareOption{jslogo}{\@jslogotrue}
 668 \DeclareOption{nojslogo}{\@jslogofalse}
 669 %    \end{macrocode}
 670 %
 671 % \paragraph{オプションの実行}
 672 %
 673 % デフォルトのオプションを実行します。
 674 % |multicols| や |url| を |\RequirePackage| するのはやめました。
 675 %
 676 %    \begin{macrocode}
 677 %<article>\ExecuteOptions{a4paper,oneside,onecolumn,notitlepage,final}
 678 %<book>\ExecuteOptions{a4paper,twoside,onecolumn,titlepage,openright,final}
 679 %<jspf>\ExecuteOptions{a4paper,twoside,twocolumn,notitlepage,fleqn,final}
 680 %<kiyou>\ExecuteOptions{a4paper,twoside,twocolumn,notitlepage,final}
 681 \ProcessOptions
 682 %    \end{macrocode}
 683 %
 684 % 後処理
 685 %
 686 %    \begin{macrocode}
 687 \if@slide
 688   \def\maybeblue{\@ifundefined{ver@color.sty}{}{\color{blue}}}
 689 \fi
 690 \if@landscape
 691   \setlength\@tempdima  {\paperheight}
 692   \setlength\paperheight{\paperwidth}
 693   \setlength\paperwidth {\@tempdima}
 694 \fi
 695 %    \end{macrocode}
 696 %
 697 % \paragraph{基準となる行送り}
 698 %
 699 % \begin{macro}{\n@baseline}
 700 %
 701 % 基準となる行送りをポイント単位で表したものです。
 702 %
 703 %    \begin{macrocode}
 704 %<article|book>\if@slide\def\n@baseline{13}\else\def\n@baseline{16}\fi
 705 %<jspf>\def\n@baseline{14.554375}
 706 %<kiyou>\def\n@baseline{14.897}
 707 %    \end{macrocode}
 708 % \end{macro}
 709 %
 710 % \paragraph{拡大率の設定}
 711 %
 712 % サイズの変更は\TeX のプリミティブ |\mag| を使って行います。
 713 % 9ポイントについては行送りも若干縮めました。
 714 % サイズについては全面的に見直しました。
 715 %
 716 % [2008-12-26] 1000 / |\mag| に相当する |\inv@mag| を定義しました。
 717 % |truein| を使っていたところを |\inv@mag in| に直しましたので，
 718 % |geometry| パッケージと共存できると思います。
 719 % なお，新ドキュメントクラス側で |10pt| 以外にする場合の注意：
 720 % \begin{itemize}
 721 % \item |geometry| 側でオプション |truedimen| を指定してください。
 722 % \item |geometry| 側でオプション |mag| は使えません。
 723 % \end{itemize}
 724 %
 725 % [2016-03-21 LTJ] |\mag| を使わないように全面的に書き換えました。
 726 % |\ltjs@mpt| に「拡大率だけ大きくしたpt」の値が格納されます。
 727 % \texttt{bxjscls}と同様に，|\@ptsize| は |10pt|,~|11pt|,~|12pt| オプションが指定された時だけ
 728 % 従来通り0,~1,~2と設定し，それ以外の場合は$-20$とすることにしました。
 729 % |\inv@mag| はもはや定義していません。
 730 %
 731 % [2016-03-26 LTJ] |\ltjs@magscale| に拡大率を格納した後，それを用いて |\ltjs@mpt| を
 732 % 設定するようにしました。
 733 %
 734 % [2016-07-08] |\jsc@mpt| および |\jsc@mmm| に，それぞれ1ptおよび1mmを拡大させた値を格納します。
 735 % 以降のレイアウト指定ではこちらを使います。
 736 %
 737 % [2016-07-12 LTJ] |\ltjs@...| を本家に合わせて |\jsc@...| に名称変更しました。
 738 %    \begin{macrocode}
 739 %<*kiyou>
 740 \def\jsc@magscale{0.9769230}
 741 %</kiyou>
 742 \newdimen\jsc@mpt
 743 \newdimen\jsc@mmm
 744 \jsc@mpt=\jsc@magscale\p@
 745 \jsc@mmm=\jsc@magscale mm
 746 \ifdim\jsc@mpt<.92\p@ % 8pt, 9pt 指定時
 747   \def\n@baseline{15}%
 748 \fi
 749 \newcommand{\@ptsize}{0}
 750 \ifdim\jsc@mpt=1.0954\p@ \renewcommand{\@ptsize}{1}\else
 751 \ifdim\jsc@mpt=1.2\p@    \renewcommand{\@ptsize}{2}\else
 752 \renewcommand{\@ptsize}{-20}\fi\fi
 753 %    \end{macrocode}
 754 %
 755 % \paragraph{オプティカルサイズの補正}
 756 % \leavevmode\par
 757 % [2016-03-26 LTJ] |xreal|オプションの指定時には，\texttt{bxjscls}の|magstyle=xreal|
 758 % オプションのように，オプティカルの補正を行うためにNFSSにパッチを当てます。
 759 % パッチは，概ねmiscさんによる「js*.cls 同様の文字サイズ設定を
 760 % |\mag|によらずに行う方法：試案」
 761 % (\texttt{http://oku.edu.mie-u.ac.jp/\textasciitilde okumura/texfaq/qa/28416.html})の
 762 % 方法に沿っていますが，拡大/縮小するところの計算にはLuaを用いています。
 763 %
 764 % なお，\TeX 内部で長さはsp単位の整数倍で表現されているので，数spの誤差は仕方がないです。
 765 % そのため，事前に\texttt{type1cm}パッケージを読みこんでおきます。
 766 %
 767 % [2016-03-28 LTJ] |\luafunction|を使うようにし，また本文のフォントサイズが10\,ptのときには
 768 % （不要なので）パッチを当てないことにしました。
 769 %
 770 % [2016-04-04 LTJ] NFSSへのパッチを修正。
 771 %
 772 % [2017-01-23] \LaTeXe\ 2017-01-01以降ではTUエンコーディングが標準なので，
 773 % \texttt{type1cm}パッケージは読み込まないようにしました．
 774 %    \begin{macrocode}
 775 \if@ltjs@mag@xreal
 776 \ifdim\jsc@mpt=\p@\else
 777   \expandafter\let\csname OT1/cmr/m/n/10\endcsname\relax
 778   \expandafter\let\csname TU/lmr/m/n/10\endcsname\relax
 779   \expandafter\let\csname OMX/cmex/m/n/10\endcsname\relax
 780   \newluafunction\ltjs@@magnify@font@calc
 781   \begingroup\catcode`\%=12\relax
 782   \directlua{
 783     local getdimen, mpt=tex.getdimen, tex.getdimen('jsc@mpt')/65536
 784     local t = lua.get_functions_table()
 785     t[\the\ltjs@@magnify@font@calc] = function()
 786       tex.sprint(math.floor(0.5+mpt*getdimen('dimen@')))
 787     end
 788     function luatexja.ltjs_unmagnify_fsize(a)
 789       local s = luatexja.print_scaled(math.floor(0.5+a/mpt*65536))
 790       tex.sprint( (s:match('%.0$')) and s:sub(1,-3) or s )
 791     end
 792   }
 793   \endgroup
 794   \def\ltjs@magnify@external@font#1 at#2 at#3\@nil{%
 795      \def\@tempa{#1}\def\@tempb{#2}%
 796      \ifx\@tempb\@empty
 797         \edef\@tempb{ scaled\directlua{%
 798           tex.sprint(math.floor(0.5+\jsc@magscale*1000))
 799         }}%
 800      \else
 801         \dimen@\@tempb\relax
 802         \edef\@tempb{ at\luafunction\ltjs@@magnify@font@calc sp}%
 803      \fi
 804      \edef\@tempa{\def\noexpand\external@font{\@tempa\@tempb}}%
 805   }
 806   \let\ltjs@orig@get@external@font=\get@external@font
 807   \def\get@external@font{%
 808     \edef\f@size{\directlua{luatexja.ltjs_unmagnify_fsize(\f@size)}}%
 809     \ltjs@orig@get@external@font
 810     \begingroup
 811       \edef\@tempa{\external@font\space at\space at}%
 812       \expandafter\ltjs@magnify@external@font\@tempa\@nil
 813     \expandafter\endgroup\@tempa
 814   }
 815 \fi\fi
 816 %    \end{macrocode}
 817 %
 818 % [2016-11-16] latex.ltx (ltspace.dtx)で定義されている |\smallskip| の，
 819 % 単位 |pt| を |\jsc@mpt| に置き換えた |\jsc@smallskip| を定義します。
 820 % これは |\maketitle| で用いられます。
 821 % |\jsc@medskip| と |\jsc@bigskip| は必要ないのでコメントアウトしています。
 822 %
 823 % \begin{macro}{\jsc@smallskip}
 824 % \begin{macro}{\jsc@medskip}
 825 % \begin{macro}{\jsc@bigskip}
 826 %    \begin{macrocode}
 827 \def\jsc@smallskip{\vspace\jsc@smallskipamount}
 828 %\def\jsc@medskip{\vspace\jsc@medskipamount}
 829 %\def\jsc@bigskip{\vspace\jsc@bigskipamount}
 830 %    \end{macrocode}
 831 % \end{macro}
 832 % \end{macro}
 833 % \end{macro}
 834 %
 835 % \begin{macro}{\jsc@smallskipamount}
 836 % \begin{macro}{\jsc@medskipamount}
 837 % \begin{macro}{\jsc@bigskipamount}
 838 %    \begin{macrocode}
 839 \newskip\jsc@smallskipamount
 840 \jsc@smallskipamount=3\jsc@mpt plus 1\jsc@mpt minus 1\jsc@mpt
 841 %\newskip\jsc@medskipamount
 842 %\jsc@medskipamount =6\jsc@mpt plus 2\jsc@mpt minus 2\jsc@mpt
 843 %\newskip\jsc@bigskipamount
 844 %\jsc@bigskipamoun =12\jsc@mpt plus 4\jsc@mpt minus 4\jsc@mpt
 845 %    \end{macrocode}
 846 % \end{macro}
 847 % \end{macro}
 848 % \end{macro}
 849 %
 850 %
 851 % \paragraph{PDFの用紙サイズの設定}
 852 %
 853 % \begin{macro}{\pagewidth}
 854 % \begin{macro}{\pageheight}
 855 % \begin{macro}{\stockwidth}
 856 % \begin{macro}{\stockheight}
 857 % 出力のPDFの用紙サイズをここで設定しておきます。
 858 % |tombow| が真のときは2インチ足しておきます。
 859 %
 860 % [2015-10-18 LTJ] Lua\TeX\ 0.81.0ではプリミティブの名称変更がされたので，
 861 % それに合わせておきます。
 862 %
 863 % [2016-07-12 LTJ] luatex.defが新しくなったことに対応するaminophenさんのパッチを取り込みました。
 864 %
 865 % [2017-01-11] トンボオプションが指定されているとき「だけ」|\stockwidth|，
 866 % |\stockheight|を定義するようにしました。
 867 %
 868 %    \begin{macrocode}
 869 \iftombow
 870   \newlength{\stockwidth}
 871   \newlength{\stockheight}
 872   \setlength{\stockwidth}{\paperwidth}
 873   \setlength{\stockheight}{\paperheight}
 874   \advance \stockwidth 2in
 875   \advance \stockheight 2in
 876   \ifdefined\pdfpagewidth
 877     \setlength{\pdfpagewidth}{\stockwidth}
 878     \setlength{\pdfpageheight}{\stockheight}
 879   \else
 880     \setlength{\pagewidth}{\stockwidth}
 881     \setlength{\pageheight}{\stockheight}
 882   \fi
 883 \else
 884   \ifdefined\pdfpagewidth
 885     \setlength{\pdfpagewidth}{\paperwidth}
 886     \setlength{\pdfpageheight}{\paperheight}
 887   \else
 888     \setlength{\pagewidth}{\paperwidth}
 889     \setlength{\pageheight}{\paperheight}
 890   \fi
 891 \fi
 892 %    \end{macrocode}
 893 % \end{macro}
 894 % \end{macro}
 895 % \end{macro}
 896 % \end{macro}
 897 %
 898 % \section{和文フォントの変更}
 899 %
 900 % JISの1ポイントは0.3514mm（約1/72.28インチ），
 901 % PostScriptの1ポイントは1/72インチですが，
 902 % \TeX では1/72.27インチを1pt（ポイント），
 903 % 1/72インチを1bp（ビッグポイント）と表します。
 904 % QuarkXPressなどのDTPソフトは標準で1/72インチを1ポイント
 905 % としますが，以下ではすべて1/72.27インチを1ptとしています。
 906 % 1インチは定義により25.4mmです。
 907 %
 908 % \pTeX （アスキーが日本語化した\TeX ）では，例えば従来のフォントメトリック
 909 % \texttt{min10}やJISフォントメトリックでは「公称10ポイントの和文フォントは，
 910 % 実際には9.62216ptで出力される（メトリック側で0.962216倍される）」という
 911 % 仕様になっています。
 912 % 一方，Lua\TeX-jaの提供するメトリックでは，そのようなことはありません。
 913 % 公称10ポイントの和文フォントは，10ポイントで出力されます。
 914 %
 915 % この\texttt{ltjsclasses}でも，派生元の\texttt{jsclasses}と同じように，
 916 % この公称10ポイントのフォントをここでは13級に縮小して
 917 % 使うことにします。そのためには，$13\,\textrm{Q}/10\,\textrm{pt}\simeq 0.924715$倍
 918 % すればいいことになります。
 919 %
 920 % |\ltj@stdmcfont|,~|\ltj@stdgtfont| による，デフォルトで使われる明朝・ゴシックのフォントの
 921 % 設定に対応しました。この2つの命令の値はユーザが日々の利用でその都度指定するものではなく，
 922 % 何らかの理由で非埋め込みフォントが正しく利用できない場合にのみ\texttt{luatexja.cfg}によって
 923 % セットされるものです。
 924 %
 925 % [2014-07-26 LTJ] なお，現状のところ，縦組用JFMは\texttt{jfm-ujisv.lua}しか準備していません。
 926 %
 927 % [2016-03-21 LTJ] 拡大率の計算で1~ptを$1/72.27$インチでなく0.3514~mmと間違えて扱っていたのを修正。
 928 %    \begin{macrocode}
 929 %<*!jspf>
 930 \expandafter\let\csname JY3/mc/m/n/10\endcsname\relax
 931 \ifmingoth
 932   \DeclareFontShape{JY3}{mc}{m}{n}{<-> s * [0.924715] \ltj@stdmcfont:jfm=min}{}
 933   \DeclareFontShape{JY3}{gt}{m}{n}{<-> s * [0.924715] \ltj@stdgtfont:jfm=min}{}
 934 \else
 935   \ifptexjis
 936     \DeclareFontShape{JY3}{mc}{m}{n}{<-> s * [0.924715] \ltj@stdmcfont:jfm=jis}{}
 937     \DeclareFontShape{JY3}{gt}{m}{n}{<-> s * [0.924715] \ltj@stdgtfont:jfm=jis}{}
 938   \else
 939     \DeclareFontShape{JY3}{mc}{m}{n}{<-> s * [0.924715] \ltj@stdmcfont:jfm=ujis}{}
 940     \DeclareFontShape{JY3}{gt}{m}{n}{<-> s * [0.924715] \ltj@stdgtfont:jfm=ujis}{}
 941   \fi
 942 \fi
 943 \DeclareFontShape{JT3}{mc}{m}{n}{<-> s * [0.924715] \ltj@stdmcfont:jfm=ujisv}{}
 944 \DeclareFontShape{JT3}{gt}{m}{n}{<-> s * [0.924715] \ltj@stdgtfont:jfm=ujisv}{}
 945 %</!jspf>
 946 %    \end{macrocode}
 947 %
 948 % これにより，公称10ポイントの和文フォントを0.924715倍したことにより，
 949 % 約9.25ポイント，
 950 % DTPで使う単位（1/72インチ）では9.21ポイントということになり，
 951 % 公称10ポイントといっても実は9ポイント強になります。
 952 %
 953 % 某学会誌では，
 954 % 和文フォントをPostScriptの9ポイントにするために，
 955 % $0.9*72.27/72 \simeq 0.903375$ 倍します。
 956 %
 957 %    \begin{macrocode}
 958 %<*jspf>
 959 \expandafter\let\csname JY3/mc/m/n/10\endcsname\relax
 960 \ifmingoth
 961   \DeclareFontShape{JY3}{mc}{m}{n}{<-> s * [0.903375] \ltj@stdmcfont:jfm=min}{}
 962   \DeclareFontShape{JY3}{gt}{m}{n}{<-> s * [0.903375] \ltj@stdgtfont:jfm=min}{}
 963 \else
 964   \ifptexjis
 965     \DeclareFontShape{JY3}{mc}{m}{n}{<-> s * [0.903375] \ltj@stdmcfont:jfm=jis}{}
 966     \DeclareFontShape{JY3}{gt}{m}{n}{<-> s * [0.903375] \ltj@stdgtfont:jfm=jis}{}
 967   \else
 968     \DeclareFontShape{JY3}{mc}{m}{n}{<-> s * [0.903375] \ltj@stdmcfont:jfm=ujis}{}
 969     \DeclareFontShape{JY3}{gt}{m}{n}{<-> s * [0.903375] \ltj@stdgtfont:jfm=ujis}{}
 970   \fi
 971 \fi
 972 \DeclareFontShape{JT3}{mc}{m}{n}{<-> s * [0.903375] \ltj@stdmcfont:jfm=ujisv}{}
 973 \DeclareFontShape{JT3}{gt}{m}{n}{<-> s * [0.903375] \ltj@stdgtfont:jfm=ujisv}{}
 974 %</jspf>
 975 %    \end{macrocode}
 976 %
 977 % 和文でイタリック体，斜体，サンセリフ体，
 978 % タイプライタ体の代わりにゴシック体を使うことにします。
 979 %
 980 % [2014-03-25 LTJ] タイプライタ体に合わせるファミリを |\jttdefault| とし，
 981 % 通常のゴシック体と別にできるようにしました。|\jttdefault| は，標準で
 982 % |\gtdefault| と定義しています。
 983 %
 984 % [2003-03-16] イタリック体，斜体について，和文でゴシックを当てていましたが，
 985 % 数学の定理環境などで多量のイタリック体を使うことがあり，ゴシックに
 986 % すると黒々となってしまうという弊害がありました。
 987 % |amsthm| を使わない場合は定理の本文が明朝になるように |\newtheorem|
 988 % 環境を手直ししてしのいでいましたが，
 989 % \TeX が数学で多用されることを考えると，イタリック体に明朝体を
 990 % 当てたほうがいいように思えてきましたので，
 991 % イタリック体・斜体に対応する和文を明朝体に変えることにしました。
 992 %
 993 % [2004-11-03] |\rmfamily| も和文対応にしました。
 994 %
 995 % [2016-01-30 LTJ] |\rmfamily|, |\sffamily|, |\ttfamily| の再定義をLua\TeX-ja
 996 % カーネルに移動させたので，ここでは和文対応にするフラグ |\@ltj@match@family|\
 997 % を有効にさせるだけでよいです。
 998 %    \begin{macrocode}
 999 \DeclareFontShape{JY3}{mc}{bx}{n}{<->ssub*gt/m/n}{}
1000 \DeclareFontShape{JY3}{gt}{bx}{n}{<->ssub*gt/m/n}{}
1001 \DeclareFontShape{JY3}{mc}{m}{it}{<->ssub*mc/m/n}{}
1002 \DeclareFontShape{JY3}{mc}{m}{sl}{<->ssub*mc/m/n}{}
1003 \DeclareFontShape{JY3}{mc}{m}{sc}{<->ssub*mc/m/n}{}
1004 \DeclareFontShape{JY3}{gt}{m}{it}{<->ssub*gt/m/n}{}
1005 \DeclareFontShape{JY3}{gt}{m}{sl}{<->ssub*gt/m/n}{}
1006 \DeclareFontShape{JY3}{mc}{bx}{it}{<->ssub*gt/m/n}{}
1007 \DeclareFontShape{JY3}{mc}{bx}{sl}{<->ssub*gt/m/n}{}
1008 % \DeclareFontShape{JT3}{mc}{bx}{n}{<->ssub*gt/m/n}{}
1009 % \DeclareFontShape{JT3}{gt}{bx}{n}{<->ssub*gt/m/n}{}
1010 %% \DeclareFontShape{JT3}{mc}{m}{it}{<->ssub*mc/m/n}{}
1011 %% \DeclareFontShape{JT3}{mc}{m}{sl}{<->ssub*mc/m/n}{}
1012 %% \DeclareFontShape{JT3}{mc}{m}{sc}{<->ssub*mc/m/n}{}
1013 %% \DeclareFontShape{JT3}{gt}{m}{it}{<->ssub*gt/m/n}{}
1014 %% \DeclareFontShape{JT3}{gt}{m}{sl}{<->ssub*gt/m/n}{}
1015 %% \DeclareFontShape{JT3}{mc}{bx}{it}{<->ssub*gt/m/n}{}
1016 %% \DeclareFontShape{JT3}{mc}{bx}{sl}{<->ssub*gt/m/n}{}
1017 \renewcommand\jttdefault{\gtdefault}\@ltj@match@familytrue
1018 %    \end{macrocode}
1019 %%
1020 % Lua\TeX-jaでは和文組版に伴うグルーはノードベースで挿入するようになり，また
1021 % 欧文・和文間のグルーとイタリック補正は干渉しないようになりました。
1022 % まだ「和文の斜体」についてはLua\LaTeX カーネル側でまともな対応がされていませんが，
1023 % \texttt{jsclasses}で行われていた |\textmc|, |\textgt| の再定義は不要のように思われます。
1024 %
1025 % \texttt{jsclasses.dtx}中で行われていた |\reDeclareMathAlphabet| の再定義は削除。
1026 %
1027 %    \begin{macrocode}
1028 \AtBeginDocument{%
1029   \reDeclareMathAlphabet{\mathrm}{\mathrm}{\mathmc}
1030   \reDeclareMathAlphabet{\mathbf}{\mathbf}{\mathgt}}%
1031 %    \end{macrocode}
1032 %
1033 % \begin{macro}{\textsterling}
1034 %
1035 % これは |\pounds| 命令で実際に呼び出される文字です。
1036 % 従来からのOT1エンコーディングでは |\$| のイタリック体が |\pounds|
1037 % なので \texttt{cmti} が使われていましたが，
1038 % 1994年春からは \texttt{cmu}（upright italic，直立イタリック体）
1039 % に変わりました。
1040 % しかし \texttt{cmu} はその性格からして実験的なものであり，
1041 % |\pounds| 以外で使われるとは思えないので，
1042 % ここでは \texttt{cmti} に戻してしまいます。
1043 %
1044 % [2003-08-20] Computer Modernフォントを使う機会も減り，T1エンコーディング
1045 % が一般的になってきました。この定義はもうあまり意味がないので消します。
1046 %
1047 %    \begin{macrocode}
1048 % \DeclareTextCommand{\textsterling}{OT1}{{\itshape\char`\$}}
1049 %    \end{macrocode}
1050 % \end{macro}
1051 %
1052 % アスキーの \texttt{kinsoku.dtx} では「’」「“」「”」前後のペナルティが5000に
1053 % なっていたので，\texttt{jsclasses.dtx} ではそれを 10000 に補正していました。
1054 % しかし，Lua\TeX-jaでは最初からこれらのパラメータは 10000 なので，
1055 % もはや補正する必要はありません。
1056 %
1057 % 「\TeX！」「〒515」の記号と数字の間に四分アキが入らないようにします。
1058 %
1059 %    \begin{macrocode}
1060 \ltjsetparameter{jaxspmode={`！,2}}
1061 \ltjsetparameter{jaxspmode={`〒,1}}
1062 %    \end{macrocode}
1063 %
1064 % 「CやC++では……」と書くと，C++の直後に四分アキが入らないのでバランスが悪くなります。
1065 % 四分アキが入るようにしました。\% の両側も同じです。
1066 %
1067 %    \begin{macrocode}
1068 \ltjsetparameter{alxspmode={`+,3}}
1069 \ltjsetparameter{alxspmode={`\%,3}}
1070 %    \end{macrocode}
1071 %
1072 % \texttt{jsclasses.dtx} では80〜ffの文字の |\xspcode| を全て3にしていましたが，
1073 % Lua\TeX-jaでは同様の内容が最初から設定されていますので，対応する部分は削除。
1074 %
1075 % \begin{macro}{\@}
1076 %
1077 % 欧文といえば，\LaTeX の |\def\@{\spacefactor\@m}| という定義（|\@m| は1000）
1078 % では |I watch TV\@.| と書くと V とピリオドのペアカーニングが効かなくなります。
1079 % そこで，次のような定義に直し，|I watch TV.\@| と書くことにします。
1080 %
1081 % [2016-07-14] 2015-01-01の\LaTeX で，auxiliary filesに書き出されたときに
1082 % スペースが食われないようにする修正が入りました。これに合わせて |{}| を補いました。
1083 %
1084 %    \begin{macrocode}
1085 \def\@{\spacefactor3000{}}
1086 %    \end{macrocode}
1087 % \end{macro}
1088 %
1089 % \section{フォントサイズ}
1090 %
1091 % フォントサイズを変える命令（|\normalsize|，|\small| など）
1092 % の実際の挙動の設定は，三つの引数をとる命令 |\@setfontsize| を使って，
1093 % たとえば
1094 % \begin{quote}
1095 %   |\@setfontsize{\normalsize}{10}{16}|
1096 % \end{quote}
1097 % のようにして行います。これは
1098 % \begin{quote}
1099 %   |\normalsize| は10ポイントのフォントを使い，行送りは16ポイントである
1100 % \end{quote}
1101 % という意味です。
1102 % ただし，処理を速くするため，
1103 % 以下では10と同義の\LaTeX の内部命令 |\@xpt| を使っています。
1104 % この |\@xpt| の類は次のものがあり，\LaTeX 本体で定義されています。
1105 %\begin{verbatim}
1106 %   \@vpt      5         \@vipt    6      \@viipt   7
1107 %   \@viiipt   8         \@ixpt    9      \@xpt    10
1108 %   \@xipt    10.95      \@xiipt  12      \@xivpt  14.4
1109 %\end{verbatim}
1110 %
1111 % \begin{macro}{\@setfontsize}
1112 %
1113 % ここでは |\@setfontsize| の定義を少々変更して，
1114 % 段落の字下げ |\parindent|，
1115 % 和文文字間のスペース |kanjiskip|，
1116 % 和文・欧文間のスペース |xkanjiskip| を変更しています。
1117 %
1118 % |kanjiskip| は |ltj-latex.sty| で |0pt plus 0.4pt minus 0.5pt| に
1119 % 設定していますが，
1120 % これはそもそも文字サイズの変更に応じて変わるべきものです。
1121 % それに，プラスになったりマイナスになったりするのは，
1122 % 追い出しと追い込みの混在が生じ，統一性を欠きます。
1123 % なるべく追い出しになるようにプラスの値だけにしたいところですが，
1124 % ごくわずかなマイナスは許すことにしました。
1125 %
1126 % |xkanjiskip| については，四分つまり全角の1/4を標準として，
1127 % 追い出すために三分あるいは二分まで延ばすのが一般的ですが，
1128 % ここではTimesやPalatinoのスペースがほぼ四分であることに着目して，
1129 % これに一致させています。これなら書くときにスペースを空けても
1130 % 空けなくても同じ出力になります。
1131 %
1132 % |\parindent| については，0（以下）でなければ全角幅（|1\zw|）に直します。
1133 %
1134 % [2008-02-18] |english| オプションで |\parindent| を 1em にしました。
1135 %
1136 % [2014-05-14 LTJ] |\ltjsetparameter|の実行は時間がかかるので，
1137 % |\ltjsetkanjiskip| と |\ltjsetxkanjiskip|（両者とも，
1138 % 実行前には |\ltj@setpar@global| の実行が必要）にしました。
1139 %
1140 % [2014-12-24 LTJ] |jsclasses| では，|\@setfontsize| 中で |xkanjiskip| を
1141 % 設定するのは現在の和欧文間空白の自然長が正の場合だけでした。
1142 % |ltjsclasses| では最初からこの判定が抜けてしまっていたので，復活させます。
1143 %
1144 %    \begin{macrocode}
1145 \def\@setfontsize#1#2#3{%
1146 % \@nomath#1%
1147   \ifx\protect\@typeset@protect
1148     \let\@currsize#1%
1149   \fi
1150   \fontsize{#2}{#3}\selectfont
1151   \ifdim\parindent>\z@
1152     \if@english
1153       \parindent=1em
1154     \else
1155       \parindent=1\zw
1156     \fi
1157   \fi
1158   \ltj@setpar@global
1159   \ltjsetkanjiskip\z@ plus .1\zw minus .01\zw
1160   \@tempskipa=\ltjgetparameter{xkanjiskip}
1161   \ifdim\@tempskipa>\z@
1162     \if@slide
1163       \ltjsetxkanjiskip .1em
1164     \else
1165       \ltjsetxkanjiskip .25em plus .15em minus .06em
1166     \fi
1167   \fi}
1168 %    \end{macrocode}
1169 % \end{macro}
1170 %
1171 % \begin{macro}{\jsc@setfontsize}
1172 % クラスファイルの内部では，拡大率も考慮した |\jsc@setfontsize| を
1173 % |\@setfontsize| の変わりに用いることにします。
1174 %    \begin{macrocode}
1175 \def\jsc@setfontsize#1#2#3{%
1176   \@setfontsize#1{#2\jsc@mpt}{#3\jsc@mpt}}
1177 %    \end{macrocode}
1178 % \end{macro}
1179 %
1180 % これらのグルーをもってしても行分割ができない場合は，
1181 % |\emergencystretch| に訴えます。
1182 %
1183 %    \begin{macrocode}
1184 \emergencystretch 3\zw
1185 %    \end{macrocode}
1186 %
1187 % \begin{macro}{\ifnarrowbaselines}
1188 % \begin{macro}{\narrowbaselines}
1189 % \begin{macro}{\widebaselines}
1190 %
1191 % 欧文用に行間を狭くする論理変数と，それを真・偽にするためのコマンドです。
1192 %
1193 % [2003-06-30] 数式に入るところで |\narrowbaselines|
1194 % を実行しているので |\abovedisplayskip| 等が初期化
1195 % されてしまうというshintokさんのご指摘に対して，
1196 % しっぽ愛好家さんが次の修正を教えてくださいました。
1197 %
1198 % [2008-02-18] |english| オプションで最初の段落のインデントをしないようにしました。
1199 %
1200 % TODO: Hasumiさん [qa:54539] のご指摘は考慮中です。
1201 %
1202 % [2015-01-07 LTJ] 遅くなりましたが，
1203 % \url{http://oku.edu.mie-u.ac.jp/tex/mod/forum/discuss.php?d=1005} にあったZRさんのパッチを取り込みました。
1204 %
1205 %    \begin{macrocode}
1206 \newif\ifnarrowbaselines
1207 \if@english
1208   \narrowbaselinestrue
1209 \fi
1210 \def\narrowbaselines{%
1211   \narrowbaselinestrue
1212   \skip0=\abovedisplayskip
1213   \skip2=\abovedisplayshortskip
1214   \skip4=\belowdisplayskip
1215   \skip6=\belowdisplayshortskip
1216   \@currsize\selectfont
1217   \abovedisplayskip=\skip0
1218   \abovedisplayshortskip=\skip2
1219   \belowdisplayskip=\skip4
1220   \belowdisplayshortskip=\skip6\relax}
1221 \def\widebaselines{\narrowbaselinesfalse\@currsize\selectfont}
1222 \def\ltj@@ifnarrowbaselines{%
1223   \ifnarrowbaselines\expandafter\@firstoftwo
1224   \else \expandafter\@secondoftwo
1225   \fi
1226 }
1227 %    \end{macrocode}
1228 % \end{macro}
1229 % \end{macro}
1230 % \end{macro}
1231 %
1232 % \begin{macro}{\normalsize}
1233 %
1234 % 標準のフォントサイズと行送りを選ぶコマンドです。
1235 %
1236 % 本文10ポイントのときの行送りは，
1237 % 欧文の標準クラスファイルでは12ポイント，
1238 % アスキーの和文クラスファイルでは15ポイントになっていますが，
1239 % ここでは16ポイントにしました。
1240 % ただし |\narrowbaselines| で欧文用の12ポイントになります。
1241 %
1242 % 公称10ポイントの和文フォントが約9.25ポイント
1243 % （アスキーのものの0.961倍）であることもあり，
1244 % 行送りがかなりゆったりとしたと思います。
1245 % 実際，$16/9.25 \approx 1.73$ であり，
1246 % 和文の推奨値の一つ「二分四分」（1.75）
1247 % に近づきました。
1248 %
1249 %    \begin{macrocode}
1250 \renewcommand{\normalsize}{%
1251   \ltj@@ifnarrowbaselines
1252     {\jsc@setfontsize\normalsize\@xpt\@xiipt}%
1253     {\jsc@setfontsize\normalsize\@xpt{\n@baseline}}%
1254 %    \end{macrocode}
1255 %
1256 % 数式の上のアキ（|\abovedisplayskip|），
1257 % 短い数式の上のアキ（|\abovedisplayshortskip|），
1258 % 数式の下のアキ（|\belowdisplayshortskip|）の設定です。
1259 %
1260 % [2003-02-16] ちょっと変えました。
1261 %
1262 % [2009-08-26] \TeX\ Q\,\&\,A 52569から始まる議論について逡巡して
1263 % いましたが，結局，微調節してみることにしました。
1264 %
1265 %    \begin{macrocode}
1266   \abovedisplayskip 11\jsc@mpt \@plus3\jsc@mpt \@minus4\jsc@mpt
1267   \abovedisplayshortskip \z@ \@plus3\jsc@mpt
1268   \belowdisplayskip 9\jsc@mpt \@plus3\jsc@mpt \@minus4\jsc@mpt
1269   \belowdisplayshortskip \belowdisplayskip
1270 %    \end{macrocode}
1271 %
1272 % 最後に，リスト環境のトップレベルのパラメータ |\@listI| を，
1273 % |\@listi| にコピーしておきます。|\@listI| の設定は後で出てきます。
1274 %
1275 %    \begin{macrocode}
1276   \let\@listi\@listI}
1277 %    \end{macrocode}
1278 %
1279 % ここで実際に標準フォントサイズで初期化します。
1280 %
1281 %    \begin{macrocode}
1282 \mcfamily\selectfont\normalsize
1283 %    \end{macrocode}
1284 %
1285 % \end{macro}
1286 %
1287 % \begin{macro}{\Cht}
1288 % \begin{macro}{\Cdp}
1289 % \begin{macro}{\Cwd}
1290 % \begin{macro}{\Cvs}
1291 % \begin{macro}{\Chs}
1292 %
1293 % 基準となる長さの設定をします。
1294 % \texttt{lltjfont.sty}で宣言されている
1295 % パラメータに実際の値を設定します。
1296 % たとえば |\Cwd| は |\normalfont| の全角幅（|1\zw|）です。
1297 %
1298 %    \begin{macrocode}
1299 \setbox0\hbox{\char"3000}% 全角スペース
1300 \setlength\Cht{\ht0}
1301 \setlength\Cdp{\dp0}
1302 \setlength\Cwd{\wd0}
1303 \setlength\Cvs{\baselineskip}
1304 \setlength\Chs{\wd0}
1305 %    \end{macrocode}
1306 % \end{macro}
1307 % \end{macro}
1308 % \end{macro}
1309 % \end{macro}
1310 % \end{macro}
1311 %
1312 % \begin{macro}{\small}
1313 %
1314 % |\small| も |\normalsize| と同様に設定します。
1315 % 行送りは，|\normalsize| が16ポイントなら，
1316 % 割合からすれば $16 \times 0.9 = 14.4$ ポイントになりますが，
1317 % |\small| の使われ方を考えて，ここでは和文13ポイント，
1318 % 欧文11ポイントとします。
1319 % また，|\topsep| と |\parsep| は，元はそれぞれ $4 \pm 2$，$2 \pm 1$
1320 % ポイントでしたが，ここではゼロ（|\z@|）にしました。
1321 %
1322 %    \begin{macrocode}
1323 \newcommand{\small}{%
1324   \ltj@@ifnarrowbaselines
1325 %<!kiyou>    {\jsc@setfontsize\small\@ixpt{11}}%
1326 %<kiyou>    {\jsc@setfontsize\small{8.8888}{11}}%
1327 %<!kiyou>    {\jsc@setfontsize\small\@ixpt{13}}%
1328 %<kiyou>    {\jsc@setfontsize\small{8.8888}{13.2418}}%
1329   \abovedisplayskip 9\jsc@mpt \@plus3\jsc@mpt \@minus4\jsc@mpt
1330   \abovedisplayshortskip  \z@ \@plus3\jsc@mpt
1331   \belowdisplayskip \abovedisplayskip
1332   \belowdisplayshortskip \belowdisplayskip
1333   \def\@listi{\leftmargin\leftmargini
1334               \topsep \z@
1335               \parsep \z@
1336               \itemsep \parsep}}
1337 %    \end{macrocode}
1338 % \end{macro}
1339 %
1340 % \begin{macro}{\footnotesize}
1341 %
1342 % |\footnotesize| も同様です。
1343 % |\topsep| と |\parsep| は，元はそれぞれ$3 \pm 1$，$2 \pm 1$
1344 % ポイントでしたが，ここではゼロ（|\z@|）にしました。
1345 %
1346 %    \begin{macrocode}
1347 \newcommand{\footnotesize}{%
1348   \ltj@@ifnarrowbaselines
1349 %<!kiyou>    {\jsc@setfontsize\footnotesize\@viiipt{9.5}}%
1350 %<kiyou>    {\jsc@setfontsize\footnotesize{8.8888}{11}}%
1351 %<!kiyou>    {\jsc@setfontsize\footnotesize\@viiipt{11}}%
1352 %<kiyou>    {\jsc@setfontsize\footnotesize{8.8888}{13.2418}}%
1353   \abovedisplayskip 6\jsc@mpt \@plus2\jsc@mpt \@minus3\jsc@mpt
1354   \abovedisplayshortskip  \z@ \@plus2\jsc@mpt
1355   \belowdisplayskip \abovedisplayskip
1356   \belowdisplayshortskip \belowdisplayskip
1357   \def\@listi{\leftmargin\leftmargini
1358               \topsep \z@
1359               \parsep \z@
1360               \itemsep \parsep}}
1361 %    \end{macrocode}
1362 % \end{macro}
1363 %
1364 % \begin{macro}{\scriptsize}
1365 % \begin{macro}{\tiny}
1366 % \begin{macro}{\large}
1367 % \begin{macro}{\Large}
1368 % \begin{macro}{\LARGE}
1369 % \begin{macro}{\huge}
1370 % \begin{macro}{\Huge}
1371 % \begin{macro}{\HUGE}
1372 %
1373 % それ以外のサイズは，本文に使うことがないので，
1374 % 単にフォントサイズと行送りだけ変更します。
1375 % 特に注意すべきは |\large| で，
1376 % これは二段組のときに節見出しのフォントとして使い，
1377 % 行送りを |\normalsize| と同じにすることによって，
1378 % 節見出しが複数行にわたっても段間で行が揃うようにします。
1379 %
1380 % [2004-11-03] |\HUGE| を追加。
1381 %
1382 %    \begin{macrocode}
1383 \newcommand{\scriptsize}{\jsc@setfontsize\scriptsize\@viipt\@viiipt}
1384 \newcommand{\tiny}{\jsc@setfontsize\tiny\@vpt\@vipt}
1385 \if@twocolumn
1386 %<!kiyou>  \newcommand{\large}{\jsc@setfontsize\large\@xiipt{\n@baseline}}
1387 %<kiyou>  \newcommand{\large}{\jsc@setfontsize\large{11.111}{\n@baseline}}
1388 \else
1389 %<!kiyou>  \newcommand{\large}{\jsc@setfontsize\large\@xiipt{17}}
1390 %<kiyou>  \newcommand{\large}{\jsc@setfontsize\large{11.111}{17}}
1391 \fi
1392 %<!kiyou>\newcommand{\Large}{\jsc@setfontsize\Large\@xivpt{21}}
1393 %<kiyou>\newcommand{\Large}{\jsc@setfontsize\Large{12.222}{21}}
1394 \newcommand{\LARGE}{\jsc@setfontsize\LARGE\@xviipt{25}}
1395 \newcommand{\huge}{\jsc@setfontsize\huge\@xxpt{28}}
1396 \newcommand{\Huge}{\jsc@setfontsize\Huge\@xxvpt{33}}
1397 \newcommand{\HUGE}{\jsc@setfontsize\HUGE{30}{40}}
1398 %    \end{macrocode}
1399 % \end{macro}
1400 % \end{macro}
1401 % \end{macro}
1402 % \end{macro}
1403 % \end{macro}
1404 % \end{macro}
1405 % \end{macro}
1406 % \end{macro}
1407 %
1408 % 別行立て数式の中では |\narrowbaselines| にします。
1409 % 和文の行送りのままでは，行列や場合分けの行送り，
1410 % 連分数の高さなどが不釣合いに大きくなるためです。
1411 %
1412 % 本文中の数式の中では |\narrowbaselines| にしていません。
1413 % 本文中ではなるべく行送りが変わるような大きいものを使わず，
1414 % 行列は |amsmath| の |smallmatrix| 環境を使うのがいいでしょう。
1415 %
1416 %    \begin{macrocode}
1417 \everydisplay=\expandafter{\the\everydisplay \narrowbaselines}
1418 %    \end{macrocode}
1419 %
1420 % しかし，このおかげで別行数式の上下のスペースが少し違ってしまいました。
1421 % とりあえず |amsmath| の |equation| 関係は |okumacro| のほうで逃げていますが，
1422 % もっとうまい逃げ道があればお教えください。
1423 %
1424 % 見出し用のフォントは |\bfseries| 固定ではなく，|\headfont|
1425 % という命令で定めることにします。
1426 % これは太ゴシックが使えるときは |\sffamily| |\bfseries|
1427 % でいいと思いますが，通常の中ゴシックでは単に |\sffamily|
1428 % だけのほうがよさそうです。
1429 % 『p\LaTeXe 美文書作成入門』（1997年）では |\sffamily|
1430 % |\fontseries{sbc}| として新ゴMと合わせましたが，
1431 % |\fontseries{sbc}| はちょっと幅が狭いように感じました。
1432 %
1433 %    \begin{macrocode}
1434 % \newcommand{\headfont}{\bfseries}
1435 \newcommand{\headfont}{\gtfamily\sffamily}
1436 % \newcommand{\headfont}{\sffamily\fontseries{sbc}\selectfont}
1437 %    \end{macrocode}
1438 %
1439 % \section{レイアウト}
1440 %
1441 % \paragraph{二段組}
1442 %
1443 % \begin{macro}{\columnsep}
1444 % \begin{macro}{\columnseprule}
1445 %
1446 % |\columnsep| は二段組のときの左右の段間の幅です。
1447 % 元は10ptでしたが，|2\zw|にしました。
1448 % このスペースの中央に |\columnseprule| の幅の罫線が引かれます。
1449 %
1450 %    \begin{macrocode}
1451 %<!kiyou>\setlength\columnsep{2\zw}
1452 %<kiyou>\setlength\columnsep{28truebp}
1453 \setlength\columnseprule{\z@}
1454 %    \end{macrocode}
1455 % \end{macro}
1456 % \end{macro}
1457 %
1458 % \paragraph{段落}
1459 %
1460 % \begin{macro}{\lineskip}
1461 % \begin{macro}{\normallineskip}
1462 % \begin{macro}{\lineskiplimit}
1463 % \begin{macro}{\normallineskiplimit}
1464 %
1465 % 上下の行の文字が |\lineskiplimit| より接近したら，
1466 % |\lineskip| より近づかないようにします。
1467 % 元は0ptでしたが1ptに変更しました。
1468 % \texttt{normal...} の付いた方は保存用です。
1469 %
1470 %    \begin{macrocode}
1471 \setlength\lineskip{1\jsc@mpt}
1472 \setlength\normallineskip{1\jsc@mpt}
1473 \setlength\lineskiplimit{1\jsc@mpt}
1474 \setlength\normallineskiplimit{1\jsc@mpt}
1475 %    \end{macrocode}
1476 % \end{macro}
1477 % \end{macro}
1478 % \end{macro}
1479 % \end{macro}
1480 %
1481 % \begin{macro}{\baselinestretch}
1482 %
1483 % 実際の行送りが |\baselineskip| の何倍かを表すマクロです。たとえば
1484 % \begin{quote}
1485 %   |\renewcommand{\baselinestretch}{2}|
1486 % \end{quote}
1487 % とすると，行送りが通常の2倍になります。ただし，
1488 % これを設定すると，たとえ |\baselineskip| が伸縮するように
1489 % 設定しても，行送りの伸縮ができなくなります。
1490 % 行送りの伸縮はしないのが一般的です。
1491 %
1492 %    \begin{macrocode}
1493 \renewcommand{\baselinestretch}{}
1494 %    \end{macrocode}
1495 % \end{macro}
1496 %
1497 % \begin{macro}{\parskip}
1498 % \begin{macro}{\parindent}
1499 %
1500 % |\parskip| は段落間の追加スペースです。
1501 % 元は 0pt plus 1pt になっていましたが，ここではゼロにしました。
1502 % |\parindent| は段落の先頭の字下げ幅です。
1503 %
1504 %    \begin{macrocode}
1505 \setlength\parskip{\z@}
1506 \if@slide
1507   \setlength\parindent{0\zw}
1508 \else
1509   \setlength\parindent{1\zw}
1510 \fi
1511 %    \end{macrocode}
1512 % \end{macro}
1513 % \end{macro}
1514 %
1515 % \begin{macro}{\@lowpenalty}
1516 % \begin{macro}{\@medpenalty}
1517 % \begin{macro}{\@highpenalty}
1518 %
1519 % |\nopagebreak|，|\nolinebreak| は引数に応じて次のペナルティ値
1520 % のうちどれかを選ぶようになっています。
1521 % ここはオリジナル通りです。
1522 %
1523 %    \begin{macrocode}
1524 \@lowpenalty   51
1525 \@medpenalty  151
1526 \@highpenalty 301
1527 %    \end{macrocode}
1528 % \end{macro}
1529 % \end{macro}
1530 % \end{macro}
1531 %
1532 % \begin{macro}{\interlinepenalty}
1533 %
1534 % 段落中の改ページのペナルティです。デフォルトは 0 です。
1535 %
1536 %    \begin{macrocode}
1537 % \interlinepenalty 0
1538 %    \end{macrocode}
1539 % \end{macro}
1540 %
1541 % \begin{macro}{\brokenpenalty}
1542 %
1543 % ページの最後の行がハイフンで終わる際のペナルティです。
1544 % デフォルトは100です。
1545 %
1546 %    \begin{macrocode}
1547 % \brokenpenalty 100
1548 %    \end{macrocode}
1549 % \end{macro}
1550 %
1551 % \subsection{ページレイアウト}
1552 %
1553 % \paragraph{縦方向のスペース}
1554 %
1555 % \begin{macro}{\headheight}
1556 % \begin{macro}{\topskip}
1557 %
1558 % |\topskip| は本文領域上端と本文1行目のベースラインとの距離です。
1559 % あまりぎりぎりの値にすると，本文中に $\int$ のような高い文字が
1560 % 入ったときに1行目のベースラインが他のページより下がってしまいます。
1561 % ここでは本文の公称フォントサイズ（10pt）にします。
1562 %
1563 % [2003-06-26] |\headheight| はヘッダの高さで，
1564 % 元は12ptでしたが，新ドキュメントクラスでは |\topskip|
1565 % と等しくしていました。ところが，|fancyhdr| パッケージ
1566 % で |\headheight| が小さいとおかしいことになるようです
1567 % ので，2倍に増やしました。代わりに，版面の上下揃えの
1568 % 計算では |\headheight| ではなく |\topskip| を使う
1569 % ことにしました。
1570 %
1571 %
1572 % [2016-08-17] 圏点やルビが一行目に来た場合に下がるのを防ぐた
1573 % め，|\topskip| を10ptから1.38zwに増やしました。
1574 % |\headheight| は従来と同じ20ptのままとします。
1575 %
1576 % [2016-08-17 LTJ] 1.38zwの代わりに1.38|\zh|にしています。
1577 %
1578 %    \begin{macrocode}
1579 \setlength\topskip{1.38\zh}%% from 10\jsc@mpt (2016-08-17)
1580 \if@slide
1581   \setlength\headheight{0\jsc@mpt}
1582 \else
1583   \setlength\headheight{20\jsc@mpt}%% from 2\topskip (2016-08-17); from \topskip (2003-06-26)
1584 \fi
1585 %    \end{macrocode}
1586 % \end{macro}
1587 % \end{macro}
1588 %
1589 % \begin{macro}{\footskip}
1590 %
1591 % |\footskip| は本文領域下端とフッタ下端との距離です。
1592 % 標準クラスファイルでは，book で0.35in（約8.89mm），
1593 % book 以外で30pt（約10.54mm）となっていましたが，
1594 % ここではA4判のときちょうど1cmとなるように，
1595 % |\paperheight| の0.03367倍（最小 |\baselineskip|）としました。
1596 % 書籍については，フッタは使わないことにして，ゼロにしました。
1597 %
1598 %    \begin{macrocode}
1599 %<*article|kiyou>
1600 \if@slide
1601   \setlength\footskip{\z@}
1602 \else
1603   \setlength\footskip{0.03367\paperheight}
1604   \ifdim\footskip<\baselineskip
1605     \setlength\footskip{\baselineskip}
1606   \fi
1607 \fi
1608 %</article|kiyou>
1609 %<jspf>\setlength\footskip{9\jsc@mmm}
1610 %<*book>
1611 \if@report
1612   \setlength\footskip{0.03367\paperheight}
1613   \ifdim\footskip<\baselineskip
1614     \setlength\footskip{\baselineskip}
1615   \fi
1616 \else
1617   \setlength\footskip{\z@}
1618 \fi
1619 %</book>
1620 %    \end{macrocode}
1621 % \end{macro}
1622 %
1623 % \begin{macro}{\headsep}
1624 %
1625 % |\headsep| はヘッダ下端と本文領域上端との距離です。
1626 % 元は book で18pt（約6.33mm），
1627 % それ以外で25pt（約8.79mm）になっていました。
1628 % ここでは article は |\footskip| $-$ |\topskip| としました。
1629 %
1630 % [2016-10-08] article の \texttt{slide} のとき，
1631 % および book の非 \texttt{report} と kiyou のときに |\headsep| を
1632 % 減らしそこねていたのを修正しました（2016-08-17での修正漏れ）。
1633 %
1634 %    \begin{macrocode}
1635 %<*article>
1636 \if@slide
1637   \setlength\headsep{0\jsc@mpt}
1638   \addtolength\headsep{-\topskip}%% added (2016-10-08)
1639   \addtolength\headsep{10\jsc@mpt}%% added (2016-10-08)
1640 \else
1641   \setlength\headsep{\footskip}
1642   \addtolength\headsep{-\topskip}
1643 \fi
1644 %</article>
1645 %<*book>
1646 \if@report
1647   \setlength\headsep{\footskip}
1648   \addtolength\headsep{-\topskip}
1649 \else
1650   \setlength\headsep{6\jsc@mmm}
1651   \addtolength\headsep{-\topskip}%% added (2016-10-08)
1652   \addtolength\headsep{10\jsc@mpt}%% added (2016-10-08)
1653 \fi
1654 %</book>
1655 %<*jspf>
1656 \setlength\headsep{9\jsc@mmm}
1657 \addtolength\headsep{-\topskip}
1658 %</jspf>
1659 %<*kiyou>
1660 \setlength\headheight{0\jsc@mpt}
1661 \setlength\headsep{0\jsc@mpt}
1662 \addtolength\headsep{-\topskip}%% added (2016-10-08)
1663 \addtolength\headsep{10\jsc@mpt}%% added (2016-10-08)
1664 %</kiyou>
1665 %    \end{macrocode}
1666 % \end{macro}
1667 %
1668 % \begin{macro}{\maxdepth}
1669 %
1670 % |\maxdepth| は本文最下行の最大の深さで，
1671 % plain \TeX や\LaTeX~2.09では4ptに固定でした。
1672 % \LaTeX2e では |\maxdepth| $+$ |\topskip| を本文フォントサイズ
1673 % の1.5倍にしたいのですが，|\topskip| は本文フォントサイズ
1674 % （ここでは10pt）に等しいので，結局 |\maxdepth| は |\topskip|
1675 % の半分の値（具体的には5pt）にします。
1676 %
1677 %    \begin{macrocode}
1678 \setlength\maxdepth{.5\topskip}
1679 %    \end{macrocode}
1680 % \end{macro}
1681 %
1682 % \paragraph{本文の幅と高さ}
1683 %
1684 % \begin{macro}{\fullwidth}
1685 %
1686 % 本文の幅が全角40文字を超えると読みにくくなります。
1687 % そこで，書籍の場合に限って，
1688 % 紙の幅が広いときは外側のマージンを余分にとって全角40文字に押え，
1689 % ヘッダやフッタは本文領域より広く取ることにします。
1690 % このときヘッダやフッタの幅を表す |\fullwidth| という長さを定義します。
1691 %
1692 %    \begin{macrocode}
1693 \newdimen\fullwidth
1694 %    \end{macrocode}
1695 %
1696 % この |\fullwidth| は article では紙幅 |\paperwidth|の0.76倍を超えない
1697 % 全角幅の整数倍（二段組では全角幅の偶数倍）にします。0.76倍という数値は
1698 % A4縦置きの場合に紙幅から約2インチを引いた値になるように選びました。
1699 % book では紙幅から36ミリを引いた値にしました。
1700 %
1701 % \begin{macro}{\textwidth}
1702 %
1703 % 書籍以外では本文領域の幅 |\textwidth| は |\fullwidth| と等しくします。
1704 % |article| ではA4縦置きで49文字となります。
1705 % 某学会誌スタイルでは |50\zw|（25文字×2段）＋段間8\,mmとします。
1706 %
1707 %    \begin{macrocode}
1708 %<*article>
1709 \if@slide
1710   \setlength\fullwidth{0.9\paperwidth}
1711 \else
1712   \setlength\fullwidth{0.76\paperwidth}
1713 \fi
1714 \if@twocolumn \@tempdima=2\zw \else \@tempdima=1\zw \fi
1715 \divide\fullwidth\@tempdima \multiply\fullwidth\@tempdima
1716 \setlength\textwidth{\fullwidth}
1717 %</article>
1718 %<*book>
1719 \if@report
1720   \setlength\fullwidth{0.76\paperwidth}
1721 \else
1722   \setlength\fullwidth{\paperwidth}
1723   \addtolength\fullwidth{-36\jsc@mmm}
1724 \fi
1725 \if@twocolumn \@tempdima=2\zw \else \@tempdima=1\zw \fi
1726 \divide\fullwidth\@tempdima \multiply\fullwidth\@tempdima
1727 \setlength\textwidth{\fullwidth}
1728 \if@report \else
1729   \if@twocolumn \else
1730     \ifdim \fullwidth>40\zw
1731       \setlength\textwidth{40\zw}
1732     \fi
1733   \fi
1734 \fi
1735 %</book>
1736 %<*jspf>
1737 \setlength\fullwidth{50\zw}
1738 \addtolength\fullwidth{8\jsc@mmm}
1739 \setlength\textwidth{\fullwidth}
1740 %</jspf>
1741 %<*kiyou>
1742 \setlength\fullwidth{48\zw}
1743 \addtolength\fullwidth{\columnsep}
1744 \setlength\textwidth{\fullwidth}
1745 %</kiyou>
1746 %    \end{macrocode}
1747 % \end{macro}
1748 % \end{macro}
1749 %
1750 % \begin{macro}{\textheight}
1751 %
1752 % 紙の高さ |\paperheight| は，1インチと |\topmargin|
1753 % と |\headheight| と |\headsep| と |\textheight|
1754 % と |\footskip| とページ下部の余白を加えたものです。
1755 %
1756 % 本文部分の高さ |\textheight| は，
1757 % 紙の高さ |\paperheight| の0.83倍から，
1758 % ヘッダの高さ，ヘッダと本文の距離，本文とフッタ下端の距離，
1759 % |\topskip| を引き，
1760 % それを |\baselineskip| の倍数に切り捨て，
1761 % 最後に |\topskip| を加えます。
1762 % 念のため0.1ポイント余分に加えておきます。
1763 % 0.83倍という数値は，A4縦置きの場合に紙の高さから
1764 % 上下マージン各約1インチを引いた値になるように選びました。
1765 %
1766 % 某学会誌スタイルでは44行にします。
1767 %
1768 % [2003-06-26] |\headheight| を |\topskip| に直しました。
1769 % 以前はこの二つは値が同じであったので，変化はないはずです。
1770 %
1771 % [2016-08-26] |\topskip| を10ptから1.38zwに増やしましたので，
1772 % その分 |\textheight| を増やします（2016-08-17での修正漏れ）。
1773 %
1774 % [2016-10-08] article の slide のときに |\headheight| はゼロ
1775 % なので，さらに修正しました（2016-08-17での修正漏れ）。
1776 %
1777 %    \begin{macrocode}
1778 %<*article|book>
1779 \if@slide
1780   \setlength{\textheight}{0.95\paperheight}
1781 \else
1782   \setlength{\textheight}{0.83\paperheight}
1783 \fi
1784 \addtolength{\textheight}{-10\jsc@mpt}%% from -\topskip (2016-10-08); from -\headheight (2003-06-26)
1785 \addtolength{\textheight}{-\headsep}
1786 \addtolength{\textheight}{-\footskip}
1787 \addtolength{\textheight}{-\topskip}
1788 \divide\textheight\baselineskip
1789 \multiply\textheight\baselineskip
1790 %</article|book>
1791 %<jspf>\setlength{\textheight}{51\baselineskip}
1792 %<kiyou>\setlength{\textheight}{47\baselineskip}
1793 \addtolength{\textheight}{\topskip}
1794 \addtolength{\textheight}{0.1\jsc@mpt}
1795 %<jspf>\setlength{\mathindent}{10\jsc@mmm}
1796 %    \end{macrocode}
1797 % \end{macro}
1798 %
1799 % \begin{macro}{\flushbottom}
1800 %
1801 % [2016-07-18] |\textheight| に念のため0.1ポイント余裕を持たせて
1802 % いるのと同様に，|\flushbottom| にも余裕を持たせます。
1803 % 元の\LaTeXe での完全な |\flushbottom| の定義は
1804 %\begin{verbatim}
1805 %  \def\flushbottom{%
1806 %    \let\@textbottom\relax \let\@texttop\relax}
1807 %\end{verbatim}
1808 % ですが，次のようにします。
1809 %
1810 %    \begin{macrocode}
1811 \def\flushbottom{%
1812    \def\@textbottom{\vskip \z@ \@plus.1\jsc@mpt}%
1813    \let\@texttop\relax}
1814 %    \end{macrocode}
1815 % \end{macro}
1816 %
1817 % \begin{macro}{\marginparsep}
1818 % \begin{macro}{\marginparpush}
1819 %
1820 % |\marginparsep| は欄外の書き込みと本文との間隔です。
1821 % |\marginparpush| は欄外の書き込みどうしの最小の間隔です。
1822 %
1823 %    \begin{macrocode}
1824 \setlength\marginparsep{\columnsep}
1825 \setlength\marginparpush{\baselineskip}
1826 %    \end{macrocode}
1827 % \end{macro}
1828 % \end{macro}
1829 %
1830 % \begin{macro}{\oddsidemargin}
1831 % \begin{macro}{\evensidemargin}
1832 %
1833 % それぞれ奇数ページ，偶数ページの左マージンから1インチ引いた値です。
1834 % 片面印刷では |\oddsidemargin| が使われます。
1835 % \TeX は上・左マージンに |1truein| を挿入しますが，
1836 % トンボ関係のオプションが指定されると |lltjcore.sty|
1837 % はトンボの内側に |1in| のスペース（|1truein| ではなく）を挿入するので，
1838 % 場合分けしています。
1839 %
1840 % [2011-10-03 LTJ] Lua\TeX{} (pdf\TeX？) では |1truein| ではなく
1841 % |1in| になるようです。
1842 %
1843 %    \begin{macrocode}
1844 \setlength{\oddsidemargin}{\paperwidth}
1845 \addtolength{\oddsidemargin}{-\fullwidth}
1846 \setlength{\oddsidemargin}{.5\oddsidemargin}
1847 \addtolength{\oddsidemargin}{-1in}
1848 \setlength{\evensidemargin}{\oddsidemargin}
1849 \if@mparswitch
1850   \addtolength{\evensidemargin}{\fullwidth}
1851   \addtolength{\evensidemargin}{-\textwidth}
1852 \fi
1853 %    \end{macrocode}
1854 % \end{macro}
1855 % \end{macro}
1856 %
1857 % \begin{macro}{\marginparwidth}
1858 %
1859 % |\marginparwidth| は欄外の書き込みの横幅です。
1860 % 外側マージンの幅（|\evensidemargin| $+$ 1インチ）から1センチを引き，
1861 % さらに |\marginparsep|（欄外の書き込みと本文のアキ）を引いた値に
1862 % しました。最後に |1\zw| の整数倍に切り捨てます。
1863 %
1864 %    \begin{macrocode}
1865 \setlength\marginparwidth{\paperwidth}
1866 \addtolength\marginparwidth{-\oddsidemargin}
1867 \addtolength\marginparwidth{-1in}
1868 \addtolength\marginparwidth{-\textwidth}
1869 \addtolength\marginparwidth{-10\jsc@mmm}
1870 \addtolength\marginparwidth{-\marginparsep}
1871 \@tempdima=1\zw
1872 \divide\marginparwidth\@tempdima
1873 \multiply\marginparwidth\@tempdima
1874 %    \end{macrocode}
1875 % \end{macro}
1876 %
1877 % \begin{macro}{\topmargin}
1878 %
1879 % 上マージン（紙の上端とヘッダ上端の距離）
1880 % から1インチ引いた値です。
1881 %
1882 % [2003-06-26] |\headheight| を |\topskip| に直しました。
1883 % 以前はこの二つは値が同じであったので，変化はないはずです。
1884 %
1885 % [2011-10-03 LTJ] ここも |\oddsidemargin| のときと同様に |-\inv@mag in| ではなく
1886 % |-1in| にします。
1887 %
1888 % [2016-08-17] |\topskip| を10ptから1.38zwに直しましたが，
1889 % |\topmargin| は従来の値から変わらないように調節しました。
1890 % …のつもりでしたが，|\textheight| を増やし忘れていたので
1891 % 変わってしまっていました（2016-08-26修正済み）。
1892 %    \begin{macrocode}
1893 \setlength\topmargin{\paperheight}
1894 \addtolength\topmargin{-\textheight}
1895 \if@slide
1896   \addtolength\topmargin{-\headheight}
1897 \else
1898   \addtolength\topmargin{-10\jsc@mpt}%% from -\topskip (2016-10-08); from -\headheight (2003-06-26)
1899 \fi
1900 \addtolength\topmargin{-\headsep}
1901 \addtolength\topmargin{-\footskip}
1902 \setlength\topmargin{0.5\topmargin}
1903 %<kiyou>\setlength\topmargin{81truebp}
1904 \addtolength\topmargin{-1in}
1905 %    \end{macrocode}
1906 % \end{macro}
1907 %
1908 % \paragraph{脚注}
1909 %
1910 % \begin{macro}{\footnotesep}
1911 %
1912 % 各脚注の頭に入る支柱（strut）の高さです。
1913 % 脚注間に余分のアキが入らないように，
1914 % |\footnotesize| の支柱の高さ（行送りの0.7倍）に等しくします。
1915 %
1916 %    \begin{macrocode}
1917 {\footnotesize\global\setlength\footnotesep{\baselineskip}}
1918 \setlength\footnotesep{0.7\footnotesep}
1919 %    \end{macrocode}
1920 % \end{macro}
1921 %
1922 % \begin{macro}{\footins}
1923 %
1924 % |\skip\footins| は本文の最終行と最初の脚注との間の距離です。
1925 % 標準の10ポイントクラスでは 9 plus 4 minus 2 ポイントになっていますが，
1926 % 和文の行送りを考えてもうちょっと大きくします。
1927 %
1928 %    \begin{macrocode}
1929 \setlength{\skip\footins}{16\jsc@mpt \@plus 5\jsc@mpt \@minus 2\jsc@mpt}
1930 %    \end{macrocode}
1931 % \end{macro}
1932 %
1933 % \paragraph{フロート関連}
1934 %
1935 % フロート（図，表）関連のパラメータは\LaTeXe 本体で定義されていますが，
1936 % ここで設定変更します。本文ページ（本文とフロートが共存するページ）
1937 % ちなみに，カウンタは内部では |\c@| を名前に冠したマクロになっています。
1938 % とフロートだけのページで設定が異なります。
1939 %
1940 % \begin{macro}{\c@topnumber}
1941 %
1942 % |topnumber| カウンタは本文ページ上部のフロートの最大数です。
1943 %
1944 % [2003-08-23] ちょっと増やしました。
1945 %
1946 %    \begin{macrocode}
1947 \setcounter{topnumber}{9}
1948 %    \end{macrocode}
1949 % \end{macro}
1950 %
1951 % \begin{macro}{\topfraction}
1952 %
1953 % 本文ページ上部のフロートが占有できる最大の割合です。
1954 % フロートが入りやすいように，元の値 0.7 を 0.8 [2003-08-23: 0.85] に変えてあります。
1955 %
1956 %    \begin{macrocode}
1957 \renewcommand{\topfraction}{.85}
1958 %    \end{macrocode}
1959 % \end{macro}
1960 %
1961 % \begin{macro}{\c@bottomnumber}
1962 %
1963 % |bottomnumber| カウンタは本文ページ下部のフロートの最大数です。
1964 %
1965 % [2003-08-23] ちょっと増やしました。
1966 %
1967 %    \begin{macrocode}
1968 \setcounter{bottomnumber}{9}
1969 %    \end{macrocode}
1970 % \end{macro}
1971 %
1972 % \begin{macro}{\bottomfraction}
1973 %
1974 % 本文ページ下部のフロートが占有できる最大の割合です。元は 0.3 でした。
1975 %
1976 %    \begin{macrocode}
1977 \renewcommand{\bottomfraction}{.8}
1978 %    \end{macrocode}
1979 % \end{macro}
1980 %
1981 % \begin{macro}{\c@totalnumber}
1982 %
1983 % |totalnumber| カウンタは本文ページに入りうるフロートの最大数です。
1984 %
1985 % [2003-08-23] ちょっと増やしました。
1986 %
1987 %    \begin{macrocode}
1988 \setcounter{totalnumber}{20}
1989 %    \end{macrocode}
1990 % \end{macro}
1991 %
1992 % \begin{macro}{\textfraction}
1993 %
1994 % 本文ページに最低限入らなければならない本文の割合です。
1995 % フロートが入りやすいように元の 0.2 を 0.1 に変えました。
1996 %
1997 %    \begin{macrocode}
1998 \renewcommand{\textfraction}{.1}
1999 %    \end{macrocode}
2000 % \end{macro}
2001 %
2002 % \begin{macro}{\floatpagefraction}
2003 %
2004 % フロートだけのページでのフロートの最小割合です。
2005 % これも 0.5 を 0.8 に変えてあります。
2006 %
2007 %    \begin{macrocode}
2008 \renewcommand{\floatpagefraction}{.8}
2009 %    \end{macrocode}
2010 % \end{macro}
2011 %
2012 % \begin{macro}{\c@dbltopnumber}
2013 %
2014 % 二段組のとき本文ページ上部に出力できる
2015 % 段抜きフロートの最大数です。
2016 %
2017 % [2003-08-23] ちょっと増やしました。
2018 %
2019 %    \begin{macrocode}
2020 \setcounter{dbltopnumber}{9}
2021 %    \end{macrocode}
2022 % \end{macro}
2023 %
2024 % \begin{macro}{\dbltopfraction}
2025 %
2026 % 二段組のとき本文ページ上部に出力できる
2027 % 段抜きフロートが占めうる最大の割合です。
2028 % 0.7 を 0.8 に変えてあります。
2029 %
2030 %    \begin{macrocode}
2031 \renewcommand{\dbltopfraction}{.8}
2032 %    \end{macrocode}
2033 % \end{macro}
2034 %
2035 % \begin{macro}{\dblfloatpagefraction}
2036 %
2037 % 二段組のときフロートだけのページに入るべき
2038 % 段抜きフロートの最小割合です。
2039 % 0.5 を 0.8 に変えてあります。
2040 %
2041 %    \begin{macrocode}
2042 \renewcommand{\dblfloatpagefraction}{.8}
2043 %    \end{macrocode}
2044 % \end{macro}
2045 %
2046 % \begin{macro}{\floatsep}
2047 % \begin{macro}{\textfloatsep}
2048 % \begin{macro}{\intextsep}
2049 %
2050 % |\floatsep| はページ上部・下部のフロート間の距離です。
2051 % |\textfloatsep| はページ上部・下部のフロートと本文との距離です。
2052 % |\intextsep| は本文の途中に出力されるフロートと本文との距離です。
2053 %
2054 %    \begin{macrocode}
2055 \setlength\floatsep    {12\jsc@mpt \@plus 2\jsc@mpt \@minus 2\jsc@mpt}
2056 \setlength\textfloatsep{20\jsc@mpt \@plus 2\jsc@mpt \@minus 4\jsc@mpt}
2057 \setlength\intextsep   {12\jsc@mpt \@plus 2\jsc@mpt \@minus 2\jsc@mpt}
2058 %    \end{macrocode}
2059 % \end{macro}
2060 % \end{macro}
2061 % \end{macro}
2062 %
2063 % \begin{macro}{\dblfloatsep}
2064 % \begin{macro}{\dbltextfloatsep}
2065 %
2066 % 二段組のときの段抜きのフロートについての値です。
2067 %
2068 %    \begin{macrocode}
2069 \setlength\dblfloatsep    {12\jsc@mpt \@plus 2\jsc@mpt \@minus 2\jsc@mpt}
2070 \setlength\dbltextfloatsep{20\jsc@mpt \@plus 2\jsc@mpt \@minus 4\jsc@mpt}
2071 %    \end{macrocode}
2072 % \end{macro}
2073 % \end{macro}
2074 %
2075 % \begin{macro}{\@fptop}
2076 % \begin{macro}{\@fpsep}
2077 % \begin{macro}{\@fpbot}
2078 %
2079 % フロートだけのページに入るグルーです。
2080 % |\@fptop| はページ上部，
2081 % |\@fpbot| はページ下部，
2082 % |\@fpsep| はフロート間に入ります。
2083 %
2084 %    \begin{macrocode}
2085 \setlength\@fptop{0\jsc@mpt \@plus 1fil}
2086 \setlength\@fpsep{8\jsc@mpt \@plus 2fil}
2087 \setlength\@fpbot{0\jsc@mpt \@plus 1fil}
2088 %    \end{macrocode}
2089 % \end{macro}
2090 % \end{macro}
2091 % \end{macro}
2092 %
2093 % \begin{macro}{\@dblfptop}
2094 % \begin{macro}{\@dblfpsep}
2095 % \begin{macro}{\@dblfpbot}
2096 %
2097 % 段抜きフロートについての値です。
2098 %
2099 %    \begin{macrocode}
2100 \setlength\@dblfptop{0\jsc@mpt \@plus 1fil}
2101 \setlength\@dblfpsep{8\jsc@mpt \@plus 2fil}
2102 \setlength\@dblfpbot{0\jsc@mpt \@plus 1fil}
2103 %    \end{macrocode}
2104 % \end{macro}
2105 % \end{macro}
2106 % \end{macro}
2107 %
2108 % \section{ページスタイル}\label{sec:pagestyle}
2109 %
2110 % ページスタイルとして，\LaTeXe （欧文版）の標準クラス
2111 % では |empty|，|plain|，|headings|，|myheadings| があります。
2112 % このうち |empty|，|plain| スタイルは\LaTeXe 本体
2113 % で定義されています。
2114 %
2115 % アスキーのクラスファイルでは |headnombre|，|footnombre|，
2116 % |bothstyle|，|jpl@in| が追加されていますが，
2117 % ここでは欧文標準のものだけにしました。
2118 %
2119 % ページスタイルは |\ps@...| の形のマクロで定義されています。
2120 %
2121 % \begin{macro}{\@evenhead}
2122 % \begin{macro}{\@oddhead}
2123 % \begin{macro}{\@evenfoot}
2124 % \begin{macro}{\@oddfoot}
2125 %
2126 % |\@oddhead|，|\@oddfoot|，|\@evenhead|，|\@evenfoot| は
2127 % 偶数・奇数ページの柱（ヘッダ，フッタ）を出力する命令です。
2128 % これらは |\fullwidth| 幅の |\hbox| の中で呼び出されます。
2129 % |\ps@...| の中で定義しておきます。
2130 %
2131 % \end{macro}
2132 % \end{macro}
2133 % \end{macro}
2134 % \end{macro}
2135 %
2136 % 柱の内容は，|\chapter| が呼び出す |\chaptermark{何々}|，
2137 % |\section| が呼び出す |\sectionmark{何々}| で設定します。
2138 % 柱を扱う命令には次のものがあります。
2139 %
2140 % \begin{quote}
2141 %   \begin{tabbing}
2142 %     |\markboth{左}{右} | \= 両方の柱を設定します。\\
2143 %     |\markright{右}|     \> 右の柱を設定します。\\
2144 %     |\leftmark|          \> 左の柱を出力します。\\
2145 %     |\rightmark|         \> 右の柱を出力します。
2146 %   \end{tabbing}
2147 % \end{quote}
2148 %
2149 % 柱を設定する命令は，右の柱が左の柱の下位にある場合は十分まともに
2150 % 動作します。たとえば左マークを |\chapter|，右マークを |\section|
2151 % で変更する場合がこれにあたります。
2152 % しかし，同一ページに複数の |\markboth| があると，
2153 % おかしな結果になることがあります。
2154 %
2155 % |\tableofcontents| のような命令で使われる |\@mkboth| は，
2156 % |\ps@...| コマンド中で |\markboth| か |\@gobbletwo|（何もしない）
2157 % に |\let| されます。
2158 %
2159 % \begin{macro}{\ps@empty}
2160 %
2161 % |empty| ページスタイルの定義です。
2162 % \LaTeX 本体で定義されているものをコメントアウトした形で
2163 % 載せておきます。
2164 %
2165 %    \begin{macrocode}
2166 % \def\ps@empty{%
2167 %   \let\@mkboth\@gobbletwo
2168 %   \let\@oddhead\@empty
2169 %   \let\@oddfoot\@empty
2170 %   \let\@evenhead\@empty
2171 %   \let\@evenfoot\@empty}
2172 %    \end{macrocode}
2173 % \end{macro}
2174 %
2175 % \begin{macro}{\ps@plainhead}
2176 % \begin{macro}{\ps@plainfoot}
2177 % \begin{macro}{\ps@plain}
2178 %
2179 % |plainhead| はシンプルなヘッダだけのページスタイルです。
2180 %
2181 % |plainfoot| はシンプルなフッタだけのページスタイルです。
2182 %
2183 % |plain| は |book| では |plainhead|，それ以外では |plainfoot| になります。
2184 %
2185 %    \begin{macrocode}
2186 \def\ps@plainfoot{%
2187   \let\@mkboth\@gobbletwo
2188   \let\@oddhead\@empty
2189   \def\@oddfoot{\normalfont\hfil\thepage\hfil}%
2190   \let\@evenhead\@empty
2191   \let\@evenfoot\@oddfoot}
2192 \def\ps@plainhead{%
2193   \let\@mkboth\@gobbletwo
2194   \let\@oddfoot\@empty
2195   \let\@evenfoot\@empty
2196   \def\@evenhead{%
2197     \if@mparswitch \hss \fi
2198     \hbox to \fullwidth{\textbf{\thepage}\hfil}%
2199     \if@mparswitch\else \hss \fi}%
2200   \def\@oddhead{%
2201     \hbox to \fullwidth{\hfil\textbf{\thepage}}\hss}}
2202 %<book>\if@report \let\ps@plain\ps@plainfoot \else \let\ps@plain\ps@plainhead \fi
2203 %<!book>\let\ps@plain\ps@plainfoot
2204 %    \end{macrocode}
2205 % \end{macro}
2206 % \end{macro}
2207 % \end{macro}
2208 %
2209 % \begin{macro}{\ps@headings}
2210 %
2211 % |headings| スタイルはヘッダに見出しとページ番号を出力します。
2212 % ここではヘッダにアンダーラインを引くようにしてみました。
2213 %
2214 % まず article の場合です。
2215 %
2216 %    \begin{macrocode}
2217 %<*article|kiyou>
2218 \if@twoside
2219   \def\ps@headings{%
2220     \let\@oddfoot\@empty
2221     \let\@evenfoot\@empty
2222     \def\@evenhead{\if@mparswitch \hss \fi
2223       \underline{\hbox to \fullwidth{\textbf{\thepage}\hfil\leftmark}}%
2224       \if@mparswitch\else \hss \fi}%
2225     \def\@oddhead{%
2226       \underline{%
2227         \hbox to \fullwidth{{\rightmark}\hfil\textbf{\thepage}}}\hss}%
2228     \let\@mkboth\markboth
2229     \def\sectionmark##1{\markboth{%
2230        \ifnum \c@secnumdepth >\z@ \thesection \hskip1\zw\fi
2231        ##1}{}}%
2232     \def\subsectionmark##1{\markright{%
2233        \ifnum \c@secnumdepth >\@ne \thesubsection \hskip1\zw\fi
2234        ##1}}%
2235   }
2236 \else % if not twoside
2237   \def\ps@headings{%
2238     \let\@oddfoot\@empty
2239     \def\@oddhead{%
2240       \underline{%
2241         \hbox to \fullwidth{{\rightmark}\hfil\textbf{\thepage}}}\hss}%
2242     \let\@mkboth\markboth
2243     \def\sectionmark##1{\markright{%
2244         \ifnum \c@secnumdepth >\z@ \thesection \hskip1\zw\fi
2245         ##1}}}
2246 \fi
2247 %</article|kiyou>
2248 %    \end{macrocode}
2249 %
2250 % 次は book の場合です。
2251 % [2011-05-10] しっぽ愛好家さん [qa:6370] のパッチを取り込ませていただきました
2252 % （北見さん [qa:55896] のご指摘ありがとうございます）。
2253 %
2254 %    \begin{macrocode}
2255 %<*book>
2256 \newif\if@omit@number
2257 \def\ps@headings{%
2258   \let\@oddfoot\@empty
2259   \let\@evenfoot\@empty
2260   \def\@evenhead{%
2261     \if@mparswitch \hss \fi
2262     \underline{\hbox to \fullwidth{\ltjsetparameter{autoxspacing={true}}
2263         \textbf{\thepage}\hfil\leftmark}}%
2264     \if@mparswitch\else \hss \fi}%
2265   \def\@oddhead{\underline{\hbox to \fullwidth{\ltjsetparameter{autoxspacing={true}}
2266         {\if@twoside\rightmark\else\leftmark\fi}\hfil\textbf{\thepage}}}\hss}%
2267   \let\@mkboth\markboth
2268   \def\chaptermark##1{\markboth{%
2269     \ifnum \c@secnumdepth >\m@ne
2270       \if@mainmatter
2271         \if@omit@number\else
2272           \@chapapp\thechapter\@chappos\hskip1\zw
2273         \fi
2274       \fi
2275     \fi
2276     ##1}{}}%
2277   \def\sectionmark##1{\markright{%
2278     \ifnum \c@secnumdepth >\z@ \thesection \hskip1\zw\fi
2279     ##1}}}%
2280 %</book>
2281 %    \end{macrocode}
2282 %
2283 % 最後は学会誌の場合です。
2284 %
2285 %    \begin{macrocode}
2286 %<*jspf>
2287 \def\ps@headings{%
2288   \def\@oddfoot{\normalfont\hfil\thepage\hfil}
2289   \def\@evenfoot{\normalfont\hfil\thepage\hfil}
2290   \def\@oddhead{\normalfont\hfil \@title \hfil}
2291   \def\@evenhead{\normalfont\hfil プラズマ・核融合学会誌\hfil}}
2292 %</jspf>
2293 %    \end{macrocode}
2294 %
2295 % \end{macro}
2296 %
2297 % \begin{macro}{\ps@myheadings}
2298 %
2299 % |myheadings| ページスタイルではユーザが |\markboth| や |\markright| で
2300 % 柱を設定するため，ここでの定義は非常に簡単です。
2301 %
2302 % [2004-01-17] 渡辺徹さんのパッチを適用しました。
2303 %
2304 %    \begin{macrocode}
2305 \def\ps@myheadings{%
2306   \let\@oddfoot\@empty\let\@evenfoot\@empty
2307   \def\@evenhead{%
2308     \if@mparswitch \hss \fi%
2309     \hbox to \fullwidth{\thepage\hfil\leftmark}%
2310     \if@mparswitch\else \hss \fi}%
2311   \def\@oddhead{%
2312     \hbox to \fullwidth{\rightmark\hfil\thepage}\hss}%
2313   \let\@mkboth\@gobbletwo
2314 %<book>  \let\chaptermark\@gobble
2315   \let\sectionmark\@gobble
2316 %<!book>  \let\subsectionmark\@gobble
2317 }
2318 %    \end{macrocode}
2319 % \end{macro}
2320 %
2321 % \section{文書のマークアップ}
2322 %
2323 % \subsection{表題}
2324 %
2325 % \begin{macro}{\title}
2326 % \begin{macro}{\author}
2327 % \begin{macro}{\date}
2328 %
2329 %    これらは\LaTeX 本体で次のように定義されています。
2330 %    ここではコメントアウトした形で示します。
2331 %
2332 %    \begin{macrocode}
2333 % \newcommand*{\title}[1]{\gdef\@title{#1}}
2334 % \newcommand*{\author}[1]{\gdef\@author{#1}}
2335 % \newcommand*{\date}[1]{\gdef\@date{#1}}
2336 % \date{\today}
2337 %    \end{macrocode}
2338 % \end{macro}
2339 % \end{macro}
2340 % \end{macro}
2341 %
2342 % \begin{macro}{\etitle}
2343 % \begin{macro}{\eauthor}
2344 % \begin{macro}{\keywords}
2345 %
2346 % 某学会誌スタイルで使う英語のタイトル，英語の著者名，キーワード，メールアドレスです。
2347 %
2348 %    \begin{macrocode}
2349 %<*jspf>
2350 \newcommand*{\etitle}[1]{\gdef\@etitle{#1}}
2351 \newcommand*{\eauthor}[1]{\gdef\@eauthor{#1}}
2352 \newcommand*{\keywords}[1]{\gdef\@keywords{#1}}
2353 \newcommand*{\email}[1]{\gdef\authors@mail{#1}}
2354 \newcommand*{\AuthorsEmail}[1]{\gdef\authors@mail{author's e-mail:\ #1}}
2355 %</jspf>
2356 %    \end{macrocode}
2357 % \end{macro}
2358 % \end{macro}
2359 % \end{macro}
2360 %
2361 % \begin{macro}{\plainifnotempty}
2362 %
2363 % 従来の標準クラスでは，文書全体のページスタイルを |empty| に
2364 % しても表題のあるページだけ |plain| になってしまうことが
2365 % ありました。これは |\maketitle| の定義中
2366 % に |\thispagestyle|\hspace{0pt}|{plain}| が入っている
2367 % ためです。この問題を解決するために，
2368 % 「全体のページスタイルが |empty| でないなら
2369 % このページのスタイルを |plain| にする」という次の
2370 % 命令を作ることにします。
2371 %
2372 %    \begin{macrocode}
2373 \def\plainifnotempty{%
2374   \ifx \@oddhead \@empty
2375     \ifx \@oddfoot \@empty
2376     \else
2377       \thispagestyle{plainfoot}%
2378     \fi
2379   \else
2380     \thispagestyle{plainhead}%
2381   \fi}
2382 %    \end{macrocode}
2383 % \end{macro}
2384 %
2385 % \begin{macro}{\maketitle}
2386 %
2387 % 表題を出力します。
2388 % 著者名を出力する部分は，欧文の標準クラスファイルでは |\large|，
2389 % 和文のものでは |\Large| になっていましたが，ここでは |\large|
2390 % にしました。
2391 %
2392 %    \begin{macrocode}
2393 %<*article|book|kiyou>
2394 \if@titlepage
2395   \newcommand{\maketitle}{%
2396     \begin{titlepage}%
2397       \let\footnotesize\small
2398       \let\footnoterule\relax
2399       \let\footnote\thanks
2400       \null\vfil
2401       \if@slide
2402         {\footnotesize \@date}%
2403         \begin{center}
2404           \mbox{} \\[1\zw]
2405           \large
2406           {\maybeblue\hrule height0\jsc@mpt depth2\jsc@mpt\relax}\par
2407           \jsc@smallskip
2408           \@title
2409           \jsc@smallskip
2410           {\maybeblue\hrule height0\jsc@mpt depth2\jsc@mpt\relax}\par
2411           \vfill
2412           {\small \@author}%
2413         \end{center}
2414       \else
2415       \vskip 60\jsc@mpt
2416       \begin{center}%
2417         {\LARGE \@title \par}%
2418         \vskip 3em%
2419         {\large
2420           \lineskip .75em
2421           \begin{tabular}[t]{c}%
2422             \@author
2423           \end{tabular}\par}%
2424         \vskip 1.5em
2425         {\large \@date \par}%
2426       \end{center}%
2427       \fi
2428       \par
2429       \@thanks\vfil\null
2430     \end{titlepage}%
2431     \setcounter{footnote}{0}%
2432     \global\let\thanks\relax
2433     \global\let\maketitle\relax
2434     \global\let\@thanks\@empty
2435     \global\let\@author\@empty
2436     \global\let\@date\@empty
2437     \global\let\@title\@empty
2438     \global\let\title\relax
2439     \global\let\author\relax
2440     \global\let\date\relax
2441     \global\let\and\relax
2442   }%
2443 \else
2444   \newcommand{\maketitle}{\par
2445     \begingroup
2446       \renewcommand\thefootnote{\@fnsymbol\c@footnote}%
2447       \def\@makefnmark{\rlap{\@textsuperscript{\normalfont\@thefnmark}}}%
2448       \long\def\@makefntext##1{\advance\leftskip 3\zw
2449         \parindent 1\zw\noindent
2450         \llap{\@textsuperscript{\normalfont\@thefnmark}\hskip0.3\zw}##1}%
2451       \if@twocolumn
2452         \ifnum \col@number=\@ne
2453           \@maketitle
2454         \else
2455           \twocolumn[\@maketitle]%
2456         \fi
2457       \else
2458         \newpage
2459         \global\@topnum\z@  % Prevents figures from going at top of page.
2460         \@maketitle
2461       \fi
2462       \plainifnotempty
2463       \@thanks
2464     \endgroup
2465     \setcounter{footnote}{0}%
2466     \global\let\thanks\relax
2467     \global\let\maketitle\relax
2468     \global\let\@thanks\@empty
2469     \global\let\@author\@empty
2470     \global\let\@date\@empty
2471     \global\let\@title\@empty
2472     \global\let\title\relax
2473     \global\let\author\relax
2474     \global\let\date\relax
2475     \global\let\and\relax
2476   }
2477 %    \end{macrocode}
2478 % \end{macro}
2479 %
2480 % \begin{macro}{\@maketitle}
2481 %
2482 % 独立した表題ページを作らない場合の表題の出力形式です。
2483 %
2484 %    \begin{macrocode}
2485   \def\@maketitle{%
2486     \newpage\null
2487     \vskip 2em
2488     \begin{center}%
2489       \let\footnote\thanks
2490       {\LARGE \@title \par}%
2491       \vskip 1.5em
2492       {\large
2493         \lineskip .5em
2494         \begin{tabular}[t]{c}%
2495           \@author
2496         \end{tabular}\par}%
2497       \vskip 1em
2498       {\large \@date}%
2499     \end{center}%
2500     \par\vskip 1.5em
2501 %<article|kiyou>    \ifvoid\@abstractbox\else\centerline{\box\@abstractbox}\vskip1.5em\fi
2502   }
2503 \fi
2504 %</article|book|kiyou>
2505 %<*jspf>
2506 \newcommand{\maketitle}{\par
2507   \begingroup
2508     \renewcommand\thefootnote{\@fnsymbol\c@footnote}%
2509     \def\@makefnmark{\rlap{\@textsuperscript{\normalfont\@thefnmark}}}%
2510     \long\def\@makefntext##1{\advance\leftskip 3\zw
2511       \parindent 1\zw\noindent
2512       \llap{\@textsuperscript{\normalfont\@thefnmark}\hskip0.3\zw}##1}%
2513       \twocolumn[\@maketitle]%
2514     \plainifnotempty
2515     \@thanks
2516   \endgroup
2517   \setcounter{footnote}{0}%
2518   \global\let\thanks\relax
2519   \global\let\maketitle\relax
2520   \global\let\@thanks\@empty
2521   \global\let\@author\@empty
2522   \global\let\@date\@empty
2523 % \global\let\@title\@empty % \@title は柱に使う
2524   \global\let\title\relax
2525   \global\let\author\relax
2526   \global\let\date\relax
2527   \global\let\and\relax
2528   \ifx\authors@mail\@undefined\else{%
2529     \def\@makefntext{\advance\leftskip 3\zw \parindent -3\zw}%
2530     \footnotetext[0]{\itshape\authors@mail}%
2531   }\fi
2532   \global\let\authors@mail\@undefined}
2533 \def\@maketitle{%
2534   \newpage\null
2535   \vskip 6em % used to be 2em
2536   \begin{center}
2537     \let\footnote\thanks
2538     \ifx\@title\@undefined\else{\LARGE\headfont\@title\par}\fi
2539     \lineskip .5em
2540     \ifx\@author\@undefined\else
2541       \vskip 1em
2542       \begin{tabular}[t]{c}%
2543         \@author
2544       \end{tabular}\par
2545     \fi
2546     \ifx\@etitle\@undefined\else
2547       \vskip 1em
2548       {\large \@etitle \par}%
2549     \fi
2550     \ifx\@eauthor\@undefined\else
2551       \vskip 1em
2552       \begin{tabular}[t]{c}%
2553         \@eauthor
2554       \end{tabular}\par
2555     \fi
2556     \vskip 1em
2557     \@date
2558   \end{center}
2559   \vskip 1.5em
2560   \centerline{\box\@abstractbox}
2561   \ifx\@keywords\@undefined\else
2562     \vskip 1.5em
2563     \centerline{\parbox{157\jsc@mmm}{\textsf{Keywords:}\\ \small\@keywords}}
2564   \fi
2565   \vskip 1.5em}
2566 %</jspf>
2567 %    \end{macrocode}
2568 % \end{macro}
2569 %
2570 % \subsection{章・節}
2571 %
2572 % \paragraph{構成要素}
2573 %
2574 % |\@startsection| マクロは6個の必須引数と，オプションとして |*| と
2575 % 1個のオプション引数と1個の必須引数をとります。
2576 %
2577 % \begin{quote}
2578 % |\@startsection{名}{レベル}{字下げ}{前アキ}{後アキ}{スタイル}| \\
2579 % |              *[別見出し]{見出し}|
2580 % \end{quote}
2581 %
2582 % それぞれの引数の意味は次の通りです。
2583 %
2584 % \begin{description}
2585 % \item[名] ユーザレベルコマンドの名前です（例: section）。
2586 % \item[レベル] 見出しの深さを示す数値です
2587 %    （chapter=1, section=2, \ldots ）。
2588 %    この数値が |secnumdepth| 以下のとき見出し番号を出力します。
2589 % \item[字下げ] 見出しの字下げ量です。
2590 % \item[前アキ] この値の絶対値が見出し上側の空きです。
2591 %    負の場合は，見出し直後の段落をインデントしません。
2592 % \item[後アキ] 正の場合は，見出しの下の空きです。
2593 %    負の場合は，絶対値が見出しの右の空きです
2594 %    （見出しと同じ行から本文を始めます）。
2595 % \item[スタイル] 見出しの文字スタイルの設定です。
2596 % \item[\texttt{*}] この \texttt{*} 印がないと，見出し番号を付け，
2597 %    見出し番号のカウンタに1を加算します。
2598 % \item[別見出し] 目次や柱に出力する見出しです。
2599 % \item[見出し] 見出しです。
2600 % \end{description}
2601 %
2602 % 見出しの命令は通常 |\@startsection| とその最初の6個の引数として
2603 % 定義されます。
2604 %
2605 % 次は |\@startsection| の定義です。
2606 % 情報処理学会論文誌スタイルファイル（\texttt{ipsjcommon.sty}）
2607 % を参考にさせていただきましたが，完全に行送りが |\baselineskip|
2608 % の整数倍にならなくてもいいから前の行と重ならないようにしました。
2609 %
2610 %    \begin{macrocode}
2611 \def\@startsection#1#2#3#4#5#6{%
2612   \if@noskipsec \leavevmode \fi
2613   \par
2614 % 見出し上の空きを \@tempskipa にセットする
2615   \@tempskipa #4\relax
2616 % \@afterindent は見出し直後の段落を字下げするかどうかを表すスイッチ
2617   \if@english \@afterindentfalse \else \@afterindenttrue \fi
2618 % 見出し上の空きが負なら見出し直後の段落を字下げしない
2619   \ifdim \@tempskipa <\z@
2620     \@tempskipa -\@tempskipa \@afterindentfalse
2621   \fi
2622   \if@nobreak
2623     \everypar{}%
2624   \else
2625     \addpenalty\@secpenalty
2626 % 次の行は削除
2627 %   \addvspace\@tempskipa
2628 % 次の \noindent まで追加
2629     \ifdim \@tempskipa >\z@
2630       \if@slide\else
2631         \null
2632         \vspace*{-\baselineskip}%
2633       \fi
2634       \vskip\@tempskipa
2635     \fi
2636   \fi
2637   \noindent
2638 % 追加終わり
2639   \@ifstar
2640     {\@ssect{#3}{#4}{#5}{#6}}%
2641     {\@dblarg{\@sect{#1}{#2}{#3}{#4}{#5}{#6}}}}
2642 %    \end{macrocode}
2643 %
2644 % |\@sect| と |\@xsect| は，
2645 % 前のアキがちょうどゼロの場合にもうまくいくように，多少変えてあります。
2646 %
2647 %    \begin{macrocode}
2648 \def\@sect#1#2#3#4#5#6[#7]#8{%
2649   \ifnum #2>\c@secnumdepth
2650     \let\@svsec\@empty
2651   \else
2652     \refstepcounter{#1}%
2653     \protected@edef\@svsec{\@seccntformat{#1}\relax}%
2654   \fi
2655 % 見出し後の空きを \@tempskipa にセット
2656   \@tempskipa #5\relax
2657 % 条件判断の順序を入れ換えました
2658   \ifdim \@tempskipa<\z@
2659     \def\@svsechd{%
2660       #6{\hskip #3\relax
2661       \@svsec #8}%
2662       \csname #1mark\endcsname{#7}%
2663       \addcontentsline{toc}{#1}{%
2664         \ifnum #2>\c@secnumdepth \else
2665           \protect\numberline{\csname the#1\endcsname}%
2666         \fi
2667         #7}}% 目次にフルネームを載せるなら #8
2668   \else
2669     \begingroup
2670       \interlinepenalty \@M % 下から移動
2671       #6{%
2672         \@hangfrom{\hskip #3\relax\@svsec}%
2673 %       \interlinepenalty \@M % 上に移動
2674         #8\@@par}%
2675     \endgroup
2676     \csname #1mark\endcsname{#7}%
2677     \addcontentsline{toc}{#1}{%
2678       \ifnum #2>\c@secnumdepth \else
2679         \protect\numberline{\csname the#1\endcsname}%
2680       \fi
2681       #7}% 目次にフルネームを載せるならここは #8
2682   \fi
2683   \@xsect{#5}}
2684 %    \end{macrocode}
2685 %
2686 % 二つ挿入した |\everyparhook| のうち後者が |\paragraph| 類の後で2回実行され，
2687 % それ以降は前者が実行されます。
2688 %
2689 % [2011-10-05 LTJ] Lua\TeX-jaでは |\everyparhook| は不要なので削除。
2690 %
2691 % [2016-07-28] \texttt{slide}オプションと\texttt{twocolumn}オプションを
2692 % 同時に指定した場合の罫線の位置を微調整しました。
2693 %
2694 %    \begin{macrocode}
2695 \def\@xsect#1{%
2696 % 見出しの後ろの空きを \@tempskipa にセット
2697   \@tempskipa #1\relax
2698 % 条件判断の順序を変えました
2699   \ifdim \@tempskipa<\z@
2700     \@nobreakfalse
2701     \global\@noskipsectrue
2702     \everypar{%
2703       \if@noskipsec
2704         \global\@noskipsecfalse
2705        {\setbox\z@\lastbox}%
2706         \clubpenalty\@M
2707         \begingroup \@svsechd \endgroup
2708         \unskip
2709         \@tempskipa #1\relax
2710         \hskip -\@tempskipa\@inhibitglue
2711       \else
2712         \clubpenalty \@clubpenalty
2713         \everypar{}%
2714       \fi}%
2715   \else
2716     \par \nobreak
2717     \vskip \@tempskipa
2718     \@afterheading
2719   \fi
2720   \if@slide
2721     {\vskip\if@twocolumn-5\jsc@mpt\else-6\jsc@mpt\fi
2722      \maybeblue\hrule height0\jsc@mpt depth1\jsc@mpt
2723      \vskip\if@twocolumn 4\jsc@mpt\else 7\jsc@mpt\fi\relax}
2724   \fi
2725   \par  % 2000-12-18
2726   \ignorespaces}
2727 \def\@ssect#1#2#3#4#5{%
2728   \@tempskipa #3\relax
2729   \ifdim \@tempskipa<\z@
2730     \def\@svsechd{#4{\hskip #1\relax #5}}%
2731   \else
2732     \begingroup
2733       #4{%
2734         \@hangfrom{\hskip #1}%
2735           \interlinepenalty \@M #5\@@par}%
2736     \endgroup
2737   \fi
2738   \@xsect{#3}}
2739 %    \end{macrocode}
2740 %
2741 % \paragraph{柱関係の命令}
2742 %
2743 % \begin{macro}{\chaptermark}
2744 % \begin{macro}{\sectionmark}
2745 % \begin{macro}{\subsectionmark}
2746 % \begin{macro}{\subsubsectionmark}
2747 % \begin{macro}{\paragraphmark}
2748 % \begin{macro}{\subparagraphmark}
2749 %
2750 % |\...mark| の形の命令を初期化します（第\ref{sec:pagestyle}節参照）。
2751 % |\chaptermark| 以外は\LaTeX 本体で定義済みです。
2752 %
2753 %    \begin{macrocode}
2754 \newcommand*\chaptermark[1]{}
2755 % \newcommand*{\sectionmark}[1]{}
2756 % \newcommand*{\subsectionmark}[1]{}
2757 % \newcommand*{\subsubsectionmark}[1]{}
2758 % \newcommand*{\paragraphmark}[1]{}
2759 % \newcommand*{\subparagraphmark}[1]{}
2760 %    \end{macrocode}
2761 % \end{macro}
2762 % \end{macro}
2763 % \end{macro}
2764 % \end{macro}
2765 % \end{macro}
2766 % \end{macro}
2767 %
2768 % \paragraph{カウンタの定義}
2769 %
2770 % \begin{macro}{\c@secnumdepth}
2771 %
2772 % |secnumdepth| は第何レベルの見出しまで
2773 % 番号を付けるかを決めるカウンタです。
2774 %
2775 %    \begin{macrocode}
2776 %<!book>\setcounter{secnumdepth}{3}
2777 %<book>\setcounter{secnumdepth}{2}
2778 %    \end{macrocode}
2779 % \end{macro}
2780 %
2781 % \begin{macro}{\c@chapter}
2782 % \begin{macro}{\c@section}
2783 % \begin{macro}{\c@subsection}
2784 % \begin{macro}{\c@subsubsection}
2785 % \begin{macro}{\c@paragraph}
2786 % \begin{macro}{\c@subparagraph}
2787 %
2788 % 見出し番号のカウンタです。
2789 % |\newcounter| の第1引数が新たに作るカウンタです。
2790 % これは第2引数が増加するたびに 0 に戻されます。
2791 % 第2引数は定義済みのカウンタです。
2792 %
2793 %    \begin{macrocode}
2794 \newcounter{part}
2795 %<book>\newcounter{chapter}
2796 %<book>\newcounter{section}[chapter]
2797 %<!book>\newcounter{section}
2798 \newcounter{subsection}[section]
2799 \newcounter{subsubsection}[subsection]
2800 \newcounter{paragraph}[subsubsection]
2801 \newcounter{subparagraph}[paragraph]
2802 %    \end{macrocode}
2803 % \end{macro}
2804 % \end{macro}
2805 % \end{macro}
2806 % \end{macro}
2807 % \end{macro}
2808 % \end{macro}
2809 %
2810 % \begin{macro}{\thepart}
2811 % \begin{macro}{\thechapter}
2812 % \begin{macro}{\thesection}
2813 % \begin{macro}{\thesubsection}
2814 % \begin{macro}{\thesubsubsection}
2815 % \begin{macro}{\theparagraph}
2816 % \begin{macro}{\thesubparagraph}
2817 %
2818 % カウンタの値を出力する命令 |\the何々| を定義します。
2819 %
2820 % カウンタを出力するコマンドには次のものがあります。
2821 %
2822 % \begin{quote}
2823 %   |\arabic{COUNTER}   | 1, 2, 3, \ldots \\
2824 %   |\roman{COUNTER}    | i, ii, iii, \ldots \\
2825 %   |\Roman{COUNTER}    | I, II, III, \ldots \\
2826 %   |\alph{COUNTER}     | a, b, c, \ldots \\
2827 %   |\Alph{COUNTER}     | A, B, C, \ldots \\
2828 %   |\kansuji{COUNTER}  | 一, 二, 三, \ldots
2829 % \end{quote}
2830 %
2831 % 以下ではスペース節約のため |@| の付いた内部表現を多用しています。
2832 %
2833 %    \begin{macrocode}
2834 \renewcommand{\thepart}{\@Roman\c@part}
2835 %<!book>% \renewcommand{\thesection}{\@arabic\c@section}
2836 %<!book>\renewcommand{\thesection}{\presectionname\@arabic\c@section\postsectionname}
2837 %<!book>\renewcommand{\thesubsection}{\@arabic\c@section.\@arabic\c@subsection}
2838 %<*book>
2839 \renewcommand{\thechapter}{\@arabic\c@chapter}
2840 \renewcommand{\thesection}{\thechapter.\@arabic\c@section}
2841 \renewcommand{\thesubsection}{\thesection.\@arabic\c@subsection}
2842 %</book>
2843 \renewcommand{\thesubsubsection}{%
2844    \thesubsection.\@arabic\c@subsubsection}
2845 \renewcommand{\theparagraph}{%
2846    \thesubsubsection.\@arabic\c@paragraph}
2847 \renewcommand{\thesubparagraph}{%
2848    \theparagraph.\@arabic\c@subparagraph}
2849 %    \end{macrocode}
2850 % \end{macro}
2851 % \end{macro}
2852 % \end{macro}
2853 % \end{macro}
2854 % \end{macro}
2855 % \end{macro}
2856 % \end{macro}
2857 %
2858 % \begin{macro}{\@chapapp}
2859 % \begin{macro}{\@chappos}
2860 %
2861 % |\@chapapp| の初期値は |\prechaptername|（第）です。
2862 %
2863 % |\@chappos| の初期値は |\postchaptername|（章）です。
2864 %
2865 % |\appendix| は |\@chapapp| を |\appendixname| に，
2866 % |\@chappos| を空に再定義します。
2867 %
2868 % [2003-03-02] |\@secapp| は外しました。
2869 %
2870 %    \begin{macrocode}
2871 %<book>\newcommand{\@chapapp}{\prechaptername}
2872 %<book>\newcommand{\@chappos}{\postchaptername}
2873 %    \end{macrocode}
2874 % \end{macro}
2875 % \end{macro}
2876 %
2877 % \paragraph{前付，本文，後付}
2878 %
2879 % 本のうち章番号があるのが「本文」，
2880 % それ以外が「前付」「後付」です。
2881 %
2882 % \begin{macro}{\frontmatter}
2883 %
2884 % ページ番号をローマ数字にし，章番号を付けないようにします。
2885 %
2886 %    \begin{macrocode}
2887 %<*book>
2888 \newcommand\frontmatter{%
2889   \if@openright
2890     \cleardoublepage
2891   \else
2892     \clearpage
2893   \fi
2894   \@mainmatterfalse
2895   \pagenumbering{roman}}
2896 %    \end{macrocode}
2897 % \end{macro}
2898 %
2899 % \begin{macro}{\mainmatter}
2900 %
2901 % ページ番号を算用数字にし，章番号を付けるようにします。
2902 %
2903 %    \begin{macrocode}
2904 \newcommand\mainmatter{%
2905 % \if@openright
2906     \cleardoublepage
2907 % \else
2908 %   \clearpage
2909 % \fi
2910   \@mainmattertrue
2911   \pagenumbering{arabic}}
2912 %    \end{macrocode}
2913 % \end{macro}
2914 %
2915 % \begin{macro}{\backmatter}
2916 %
2917 % 章番号を付けないようにします。ページ番号の付け方は変わりません。
2918 %
2919 %    \begin{macrocode}
2920 \newcommand\backmatter{%
2921   \if@openright
2922     \cleardoublepage
2923   \else
2924     \clearpage
2925   \fi
2926   \@mainmatterfalse}
2927 %</book>
2928 %    \end{macrocode}
2929 % \end{macro}
2930 %
2931 % \paragraph{部}
2932 %
2933 % \begin{macro}{\part}
2934 %
2935 % 新しい部を始めます。
2936 %
2937 % |\secdef| を使って見出しを定義しています。
2938 % このマクロは二つの引数をとります。
2939 %
2940 % \begin{quote}
2941 % |\secdef{星なし}{星あり}|
2942 % \end{quote}
2943 %
2944 % \begin{description}
2945 % \item[星なし] \texttt{*} のない形の定義です。
2946 % \item[星あり] \texttt{*} のある形の定義です。
2947 % \end{description}
2948 %
2949 % |\secdef| は次のようにして使います。
2950 %
2951 %\begin{verbatim}
2952 %   \def\chapter { ... \secdef \CMDA \CMDB }
2953 %   \def\CMDA    [#1]#2{....} % \chapter[...]{...} の定義
2954 %   \def\CMDB    #1{....}     % \chapter*{...} の定義
2955 %\end{verbatim}
2956 %
2957 % まず |book| クラス以外です。
2958 %
2959 %    \begin{macrocode}
2960 %<*!book>
2961 \newcommand\part{%
2962   \if@noskipsec \leavevmode \fi
2963   \par
2964   \addvspace{4ex}%
2965   \if@english \@afterindentfalse \else \@afterindenttrue \fi
2966   \secdef\@part\@spart}
2967 %</!book>
2968 %    \end{macrocode}
2969 %
2970 % |book| スタイルの場合は，少し複雑です。
2971 %
2972 %    \begin{macrocode}
2973 %<*book>
2974 \newcommand\part{%
2975   \if@openright
2976     \cleardoublepage
2977   \else
2978     \clearpage
2979   \fi
2980   \thispagestyle{empty}% 欧文用標準スタイルでは plain
2981   \if@twocolumn
2982     \onecolumn
2983     \@restonecoltrue
2984   \else
2985     \@restonecolfalse
2986   \fi
2987   \null\vfil
2988   \secdef\@part\@spart}
2989 %</book>
2990 %    \end{macrocode}
2991 % \end{macro}
2992 %
2993 % \begin{macro}{\@part}
2994 %
2995 % 部の見出しを出力します。
2996 % |\bfseries| を |\headfont| に変えました。
2997 %
2998 % |book| クラス以外では |secnumdepth| が $-1$ より大きいとき
2999 % 部番号を付けます。
3000 %
3001 %    \begin{macrocode}
3002 %<*!book>
3003 \def\@part[#1]#2{%
3004   \ifnum \c@secnumdepth >\m@ne
3005     \refstepcounter{part}%
3006     \addcontentsline{toc}{part}{%
3007       \prepartname\thepart\postpartname\hspace{1\zw}#1}%
3008   \else
3009     \addcontentsline{toc}{part}{#1}%
3010   \fi
3011   \markboth{}{}%
3012   {\parindent\z@
3013     \raggedright
3014     \interlinepenalty \@M
3015     \normalfont
3016     \ifnum \c@secnumdepth >\m@ne
3017       \Large\headfont\prepartname\thepart\postpartname
3018       \par\nobreak
3019     \fi
3020     \huge \headfont #2%
3021     \markboth{}{}\par}%
3022   \nobreak
3023   \vskip 3ex
3024   \@afterheading}
3025 %</!book>
3026 %    \end{macrocode}
3027 %
3028 % |book| クラスでは |secnumdepth| が $-2$ より大きいとき部番号を付けます。
3029 %
3030 %    \begin{macrocode}
3031 %<*book>
3032 \def\@part[#1]#2{%
3033   \ifnum \c@secnumdepth >-2\relax
3034     \refstepcounter{part}%
3035     \addcontentsline{toc}{part}{%
3036       \prepartname\thepart\postpartname\hspace{1\zw}#1}%
3037   \else
3038     \addcontentsline{toc}{part}{#1}%
3039   \fi
3040   \markboth{}{}%
3041   {\centering
3042     \interlinepenalty \@M
3043     \normalfont
3044     \ifnum \c@secnumdepth >-2\relax
3045       \huge\headfont \prepartname\thepart\postpartname
3046       \par\vskip20\jsc@mpt
3047     \fi
3048     \Huge \headfont #2\par}%
3049   \@endpart}
3050 %</book>
3051 %    \end{macrocode}
3052 % \end{macro}
3053 %
3054 % \begin{macro}{\@spart}
3055 %
3056 % 番号を付けない部です。
3057 %
3058 %    \begin{macrocode}
3059 %<*!book>
3060 \def\@spart#1{{%
3061     \parindent \z@ \raggedright
3062     \interlinepenalty \@M
3063     \normalfont
3064     \huge \headfont #1\par}%
3065   \nobreak
3066   \vskip 3ex
3067   \@afterheading}
3068 %</!book>
3069 %<*book>
3070 \def\@spart#1{{%
3071     \centering
3072     \interlinepenalty \@M
3073     \normalfont
3074     \Huge \headfont #1\par}%
3075   \@endpart}
3076 %</book>
3077 %    \end{macrocode}
3078 % \end{macro}
3079 %
3080 % \begin{macro}{\@endpart}
3081 %
3082 % |\@part| と |\@spart| の最後で実行されるマクロです。
3083 % 両面印刷のときは白ページを追加します。
3084 % 二段組のときには，二段組に戻します。
3085 %
3086 % [2016-12-13] \texttt{openany} のときには白ページが追加されるのは変なので，
3087 % その場合は追加しないようにしました。このバグは\LaTeX では
3088 % classes.dtx v1.4b (2000/05/19)
3089 % で修正されています。
3090 %
3091 %    \begin{macrocode}
3092 %<*book>
3093 \def\@endpart{\vfil\newpage
3094   \if@twoside
3095    \if@openright %% added (2016/12/13)
3096     \null
3097     \thispagestyle{empty}%
3098     \newpage
3099    \fi %% added (2016/12/13)
3100   \fi
3101   \if@restonecol
3102     \twocolumn
3103   \fi}
3104 %</book>
3105 %    \end{macrocode}
3106 % \end{macro}
3107 %
3108 % \paragraph{章}
3109 %
3110 % \begin{macro}{\chapter}
3111 %
3112 %    章の最初のページスタイルは，全体が |empty| でなければ |plain| に
3113 %    します。
3114 %    また，|\@topnum| を 0 にして，
3115 %    章見出しの上に図や表が来ないようにします。
3116 %
3117 %    \begin{macrocode}
3118 %<*book>
3119 \newcommand{\chapter}{%
3120   \if@openright\cleardoublepage\else\clearpage\fi
3121   \plainifnotempty % 元: \thispagestyle{plain}
3122   \global\@topnum\z@
3123   \if@english \@afterindentfalse \else \@afterindenttrue \fi
3124   \secdef
3125     {\@omit@numberfalse\@chapter}%
3126     {\@omit@numbertrue\@schapter}}
3127 %    \end{macrocode}
3128 % \end{macro}
3129 %
3130 % \begin{macro}{\@chapter}
3131 %
3132 % 章見出しを出力します。
3133 % |secnumdepth| が0以上かつ |\@mainmatter| が真のとき章番号を出力します。
3134 %
3135 %    \begin{macrocode}
3136 \def\@chapter[#1]#2{%
3137   \ifnum \c@secnumdepth >\m@ne
3138     \if@mainmatter
3139       \refstepcounter{chapter}%
3140       \typeout{\@chapapp\thechapter\@chappos}%
3141       \addcontentsline{toc}{chapter}%
3142         {\protect\numberline
3143         % {\if@english\thechapter\else\@chapapp\thechapter\@chappos\fi}%
3144         {\@chapapp\thechapter\@chappos}%
3145         #1}%
3146     \else\addcontentsline{toc}{chapter}{#1}\fi
3147   \else
3148     \addcontentsline{toc}{chapter}{#1}%
3149   \fi
3150   \chaptermark{#1}%
3151   \addtocontents{lof}{\protect\addvspace{10\jsc@mpt}}%
3152   \addtocontents{lot}{\protect\addvspace{10\jsc@mpt}}%
3153   \if@twocolumn
3154     \@topnewpage[\@makechapterhead{#2}]%
3155   \else
3156     \@makechapterhead{#2}%
3157     \@afterheading
3158   \fi}
3159 %    \end{macrocode}
3160 % \end{macro}
3161 %
3162 % \begin{macro}{\@makechapterhead}
3163 %
3164 %    実際に章見出しを組み立てます。
3165 %    |\bfseries| を |\headfont| に変えました。
3166 %
3167 %    \begin{macrocode}
3168 \def\@makechapterhead#1{%
3169   \vspace*{2\Cvs}% 欧文は50pt
3170   {\parindent \z@ \raggedright \normalfont
3171     \ifnum \c@secnumdepth >\m@ne
3172       \if@mainmatter
3173         \huge\headfont \@chapapp\thechapter\@chappos
3174         \par\nobreak
3175         \vskip \Cvs % 欧文は20pt
3176       \fi
3177     \fi
3178     \interlinepenalty\@M
3179     \Huge \headfont #1\par\nobreak
3180     \vskip 3\Cvs}} % 欧文は40pt
3181 %    \end{macrocode}
3182 % \end{macro}
3183 %
3184 % \begin{macro}{\@schapter}
3185 %
3186 % |\chapter*{...}| コマンドの本体です。
3187 % |\chaptermark| を補いました。
3188 %
3189 %    \begin{macrocode}
3190 \def\@schapter#1{%
3191   \chaptermark{#1}%
3192   \if@twocolumn
3193     \@topnewpage[\@makeschapterhead{#1}]%
3194   \else
3195     \@makeschapterhead{#1}\@afterheading
3196   \fi}
3197 %    \end{macrocode}
3198 % \end{macro}
3199 %
3200 % \begin{macro}{\@makeschapterhead}
3201 %
3202 % 番号なしの章見出しです。
3203 %
3204 %    \begin{macrocode}
3205 \def\@makeschapterhead#1{%
3206   \vspace*{2\Cvs}% 欧文は50pt
3207   {\parindent \z@ \raggedright
3208     \normalfont
3209     \interlinepenalty\@M
3210     \Huge \headfont #1\par\nobreak
3211     \vskip 3\Cvs}} % 欧文は40pt
3212 %</book>
3213 %    \end{macrocode}
3214 % \end{macro}
3215 %
3216 % \paragraph{下位レベルの見出し}
3217 %
3218 % \begin{macro}{\section}
3219 %
3220 % 欧文版では |\@startsection| の第4引数を負にして最初の段落の
3221 % 字下げを禁止していますが，
3222 % 和文版では正にして字下げするようにしています。
3223 %
3224 % 段組のときはなるべく左右の段が狂わないように工夫しています。
3225 %
3226 %    \begin{macrocode}
3227 \if@twocolumn
3228   \newcommand{\section}{%
3229 %<jspf>\ifx\maketitle\relax\else\maketitle\fi
3230     \@startsection{section}{1}{\z@}%
3231 %<!kiyou>    {0.6\Cvs}{0.4\Cvs}%
3232 %<kiyou>    {\Cvs}{0.5\Cvs}%
3233 %   {\normalfont\large\headfont\@secapp}}
3234     {\normalfont\large\headfont\raggedright}}
3235 \else
3236   \newcommand{\section}{%
3237     \if@slide\clearpage\fi
3238     \@startsection{section}{1}{\z@}%
3239     {\Cvs \@plus.5\Cdp \@minus.2\Cdp}% 前アキ
3240     {.5\Cvs \@plus.3\Cdp}% 後アキ
3241 %   {\normalfont\Large\headfont\@secapp}}
3242     {\normalfont\Large\headfont\raggedright}}
3243 \fi
3244 %    \end{macrocode}
3245 %
3246 % \end{macro}
3247 %
3248 % \begin{macro}{\subsection}
3249 %
3250 % 同上です。
3251 %
3252 %    \begin{macrocode}
3253 \if@twocolumn
3254   \newcommand{\subsection}{\@startsection{subsection}{2}{\z@}%
3255     {\z@}{\if@slide .4\Cvs \else \z@ \fi}%
3256     {\normalfont\normalsize\headfont}}
3257 \else
3258   \newcommand{\subsection}{\@startsection{subsection}{2}{\z@}%
3259     {\Cvs \@plus.5\Cdp \@minus.2\Cdp}% 前アキ
3260     {.5\Cvs \@plus.3\Cdp}% 後アキ
3261     {\normalfont\large\headfont}}
3262 \fi
3263 %    \end{macrocode}
3264 %
3265 % \end{macro}
3266 %
3267 % \begin{macro}{\subsubsection}
3268 %
3269 % [2016-07-22] \texttt{slide}オプション指定時に |\subsubsection| の文字列
3270 % と罫線が重なる問題に対処しました(forum:1982)。
3271 %
3272 %    \begin{macrocode}
3273 \if@twocolumn
3274   \newcommand{\subsubsection}{\@startsection{subsubsection}{3}{\z@}%
3275     {\z@}{\if@slide .4\Cvs \else \z@ \fi}%
3276     {\normalfont\normalsize\headfont}}
3277 \else
3278   \newcommand{\subsubsection}{\@startsection{subsubsection}{3}{\z@}%
3279     {\Cvs \@plus.5\Cdp \@minus.2\Cdp}%
3280     {\if@slide .5\Cvs \@plus.3\Cdp \else \z@ \fi}%
3281     {\normalfont\normalsize\headfont}}
3282 \fi
3283 %    \end{macrocode}
3284 % \end{macro}
3285 %
3286 % \begin{macro}{\paragraph}
3287 %
3288 %    見出しの後ろで改行されません。
3289 %
3290 % [2016-11-16] 従来は |\paragraph| の最初に出るマークを「■」に固定して
3291 % いましたが，このマークを変更可能にするため |\jsParagraphMark| というマクロ
3292 % に切り出しました。これで，たとえば
3293 %\begin{verbatim}
3294 %  \renewcommand{\jsParagraphMark}{★}
3295 %\end{verbatim}
3296 % とすれば「★」に変更できますし，マークを空にすることも容易です。
3297 % なお，某学会クラスでは従来どおりマークは付きません。
3298 %
3299 %    \begin{macrocode}
3300 %<!jspf>\newcommand{\jsParagraphMark}{■}
3301 \if@twocolumn
3302   \newcommand{\paragraph}{\@startsection{paragraph}{4}{\z@}%
3303     {\z@}{\if@slide .4\Cvs \else -1\zw\fi}% 改行せず 1\zw のアキ
3304 %<jspf>    {\normalfont\normalsize\headfont}}
3305 %<!jspf>    {\normalfont\normalsize\headfont\jsParagraphMark}}
3306 \else
3307   \newcommand{\paragraph}{\@startsection{paragraph}{4}{\z@}%
3308     {0.5\Cvs \@plus.5\Cdp \@minus.2\Cdp}%
3309     {\if@slide .5\Cvs \@plus.3\Cdp \else -1\zw\fi}% 改行せず 1\zw のアキ
3310 %<jspf>    {\normalfont\normalsize\headfont}}
3311 %<!jspf>    {\normalfont\normalsize\headfont\jsParagraphMark}}
3312 \fi
3313 %    \end{macrocode}
3314 % \end{macro}
3315 %
3316 % \begin{macro}{\subparagraph}
3317 %
3318 %    見出しの後ろで改行されません。
3319 %
3320 %    \begin{macrocode}
3321 \if@twocolumn
3322   \newcommand{\subparagraph}{\@startsection{subparagraph}{5}{\z@}%
3323     {\z@}{\if@slide .4\Cvs \@plus.3\Cdp \else -1\zw\fi}%
3324     {\normalfont\normalsize\headfont}}
3325 \else
3326   \newcommand{\subparagraph}{\@startsection{subparagraph}{5}{\z@}%
3327     {\z@}{\if@slide .5\Cvs \@plus.3\Cdp \else -1\zw\fi}%
3328     {\normalfont\normalsize\headfont}}
3329 \fi
3330 %    \end{macrocode}
3331 % \end{macro}
3332 %
3333 % \subsection{リスト環境}
3334 %
3335 % 第 $k$ レベルのリストの初期化をするのが |\@list|$k$ です
3336 % （$k = \mathtt{i}, \mathtt{ii}, \mathtt{iii}, \mathtt{iv}$）。
3337 % |\@list|$k$ は |\leftmargin| を |\leftmargin|$k$ に設定します。
3338 %
3339 % \begin{macro}{\leftmargini}
3340 %
3341 % 二段組であるかないかに応じてそれぞれ 2em，2.5em でしたが，
3342 % ここでは全角幅の2倍にしました。
3343 %
3344 % [2002-05-11] |3\zw| に変更しました。
3345 %
3346 % [2005-03-19] 二段組は |2\zw| に戻しました。
3347 %
3348 %    \begin{macrocode}
3349 \if@slide
3350   \setlength\leftmargini{1\zw}
3351 \else
3352   \if@twocolumn
3353     \setlength\leftmargini{2\zw}
3354   \else
3355     \setlength\leftmargini{3\zw}
3356   \fi
3357 \fi
3358 %    \end{macrocode}
3359 % \end{macro}
3360 %
3361 % \begin{macro}{\leftmarginii}
3362 % \begin{macro}{\leftmarginiii}
3363 % \begin{macro}{\leftmarginiv}
3364 % \begin{macro}{\leftmarginv}
3365 % \begin{macro}{\leftmarginvi}
3366 %
3367 %    |ii|，|iii|，|iv| は |\labelsep| と
3368 %    それぞれ `(m)'，`vii.'，`M.' の幅との和より大きくする
3369 %    ことになっています。ここでは全角幅の整数倍に丸めました。
3370 %
3371 %    \begin{macrocode}
3372 \if@slide
3373   \setlength\leftmarginii {1\zw}
3374   \setlength\leftmarginiii{1\zw}
3375   \setlength\leftmarginiv {1\zw}
3376   \setlength\leftmarginv  {1\zw}
3377   \setlength\leftmarginvi {1\zw}
3378 \else
3379   \setlength\leftmarginii {2\zw}
3380   \setlength\leftmarginiii{2\zw}
3381   \setlength\leftmarginiv {2\zw}
3382   \setlength\leftmarginv  {1\zw}
3383   \setlength\leftmarginvi {1\zw}
3384 \fi
3385 %    \end{macrocode}
3386 % \end{macro}
3387 % \end{macro}
3388 % \end{macro}
3389 % \end{macro}
3390 % \end{macro}
3391 %
3392 % \begin{macro}{\labelsep}
3393 % \begin{macro}{\labelwidth}
3394 %
3395 %    |\labelsep| はラベルと本文の間の距離です。
3396 %    |\labelwidth| はラベルの幅です。
3397 %    これは二分に変えました。
3398 %
3399 %    \begin{macrocode}
3400 \setlength  \labelsep  {0.5\zw} % .5em
3401 \setlength  \labelwidth{\leftmargini}
3402 \addtolength\labelwidth{-\labelsep}
3403 %    \end{macrocode}
3404 % \end{macro}
3405 % \end{macro}
3406 %
3407 % \begin{macro}{\partopsep}
3408 %
3409 %    リスト環境の前に空行がある場合，
3410 %    |\parskip| と |\topsep| に |\partopsep| を
3411 %    加えた値だけ縦方向の空白ができます。
3412 %    0 に改変しました。
3413 %
3414 %    \begin{macrocode}
3415 \setlength\partopsep{\z@} % {2\p@ \@plus 1\p@ \@minus 1\p@}
3416 %    \end{macrocode}
3417 % \end{macro}
3418 %
3419 % \begin{macro}{\@beginparpenalty}
3420 % \begin{macro}{\@endparpenalty}
3421 % \begin{macro}{\@itempenalty}
3422 %
3423 %    リストや段落環境の前後，リスト項目間に挿入されるペナルティです。
3424 %
3425 %    \begin{macrocode}
3426 \@beginparpenalty -\@lowpenalty
3427 \@endparpenalty   -\@lowpenalty
3428 \@itempenalty     -\@lowpenalty
3429 %    \end{macrocode}
3430 % \end{macro}
3431 % \end{macro}
3432 % \end{macro}
3433 %
3434 % \begin{macro}{\@listi}
3435 % \begin{macro}{\@listI}
3436 %
3437 %    |\@listi| は |\leftmargin|，|\parsep|，|\topsep|，|\itemsep| などの
3438 %    トップレベルの定義をします。
3439 %    この定義は，フォントサイズコマンドによって変更されます
3440 %    （たとえば |\small| の中では小さい値に設定されます）。
3441 %    このため，|\normalsize| がすべてのパラメータを戻せるように，
3442 %    |\@listI| で |\@listi| のコピーを保存します。
3443 %    元の値はかなり複雑ですが，ここでは簡素化してしまいました。
3444 %    特に最初と最後に行送りの半分の空きが入るようにしてあります。
3445 %    アスキーの標準スタイルでは
3446 %    トップレベルの |itemize|，|enumerate| 環境でだけ
3447 %    最初と最後に行送りの半分の空きが入るようになっていました。
3448 %
3449 %    [2004-09-27] |\topsep| のグルー $_{-0.1}^{+0.2}$ |\baselineskip|
3450 %    を思い切って外しました。
3451 %
3452 %    \begin{macrocode}
3453 \def\@listi{\leftmargin\leftmargini
3454   \parsep \z@
3455   \topsep 0.5\baselineskip
3456   \itemsep \z@ \relax}
3457 \let\@listI\@listi
3458 %    \end{macrocode}
3459 %
3460 %    念のためパラメータを初期化します（実際には不要のようです）。
3461 %
3462 %    \begin{macrocode}
3463 \@listi
3464 %    \end{macrocode}
3465 % \end{macro}
3466 % \end{macro}
3467 %
3468 % \begin{macro}{\@listii}
3469 % \begin{macro}{\@listiii}
3470 % \begin{macro}{\@listiv}
3471 % \begin{macro}{\@listv}
3472 % \begin{macro}{\@listvi}
3473 %
3474 %    第2〜6レベルのリスト環境のパラメータの設定です。
3475 %
3476 %    \begin{macrocode}
3477 \def\@listii{\leftmargin\leftmarginii
3478   \labelwidth\leftmarginii \advance\labelwidth-\labelsep
3479   \topsep \z@
3480   \parsep \z@
3481   \itemsep\parsep}
3482 \def\@listiii{\leftmargin\leftmarginiii
3483   \labelwidth\leftmarginiii \advance\labelwidth-\labelsep
3484   \topsep \z@
3485   \parsep \z@
3486   \itemsep\parsep}
3487 \def\@listiv {\leftmargin\leftmarginiv
3488               \labelwidth\leftmarginiv
3489               \advance\labelwidth-\labelsep}
3490 \def\@listv  {\leftmargin\leftmarginv
3491               \labelwidth\leftmarginv
3492               \advance\labelwidth-\labelsep}
3493 \def\@listvi {\leftmargin\leftmarginvi
3494               \labelwidth\leftmarginvi
3495               \advance\labelwidth-\labelsep}
3496 %    \end{macrocode}
3497 % \end{macro}
3498 % \end{macro}
3499 % \end{macro}
3500 % \end{macro}
3501 % \end{macro}
3502 %
3503 % \paragraph{enumerate環境}
3504 %
3505 % |enumerate| 環境はカウンタ |enumi|，|enumii|，|enumiii|，
3506 % |enumiv| を使います。|enum|$n$ は第 $n$ レベルの番号です。
3507 %
3508 % \begin{macro}{\theenumi}
3509 % \begin{macro}{\theenumii}
3510 % \begin{macro}{\theenumiii}
3511 % \begin{macro}{\theenumiv}
3512 %
3513 %    出力する番号の書式を設定します。
3514 %    これらは\LaTeX 本体（\texttt{ltlists.dtx} 参照）で定義済みですが，
3515 %    ここでは表し方を変えています。
3516 %    |\@arabic|，|\@alph|，|\@roman|，|\@Alph| はそれぞれ
3517 %    算用数字，小文字アルファベット，小文字ローマ数字，大文字アルファベット
3518 %    で番号を出力する命令です。
3519 %
3520 %    \begin{macrocode}
3521 \renewcommand{\theenumi}{\@arabic\c@enumi}
3522 \renewcommand{\theenumii}{\@alph\c@enumii}
3523 \renewcommand{\theenumiii}{\@roman\c@enumiii}
3524 \renewcommand{\theenumiv}{\@Alph\c@enumiv}
3525 %    \end{macrocode}
3526 % \end{macro}
3527 % \end{macro}
3528 % \end{macro}
3529 % \end{macro}
3530 %
3531 % \begin{macro}{\labelenumi}
3532 % \begin{macro}{\labelenumii}
3533 % \begin{macro}{\labelenumiii}
3534 % \begin{macro}{\labelenumiv}
3535 %
3536 %    |enumerate| 環境の番号を出力する命令です。
3537 %    第2レベル以外は最後に欧文のピリオドが付きますが，
3538 %    これは好みに応じて取り払ってください。
3539 %    第2レベルの番号のかっこは和文用に換え，
3540 %    その両側に入る余分なグルーを |\inhibitglue| で
3541 %    取り除いています。
3542 %
3543 %    \begin{macrocode}
3544 \newcommand{\labelenumi}{\theenumi.}
3545 \newcommand{\labelenumii}{\inhibitglue（\theenumii）\inhibitglue}
3546 \newcommand{\labelenumiii}{\theenumiii.}
3547 \newcommand{\labelenumiv}{\theenumiv.}
3548 %    \end{macrocode}
3549 % \end{macro}
3550 % \end{macro}
3551 % \end{macro}
3552 % \end{macro}
3553 %
3554 % \begin{macro}{\p@enumii}
3555 % \begin{macro}{\p@enumiii}
3556 % \begin{macro}{\p@enumiv}
3557 %
3558 %    |\p@enum|$n$ は |\ref| コマンドで |enumerate| 環境の第 $n$ レベルの
3559 %    項目が参照されるときの書式です。
3560 %    これも第2レベルは和文用かっこにしました。
3561 %
3562 %    \begin{macrocode}
3563 \renewcommand{\p@enumii}{\theenumi}
3564 \renewcommand{\p@enumiii}{\theenumi\inhibitglue（\theenumii）}
3565 \renewcommand{\p@enumiv}{\p@enumiii\theenumiii}
3566 %    \end{macrocode}
3567 % \end{macro}
3568 % \end{macro}
3569 % \end{macro}
3570 %
3571 % \paragraph{itemize環境}
3572 %
3573 % \begin{macro}{\labelitemi}
3574 % \begin{macro}{\labelitemii}
3575 % \begin{macro}{\labelitemiii}
3576 % \begin{macro}{\labelitemiv}
3577 %    |itemize| 環境の第 $n$ レベルのラベルを作るコマンドです。
3578 %    \begin{macrocode}
3579 \newcommand\labelitemi{\textbullet}
3580 \newcommand\labelitemii{\normalfont\bfseries \textendash}
3581 \newcommand\labelitemiii{\textasteriskcentered}
3582 \newcommand\labelitemiv{\textperiodcentered}
3583 %    \end{macrocode}
3584 % \end{macro}
3585 % \end{macro}
3586 % \end{macro}
3587 % \end{macro}
3588 %
3589 % \paragraph{description環境}
3590 %
3591 % \begin{environment}{description}
3592 %
3593 % 本来の |description| 環境では，項目名が短いと，説明部分の頭が
3594 % それに引きずられて左に出てしまいます。
3595 % これを解決した新しい |description| の実装です。
3596 %
3597 %    \begin{macrocode}
3598 \newenvironment{description}{%
3599   \list{}{%
3600     \labelwidth=\leftmargin
3601     \labelsep=1\zw
3602     \advance \labelwidth by -\labelsep
3603     \let \makelabel=\descriptionlabel}}{\endlist}
3604 %    \end{macrocode}
3605 % \end{environment}
3606 %
3607 % \begin{macro}{\descriptionlabel}
3608 %
3609 %    |description| 環境のラベルを出力するコマンドです。
3610 %    好みに応じて |#1| の前に適当な空き
3611 %    （たとえば |\hspace{1\zw}|）を入れるのもいいと思います。
3612 %
3613 %    \begin{macrocode}
3614 \newcommand*\descriptionlabel[1]{\normalfont\headfont #1\hfil}
3615 %    \end{macrocode}
3616 % \end{macro}
3617 %
3618 % \paragraph{概要}
3619 %
3620 % \begin{environment}{abstract}
3621 %
3622 % 概要（要旨，梗概）を出力する環境です。
3623 % |book| クラスでは各章の初めにちょっとしたことを書くのに使います。
3624 % |titlepage| オプション付きの |article| クラスでは，
3625 % 独立したページに出力されます。
3626 % |abstract| 環境は元は |quotation| 環境で作られていましたが，
3627 % |quotation| 環境の右マージンをゼロにしたので，
3628 % |list| 環境で作り直しました。
3629 %
3630 % JSPFスタイルでは実際の出力は |\maketitle| で行われます。
3631 %
3632 %    \begin{macrocode}
3633 %<*book>
3634 \newenvironment{abstract}{%
3635   \begin{list}{}{%
3636     \listparindent=1\zw
3637     \itemindent=\listparindent
3638     \rightmargin=0pt
3639     \leftmargin=5\zw}\item[]}{\end{list}\vspace{\baselineskip}}
3640 %</book>
3641 %<*article|kiyou>
3642 \newbox\@abstractbox
3643 \if@titlepage
3644   \newenvironment{abstract}{%
3645     \titlepage
3646     \null\vfil
3647     \@beginparpenalty\@lowpenalty
3648     \begin{center}%
3649       \headfont \abstractname
3650       \@endparpenalty\@M
3651     \end{center}}%
3652   {\par\vfil\null\endtitlepage}
3653 \else
3654   \newenvironment{abstract}{%
3655     \if@twocolumn
3656       \ifx\maketitle\relax
3657         \section*{\abstractname}%
3658       \else
3659         \global\setbox\@abstractbox\hbox\bgroup
3660         \begin{minipage}[b]{\textwidth}
3661           \small\parindent1\zw
3662           \begin{center}%
3663             {\headfont \abstractname\vspace{-.5em}\vspace{\z@}}%
3664           \end{center}%
3665           \list{}{%
3666             \listparindent\parindent
3667             \itemindent \listparindent
3668             \rightmargin \leftmargin}%
3669           \item\relax
3670       \fi
3671     \else
3672       \small
3673       \begin{center}%
3674         {\headfont \abstractname\vspace{-.5em}\vspace{\z@}}%
3675       \end{center}%
3676       \list{}{%
3677         \listparindent\parindent
3678         \itemindent \listparindent
3679         \rightmargin \leftmargin}%
3680       \item\relax
3681     \fi}{\if@twocolumn
3682       \ifx\maketitle\relax
3683       \else
3684         \endlist\end{minipage}\egroup
3685       \fi
3686     \else
3687       \endlist
3688     \fi}
3689 \fi
3690 %</article|kiyou>
3691 %<*jspf>
3692 \newbox\@abstractbox
3693 \newenvironment{abstract}{%
3694   \global\setbox\@abstractbox\hbox\bgroup
3695   \begin{minipage}[b]{157\jsc@mmm}{\sffamily Abstract}\par
3696     \small
3697     \if@english \parindent6\jsc@mmm \else \parindent1\zw \fi}%
3698   {\end{minipage}\egroup}
3699 %</jspf>
3700 %    \end{macrocode}
3701 % \end{environment}
3702 %
3703 % \paragraph{キーワード}
3704 %
3705 % \begin{environment}{keywords}
3706 %
3707 % キーワードを準備する環境です。
3708 % 実際の出力は |\maketitle| で行われます。
3709 %
3710 %    \begin{macrocode}
3711 %<*jspf>
3712 %\newbox\@keywordsbox
3713 %\newenvironment{keywords}{%
3714 %  \global\setbox\@keywordsbox\hbox\bgroup
3715 %  \begin{minipage}[b]{157\jsc@mmm}{\sffamily Keywords:}\par
3716 %    \small\parindent0\zw}%
3717 %  {\end{minipage}\egroup}
3718 %</jspf>
3719 %    \end{macrocode}
3720 % \end{environment}
3721 %
3722 % \paragraph{verse環境}
3723 %
3724 % \begin{environment}{verse}
3725 %
3726 % 詩のための |verse| 環境です。
3727 %
3728 %    \begin{macrocode}
3729 \newenvironment{verse}{%
3730   \let \\=\@centercr
3731   \list{}{%
3732     \itemsep \z@
3733     \itemindent -2\zw % 元: -1.5em
3734     \listparindent\itemindent
3735     \rightmargin \z@
3736     \advance\leftmargin 2\zw}% 元: 1.5em
3737   \item\relax}{\endlist}
3738 %    \end{macrocode}
3739 % \end{environment}
3740 %
3741 % \paragraph{quotation環境}
3742 %
3743 % \begin{environment}{quotation}
3744 %
3745 % 段落の頭の字下げ量を1.5emから |\parindent| に変えました。
3746 % また，右マージンを 0 にしました。
3747 %
3748 %    \begin{macrocode}
3749 \newenvironment{quotation}{%
3750   \list{}{%
3751     \listparindent\parindent
3752     \itemindent\listparindent
3753     \rightmargin \z@}%
3754   \item\relax}{\endlist}
3755 %    \end{macrocode}
3756 % \end{environment}
3757 %
3758 % \paragraph{quote環境}
3759 %
3760 % \begin{environment}{quote}
3761 %
3762 % |quote| 環境は，段落がインデントされないことを除き，
3763 % |quotation| 環境と同じです。
3764 %
3765 %    \begin{macrocode}
3766 \newenvironment{quote}%
3767   {\list{}{\rightmargin\z@}\item\relax}{\endlist}
3768 %    \end{macrocode}
3769 % \end{environment}
3770 %
3771 % \paragraph{定理など}
3772 %
3773 % |ltthm.dtx| 参照。たとえば次のように定義します。
3774 %\begin{verbatim}
3775 %  \newtheorem{definition}{定義}
3776 %  \newtheorem{axiom}{公理}
3777 %  \newtheorem{theorem}{定理}
3778 %\end{verbatim}
3779 %
3780 % [2001-04-26] 定理の中はイタリック体になりましたが，
3781 % これでは和文がゴシック体になってしまうので，
3782 % |\itshape| を削除しました。
3783 %
3784 % [2009-08-23] |\bfseries| を |\headfont| に直し，
3785 % |\labelsep| を |1\zw| にし，括弧を全角にしました。
3786 %
3787 %    \begin{macrocode}
3788 \def\@begintheorem#1#2{\trivlist\labelsep=1\zw
3789    \item[\hskip \labelsep{\headfont #1\ #2}]}
3790 \def\@opargbegintheorem#1#2#3{\trivlist\labelsep=1\zw
3791       \item[\hskip \labelsep{\headfont #1\ #2（#3）}]}
3792 %    \end{macrocode}
3793 %
3794 % \begin{environment}{titlepage}
3795 %
3796 % タイトルを独立のページに出力するのに使われます。
3797 %
3798 %    \begin{macrocode}
3799 \newenvironment{titlepage}{%
3800 %<book>    \cleardoublepage
3801     \if@twocolumn
3802       \@restonecoltrue\onecolumn
3803     \else
3804       \@restonecolfalse\newpage
3805     \fi
3806     \thispagestyle{empty}%
3807     \setcounter{page}\@ne
3808   }%
3809   {\if@restonecol\twocolumn \else \newpage \fi
3810     \if@twoside\else
3811       \setcounter{page}\@ne
3812     \fi}
3813 %    \end{macrocode}
3814 % \end{environment}
3815 %
3816 % \paragraph{付録}
3817 %
3818 % \begin{macro}{\appendix}
3819 %
3820 % 本文と付録を分離するコマンドです。
3821 %
3822 %    \begin{macrocode}
3823 %<*!book>
3824 \newcommand{\appendix}{\par
3825   \setcounter{section}{0}%
3826   \setcounter{subsection}{0}%
3827   \gdef\presectionname{\appendixname}%
3828   \gdef\postsectionname{}%
3829 % \gdef\thesection{\@Alph\c@section}% [2003-03-02]
3830   \gdef\thesection{\presectionname\@Alph\c@section\postsectionname}%
3831   \gdef\thesubsection{\@Alph\c@section.\@arabic\c@subsection}}
3832 %</!book>
3833 %<*book>
3834 \newcommand{\appendix}{\par
3835   \setcounter{chapter}{0}%
3836   \setcounter{section}{0}%
3837   \gdef\@chapapp{\appendixname}%
3838   \gdef\@chappos{}%
3839   \gdef\thechapter{\@Alph\c@chapter}}
3840 %</book>
3841 %    \end{macrocode}
3842 % \end{macro}
3843 %
3844 % \subsection{パラメータの設定}
3845 %
3846 % \paragraph{arrayとtabular環境}
3847 %
3848 % \begin{macro}{\arraycolsep}
3849 %
3850 % |array| 環境の列間には |\arraycolsep| の2倍の幅の空きが入ります。
3851 %
3852 %    \begin{macrocode}
3853 \setlength\arraycolsep{5\jsc@mpt}
3854 %    \end{macrocode}
3855 % \end{macro}
3856 %
3857 % \begin{macro}{\tabcolsep}
3858 %
3859 % |tabular| 環境の列間には |\tabcolsep| の2倍の幅の空きが入ります。
3860 %
3861 %    \begin{macrocode}
3862 \setlength\tabcolsep{6\jsc@mpt}
3863 %    \end{macrocode}
3864 % \end{macro}
3865 %
3866 % \begin{macro}{\arrayrulewidth}
3867 %
3868 % |array|，|tabular| 環境内の罫線の幅です。
3869 %
3870 %    \begin{macrocode}
3871 \setlength\arrayrulewidth{.4\jsc@mpt}
3872 %    \end{macrocode}
3873 % \end{macro}
3874 %
3875 % \begin{macro}{\doublerulesep}
3876 %
3877 % |array|，|tabular| 環境での二重罫線間のアキです。
3878 %
3879 %    \begin{macrocode}
3880 \setlength\doublerulesep{2\jsc@mpt}
3881 %    \end{macrocode}
3882 % \end{macro}
3883 %
3884 % \paragraph{tabbing環境}
3885 %
3886 % \begin{macro}{\tabbingsep}
3887 %
3888 % |\'| コマンドで入るアキです。
3889 %
3890 %    \begin{macrocode}
3891 \setlength\tabbingsep{\labelsep}
3892 %    \end{macrocode}
3893 % \end{macro}
3894 %
3895 % \paragraph{minipage環境}
3896 %
3897 % \begin{macro}{\@mpfootins}
3898 %
3899 % |minipage| 環境の脚注の |\skip|\hspace{0pt}|\@mpfootins|
3900 % は通常のページの |\skip|\hspace{0pt}|\footins|
3901 % と同じ働きをします。
3902 %
3903 %    \begin{macrocode}
3904 \skip\@mpfootins = \skip\footins
3905 %    \end{macrocode}
3906 % \end{macro}
3907 %
3908 % \paragraph{framebox環境}
3909 %
3910 % \begin{macro}{\fboxsep}
3911 %
3912 % |\fbox|，|\framebox| で内側のテキストと枠との間の空きです。
3913 %
3914 % \begin{macro}{\fboxrule}
3915 %
3916 % |\fbox|，|\framebox| の罫線の幅です。
3917 %
3918 %    \begin{macrocode}
3919 \setlength\fboxsep{3\jsc@mpt}
3920 \setlength\fboxrule{.4\jsc@mpt}
3921 %    \end{macrocode}
3922 % \end{macro}
3923 % \end{macro}
3924 %
3925 % \paragraph{equationとeqnarray環境}
3926 %
3927 % \begin{macro}{\theequation}
3928 %
3929 % 数式番号を出力するコマンドです。
3930 %
3931 %    \begin{macrocode}
3932 %<!book>\renewcommand \theequation {\@arabic\c@equation}
3933 %<*book>
3934 \@addtoreset{equation}{chapter}
3935 \renewcommand\theequation
3936   {\ifnum \c@chapter>\z@ \thechapter.\fi \@arabic\c@equation}
3937 %</book>
3938 %    \end{macrocode}
3939 % \end{macro}
3940 %
3941 % \begin{macro}{\jot}
3942 %
3943 %    |eqnarray| の行間に余分に入るアキです。
3944 %    デフォルトの値をコメントアウトして示しておきます。
3945 %
3946 %    \begin{macrocode}
3947 % \setlength\jot{3pt}
3948 %    \end{macrocode}
3949 % \end{macro}
3950 %
3951 % \begin{macro}{\@eqnnum}
3952 %
3953 %    数式番号の形式です。
3954 %    デフォルトの値をコメントアウトして示しておきます。
3955 %
3956 %    |\inhibitglue（\theequation）\inhibitglue| のように和文かっこ
3957 %    を使うことも可能です。
3958 %
3959 %    \begin{macrocode}
3960 % \def\@eqnnum{(\theequation)}
3961 %    \end{macrocode}
3962 % \end{macro}
3963 %
3964 %    |amsmath| パッケージを使う場合は |\tagform@| を次のように修正します。
3965 %
3966 %    \begin{macrocode}
3967 % \def\tagform@#1{\maketag@@@{（\ignorespaces#1\unskip\@@italiccorr）}}
3968 %    \end{macrocode}
3969 %
3970 % \subsection{フロート}
3971 %
3972 % タイプ \texttt{TYPE} のフロートオブジェクトを
3973 % 扱うには，次のマクロを定義します。
3974 % \begin{description}
3975 % \item[\texttt{\bslash fps@TYPE}]
3976 %   フロートを置く位置（float placement specifier）です。
3977 % \item[\texttt{\bslash ftype@TYPE}]
3978 %   フロートの番号です。2の累乗（1，2，4，\ldots ）でなければなりません。
3979 % \item[\texttt{\bslash ext@TYPE}]
3980 %   フロートの目次を出力するファイルの拡張子です。
3981 % \item[\texttt{\bslash fnum@TYPE}]
3982 %   キャプション用の番号を生成するマクロです。
3983 % \item[\texttt{\bslash @makecaption}{\meta{num}}{\meta{text}}]
3984 %   キャプションを出力するマクロです。
3985 %   \meta{num} は |\fnum@...| の生成する番号，
3986 %   \meta{text} はキャプションのテキストです。
3987 %   テキストは適当な幅の |\parbox| に入ります。
3988 % \end{description}
3989 %
3990 % \paragraph{figure環境}
3991 %
3992 % \begin{macro}{\c@figure}
3993 %
3994 % 図番号のカウンタです。
3995 %
3996 % \begin{macro}{\thefigure}
3997 %
3998 % 図番号を出力するコマンドです。
3999 %
4000 %    \begin{macrocode}
4001 %<*!book>
4002 \newcounter{figure}
4003 \renewcommand \thefigure {\@arabic\c@figure}
4004 %</!book>
4005 %<*book>
4006 \newcounter{figure}[chapter]
4007 \renewcommand \thefigure
4008      {\ifnum \c@chapter>\z@ \thechapter.\fi \@arabic\c@figure}
4009 %</book>
4010 %    \end{macrocode}
4011 % \end{macro}
4012 % \end{macro}
4013 %
4014 % \begin{macro}{\fps@figure}
4015 % \begin{macro}{\ftype@figure}
4016 % \begin{macro}{\ext@figure}
4017 % \begin{macro}{\fnum@figure}
4018 %
4019 %    |figure| のパラメータです。
4020 %    |\figurename| の直後に |~| が入っていましたが，
4021 %    ここでは外しました。
4022 %
4023 %    \begin{macrocode}
4024 \def\fps@figure{tbp}
4025 \def\ftype@figure{1}
4026 \def\ext@figure{lof}
4027 \def\fnum@figure{\figurename\nobreak\thefigure}
4028 %    \end{macrocode}
4029 % \end{macro}
4030 % \end{macro}
4031 % \end{macro}
4032 % \end{macro}
4033 %
4034 % \begin{environment}{figure}
4035 % \begin{environment}{figure*}
4036 %
4037 % |*| 形式は段抜きのフロートです。
4038 %
4039 %    \begin{macrocode}
4040 \newenvironment{figure}%
4041                {\@float{figure}}%
4042                {\end@float}
4043 \newenvironment{figure*}%
4044                {\@dblfloat{figure}}%
4045                {\end@dblfloat}
4046 %    \end{macrocode}
4047 % \end{environment}
4048 % \end{environment}
4049 %
4050 % \paragraph{table環境}
4051 %
4052 % \begin{macro}{\c@table}
4053 % \begin{macro}{\thetable}
4054 %
4055 % 表番号カウンタと表番号を出力するコマンドです。
4056 % アスキー版では |\thechapter.| が |\thechapter{}・| になっていますが，
4057 % ここではオリジナルのままにしています。
4058 %
4059 %    \begin{macrocode}
4060 %<*!book>
4061 \newcounter{table}
4062 \renewcommand\thetable{\@arabic\c@table}
4063 %</!book>
4064 %<*book>
4065 \newcounter{table}[chapter]
4066 \renewcommand \thetable
4067      {\ifnum \c@chapter>\z@ \thechapter.\fi \@arabic\c@table}
4068 %</book>
4069 %    \end{macrocode}
4070 % \end{macro}
4071 % \end{macro}
4072 %
4073 % \begin{macro}{\fps@table}
4074 % \begin{macro}{\ftype@table}
4075 % \begin{macro}{\ext@table}
4076 % \begin{macro}{\fnum@table}
4077 %
4078 % |table| のパラメータです。
4079 % |\tablename| の直後に |~| が入っていましたが，
4080 % ここでは外しました。
4081 %
4082 %    \begin{macrocode}
4083 \def\fps@table{tbp}
4084 \def\ftype@table{2}
4085 \def\ext@table{lot}
4086 \def\fnum@table{\tablename\nobreak\thetable}
4087 %    \end{macrocode}
4088 % \end{macro}
4089 % \end{macro}
4090 % \end{macro}
4091 % \end{macro}
4092 %
4093 % \begin{environment}{table}
4094 % \begin{environment}{table*}
4095 %
4096 % |*| は段抜きのフロートです。
4097 %
4098 %    \begin{macrocode}
4099 \newenvironment{table}%
4100                {\@float{table}}%
4101                {\end@float}
4102 \newenvironment{table*}%
4103                {\@dblfloat{table}}%
4104                {\end@dblfloat}
4105 %    \end{macrocode}
4106 % \end{environment}
4107 % \end{environment}
4108 %
4109 % \subsection{キャプション}
4110 %
4111 % \begin{macro}{\@makecaption}
4112 %
4113 % |\caption| コマンドにより呼び出され，
4114 % 実際にキャプションを出力するコマンドです。
4115 % 第1引数はフロートの番号，
4116 % 第2引数はテキストです。
4117 %
4118 % \begin{macro}{\abovecaptionskip}
4119 % \begin{macro}{\belowcaptionskip}
4120 %
4121 % それぞれキャプションの前後に挿入されるスペースです。
4122 % |\belowcaptionskip| が0になっていましたので，
4123 % キャプションを表の上につけた場合にキャプションと表が
4124 % くっついてしまうのを直しました。
4125 %
4126 %    \begin{macrocode}
4127 \newlength\abovecaptionskip
4128 \newlength\belowcaptionskip
4129 \setlength\abovecaptionskip{5\jsc@mpt} % 元: 10\p@
4130 \setlength\belowcaptionskip{5\jsc@mpt} % 元: 0\p@
4131 %    \end{macrocode}
4132 % \end{macro}
4133 % \end{macro}
4134 %
4135 % 実際のキャプションを出力します。
4136 % オリジナルと異なり，文字サイズを |\small| にし，
4137 % キャプションの幅を2cm狭くしました。
4138 %
4139 % [2003-11-05] ロジックを少し変えてみました。
4140 %
4141 % [2015-05-26] |listings| パッケージを使うときに|title| を指定すると次のエラーが出るのを修正。
4142 % \begin{verbatim}
4143 % ! Missing number, treated as zero.
4144 % \end{verbatim}
4145 %
4146 %
4147 %    \begin{macrocode}
4148 %<*!jspf>
4149 % \long\def\@makecaption#1#2{{\small
4150 %   \advance\leftskip10\jsc@mmm
4151 %   \advance\rightskip10\jsc@mmm
4152 %   \vskip\abovecaptionskip
4153 %   \sbox\@tempboxa{#1{\hskip1\zw}#2}%
4154 %   \ifdim \wd\@tempboxa >\hsize
4155 %     #1{\hskip1\zw}#2\par
4156 %   \else
4157 %     \global \@minipagefalse
4158 %     \hb@xt@\hsize{\hfil\box\@tempboxa\hfil}%
4159 %   \fi
4160 %   \vskip\belowcaptionskip}}
4161 \long\def\@makecaption#1#2{{\small
4162   \advance\leftskip .0628\linewidth
4163   \advance\rightskip .0628\linewidth
4164   \vskip\abovecaptionskip
4165   \sbox\@tempboxa{#1{\hskip1\zw}#2}%
4166   \ifdim \wd\@tempboxa <\hsize \centering \fi
4167   #1{\hskip1\zw}#2\par
4168   \vskip\belowcaptionskip}}
4169 %</!jspf>
4170 %<*jspf>
4171 \long\def\@makecaption#1#2{%
4172   \vskip\abovecaptionskip
4173   \sbox\@tempboxa{\small\sffamily #1\quad #2}%
4174   \ifdim \wd\@tempboxa >\hsize
4175     {\small\sffamily
4176       \list{#1}{%
4177         \renewcommand{\makelabel}[1]{##1\hfil}
4178         \itemsep    \z@
4179         \itemindent \z@
4180         \labelsep   \z@
4181         \labelwidth 11\jsc@mmm
4182         \listparindent\z@
4183         \leftmargin 11\jsc@mmm}\item\relax #2\endlist}
4184   \else
4185     \global \@minipagefalse
4186     \hb@xt@\hsize{\hfil\box\@tempboxa\hfil}%
4187   \fi
4188   \vskip\belowcaptionskip}
4189 %</jspf>
4190 %    \end{macrocode}
4191 % \end{macro}
4192 %
4193 % \section{フォントコマンド}
4194 %
4195 % ここでは\LaTeX~2.09で使われていたコマンドを定義します。
4196 % これらはテキストモードと数式モードのどちらでも動作します。
4197 % これらは互換性のためのもので，
4198 % できるだけ |\text...| と |\math...| を使ってください。
4199 %
4200 % [2016-07-15] KOMA-Script中の |\scr@DeclareOldFontCommand| に倣い，
4201 % これらの命令を使うときには警告を発することにしました。
4202 %
4203 % [2016-07-16] 警告を最初の一回だけ発することにしました。また，
4204 % 例外的に警告を出さないようにするスイッチも付けます。
4205 %
4206 % \begin{macro}{\if@jsc@warnoldfontcmd}
4207 % \begin{macro}{\if@jsc@warnoldfontcmdexception}
4208 %    \begin{macrocode}
4209 \newif\if@jsc@warnoldfontcmd
4210 \@jsc@warnoldfontcmdtrue
4211 \newif\if@jsc@warnoldfontcmdexception
4212 \@jsc@warnoldfontcmdexceptionfalse
4213 %    \end{macrocode}
4214 % \end{macro}
4215 % \end{macro}
4216 %
4217 % \begin{macro}{\jsc@DeclareOldFontCommand}
4218 %    \begin{macrocode}
4219 \newcommand*{\jsc@DeclareOldFontCommand}[3]{%
4220   \DeclareOldFontCommand{#1}{%
4221     \jsc@warnoldfontcmd{#1}#2%
4222   }{%
4223     \jsc@warnoldfontcmd{#1}#3%
4224   }%
4225 }
4226 \DeclareRobustCommand*{\jsc@warnoldfontcmd}[1]{%
4227   \if@jsc@warnoldfontcmdexception\else\if@jsc@warnoldfontcmd
4228   \ClassWarning{\jsc@clsname}{%
4229     deprecated old font command `\string#1' used.\MessageBreak
4230     You should note, that since 1994 LaTeX2e provides a\MessageBreak
4231     new font selection scheme called NFSS2 with several\MessageBreak
4232     new, combinable font commands. This \jsc@clsname\MessageBreak
4233         class has defined the old font commands like\MessageBreak
4234         `\string#1' only for compatibility%
4235   }%
4236   \global\@jsc@warnoldfontcmdfalse
4237   \fi\fi
4238 }
4239 %    \end{macrocode}
4240 % \end{macro}
4241 %
4242 % \begin{macro}{\mc}
4243 % \begin{macro}{\gt}
4244 % \begin{macro}{\rm}
4245 % \begin{macro}{\sf}
4246 % \begin{macro}{\tt}
4247 %
4248 % フォントファミリを変更します。
4249 %
4250 %    \begin{macrocode}
4251 \jsc@DeclareOldFontCommand{\mc}{\normalfont\mcfamily}{\mathmc}
4252 \jsc@DeclareOldFontCommand{\gt}{\normalfont\gtfamily}{\mathgt}
4253 \jsc@DeclareOldFontCommand{\rm}{\normalfont\rmfamily}{\mathrm}
4254 \jsc@DeclareOldFontCommand{\sf}{\normalfont\sffamily}{\mathsf}
4255 \jsc@DeclareOldFontCommand{\tt}{\normalfont\ttfamily}{\mathtt}
4256 %    \end{macrocode}
4257 % \end{macro}
4258 % \end{macro}
4259 % \end{macro}
4260 % \end{macro}
4261 % \end{macro}
4262 %
4263 % \begin{macro}{\bf}
4264 %
4265 % ボールドシリーズにします。通常のミーディアムシリーズに戻す
4266 % コマンドは |\mdseries| です。
4267 %
4268 %    \begin{macrocode}
4269 \jsc@DeclareOldFontCommand{\bf}{\normalfont\bfseries}{\mathbf}
4270 %    \end{macrocode}
4271 % \end{macro}
4272 %
4273 % \begin{macro}{\it}
4274 % \begin{macro}{\sl}
4275 % \begin{macro}{\sc}
4276 %
4277 % フォントシェイプを変えるコマンドです。
4278 % 斜体とスモールキャップスは数式中では何もしません
4279 % （警告メッセージを出力します）。
4280 % 通常のアップライト体に戻すコマンドは |\upshape| です。
4281 %
4282 %    \begin{macrocode}
4283 \jsc@DeclareOldFontCommand{\it}{\normalfont\itshape}{\mathit}
4284 \jsc@DeclareOldFontCommand{\sl}{\normalfont\slshape}{\@nomath\sl}
4285 \jsc@DeclareOldFontCommand{\sc}{\normalfont\scshape}{\@nomath\sc}
4286 %    \end{macrocode}
4287 % \end{macro}
4288 % \end{macro}
4289 % \end{macro}
4290 %
4291 % \begin{macro}{\cal}
4292 % \begin{macro}{\mit}
4293 %
4294 % 数式モード以外では何もしません（警告を出します）。
4295 %
4296 %    \begin{macrocode}
4297 \DeclareRobustCommand*{\cal}{\@fontswitch\relax\mathcal}
4298 \DeclareRobustCommand*{\mit}{\@fontswitch\relax\mathnormal}
4299 %    \end{macrocode}
4300 % \end{macro}
4301 % \end{macro}
4302 %
4303 % \section{相互参照}
4304 %
4305 % \subsection{目次の類}
4306 %
4307 % |\section| コマンドは |.toc| ファイルに次のような行を出力します。
4308 % \begin{quote}
4309 %   |\contentsline{section}{タイトル}{ページ}|
4310 % \end{quote}
4311 % たとえば |\section| に見出し番号が付く場合，上の「タイトル」は
4312 % \begin{quote}
4313 %   |\numberline{番号}{見出し}|
4314 % \end{quote}
4315 % となります。
4316 % この「番号」は |\thesection| コマンドで生成された見出し番号です。
4317 %
4318 % |figure| 環境の |\caption| コマンドは |.lof| ファイルに
4319 % 次のような行を出力します。
4320 % \begin{quote}
4321 % |\contentsline{figure}{\numberline{番号}{キャプション}{ページ}|
4322 % \end{quote}
4323 % この「番号」は |\thefigure| コマンドで生成された図番号です。
4324 %
4325 % |table| 環境も同様です。
4326 %
4327 % |\contentsline{...}| は |\l@...| というコマンドを実行するので，
4328 % あらかじめ |\l@chapter|，|\l@section|，|\l@figure| などを
4329 % 定義しておかなければなりません。
4330 % これらの多くは |\@dottedtocline| コマンドを使って定義します。
4331 % これは
4332 % \begin{quote}
4333 %   |\@dottedtocline{レベル}{インデント}{幅}{タイトル}{ページ}|
4334 % \end{quote}
4335 % という書式です。
4336 % \begin{description}
4337 % \item[レベル] この値が |tocdepth| 以下のときだけ出力されます。
4338 %   |\chapter| はレベル0，|\section| はレベル1，等々です。
4339 % \item[インデント] 左側の字下げ量です。
4340 % \item[幅] 「タイトル」に |\numberline| コマンドが含まれる場合，
4341 %   節番号が入る箱の幅です。
4342 % \end{description}
4343 %
4344 % \begin{macro}{\@pnumwidth}
4345 %
4346 % ページ番号の入る箱の幅です。
4347 %
4348 % \begin{macro}{\@tocrmarg}
4349 %
4350 % 右マージンです。
4351 % |\@tocrmarg| $\ge$ |\@pnumwidth| とします。
4352 %
4353 % \begin{macro}{\@dotsep}
4354 %
4355 % 点の間隔です（単位 mu）。
4356 %
4357 % \begin{macro}{\c@tocdepth}
4358 %
4359 % 目次ページに出力する見出しレベルです。
4360 % 元は \texttt{article} で3，その他で2でしたが，
4361 % ここでは一つずつ減らしています。
4362 %
4363 %    \begin{macrocode}
4364 \newcommand\@pnumwidth{1.55em}
4365 \newcommand\@tocrmarg{2.55em}
4366 \newcommand\@dotsep{4.5}
4367 %<!book>\setcounter{tocdepth}{2}
4368 %<book>\setcounter{tocdepth}{1}
4369 %    \end{macrocode}
4370 % \end{macro}
4371 % \end{macro}
4372 % \end{macro}
4373 % \end{macro}
4374 %
4375 % \paragraph{目次}
4376 %
4377 % \begin{macro}{\tableofcontents}
4378 %
4379 % 目次を生成します。
4380 %
4381 % \begin{macro}{\jsc@tocl@width}
4382 %
4383 % [2013-12-30] |\prechaptername| などから見積もった目次のラベルの長さです。(by ts)
4384 %
4385 %    \begin{macrocode}
4386 \newdimen\jsc@tocl@width
4387 \newcommand{\tableofcontents}{%
4388 %<*book>
4389   \settowidth\jsc@tocl@width{\headfont\prechaptername\postchaptername}%
4390   \settowidth\@tempdima{\headfont\appendixname}%
4391   \ifdim\jsc@tocl@width<\@tempdima \setlength\jsc@tocl@width{\@tempdima}\fi
4392   \ifdim\jsc@tocl@width<2\zw \divide\jsc@tocl@width by 2 \advance\jsc@tocl@width 1\zw\fi
4393   \if@twocolumn
4394     \@restonecoltrue\onecolumn
4395   \else
4396     \@restonecolfalse
4397   \fi
4398   \chapter*{\contentsname}%
4399   \@mkboth{\contentsname}{}%
4400 %</book>
4401 %<*!book>
4402   \settowidth\jsc@tocl@width{\headfont\presectionname\postsectionname}%
4403   \settowidth\@tempdima{\headfont\appendixname}%
4404   \ifdim\jsc@tocl@width<\@tempdima\relax\setlength\jsc@tocl@width{\@tempdima}\fi
4405   \ifdim\jsc@tocl@width<2\zw \divide\jsc@tocl@width by 2 \advance\jsc@tocl@width 1\zw\fi
4406   \section*{\contentsname}%
4407   \@mkboth{\contentsname}{\contentsname}%
4408 %</!book>
4409   \@starttoc{toc}%
4410 %<book>  \if@restonecol\twocolumn\fi
4411 }
4412 %    \end{macrocode}
4413 % \end{macro}\end{macro}
4414 %
4415 % \begin{macro}{\l@part}
4416 %
4417 % 部の目次です。
4418 %
4419 %    \begin{macrocode}
4420 \newcommand*{\l@part}[2]{%
4421   \ifnum \c@tocdepth >-2\relax
4422 %<!book>    \addpenalty\@secpenalty
4423 %<book>    \addpenalty{-\@highpenalty}%
4424     \addvspace{2.25em \@plus\jsc@mpt}%
4425     \begingroup
4426       \parindent \z@
4427 %     \@pnumwidth should be \@tocrmarg
4428 %     \rightskip \@pnumwidth
4429       \rightskip \@tocrmarg
4430       \parfillskip -\rightskip
4431       {\leavevmode
4432         \large \headfont
4433         \setlength\@lnumwidth{4\zw}%
4434         #1\hfil \hb@xt@\@pnumwidth{\hss #2}}\par
4435       \nobreak
4436 %<book>    \global\@nobreaktrue
4437 %<book>    \everypar{\global\@nobreakfalse\everypar{}}%
4438     \endgroup
4439   \fi}
4440 %    \end{macrocode}
4441 % \end{macro}
4442 %
4443 % \begin{macro}{\l@chapter}
4444 %
4445 % 章の目次です。|\@lnumwidth| を |4.683\zw| に増やしました。
4446 %
4447 % [2013-12-30] |\@lnumwidth| を |\jsc@tocl@width| から
4448 % 決めるようにしてみました。(by ts)
4449 %
4450 %    \begin{macrocode}
4451 %<*book>
4452 \newcommand*{\l@chapter}[2]{%
4453   \ifnum \c@tocdepth >\m@ne
4454     \addpenalty{-\@highpenalty}%
4455     \addvspace{1.0em \@plus\jsc@mpt}
4456 %   \vskip 1.0em \@plus\p@   % book.clsでは↑がこうなっている
4457     \begingroup
4458       \parindent\z@
4459 %     \rightskip\@pnumwidth
4460       \rightskip\@tocrmarg
4461       \parfillskip-\rightskip
4462       \leavevmode\headfont
4463       % \if@english\setlength\@lnumwidth{5.5em}\else\setlength\@lnumwidth{4.683\zw}\fi
4464       \setlength\@lnumwidth{\jsc@tocl@width}\advance\@lnumwidth 2.683\zw
4465       \advance\leftskip\@lnumwidth \hskip-\leftskip
4466       #1\nobreak\hfil\nobreak\hbox to\@pnumwidth{\hss#2}\par
4467       \penalty\@highpenalty
4468     \endgroup
4469   \fi}
4470 %</book>
4471 %    \end{macrocode}
4472 % \end{macro}
4473 %
4474 % \begin{macro}{\l@section}
4475 %
4476 % 節の目次です。
4477 %
4478 %    \begin{macrocode}
4479 %<*!book>
4480 \newcommand*{\l@section}[2]{%
4481   \ifnum \c@tocdepth >\z@
4482     \addpenalty{\@secpenalty}%
4483     \addvspace{1.0em \@plus\jsc@mpt}%
4484     \begingroup
4485       \parindent\z@
4486 %     \rightskip\@pnumwidth
4487       \rightskip\@tocrmarg
4488       \parfillskip-\rightskip
4489       \leavevmode\headfont
4490       %\setlength\@lnumwidth{4\zw}% 元1.5em [2003-03-02]
4491       \setlength\@lnumwidth{\jsc@tocl@width}\advance\@lnumwidth 2\zw
4492       \advance\leftskip\@lnumwidth \hskip-\leftskip
4493       #1\nobreak\hfil\nobreak\hbox to\@pnumwidth{\hss#2}\par
4494     \endgroup
4495   \fi}
4496 %</!book>
4497 %    \end{macrocode}
4498 %
4499 % インデントと幅はそれぞれ1.5em，2.3emでしたが，
4500 % |1\zw|，|3.683\zw|に変えました。
4501 %
4502 %    \begin{macrocode}
4503 %<book> % \newcommand*{\l@section}{\@dottedtocline{1}{1\zw}{3.683\zw}}
4504 %    \end{macrocode}
4505 %
4506 % [2013-12-30] 上のインデントは |\jsc@tocl@width| から決めるように
4507 % しました。(by ts)
4508 %
4509 % \end{macro}
4510 %
4511 % \begin{macro}{\l@subsection}
4512 % \begin{macro}{\l@subsubsection}
4513 % \begin{macro}{\l@paragraph}
4514 % \begin{macro}{\l@subparagraph}
4515 %
4516 % さらに下位レベルの目次項目の体裁です。
4517 % あまり使ったことがありませんので，要修正かもしれません。
4518 %
4519 % [2013-12-30] ここも  |\jsc@tocl@width| から決めるように
4520 % してみました。(by ts)
4521 %
4522 %    \begin{macrocode}
4523 %<*!book>
4524 % \newcommand*{\l@subsection}   {\@dottedtocline{2}{1.5em}{2.3em}}
4525 % \newcommand*{\l@subsubsection}{\@dottedtocline{3}{3.8em}{3.2em}}
4526 % \newcommand*{\l@paragraph}    {\@dottedtocline{4}{7.0em}{4.1em}}
4527 % \newcommand*{\l@subparagraph} {\@dottedtocline{5}{10em}{5em}}
4528 %
4529 % \newcommand*{\l@subsection}   {\@dottedtocline{2}{1\zw}{3\zw}}
4530 % \newcommand*{\l@subsubsection}{\@dottedtocline{3}{2\zw}{3\zw}}
4531 % \newcommand*{\l@paragraph}    {\@dottedtocline{4}{3\zw}{3\zw}}
4532 % \newcommand*{\l@subparagraph} {\@dottedtocline{5}{4\zw}{3\zw}}
4533 %
4534 \newcommand*{\l@subsection}{%
4535           \@tempdima\jsc@tocl@width \advance\@tempdima -1\zw
4536           \@dottedtocline{2}{\@tempdima}{3\zw}}
4537 \newcommand*{\l@subsubsection}{%
4538           \@tempdima\jsc@tocl@width \advance\@tempdima 0\zw
4539           \@dottedtocline{3}{\@tempdima}{4\zw}}
4540 \newcommand*{\l@paragraph}{%
4541           \@tempdima\jsc@tocl@width \advance\@tempdima 1\zw
4542           \@dottedtocline{4}{\@tempdima}{5\zw}}
4543 \newcommand*{\l@subparagraph}{%
4544           \@tempdima\jsc@tocl@width \advance\@tempdima 2\zw
4545           \@dottedtocline{5}{\@tempdima}{6\zw}}
4546 %</!book>
4547 %<*book>
4548 % \newcommand*{\l@subsection}   {\@dottedtocline{2}{3.8em}{3.2em}}
4549 % \newcommand*{\l@subsubsection}{\@dottedtocline{3}{7.0em}{4.1em}}
4550 % \newcommand*{\l@paragraph}    {\@dottedtocline{4}{10em}{5em}}
4551 % \newcommand*{\l@subparagraph} {\@dottedtocline{5}{12em}{6em}}
4552 \newcommand*{\l@section}{%
4553           \@tempdima\jsc@tocl@width \advance\@tempdima -1\zw
4554           \@dottedtocline{1}{\@tempdima}{3.683\zw}}
4555 \newcommand*{\l@subsection}{%
4556           \@tempdima\jsc@tocl@width \advance\@tempdima 2.683\zw
4557           \@dottedtocline{2}{\@tempdima}{3.5\zw}}
4558 \newcommand*{\l@subsubsection}{%
4559           \@tempdima\jsc@tocl@width \advance\@tempdima 6.183\zw
4560           \@dottedtocline{3}{\@tempdima}{4.5\zw}}
4561 \newcommand*{\l@paragraph}{%
4562           \@tempdima\jsc@tocl@width \advance\@tempdima 10.683\zw
4563           \@dottedtocline{4}{\@tempdima}{5.5\zw}}
4564 \newcommand*{\l@subparagraph}{%
4565           \@tempdima\jsc@tocl@width \advance\@tempdima 16.183\zw
4566           \@dottedtocline{5}{\@tempdima}{6.5\zw}}
4567 %</book>
4568 %    \end{macrocode}
4569 % \end{macro}
4570 % \end{macro}
4571 % \end{macro}
4572 % \end{macro}
4573 %
4574 % \begin{macro}{\numberline}
4575 % \begin{macro}{\@lnumwidth}
4576 %
4577 % 欧文版\LaTeX では |\numberline{...}| は幅 |\@tempdima| の箱に左詰め
4578 % で出力する命令ですが，
4579 % アスキー版では |\@tempdima| の代わりに |\@lnumwidth| という変数
4580 % で幅を決めるように再定義しています。
4581 % 後続文字が全角か半角かでスペースが変わらないように |\hspace|
4582 % を入れておきました。
4583 %
4584 %    \begin{macrocode}
4585 \newdimen\@lnumwidth
4586 \def\numberline#1{\hb@xt@\@lnumwidth{#1\hfil}\hspace{0pt}}
4587 %    \end{macrocode}
4588 % \end{macro}
4589 % \end{macro}
4590 %
4591 % \begin{macro}{\@dottedtocline}
4592 %
4593 % \LaTeX 本体（\texttt{ltsect.dtx} 参照）での定義と同じですが，
4594 % |\@tempdima| を |\@lnumwidth| に変えています。
4595 %
4596 %    \begin{macrocode}
4597 \def\@dottedtocline#1#2#3#4#5{\ifnum #1>\c@tocdepth \else
4598   \vskip \z@ \@plus.2\jsc@mpt
4599   {\leftskip #2\relax \rightskip \@tocrmarg \parfillskip -\rightskip
4600     \parindent #2\relax\@afterindenttrue
4601    \interlinepenalty\@M
4602    \leavevmode
4603    \@lnumwidth #3\relax
4604    \advance\leftskip \@lnumwidth \null\nobreak\hskip -\leftskip
4605     {#4}\nobreak
4606     \leaders\hbox{$\m@th \mkern \@dotsep mu\hbox{.}\mkern \@dotsep
4607        mu$}\hfill \nobreak\hb@xt@\@pnumwidth{%
4608          \hfil\normalfont \normalcolor #5}\par}\fi}
4609 %    \end{macrocode}
4610 % \end{macro}
4611 %
4612 % \paragraph{図目次と表目次}
4613 %
4614 % \begin{macro}{\listoffigures}
4615 %
4616 % 図目次を出力します。
4617 %
4618 %    \begin{macrocode}
4619 \newcommand{\listoffigures}{%
4620 %<*book>
4621   \if@twocolumn\@restonecoltrue\onecolumn
4622   \else\@restonecolfalse\fi
4623   \chapter*{\listfigurename}%
4624   \@mkboth{\listfigurename}{}%
4625 %</book>
4626 %<*!book>
4627   \section*{\listfigurename}%
4628   \@mkboth{\listfigurename}{\listfigurename}%
4629 %</!book>
4630   \@starttoc{lof}%
4631 %<book>  \if@restonecol\twocolumn\fi
4632 }
4633 %    \end{macrocode}
4634 % \end{macro}
4635 %
4636 % \begin{macro}{\l@figure}
4637 %
4638 % 図目次の項目を出力します。
4639 %
4640 %    \begin{macrocode}
4641 \newcommand*{\l@figure}{\@dottedtocline{1}{1\zw}{3.683\zw}}
4642 %    \end{macrocode}
4643 % \end{macro}
4644 %
4645 % \begin{macro}{\listoftables}
4646 %
4647 % 表目次を出力します。
4648 %
4649 %    \begin{macrocode}
4650 \newcommand{\listoftables}{%
4651 %<*book>
4652   \if@twocolumn\@restonecoltrue\onecolumn
4653   \else\@restonecolfalse\fi
4654   \chapter*{\listtablename}%
4655   \@mkboth{\listtablename}{}%
4656 %</book>
4657 %<*!book>
4658   \section*{\listtablename}%
4659   \@mkboth{\listtablename}{\listtablename}%
4660 %</!book>
4661   \@starttoc{lot}%
4662 %<book>  \if@restonecol\twocolumn\fi
4663 }
4664 %    \end{macrocode}
4665 % \end{macro}
4666 %
4667 % \begin{macro}{\l@table}
4668 %
4669 % 表目次は図目次と同じです。
4670 %
4671 %    \begin{macrocode}
4672 \let\l@table\l@figure
4673 %    \end{macrocode}
4674 % \end{macro}
4675 %
4676 % \subsection{参考文献}
4677 %
4678 % \begin{macro}{\bibindent}
4679 %
4680 % オープンスタイルの参考文献で使うインデント幅です。
4681 % 元は 1.5em でした。
4682 %
4683 %    \begin{macrocode}
4684 \newdimen\bibindent
4685 \setlength\bibindent{2\zw}
4686 %    \end{macrocode}
4687 % \end{macro}
4688 %
4689 % \begin{environment}{thebibliography}
4690 %
4691 % 参考文献リストを出力します。
4692 %
4693 % [2016-07-16] \LaTeX~2.09で使われていたフォントコマンドの警告を，
4694 % 文献スタイル（.bst）ではよく |\bf| がいまだに用いられることが多いため，
4695 % |thebibliography| 環境内では例外的に出さないようにしました。
4696 %
4697 %    \begin{macrocode}
4698 \newenvironment{thebibliography}[1]{%
4699   \global\@jsc@warnoldfontcmdexceptiontrue
4700   \global\let\presectionname\relax
4701   \global\let\postsectionname\relax
4702 %<article|jspf>  \section*{\refname}\@mkboth{\refname}{\refname}%
4703 %<*kiyou>
4704   \vspace{1.5\baselineskip}
4705   \subsubsection*{\refname}\@mkboth{\refname}{\refname}%
4706   \vspace{0.5\baselineskip}
4707 %</kiyou>
4708 %<book>  \chapter*{\bibname}\@mkboth{\bibname}{}%
4709 %<book>  \addcontentsline{toc}{chapter}{\bibname}%
4710    \list{\@biblabel{\@arabic\c@enumiv}}%
4711         {\settowidth\labelwidth{\@biblabel{#1}}%
4712          \leftmargin\labelwidth
4713          \advance\leftmargin\labelsep
4714          \@openbib@code
4715          \usecounter{enumiv}%
4716          \let\p@enumiv\@empty
4717          \renewcommand\theenumiv{\@arabic\c@enumiv}}%
4718 %<kiyou>   \small
4719    \sloppy
4720    \clubpenalty4000
4721    \@clubpenalty\clubpenalty
4722    \widowpenalty4000%
4723    \sfcode`\.\@m}
4724   {\def\@noitemerr
4725     {\@latex@warning{Empty `thebibliography' environment}}%
4726    \endlist
4727    \global\@jsc@warnoldfontcmdexceptionfalse}
4728 %    \end{macrocode}
4729 % \end{environment}
4730 %
4731 % \begin{macro}{\newblock}
4732 %
4733 % |\newblock| はデフォルトでは小さなスペースを生成します。
4734 %
4735 %    \begin{macrocode}
4736 \newcommand{\newblock}{\hskip .11em\@plus.33em\@minus.07em}
4737 %    \end{macrocode}
4738 % \end{macro}
4739 %
4740 % \begin{macro}{\@openbib@code}
4741 %
4742 % |\@openbib@code| はデフォルトでは何もしません。
4743 % この定義は |openbib| オプションによって変更されます。
4744 %
4745 %    \begin{macrocode}
4746 \let\@openbib@code\@empty
4747 %    \end{macrocode}
4748 % \end{macro}
4749 %
4750 % \begin{macro}{\@biblabel}
4751 %
4752 % |\bibitem[...]| のラベルを作ります。
4753 % \texttt{ltbibl.dtx} の定義の半角 [] を全角［］に変え，
4754 % 余分なスペースが入らないように |\inhibitglue| ではさみました。
4755 % とりあえずコメントアウトしておきますので，必要に応じて生かしてください。
4756 %
4757 %    \begin{macrocode}
4758 % \def\@biblabel#1{\inhibitglue［#1］\inhibitglue}
4759 %    \end{macrocode}
4760 % \end{macro}
4761 %
4762 % \begin{macro}{\cite}
4763 % \begin{macro}{\@cite}
4764 % \begin{macro}{\@citex}
4765 %
4766 % 文献の番号を出力する部分は \texttt{ltbibl.dtx} で定義されていますが，
4767 % コンマとかっこを和文フォントにするには次のようにします。
4768 % とりあえずコメントアウトしておきましたので，必要に応じて生かしてください。
4769 % かっこの前後に入るグルーを |\inhibitglue| で取っていますので，
4770 % オリジナル同様，\verb*+Knuth~\cite{knu} + のように半角空白
4771 % で囲んでください。
4772 %
4773 %    \begin{macrocode}
4774 % \def\@citex[#1]#2{\leavevmode
4775 %   \let\@citea\@empty
4776 %   \@cite{\@for\@citeb:=#2\do
4777 %     {\@citea\def\@citea{，\inhibitglue\penalty\@m\ }%
4778 %      \edef\@citeb{\expandafter\@firstofone\@citeb\@empty}%
4779 %      \if@filesw\immediate\write\@auxout{\string\citation{\@citeb}}\fi
4780 %      \@ifundefined{b@\@citeb}{\mbox{\normalfont\bfseries ?}%
4781 %        \G@refundefinedtrue
4782 %        \@latex@warning
4783 %          {Citation `\@citeb' on page \thepage \space undefined}}%
4784 %        {\@cite@ofmt{\csname b@\@citeb\endcsname}}}}{#1}}
4785 % \def\@cite#1#2{\inhibitglue［{#1\if@tempswa ，#2\fi}］\inhibitglue}
4786 %    \end{macrocode}
4787 %
4788 % 引用番号を上ツキの 1）のようなスタイルにするには次のようにします。
4789 % |\cite| の先頭に |\unskip| を付けて先行のスペース（\verb|~| も）
4790 % を帳消しにしています。
4791 %
4792 %    \begin{macrocode}
4793 % \DeclareRobustCommand\cite{\unskip
4794 %   \@ifnextchar [{\@tempswatrue\@citex}{\@tempswafalse\@citex[]}}
4795 % \def\@cite#1#2{$^{\hbox{\scriptsize{#1\if@tempswa
4796 %   ，\inhibitglue\ #2\fi}）}}$}
4797 %    \end{macrocode}
4798 % \end{macro}
4799 % \end{macro}
4800 % \end{macro}
4801 %
4802 % \subsection{索引}
4803 %
4804 % \begin{environment}{theindex}
4805 %
4806 % 2〜3段組の索引を作成します。
4807 % 最後が偶数ページのときにマージンがずれる現象を直しました（Thanks: 藤村さん）。
4808 %
4809 %    \begin{macrocode}
4810 \newenvironment{theindex}{% 索引を3段組で出力する環境
4811     \if@twocolumn
4812       \onecolumn\@restonecolfalse
4813     \else
4814       \clearpage\@restonecoltrue
4815     \fi
4816     \columnseprule.4pt \columnsep 2\zw
4817     \ifx\multicols\@undefined
4818 %<book>      \twocolumn[\@makeschapterhead{\indexname}%
4819 %<book>      \addcontentsline{toc}{chapter}{\indexname}]%
4820 %<!book>      \def\presectionname{}\def\postsectionname{}%
4821 %<!book>      \twocolumn[\section*{\indexname}]%
4822     \else
4823       \ifdim\textwidth<\fullwidth
4824         \setlength{\evensidemargin}{\oddsidemargin}
4825         \setlength{\textwidth}{\fullwidth}
4826         \setlength{\linewidth}{\fullwidth}
4827 %<book>        \begin{multicols}{3}[\chapter*{\indexname}%
4828 %<book>        \addcontentsline{toc}{chapter}{\indexname}]%
4829 %<!book>        \def\presectionname{}\def\postsectionname{}%
4830 %<!book>        \begin{multicols}{3}[\section*{\indexname}]%
4831       \else
4832 %<book>        \begin{multicols}{2}[\chapter*{\indexname}%
4833 %<book>        \addcontentsline{toc}{chapter}{\indexname}]%
4834 %<!book>        \def\presectionname{}\def\postsectionname{}%
4835 %<!book>        \begin{multicols}{2}[\section*{\indexname}]%
4836       \fi
4837     \fi
4838 %<book>    \@mkboth{\indexname}{}%
4839 %<!book>    \@mkboth{\indexname}{\indexname}%
4840     \plainifnotempty % \thispagestyle{plain}
4841     \parindent\z@
4842     \parskip\z@ \@plus .3\jsc@mpt\relax
4843     \let\item\@idxitem
4844     \raggedright
4845     \footnotesize\narrowbaselines
4846   }{
4847     \ifx\multicols\@undefined
4848       \if@restonecol\onecolumn\fi
4849     \else
4850       \end{multicols}
4851     \fi
4852     \clearpage
4853   }
4854 %    \end{macrocode}
4855 % \end{environment}
4856 %
4857 % \begin{macro}{\@idxitem}
4858 % \begin{macro}{\subitem}
4859 % \begin{macro}{\subsubitem}
4860 %
4861 % 索引項目の字下げ幅です。|\@idxitem| は |\item| の項目の字下げ幅です。
4862 %
4863 %    \begin{macrocode}
4864 \newcommand{\@idxitem}{\par\hangindent 4\zw} % 元 40pt
4865 \newcommand{\subitem}{\@idxitem \hspace*{2\zw}} % 元 20pt
4866 \newcommand{\subsubitem}{\@idxitem \hspace*{3\zw}} % 元 30pt
4867 %    \end{macrocode}
4868 % \end{macro}
4869 % \end{macro}
4870 % \end{macro}
4871 %
4872 % \begin{macro}{\indexspace}
4873 %
4874 % 索引で先頭文字ごとのブロックの間に入るスペースです。
4875 %
4876 %    \begin{macrocode}
4877 \newcommand{\indexspace}{\par \vskip 10\jsc@mpt \@plus5\jsc@mpt \@minus3\jsc@mpt\relax}
4878 %    \end{macrocode}
4879 % \end{macro}
4880 %
4881 % \begin{macro}{\seename}
4882 % \begin{macro}{\alsoname}
4883 %
4884 % 索引の |\see|，|\seealso| コマンドで出力されるものです。
4885 % デフォルトはそれぞれ \emph{see}，\emph{see also} という英語ですが，
4886 % ここではとりあえず両方とも「→」に変えました。
4887 % $\Rightarrow$（|$\Rightarrow$|）などでもいいでしょう。
4888 %
4889 %    \begin{macrocode}
4890 \newcommand\seename{\if@english see\else →\fi}
4891 \newcommand\alsoname{\if@english see also\else →\fi}
4892 %    \end{macrocode}
4893 % \end{macro}
4894 % \end{macro}
4895 %
4896 % \subsection{脚注}
4897 %
4898 % \begin{macro}{\footnote}
4899 % \begin{macro}{\footnotemark}
4900 %
4901 % 和文の句読点・閉じかっこ類の直後で用いた際に
4902 % 余分なアキが入るのを防ぐため，
4903 % |\inhibitglue| を入れることにします。
4904 %
4905 %    \begin{macrocode}
4906 \let\footnotes@ve=\footnote
4907 \def\footnote{\inhibitglue\footnotes@ve}
4908 \let\footnotemarks@ve=\footnotemark
4909 \def\footnotemark{\inhibitglue\footnotemarks@ve}
4910 %    \end{macrocode}
4911 % \end{macro}
4912 % \end{macro}
4913 %
4914 % \begin{macro}{\@makefnmark}
4915 %
4916 % 脚注番号を付ける命令です。
4917 % ここでは脚注番号の前に記号 $*$ を付けています。
4918 % 「注1」の形式にするには |\textasteriskcentered|
4919 %  を |注\kern0.1em| にしてください。
4920 % |\@xfootnotenext| と合わせて，
4921 % もし脚注番号が空なら記号も出力しないようにしてあります。
4922 %
4923 % [2002-04-09] インプリメントの仕方を変えたため消しました。
4924 %
4925 % [2013-04-23] 新しい\pTeX では脚注番号のまわりにスペースが入りすぎることを防ぐため，
4926 % 北川さんのパッチ [qa:57090] を取り込みました。
4927 %
4928 % [2013-05-14] plcore.ltx に倣った形に書き直しました（Thanks: 北川さん）。
4929 %
4930 % [2014-07-02 LTJ] |\ifydir| を使わない形に書換えました。
4931 %
4932 % [2016-07-11] コミュニティ版p\LaTeX の変更に追随しました（Thanks: 角藤さん）。
4933 %
4934 % [2016-08-27 LTJ] 結果的に |\@makefnmark| の定義が
4935 % Lua\TeX-ja本体(lltjcore.sty)中のものと全く同じになっていたので，削除します，
4936 % \end{macro}
4937 %
4938 % \begin{macro}{\thefootnote}
4939 %
4940 % 脚注番号に * 印が付くようにしました。
4941 % ただし，番号がゼロのときは * 印も脚注番号も付きません。
4942 %
4943 % [2003-08-15] |\textasteriskcentered| ではフォントによって
4944 % 下がりすぎるので変更しました。
4945 %
4946 % [2016-10-08] TODO: 脚注番号が |newtxtext| や |newpxtext| の使用時に
4947 % おかしくなってしまいます。これらのパッケージは内部で |\thefootnote| を
4948 % 再定義していますので，気になる場合はパッケージを読み込むときに
4949 % \texttt{defaultsups} オプションを付けてください(qa:57284, qa:57287)。
4950 %
4951 %    \begin{macrocode}
4952 \def\thefootnote{\ifnum\c@footnote>\z@\leavevmode\lower.5ex\hbox{*}\@arabic\c@footnote\fi}
4953 %    \end{macrocode}
4954 %
4955 % 「注1」の形式にするには次のようにしてください。
4956 %
4957 %    \begin{macrocode}
4958 % \def\thefootnote{\ifnum\c@footnote>\z@注\kern0.1\zw\@arabic\c@footnote\fi}
4959 %    \end{macrocode}
4960 %
4961 % \end{macro}
4962 %
4963 % \begin{macro}{\footnoterule}
4964 %
4965 % 本文と脚注の間の罫線です。
4966 %
4967 %    \begin{macrocode}
4968 \renewcommand{\footnoterule}{%
4969   \kern-3\jsc@mpt
4970   \hrule width .4\columnwidth height 0.4\jsc@mpt
4971   \kern 2.6\jsc@mpt}
4972 %    \end{macrocode}
4973 % \end{macro}
4974 %
4975 % \begin{macro}{\c@footnote}
4976 %
4977 % 脚注番号は章ごとにリセットされます。
4978 %
4979 %    \begin{macrocode}
4980 %<book>\@addtoreset{footnote}{chapter}
4981 %    \end{macrocode}
4982 % \end{macro}
4983 %
4984 % \begin{macro}{\@footnotetext}
4985 %
4986 % 脚注で |\verb| が使えるように改変してあります。
4987 % Jeremy Gibbons, \textit{\TeX\ and TUG NEWS},
4988 %  Vol.~2, No.~4 (1993), p.~9）
4989 %
4990 %    \begin{macrocode}
4991 \long\def\@footnotetext{%
4992   \insert\footins\bgroup
4993     \normalfont\footnotesize
4994     \interlinepenalty\interfootnotelinepenalty
4995     \splittopskip\footnotesep
4996     \splitmaxdepth \dp\strutbox \floatingpenalty \@MM
4997     \hsize\columnwidth \@parboxrestore
4998     \protected@edef\@currentlabel{%
4999        \csname p@footnote\endcsname\@thefnmark
5000     }%
5001     \color@begingroup
5002       \@makefntext{%
5003         \rule\z@\footnotesep\ignorespaces}%
5004       \futurelet\next\fo@t}
5005 \def\fo@t{\ifcat\bgroup\noexpand\next \let\next\f@@t
5006                                 \else \let\next\f@t\fi \next}
5007 \def\f@@t{\bgroup\aftergroup\@foot\let\next}
5008 \def\f@t#1{#1\@foot}
5009 \def\@foot{\@finalstrut\strutbox\color@endgroup\egroup}
5010 %    \end{macrocode}
5011 % \end{macro}
5012 %
5013 % \begin{macro}{\@makefntext}
5014 %
5015 % 実際に脚注を出力する命令です。
5016 % |\@makefnmark| は脚注の番号を出力する命令です。
5017 % ここでは脚注が左端から一定距離に来るようにしてあります。
5018 %
5019 %    \begin{macrocode}
5020 \newcommand\@makefntext[1]{%
5021   \advance\leftskip 3\zw
5022   \parindent 1\zw
5023   \noindent
5024   \llap{\@makefnmark\hskip0.3\zw}#1}
5025 %    \end{macrocode}
5026 % \end{macro}
5027 %
5028 % \begin{macro}{\@xfootnotenext}
5029 %
5030 % 最初の |\footnotetext{...}| は番号が付きません。
5031 % 著者の所属などを脚注の欄に書くときに便利です。
5032 %
5033 % すでに |\footnote| を使った後なら |\footnotetext[0]{...}|
5034 % とすれば番号を付けない脚注になります。
5035 % ただし，この場合は脚注番号がリセットされてしまうので，
5036 % 工夫が必要です。
5037 %
5038 % [2002-04-09] インプリメントの仕方を変えたため消しました。
5039 %
5040 %    \begin{macrocode}
5041 % \def\@xfootnotenext[#1]{%
5042 %   \begingroup
5043 %      \ifnum#1>\z@
5044 %        \csname c@\@mpfn\endcsname #1\relax
5045 %        \unrestored@protected@xdef\@thefnmark{\thempfn}%
5046 %      \else
5047 %        \unrestored@protected@xdef\@thefnmark{}%
5048 %      \fi
5049 %   \endgroup
5050 %   \@footnotetext}
5051 %    \end{macrocode}
5052 % \end{macro}
5053 %
5054 % \section{段落の頭へのグルー挿入禁止}
5055 %
5056 % 段落頭のかぎかっこなどを見かけ1字半下げから全角1字下げに直します。
5057 %
5058 % [2012-04-24 LTJ] Lua\TeX-jaではJFMに段落開始時の括弧類の字下げ幅をコントロール
5059 % する機能がありますが，|\item| 直後ではラベル用のボックスが段落先頭になる
5060 % ため，うまく働きませんでした。形を変えて復活させます。
5061 %
5062 % |\item| 命令の直後です。
5063 %
5064 %    \begin{macrocode}
5065 \protected\def\@inhibitglue{\directlua{luatexja.jfmglue.create_beginpar_node()}}
5066 \def\@item[#1]{%
5067   \if@noparitem
5068     \@donoparitem
5069   \else
5070     \if@inlabel
5071       \indent \par
5072     \fi
5073     \ifhmode
5074       \unskip\unskip \par
5075     \fi
5076     \if@newlist
5077       \if@nobreak
5078         \@nbitem
5079       \else
5080         \addpenalty\@beginparpenalty
5081         \addvspace\@topsep
5082         \addvspace{-\parskip}%
5083       \fi
5084     \else
5085       \addpenalty\@itempenalty
5086       \addvspace\itemsep
5087     \fi
5088     \global\@inlabeltrue
5089   \fi
5090   \everypar{%
5091     \@minipagefalse
5092     \global\@newlistfalse
5093     \if@inlabel
5094       \global\@inlabelfalse
5095       {\setbox\z@\lastbox
5096        \ifvoid\z@
5097          \kern-\itemindent
5098        \fi}%
5099       \box\@labels
5100       \penalty\z@
5101     \fi
5102     \if@nobreak
5103       \@nobreakfalse
5104       \clubpenalty \@M
5105     \else
5106       \clubpenalty \@clubpenalty
5107       \everypar{}%
5108     \fi\@inhibitglue}%
5109   \if@noitemarg
5110     \@noitemargfalse
5111     \if@nmbrlist
5112       \refstepcounter\@listctr
5113     \fi
5114   \fi
5115   \sbox\@tempboxa{\makelabel{#1}}%
5116   \global\setbox\@labels\hbox{%
5117     \unhbox\@labels
5118     \hskip \itemindent
5119     \hskip -\labelwidth
5120     \hskip -\labelsep
5121     \ifdim \wd\@tempboxa >\labelwidth
5122       \box\@tempboxa
5123     \else
5124       \hbox to\labelwidth {\unhbox\@tempboxa}%
5125     \fi
5126     \hskip \labelsep}%
5127   \ignorespaces}
5128 %    \end{macrocode}
5129 %
5130 % |\@gnewline| についてはちょっと複雑な心境です。
5131 % もともとのp\LaTeXe は段落の頭にグルーが入る方で統一されていました。
5132 % しかし |\\| の直後にはグルーが入らず，不統一でした。
5133 % そこで |\\| の直後にもグルーを入れるように直していただいた経緯があります。
5134 % しかし，ここでは逆にグルーを入れない方で統一したいので，
5135 % また元に戻してしまいました。
5136 %
5137 % しかし単に戻すだけでも駄目みたいなので，ここでも最後にグルーを消しておきます。
5138 %
5139 % [2016-12-05 LTJ] 本家[2016-11-29]，lltjcore.styでの変更に追従させます．
5140 %
5141 %    \begin{macrocode}
5142 \def\@gnewline #1{%
5143   \ifvmode
5144     \@nolnerr
5145   \else
5146 %<article|book>    \unskip \reserved@e {\reserved@f#1}\nobreak \hfil \break \hskip\z@
5147 %<jspf|kiyou>    \unskip \reserved@e {\reserved@f#1}\nobreak \hfil \break \null
5148     \inhibitglue \ignorespaces
5149   \fi}
5150 %    \end{macrocode}
5151 %
5152 % \section{いろいろなロゴ}
5153 %
5154 % \LaTeX 関連のロゴを作り直します。
5155 %
5156 % [2016-07-14] ロゴの定義は\texttt{jslogo}パッケージに移転しました。
5157 % 後方互換のため，\texttt{jsclasses}ではデフォルトでこれを読み込みます。
5158 %
5159 % \texttt{nojslogo}オプションが指定されている場合は読み込みません。
5160 %
5161 % [2016-07-21 LTJ] \texttt{jsclasses} とLua\TeX-jaの更新タイミングが一致しない可能性を考慮し，
5162 % \texttt{jslogo}パッケージが存在しない場合は旧来の定義をそのまま使うことにしました。
5163 %
5164 %    \begin{macrocode}
5165 \IfFileExists{jslogo.sty}{}{\@jslogofalse}%
5166 \if@jslogo
5167   \RequirePackage{jslogo}
5168   \def\小{\jslg@small}
5169   \def\上小{\jslg@uppersmall}
5170 \else
5171 %    \end{macrocode}
5172 %
5173 % 以下は\texttt{jslogo}パッケージがない場合の定義です。
5174 %
5175 % \begin{macro}{\小}
5176 % \begin{macro}{\上小}
5177 %
5178 % 文字を小さめに出したり上寄りに小さめに出したりする命令です。
5179 %
5180 %    \begin{macrocode}
5181 \def\小#1{\hbox{$\m@th$%
5182   \csname S@\f@size\endcsname
5183   \fontsize\sf@size\z@
5184   \math@fontsfalse\selectfont
5185   #1}}
5186 \def\上小#1{{\sbox\z@ T\vbox to\ht0{\小{#1}\vss}}}
5187 %    \end{macrocode}
5188 % \end{macro}
5189 % \end{macro}
5190 %
5191 % \begin{macro}{\TeX}
5192 % \begin{macro}{\LaTeX}
5193 %
5194 % これらは \texttt{ltlogos.dtx} で定義されていますが，
5195 % TimesやHelveticaでも見栄えがするように若干変更しました。
5196 %
5197 % [2003-06-12] Palatinoも加えました（要調整）。
5198 %
5199 %    \begin{macrocode}
5200 \def\cmrTeX{%
5201   \ifdim \fontdimen\@ne\font >\z@
5202     T\kern-.25em\lower.5ex\hbox{E}\kern-.125emX\@
5203   \else
5204     T\kern-.1667em\lower.5ex\hbox{E}\kern-.125emX\@
5205   \fi}
5206 \def\cmrLaTeX{%
5207   \ifdim \fontdimen\@ne\font >\z@
5208     L\kern-.32em\上小{A}\kern-.22em\cmrTeX
5209   \else
5210     L\kern-.36em\上小{A}\kern-.15em\cmrTeX
5211   \fi}
5212 \def\sfTeX{T\kern-.1em\lower.4ex\hbox{E}\kern-.07emX\@}
5213 \def\sfLaTeX{L\kern-.25em\上小{A}\kern-.08em\sfTeX}
5214 \def\ptmTeX{%
5215   \ifdim \fontdimen\@ne\font >\z@
5216     T\kern-.12em\lower.37ex\hbox{E}\kern-.02emX\@
5217   \else
5218     T\kern-.07em\lower.37ex\hbox{E}\kern-.05emX\@
5219   \fi}
5220 \def\ptmLaTeX{%
5221   \ifdim \fontdimen\@ne\font >\z@
5222     L\kern-.2em\上小{A}\kern-.1em\ptmTeX
5223   \else
5224     L\kern-.3em\上小{A}\kern-.1em\ptmTeX
5225   \fi}
5226 \def\pncTeX{%
5227   \ifdim \fontdimen\@ne\font >\z@
5228     T\kern-.2em\lower.5ex\hbox{E}\kern-.08emX\@
5229   \else
5230     T\kern-.13em\lower.5ex\hbox{E}\kern-.13emX\@
5231   \fi}
5232 \def\pncLaTeX{%
5233   \ifdim \fontdimen\@ne\font >\z@
5234     L\kern-.3em\上小{A}\kern-.1em\pncTeX
5235   \else
5236     L\kern-.3em\上小{A}\kern-.1em\pncTeX
5237   \fi}
5238 \def\pplTeX{%
5239   \ifdim \fontdimen\@ne\font >\z@
5240     T\kern-.17em\lower.32ex\hbox{E}\kern-.15emX\@
5241   \else
5242     T\kern-.12em\lower.34ex\hbox{E}\kern-.1emX\@
5243   \fi}
5244 \def\pplLaTeX{%
5245   \ifdim \fontdimen\@ne\font >\z@
5246     L\kern-.27em\上小{A}\kern-.12em\pplTeX
5247   \else
5248     L\kern-.3em\上小{A}\kern-.15em\pplTeX
5249   \fi}
5250 \def\ugmTeX{%
5251   \ifdim \fontdimen\@ne\font >\z@
5252     T\kern-.1em\lower.32ex\hbox{E}\kern-.06emX\@
5253   \else
5254     T\kern-.12em\lower.34ex\hbox{E}\kern-.1emX\@
5255   \fi}
5256 \def\ugmLaTeX{%
5257   \ifdim \fontdimen\@ne\font >\z@
5258     L\kern-.2em\上小{A}\kern-.13em\ugmTeX
5259   \else
5260     L\kern-.3em\上小{A}\kern-.13em\ugmTeX
5261   \fi}
5262 \DeclareRobustCommand{\TeX}{%
5263   \def\@tempa{cmr}%
5264   \ifx\f@family\@tempa\cmrTeX
5265   \else
5266     \def\@tempa{ptm}%
5267     \ifx\f@family\@tempa\ptmTeX
5268     \else
5269       \def\@tempa{txr}%
5270       \ifx\f@family\@tempa\ptmTeX
5271       \else
5272         \def\@tempa{pnc}%
5273         \ifx\f@family\@tempa\pncTeX
5274         \else
5275           \def\@tempa{ppl}%
5276           \ifx\f@family\@tempa\pplTeX
5277           \else
5278             \def\@tempa{ugm}%
5279             \ifx\f@family\@tempa\ugmTeX
5280             \else\sfTeX
5281             \fi
5282           \fi
5283         \fi
5284       \fi
5285     \fi
5286   \fi}
5287
5288 \DeclareRobustCommand{\LaTeX}{%
5289   \def\@tempa{cmr}%
5290   \ifx\f@family\@tempa\cmrLaTeX
5291   \else
5292     \def\@tempa{ptm}%
5293     \ifx\f@family\@tempa\ptmLaTeX
5294     \else
5295       \def\@tempa{txr}%
5296       \ifx\f@family\@tempa\ptmLaTeX
5297       \else
5298         \def\@tempa{pnc}%
5299         \ifx\f@family\@tempa\pncLaTeX
5300         \else
5301           \def\@tempa{ppl}%
5302           \ifx\f@family\@tempa\pplLaTeX
5303           \else
5304             \def\@tempa{ugm}%
5305             \ifx\f@family\@tempa\ugmLaTeX
5306             \else\sfLaTeX
5307             \fi
5308           \fi
5309         \fi
5310       \fi
5311     \fi
5312   \fi}
5313 %    \end{macrocode}
5314 %
5315 % \end{macro}
5316 % \end{macro}
5317 %
5318 % \begin{macro}{\LaTeXe}
5319 %
5320 % |\LaTeXe| コマンドの |\mbox{\m@th ...| で始まる新しい定義では
5321 % 直後の和文との間に |xkanjiskip| が入りません。また，
5322 % |mathptmx| パッケージなどと併用すると，最後の $\varepsilon$ が
5323 % 下がりすぎてしまいます。そのため，ちょっと手を加えました。
5324 %
5325 %    \begin{macrocode}
5326 \DeclareRobustCommand{\LaTeXe}{$\mbox{%
5327   \if b\expandafter\@car\f@series\@nil\boldmath\fi
5328   \LaTeX\kern.15em2\raisebox{-.37ex}{$\textstyle\varepsilon$}}$}
5329 %    \end{macrocode}
5330 % \end{macro}
5331 %
5332 % \begin{macro}{\pTeX}
5333 % \begin{macro}{\pLaTeX}
5334 % \begin{macro}{\pLaTeXe}
5335 %
5336 % \pTeX ，\pLaTeXe のロゴを出す命令です。
5337 %
5338 %    \begin{macrocode}
5339 \def\pTeX{p\kern-.05em\TeX}
5340 \def\pLaTeX{p\LaTeX}
5341 \def\pLaTeXe{p\LaTeXe}
5342 %    \end{macrocode}
5343 %
5344 % \end{macro}
5345 % \end{macro}
5346 % \end{macro}
5347 %
5348 % \begin{macro}{\AmSTeX}
5349 %
5350 % \texttt{amstex.sty} で定義されています。
5351 %
5352 %    \begin{macrocode}
5353 \def\AmSTeX{\protect\AmS-\protect\TeX{}}
5354 %    \end{macrocode}
5355 %
5356 % \end{macro}
5357 %
5358 % \begin{macro}{\BibTeX}
5359 % \begin{macro}{\SliTeX}
5360 %
5361 % これらは \texttt{doc.dtx} から取ったものです。
5362 % ただし，|\BibTeX| だけはちょっと修正しました。
5363 %
5364 %    \begin{macrocode}
5365 % \@ifundefined{BibTeX}
5366 %    {\def\BibTeX{{\rmfamily B\kern-.05em%
5367 %     \textsc{i\kern-.025em b}\kern-.08em%
5368 %     T\kern-.1667em\lower.7ex\hbox{E}\kern-.125emX}}}{}
5369 \DeclareRobustCommand{\BibTeX}{B\kern-.05em\小{I\kern-.025em B}%
5370   \ifx\f@family\cmr\kern-.08em\else\kern-.15em\fi\TeX}
5371 \DeclareRobustCommand{\SliTeX}{%
5372   S\kern-.06emL\kern-.18em\上小{I}\kern -.03em\TeX}
5373 %    \end{macrocode}
5374 % \end{macro}
5375 % \end{macro}
5376 %
5377 % \texttt{jslogo}パッケージがない場合の定義はここで終わりです。
5378 %    \begin{macrocode}
5379 \fi
5380 %    \end{macrocode}
5381 %
5382 % \section{初期設定}
5383 %
5384 % \paragraph{いろいろな語}
5385 %
5386 % \begin{macro}{\prepartname}
5387 % \begin{macro}{\postpartname}
5388 % \begin{macro}{\prechaptername}
5389 % \begin{macro}{\postchaptername}
5390 % \begin{macro}{\presectionname}
5391 % \begin{macro}{\postsectionname}
5392 %    \begin{macrocode}
5393 \newcommand{\prepartname}{\if@english Part~\else 第\fi}
5394 \newcommand{\postpartname}{\if@english\else 部\fi}
5395 %<book>\newcommand{\prechaptername}{\if@english Chapter~\else 第\fi}
5396 %<book>\newcommand{\postchaptername}{\if@english\else 章\fi}
5397 \newcommand{\presectionname}{}%  第
5398 \newcommand{\postsectionname}{}% 節
5399 %    \end{macrocode}
5400 % \end{macro}
5401 % \end{macro}
5402 % \end{macro}
5403 % \end{macro}
5404 % \end{macro}
5405 % \end{macro}
5406 %
5407 % \begin{macro}{\contentsname}
5408 % \begin{macro}{\listfigurename}
5409 % \begin{macro}{\listtablename}
5410 %    \begin{macrocode}
5411 \newcommand{\contentsname}{\if@english Contents\else 目次\fi}
5412 \newcommand{\listfigurename}{\if@english List of Figures\else 図目次\fi}
5413 \newcommand{\listtablename}{\if@english List of Tables\else 表目次\fi}
5414 %    \end{macrocode}
5415 % \end{macro}
5416 % \end{macro}
5417 % \end{macro}
5418 %
5419 % \begin{macro}{\refname}
5420 % \begin{macro}{\bibname}
5421 % \begin{macro}{\indexname}
5422 %    \begin{macrocode}
5423 \newcommand{\refname}{\if@english References\else 参考文献\fi}
5424 \newcommand{\bibname}{\if@english Bibliography\else 参考文献\fi}
5425 \newcommand{\indexname}{\if@english Index\else 索引\fi}
5426 %    \end{macrocode}
5427 % \end{macro}
5428 % \end{macro}
5429 % \end{macro}
5430 %
5431 % \begin{macro}{\figurename}
5432 % \begin{macro}{\tablename}
5433 %    \begin{macrocode}
5434 %<!jspf>\newcommand{\figurename}{\if@english Fig.~\else 図\fi}
5435 %<jspf>\newcommand{\figurename}{Fig.~}
5436 %<!jspf>\newcommand{\tablename}{\if@english Table~\else 表\fi}
5437 %<jspf>\newcommand{\tablename}{Table~}
5438 %    \end{macrocode}
5439 % \end{macro}
5440 % \end{macro}
5441 %
5442 % \begin{macro}{\appendixname}
5443 % \begin{macro}{\abstractname}
5444 %    \begin{macrocode}
5445 % \newcommand{\appendixname}{\if@english Appendix~\else 付録\fi}
5446 \newcommand{\appendixname}{\if@english \else 付録\fi}
5447 %<!book>\newcommand{\abstractname}{\if@english Abstract\else 概要\fi}
5448 %    \end{macrocode}
5449 % \end{macro}
5450 % \end{macro}
5451 %
5452 % \paragraph{今日の日付}
5453 %
5454 % \LaTeX で処理した日付を出力します。
5455 % |ltjarticle| などと違って，標準を西暦にし，余分な空白が入らないように改良しました。
5456 % 和暦にするには |\和暦| と書いてください。
5457 %
5458 % \begin{macro}{\today}
5459 %    \begin{macrocode}
5460 \newif\if西暦 \西暦true
5461 \def\西暦{\西暦true}
5462 \def\和暦{\西暦false}
5463 \newcount\heisei \heisei\year \advance\heisei-1988\relax
5464 \def\today{%
5465   \if@english
5466     \ifcase\month\or
5467       January\or February\or March\or April\or May\or June\or
5468       July\or August\or September\or October\or November\or December\fi
5469       \space\number\day, \number\year
5470   \else
5471     \if西暦
5472       \number\year 年
5473       \number\month 月
5474       \number\day 日
5475     \else
5476       平成\number\heisei 年
5477       \number\month 月
5478       \number\day 日
5479     \fi
5480   \fi}
5481 %    \end{macrocode}
5482 % \end{macro}
5483 %
5484 % \paragraph{ハイフネーション例外}
5485 %
5486 % \TeX のハイフネーションルールの補足です（ペンディング：eng-lish）
5487 %
5488 %    \begin{macrocode}
5489 \hyphenation{ado-be post-script ghost-script phe-nom-e-no-log-i-cal man-u-script}
5490 %    \end{macrocode}
5491 %
5492 % \paragraph{ページ設定}
5493 %
5494 % ページ設定の初期化です。
5495 %
5496 %    \begin{macrocode}
5497 %<article|kiyou>\if@slide \pagestyle{empty} \else \pagestyle{plain} \fi
5498 %<book>\if@report \pagestyle{plain} \else \pagestyle{headings} \fi
5499 %<jspf>\pagestyle{headings}
5500 \pagenumbering{arabic}
5501 \if@twocolumn
5502   \twocolumn
5503   \sloppy
5504   \flushbottom
5505 \else
5506   \onecolumn
5507   \raggedbottom
5508 \fi
5509 \if@slide
5510   \renewcommand\kanjifamilydefault{\gtdefault}
5511   \renewcommand\familydefault{\sfdefault}
5512   \raggedright
5513   \ltj@setpar@global
5514   \ltjsetxkanjiskip0.1em\relax
5515 \fi
5516 %    \end{macrocode}
5517 %
5518 % 以上です。
5519 %
5520 % \Finale
5521 %
5522 \endinput