src/ltjspf.cls

   1 %%
   2 %% This is file `ltjspf.cls',
   3 %% generated with the docstrip utility.
   4 %%
   5 %% The original source files were:
   6 %%
   7 %% ltjsclasses.dtx  (with options: `jspf')
   8 %%
   9 %% IMPORTANT NOTICE:
  10 %%
  11 %% For the copyright see the source file.
  12 %%
  13 %% Any modified versions of this file must be renamed
  14 %% with new filenames distinct from ltjspf.cls.
  15 %%
  16 %% For distribution of the original source see the terms
  17 %% for copying and modification in the file ltjsclasses.dtx.
  18 %%
  19 %% This generated file may be distributed as long as the
  20 %% original source files, as listed above, are part of the
  21 %% same distribution. (The sources need not necessarily be
  22 %% in the same archive or directory.)
  23 %% File: ltjsclasses.dtx
  24 %% \CharacterTable
  25 %%  {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
  26 %%   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
  27 %%   Digits        \0\1\2\3\4\5\6\7\8\9
  28 %%   Exclamation   \!     Double quote  \"     Hash (number) \#
  29 %%   Dollar        \$     Percent       \%     Ampersand     \&
  30 %%   Acute accent  \'     Left paren    \(     Right paren   \)
  31 %%   Asterisk      \*     Plus          \+     Comma         \,
  32 %%   Minus         \-     Point         \.     Solidus       \/
  33 %%   Colon         \:     Semicolon     \;     Less than     \<
  34 %%   Equals        \=     Greater than  \>     Question mark \?
  35 %%   Commercial at \@     Left bracket  \[     Backslash     \\
  36 %%   Right bracket \]     Circumflex    \^     Underscore    \_
  37 %%   Grave accent  \`     Left brace    \{     Vertical bar  \|
  38 %%   Right brace   \}     Tilde         \~}
  39 \NeedsTeXFormat{LaTeX2e}
  40 \ProvidesClass{ltjspf}
  41   [2016/07/15 ltjsclasses ]
  42 \RequirePackage{luatexja}
  43 \newif\if@restonecol
  44 \newif\if@titlepage
  45 \newif\if@enablejfam \@enablejfamtrue
  46 \DeclareOption{a3paper}{%
  47   \setlength\paperheight {420mm}%
  48   \setlength\paperwidth  {297mm}}
  49 \DeclareOption{a4paper}{%
  50   \setlength\paperheight {297mm}%
  51   \setlength\paperwidth  {210mm}}
  52 \DeclareOption{a5paper}{%
  53   \setlength\paperheight {210mm}%
  54   \setlength\paperwidth  {148mm}}
  55 \DeclareOption{a6paper}{%
  56   \setlength\paperheight {148mm}%
  57   \setlength\paperwidth  {105mm}}
  58 \DeclareOption{b4paper}{%
  59   \setlength\paperheight {364mm}%
  60   \setlength\paperwidth  {257mm}}
  61 \DeclareOption{b5paper}{%
  62   \setlength\paperheight {257mm}%
  63   \setlength\paperwidth  {182mm}}
  64 \DeclareOption{b6paper}{%
  65   \setlength\paperheight {182mm}%
  66   \setlength\paperwidth  {128mm}}
  67 \DeclareOption{a4j}{%
  68   \setlength\paperheight {297mm}%
  69   \setlength\paperwidth  {210mm}}
  70 \DeclareOption{a5j}{%
  71   \setlength\paperheight {210mm}%
  72   \setlength\paperwidth  {148mm}}
  73 \DeclareOption{b4j}{%
  74   \setlength\paperheight {364mm}%
  75   \setlength\paperwidth  {257mm}}
  76 \DeclareOption{b5j}{%
  77   \setlength\paperheight {257mm}%
  78   \setlength\paperwidth  {182mm}}
  79 \DeclareOption{a4var}{%
  80   \setlength\paperheight {283mm}%
  81   \setlength\paperwidth  {210mm}}
  82 \DeclareOption{b5var}{%
  83   \setlength\paperheight {230mm}%
  84   \setlength\paperwidth  {182mm}}
  85 \DeclareOption{letterpaper}{%
  86   \setlength\paperheight {11in}%
  87   \setlength\paperwidth  {8.5in}}
  88 \DeclareOption{legalpaper}{%
  89   \setlength\paperheight {14in}%
  90   \setlength\paperwidth  {8.5in}}
  91 \DeclareOption{executivepaper}{%
  92   \setlength\paperheight {10.5in}%
  93   \setlength\paperwidth  {7.25in}}
  94 \newif\if@landscape
  95 \@landscapefalse
  96 \DeclareOption{landscape}{\@landscapetrue}
  97 \newif\if@slide
  98 \@slidefalse
  99 \def\jsc@magscale{1}
 100 \DeclareOption{slide}{\@slidetrue\def\jsc@magscale{3.583}\@landscapetrue\@titlepagetrue}
 101 \DeclareOption{8pt} {\def\jsc@magscale{0.83}}% 1.2^(-1)
 102 \DeclareOption{9pt} {\def\jsc@magscale{0.913}}% 1.2^(-0.5}
 103 \DeclareOption{10pt}{\def\jsc@magscale{1}}
 104 \DeclareOption{11pt}{\def\jsc@magscale{1.095}}% 1.2^0.5
 105 \DeclareOption{12pt}{\def\jsc@magscale{1.200}}
 106 \DeclareOption{14pt}{\def\jsc@magscale{1.440}}
 107 \DeclareOption{17pt}{\def\jsc@magscale{1.728}}
 108 \DeclareOption{20pt}{\def\jsc@magscale{2}}
 109 \DeclareOption{21pt}{\def\jsc@magscale{2.074}}
 110 \DeclareOption{25pt}{\def\jsc@magscale{2.488}}
 111 \DeclareOption{30pt}{\def\jsc@magscale{2.986}}
 112 \DeclareOption{36pt}{\def\jsc@magscale{3.583}}
 113 \DeclareOption{43pt}{\def\jsc@magscale{4.300}}
 114 \DeclareOption{12Q} {\def\jsc@magscale{0.923}}% 1pt*12Q/13Q
 115 \DeclareOption{14Q} {\def\jsc@magscale{1.077}}% 1pt*14Q/13Q
 116 \DeclareOption{10ptj}{\def\jsc@magscale{1.085}}% 1pt*10bp/13Q
 117 \DeclareOption{10.5ptj}{\def\jsc@magscale{1.139}}
 118 \DeclareOption{11ptj}{\def\jsc@magscale{1.194}}
 119 \DeclareOption{12ptj}{\def\jsc@magscale{1.302}}
 120 \newif\if@ltjs@mag@xreal
 121 \@ltjs@mag@xrealtrue
 122 \DeclareOption{nomag*}{\@ltjs@mag@xrealtrue}
 123 \DeclareOption{nomag}{\@ltjs@mag@xrealfalse}
 124 \DeclareOption{noxreal}{\@ltjs@mag@xrealfalse}
 125 \DeclareOption{real}{\@ltjs@mag@xrealfalse}
 126 \hour\time \divide\hour by 60\relax
 127 \@tempcnta\hour \multiply\@tempcnta 60\relax
 128 \minute\time \advance\minute-\@tempcnta
 129 \DeclareOption{tombow}{%
 130   \tombowtrue \tombowdatetrue
 131   \setlength{\@tombowwidth}{.1\p@}%
 132   \@bannertoken{%
 133      \jobname\space(\number\year-\two@digits\month-\two@digits\day
 134      \space\two@digits\hour:\two@digits\minute)}%
 135   \maketombowbox}
 136 \DeclareOption{tombo}{%
 137   \tombowtrue \tombowdatefalse
 138   \setlength{\@tombowwidth}{.1\p@}%
 139   \maketombowbox}
 140 \DeclareOption{mentuke}{%
 141   \tombowtrue \tombowdatefalse
 142   \setlength{\@tombowwidth}{\z@}%
 143   \maketombowbox}
 144 \DeclareOption{oneside}{\@twosidefalse \@mparswitchfalse}
 145 \DeclareOption{twoside}{\@twosidetrue \@mparswitchtrue}
 146 \DeclareOption{vartwoside}{\@twosidetrue \@mparswitchfalse}
 147 \DeclareOption{onecolumn}{\@twocolumnfalse}
 148 \DeclareOption{twocolumn}{\@twocolumntrue}
 149 \DeclareOption{titlepage}{\@titlepagetrue}
 150 \DeclareOption{notitlepage}{\@titlepagefalse}
 151 \def\eqnarray{%
 152    \stepcounter{equation}%
 153    \def\@currentlabel{\p@equation\theequation}%
 154    \global\@eqnswtrue
 155    \m@th
 156    \global\@eqcnt\z@
 157    \tabskip\@centering
 158    \let\\\@eqncr
 159    $$\everycr{}\halign to\displaywidth\bgroup
 160        \hskip\@centering$\displaystyle\tabskip\z@skip{##}$\@eqnsel
 161       &\global\@eqcnt\@ne \hfil$\displaystyle{{}##{}}$\hfil
 162       &\global\@eqcnt\tw@ $\displaystyle{##}$\hfil\tabskip\@centering
 163       &\global\@eqcnt\thr@@ \hb@xt@\z@\bgroup\hss##\egroup
 164          \tabskip\z@skip
 165       \cr}
 166 \DeclareOption{leqno}{\input{leqno.clo}}
 167 \DeclareOption{fleqn}{\input{fleqn.clo}%
 168   \def\eqnarray{%
 169     \stepcounter{equation}%
 170     \def\@currentlabel{\p@equation\theequation}%
 171     \global\@eqnswtrue\m@th
 172     \global\@eqcnt\z@
 173     \tabskip\mathindent
 174     \let\\=\@eqncr
 175     \setlength\abovedisplayskip{\topsep}%
 176     \ifvmode
 177       \addtolength\abovedisplayskip{\partopsep}%
 178     \fi
 179     \addtolength\abovedisplayskip{\parskip}%
 180     \setlength\belowdisplayskip{\abovedisplayskip}%
 181     \setlength\belowdisplayshortskip{\abovedisplayskip}%
 182     \setlength\abovedisplayshortskip{\abovedisplayskip}%
 183     $$\everycr{}\halign to\linewidth% $$
 184     \bgroup
 185       \hskip\@centering$\displaystyle\tabskip\z@skip{##}$\@eqnsel
 186       &\global\@eqcnt\@ne \hfil$\displaystyle{{}##{}}$\hfil
 187       &\global\@eqcnt\tw@
 188         $\displaystyle{##}$\hfil \tabskip\@centering
 189       &\global\@eqcnt\thr@@ \hb@xt@\z@\bgroup\hss##\egroup
 190     \tabskip\z@skip\cr
 191     }}
 192 \DeclareOption{disablejfam}{%
 193   \ClassWarningNoLine{\@currname}{The class option 'disablejfam' is obsolete}}
 194 \DeclareOption{draft}{\setlength\overfullrule{5pt}}
 195 \DeclareOption{final}{\setlength\overfullrule{0pt}}
 196 \newif\ifmingoth
 197 \mingothfalse
 198 \newif\ifjisfont
 199 \jisfontfalse
 200 \newif\ifptexjis
 201 \ptexjisfalse
 202 \DeclareOption{winjis}{%
 203   \ClassWarningNoLine{\@currname}{The class option 'winjis' is obsolete}}
 204 \DeclareOption{uplatex}{%
 205   \ClassWarningNoLine{\@currname}{The class option 'uplatex' is obsolete}}
 206 \DeclareOption{mingoth}{\mingothtrue}
 207 \DeclareOption{ptexjis}{\ptexjistrue}
 208 \DeclareOption{jis}{\jisfonttrue}
 209 \newif\if@english
 210 \@englishfalse
 211 \DeclareOption{english}{\@englishtrue}
 212 \ExecuteOptions{a4paper,twoside,twocolumn,notitlepage,fleqn,final}
 213 \ProcessOptions
 214 \if@slide
 215   \def\maybeblue{\@ifundefined{ver@color.sty}{}{\color{blue}}}
 216 \fi
 217 \if@landscape
 218   \setlength\@tempdima  {\paperheight}
 219   \setlength\paperheight{\paperwidth}
 220   \setlength\paperwidth {\@tempdima}
 221 \fi
 222 \def\n@baseline{14.554375}
 223 \newdimen\jsc@mpt
 224 \newdimen\jsc@mmm
 225 \jsc@mpt=\jsc@magscale\p@
 226 \jsc@mmm=\jsc@magscale mm
 227 \ifdim\jsc@mpt<.92\p@ % 8pt, 9pt 指定時
 228   \def\n@baseline{15}%
 229 \fi
 230 \newcommand{\@ptsize}{0}
 231 \ifdim\jsc@mpt=1.0954\p@ \renewcommand{\@ptsize}{1}\else
 232 \ifdim\jsc@mpt=1.2\p@    \renewcommand{\@ptsize}{2}\else
 233 \renewcommand{\@ptsize}{-20}\fi\fi
 234 \if@ltjs@mag@xreal\RequirePackage{type1cm}
 235 \ifdim\jsc@mpt=\p@\else
 236   \expandafter\let\csname OT1/cmr/m/n/10\endcsname\relax
 237   \expandafter\let\csname OMX/cmex/m/n/10\endcsname\relax
 238   \newluafunction\ltjs@@magnify@font@calc
 239   \begingroup\catcode`\%=12\relax
 240   \directlua{
 241     local getdimen, mpt=tex.getdimen, tex.getdimen('jsc@mpt')/65536
 242     local t = lua.get_functions_table()
 243     t[\the\ltjs@@magnify@font@calc] = function()
 244       tex.sprint(math.floor(0.5+mpt*getdimen('dimen@')))
 245     end
 246     function luatexja.ltjs_unmagnify_fsize(a)
 247       local s = luatexja.print_scaled(math.floor(0.5+a/mpt*65536))
 248       tex.sprint( (s:match('%.0$')) and s:sub(1,-3) or s )
 249     end
 250   }
 251   \endgroup
 252   \def\ltjs@magnify@external@font#1 at#2 at#3\@nil{%
 253      \def\@tempa{#1}\def\@tempb{#2}%
 254      \ifx\@tempb\@empty
 255         \edef\@tempb{ scaled\directlua{%
 256           tex.sprint(math.floor(0.5+\jsc@magscale*1000))
 257         }}%
 258      \else
 259         \dimen@\@tempb\relax
 260         \edef\@tempb{ at\luafunction\ltjs@@magnify@font@calc sp}%
 261      \fi
 262      \edef\@tempa{\def\noexpand\external@font{\@tempa\@tempb}}%
 263   }
 264   \let\ltjs@orig@get@external@font=\get@external@font
 265   \def\get@external@font{%
 266     \edef\f@size{\directlua{luatexja.ltjs_unmagnify_fsize(\f@size)}}%
 267     \ltjs@orig@get@external@font
 268     \begingroup
 269       \edef\@tempa{\external@font\space at\space at}%
 270       \expandafter\ltjs@magnify@external@font\@tempa\@nil
 271     \expandafter\endgroup\@tempa
 272   }
 273 \fi\fi
 274 \newlength{\stockwidth}
 275 \newlength{\stockheight}
 276 \setlength{\stockwidth}{\paperwidth}
 277 \setlength{\stockheight}{\paperheight}
 278 \iftombow
 279   \advance \stockwidth 2in
 280   \advance \stockheight 2in
 281 \fi
 282 \ifdefined\pdfpagewidth
 283   \setlength{\pdfpagewidth}{\stockwidth}
 284   \setlength{\pdfpageheight}{\stockheight}
 285 \else
 286   \setlength{\pagewidth}{\stockwidth}
 287   \setlength{\pageheight}{\stockheight}
 288 \fi
 289 \expandafter\let\csname JY3/mc/m/n/10\endcsname\relax
 290 \ifmingoth
 291   \DeclareFontShape{JY3}{mc}{m}{n}{<-> s * [0.903375] \ltj@stdmcfont:jfm=min}{}
 292   \DeclareFontShape{JY3}{gt}{m}{n}{<-> s * [0.903375] \ltj@stdgtfont:jfm=min}{}
 293 \else
 294   \ifptexjis
 295     \DeclareFontShape{JY3}{mc}{m}{n}{<-> s * [0.903375] \ltj@stdmcfont:jfm=jis}{}
 296     \DeclareFontShape{JY3}{gt}{m}{n}{<-> s * [0.903375] \ltj@stdgtfont:jfm=jis}{}
 297   \else
 298     \DeclareFontShape{JY3}{mc}{m}{n}{<-> s * [0.903375] \ltj@stdmcfont:jfm=ujis}{}
 299     \DeclareFontShape{JY3}{gt}{m}{n}{<-> s * [0.903375] \ltj@stdgtfont:jfm=ujis}{}
 300   \fi
 301 \fi
 302 \DeclareFontShape{JT3}{mc}{m}{n}{<-> s * [0.903375] \ltj@stdmcfont:jfm=ujisv}{}
 303 \DeclareFontShape{JT3}{gt}{m}{n}{<-> s * [0.903375] \ltj@stdgtfont:jfm=ujisv}{}
 304 \DeclareFontShape{JY3}{mc}{bx}{n}{<->ssub*gt/m/n}{}
 305 \DeclareFontShape{JY3}{gt}{bx}{n}{<->ssub*gt/m/n}{}
 306 \DeclareFontShape{JY3}{mc}{m}{it}{<->ssub*mc/m/n}{}
 307 \DeclareFontShape{JY3}{mc}{m}{sl}{<->ssub*mc/m/n}{}
 308 \DeclareFontShape{JY3}{mc}{m}{sc}{<->ssub*mc/m/n}{}
 309 \DeclareFontShape{JY3}{gt}{m}{it}{<->ssub*gt/m/n}{}
 310 \DeclareFontShape{JY3}{gt}{m}{sl}{<->ssub*gt/m/n}{}
 311 \DeclareFontShape{JY3}{mc}{bx}{it}{<->ssub*gt/m/n}{}
 312 \DeclareFontShape{JY3}{mc}{bx}{sl}{<->ssub*gt/m/n}{}
 313 %% \DeclareFontShape{JT3}{mc}{m}{it}{<->ssub*mc/m/n}{}
 314 %% \DeclareFontShape{JT3}{mc}{m}{sl}{<->ssub*mc/m/n}{}
 315 %% \DeclareFontShape{JT3}{mc}{m}{sc}{<->ssub*mc/m/n}{}
 316 %% \DeclareFontShape{JT3}{gt}{m}{it}{<->ssub*gt/m/n}{}
 317 %% \DeclareFontShape{JT3}{gt}{m}{sl}{<->ssub*gt/m/n}{}
 318 %% \DeclareFontShape{JT3}{mc}{bx}{it}{<->ssub*gt/m/n}{}
 319 %% \DeclareFontShape{JT3}{mc}{bx}{sl}{<->ssub*gt/m/n}{}
 320 \renewcommand\jttdefault{\gtdefault}\@ltj@match@familytrue
 321 %%
 322 \AtBeginDocument{%
 323   \reDeclareMathAlphabet{\mathrm}{\mathrm}{\mathmc}
 324   \reDeclareMathAlphabet{\mathbf}{\mathbf}{\mathgt}}%
 325 \ltjsetparameter{jaxspmode={`！,2}}
 326 \ltjsetparameter{jaxspmode={`〒,1}}
 327 \ltjsetparameter{alxspmode={`+,3}}
 328 \ltjsetparameter{alxspmode={`\%,3}}
 329 \def\@{\spacefactor3000{}}
 330 \def\@setfontsize#1#2#3{%
 331   \ifx\protect\@typeset@protect
 332     \let\@currsize#1%
 333   \fi
 334   \fontsize{#2}{#3}\selectfont
 335   \ifdim\parindent>\z@
 336     \if@english
 337       \parindent=1em
 338     \else
 339       \parindent=1\zw
 340     \fi
 341   \fi
 342   \ltj@setpar@global
 343   \ltjsetkanjiskip\z@ plus .1\zw minus .01\zw
 344   \@tempskipa=\ltjgetparameter{xkanjiskip}
 345   \ifdim\@tempskipa>\z@
 346     \if@slide
 347       \ltjsetxkanjiskip .1em
 348     \else
 349       \ltjsetxkanjiskip .25em plus .15em minus .06em
 350     \fi
 351   \fi}
 352 \def\jsc@setfontsize#1#2#3{%
 353   \@setfontsize#1{#2\jsc@mpt}{#3\jsc@mpt}}
 354 \emergencystretch 3\zw
 355 \newif\ifnarrowbaselines
 356 \if@english
 357   \narrowbaselinestrue
 358 \fi
 359 \def\narrowbaselines{%
 360   \narrowbaselinestrue
 361   \skip0=\abovedisplayskip
 362   \skip2=\abovedisplayshortskip
 363   \skip4=\belowdisplayskip
 364   \skip6=\belowdisplayshortskip
 365   \@currsize\selectfont
 366   \abovedisplayskip=\skip0
 367   \abovedisplayshortskip=\skip2
 368   \belowdisplayskip=\skip4
 369   \belowdisplayshortskip=\skip6\relax}
 370 \def\widebaselines{\narrowbaselinesfalse\@currsize\selectfont}
 371 \def\ltj@@ifnarrowbaselines{%
 372   \ifnarrowbaselines\expandafter\@firstoftwo
 373   \else \expandafter\@secondoftwo
 374   \fi
 375 }
 376 \renewcommand{\normalsize}{%
 377   \ltj@@ifnarrowbaselines
 378     {\jsc@setfontsize\normalsize\@xpt\@xiipt}%
 379     {\jsc@setfontsize\normalsize\@xpt{\n@baseline}}%
 380   \abovedisplayskip 11\jsc@mpt \@plus3\jsc@mpt \@minus4\jsc@mpt
 381   \abovedisplayshortskip \z@ \@plus3\jsc@mpt
 382   \belowdisplayskip 9\jsc@mpt \@plus3\jsc@mpt \@minus4\jsc@mpt
 383   \belowdisplayshortskip \belowdisplayskip
 384   \let\@listi\@listI}
 385 \mcfamily\selectfont\normalsize
 386 \setbox0\hbox{\char"3000}% 全角スペース
 387 \setlength\Cht{\ht0}
 388 \setlength\Cdp{\dp0}
 389 \setlength\Cwd{\wd0}
 390 \setlength\Cvs{\baselineskip}
 391 \setlength\Chs{\wd0}
 392 \newcommand{\small}{%
 393   \ltj@@ifnarrowbaselines
 394     {\jsc@setfontsize\small\@ixpt{11}}%
 395     {\jsc@setfontsize\small\@ixpt{13}}%
 396   \abovedisplayskip 9\jsc@mpt \@plus3\jsc@mpt \@minus4\jsc@mpt
 397   \abovedisplayshortskip  \z@ \@plus3\jsc@mpt
 398   \belowdisplayskip \abovedisplayskip
 399   \belowdisplayshortskip \belowdisplayskip
 400   \def\@listi{\leftmargin\leftmargini
 401               \topsep \z@
 402               \parsep \z@
 403               \itemsep \parsep}}
 404 \newcommand{\footnotesize}{%
 405   \ltj@@ifnarrowbaselines
 406     {\jsc@setfontsize\footnotesize\@viiipt{9.5}}%
 407     {\jsc@setfontsize\footnotesize\@viiipt{11}}%
 408   \abovedisplayskip 6\jsc@mpt \@plus2\jsc@mpt \@minus3\jsc@mpt
 409   \abovedisplayshortskip  \z@ \@plus2\jsc@mpt
 410   \belowdisplayskip \abovedisplayskip
 411   \belowdisplayshortskip \belowdisplayskip
 412   \def\@listi{\leftmargin\leftmargini
 413               \topsep \z@
 414               \parsep \z@
 415               \itemsep \parsep}}
 416 \newcommand{\scriptsize}{\jsc@setfontsize\scriptsize\@viipt\@viiipt}
 417 \newcommand{\tiny}{\jsc@setfontsize\tiny\@vpt\@vipt}
 418 \if@twocolumn
 419   \newcommand{\large}{\jsc@setfontsize\large\@xiipt{\n@baseline}}
 420 \else
 421   \newcommand{\large}{\jsc@setfontsize\large\@xiipt{17}}
 422 \fi
 423 \newcommand{\Large}{\jsc@setfontsize\Large\@xivpt{21}}
 424 \newcommand{\LARGE}{\jsc@setfontsize\LARGE\@xviipt{25}}
 425 \newcommand{\huge}{\jsc@setfontsize\huge\@xxpt{28}}
 426 \newcommand{\Huge}{\jsc@setfontsize\Huge\@xxvpt{33}}
 427 \newcommand{\HUGE}{\jsc@setfontsize\HUGE{30}{40}}
 428 \everydisplay=\expandafter{\the\everydisplay \narrowbaselines}
 429 \newcommand{\headfont}{\gtfamily\sffamily}
 430 \setlength\columnsep{2\zw}
 431 \setlength\columnseprule{\z@}
 432 \setlength\lineskip{1\jsc@mpt}
 433 \setlength\normallineskip{1\jsc@mpt}
 434 \setlength\lineskiplimit{1\jsc@mpt}
 435 \setlength\normallineskiplimit{1\jsc@mpt}
 436 \renewcommand{\baselinestretch}{}
 437 \setlength\parskip{\z@}
 438 \if@slide
 439   \setlength\parindent{0\zw}
 440 \else
 441   \setlength\parindent{1\zw}
 442 \fi
 443 \@lowpenalty   51
 444 \@medpenalty  151
 445 \@highpenalty 301
 446 \setlength\topskip{10\jsc@mpt}
 447 \if@slide
 448   \setlength\headheight{0\jsc@mpt}
 449 \else
 450   \setlength\headheight{2\topskip}
 451 \fi
 452 \setlength\footskip{9\jsc@mmm}
 453 \setlength\headsep{9\jsc@mmm}
 454 \addtolength\headsep{-\topskip}
 455 \setlength\maxdepth{.5\topskip}
 456 \newdimen\fullwidth
 457 \setlength\fullwidth{50\zw}
 458 \addtolength\fullwidth{8\jsc@mmm}
 459 \setlength\textwidth{\fullwidth}
 460 \setlength{\textheight}{51\baselineskip}
 461 \addtolength{\textheight}{\topskip}
 462 \addtolength{\textheight}{0.1\jsc@mpt}
 463 \setlength{\mathindent}{10\jsc@mmm}
 464 \setlength\marginparsep{\columnsep}
 465 \setlength\marginparpush{\baselineskip}
 466 \setlength{\oddsidemargin}{\paperwidth}
 467 \addtolength{\oddsidemargin}{-\fullwidth}
 468 \setlength{\oddsidemargin}{.5\oddsidemargin}
 469 \addtolength{\oddsidemargin}{-1in}
 470 \setlength{\evensidemargin}{\oddsidemargin}
 471 \if@mparswitch
 472   \addtolength{\evensidemargin}{\fullwidth}
 473   \addtolength{\evensidemargin}{-\textwidth}
 474 \fi
 475 \setlength\marginparwidth{\paperwidth}
 476 \addtolength\marginparwidth{-\oddsidemargin}
 477 \addtolength\marginparwidth{-1in}
 478 \addtolength\marginparwidth{-\textwidth}
 479 \addtolength\marginparwidth{-10\jsc@mmm}
 480 \addtolength\marginparwidth{-\marginparsep}
 481 \@tempdima=1\zw
 482 \divide\marginparwidth\@tempdima
 483 \multiply\marginparwidth\@tempdima
 484 \setlength\topmargin{\paperheight}
 485 \addtolength\topmargin{-\textheight}
 486 \if@slide
 487   \addtolength\topmargin{-\headheight}
 488 \else
 489   \addtolength\topmargin{-\topskip}
 490 \fi
 491 \addtolength\topmargin{-\headsep}
 492 \addtolength\topmargin{-\footskip}
 493 \setlength\topmargin{0.5\topmargin}
 494 \addtolength\topmargin{-1in}
 495 {\footnotesize\global\setlength\footnotesep{\baselineskip}}
 496 \setlength\footnotesep{0.7\footnotesep}
 497 \setlength{\skip\footins}{16\jsc@mpt \@plus 5\jsc@mpt \@minus 2\jsc@mpt}
 498 \setcounter{topnumber}{9}
 499 \renewcommand{\topfraction}{.85}
 500 \setcounter{bottomnumber}{9}
 501 \renewcommand{\bottomfraction}{.8}
 502 \setcounter{totalnumber}{20}
 503 \renewcommand{\textfraction}{.1}
 504 \renewcommand{\floatpagefraction}{.8}
 505 \setcounter{dbltopnumber}{9}
 506 \renewcommand{\dbltopfraction}{.8}
 507 \renewcommand{\dblfloatpagefraction}{.8}
 508 \setlength\floatsep    {12\jsc@mpt \@plus 2\jsc@mpt \@minus 2\jsc@mpt}
 509 \setlength\textfloatsep{20\jsc@mpt \@plus 2\jsc@mpt \@minus 4\jsc@mpt}
 510 \setlength\intextsep   {12\jsc@mpt \@plus 2\jsc@mpt \@minus 2\jsc@mpt}
 511 \setlength\dblfloatsep    {12\jsc@mpt \@plus 2\jsc@mpt \@minus 2\jsc@mpt}
 512 \setlength\dbltextfloatsep{20\jsc@mpt \@plus 2\jsc@mpt \@minus 4\jsc@mpt}
 513 \setlength\@fptop{0\jsc@mpt \@plus 1fil}
 514 \setlength\@fpsep{8\jsc@mpt \@plus 2fil}
 515 \setlength\@fpbot{0\jsc@mpt \@plus 1fil}
 516 \setlength\@dblfptop{0\jsc@mpt \@plus 1fil}
 517 \setlength\@dblfpsep{8\jsc@mpt \@plus 2fil}
 518 \setlength\@dblfpbot{0\jsc@mpt \@plus 1fil}
 519 \def\ps@plainfoot{%
 520   \let\@mkboth\@gobbletwo
 521   \let\@oddhead\@empty
 522   \def\@oddfoot{\normalfont\hfil\thepage\hfil}%
 523   \let\@evenhead\@empty
 524   \let\@evenfoot\@oddfoot}
 525 \def\ps@plainhead{%
 526   \let\@mkboth\@gobbletwo
 527   \let\@oddfoot\@empty
 528   \let\@evenfoot\@empty
 529   \def\@evenhead{%
 530     \if@mparswitch \hss \fi
 531     \hbox to \fullwidth{\textbf{\thepage}\hfil}%
 532     \if@mparswitch\else \hss \fi}%
 533   \def\@oddhead{%
 534     \hbox to \fullwidth{\hfil\textbf{\thepage}}\hss}}
 535 \let\ps@plain\ps@plainfoot
 536 \def\ps@headings{%
 537   \def\@oddfoot{\normalfont\hfil\thepage\hfil}
 538   \def\@evenfoot{\normalfont\hfil\thepage\hfil}
 539   \def\@oddhead{\normalfont\hfil \@title \hfil}
 540   \def\@evenhead{\normalfont\hfil プラズマ・核融合学会誌\hfil}}
 541 \def\ps@myheadings{%
 542   \let\@oddfoot\@empty\let\@evenfoot\@empty
 543   \def\@evenhead{%
 544     \if@mparswitch \hss \fi%
 545     \hbox to \fullwidth{\thepage\hfil\leftmark}%
 546     \if@mparswitch\else \hss \fi}%
 547   \def\@oddhead{%
 548     \hbox to \fullwidth{\rightmark\hfil\thepage}\hss}%
 549   \let\@mkboth\@gobbletwo
 550   \let\sectionmark\@gobble
 551   \let\subsectionmark\@gobble
 552 }
 553 \newcommand*{\etitle}[1]{\gdef\@etitle{#1}}
 554 \newcommand*{\eauthor}[1]{\gdef\@eauthor{#1}}
 555 \newcommand*{\keywords}[1]{\gdef\@keywords{#1}}
 556 \newcommand*{\email}[1]{\gdef\authors@mail{#1}}
 557 \newcommand*{\AuthorsEmail}[1]{\gdef\authors@mail{author's e-mail:\ #1}}
 558 \def\plainifnotempty{%
 559   \ifx \@oddhead \@empty
 560     \ifx \@oddfoot \@empty
 561     \else
 562       \thispagestyle{plainfoot}%
 563     \fi
 564   \else
 565     \thispagestyle{plainhead}%
 566   \fi}
 567 \newcommand{\maketitle}{\par
 568   \begingroup
 569     \renewcommand\thefootnote{\@fnsymbol\c@footnote}%
 570     \def\@makefnmark{\rlap{\@textsuperscript{\normalfont\@thefnmark}}}%
 571     \long\def\@makefntext##1{\advance\leftskip 3\zw
 572       \parindent 1\zw\noindent
 573       \llap{\@textsuperscript{\normalfont\@thefnmark}\hskip0.3\zw}##1}%
 574       \twocolumn[\@maketitle]%
 575     \plainifnotempty
 576     \@thanks
 577   \endgroup
 578   \setcounter{footnote}{0}%
 579   \global\let\thanks\relax
 580   \global\let\maketitle\relax
 581   \global\let\@thanks\@empty
 582   \global\let\@author\@empty
 583   \global\let\@date\@empty
 584   \global\let\title\relax
 585   \global\let\author\relax
 586   \global\let\date\relax
 587   \global\let\and\relax
 588   \ifx\authors@mail\@undefined\else{%
 589     \def\@makefntext{\advance\leftskip 3\zw \parindent -3\zw}%
 590     \footnotetext[0]{\itshape\authors@mail}%
 591   }\fi
 592   \global\let\authors@mail\@undefined}
 593 \def\@maketitle{%
 594   \newpage\null
 595   \vskip 6em % used to be 2em
 596   \begin{center}
 597     \let\footnote\thanks
 598     \ifx\@title\@undefined\else{\LARGE\headfont\@title\par}\fi
 599     \lineskip .5em
 600     \ifx\@author\@undefined\else
 601       \vskip 1em
 602       \begin{tabular}[t]{c}%
 603         \@author
 604       \end{tabular}\par
 605     \fi
 606     \ifx\@etitle\@undefined\else
 607       \vskip 1em
 608       {\large \@etitle \par}%
 609     \fi
 610     \ifx\@eauthor\@undefined\else
 611       \vskip 1em
 612       \begin{tabular}[t]{c}%
 613         \@eauthor
 614       \end{tabular}\par
 615     \fi
 616     \vskip 1em
 617     \@date
 618   \end{center}
 619   \vskip 1.5em
 620   \centerline{\box\@abstractbox}
 621   \ifx\@keywords\@undefined\else
 622     \vskip 1.5em
 623     \centerline{\parbox{157\jsc@mmm}{\textsf{Keywords:}\\ \small\@keywords}}
 624   \fi
 625   \vskip 1.5em}
 626 \def\@startsection#1#2#3#4#5#6{%
 627   \if@noskipsec \leavevmode \fi
 628   \par
 629   \@tempskipa #4\relax
 630   \if@english \@afterindentfalse \else \@afterindenttrue \fi
 631   \ifdim \@tempskipa <\z@
 632     \@tempskipa -\@tempskipa \@afterindentfalse
 633   \fi
 634   \if@nobreak
 635     \everypar{}%
 636   \else
 637     \addpenalty\@secpenalty
 638     \ifdim \@tempskipa >\z@
 639       \if@slide\else
 640         \null
 641         \vspace*{-\baselineskip}%
 642       \fi
 643       \vskip\@tempskipa
 644     \fi
 645   \fi
 646   \noindent
 647   \@ifstar
 648     {\@ssect{#3}{#4}{#5}{#6}}%
 649     {\@dblarg{\@sect{#1}{#2}{#3}{#4}{#5}{#6}}}}
 650 \def\@sect#1#2#3#4#5#6[#7]#8{%
 651   \ifnum #2>\c@secnumdepth
 652     \let\@svsec\@empty
 653   \else
 654     \refstepcounter{#1}%
 655     \protected@edef\@svsec{\@seccntformat{#1}\relax}%
 656   \fi
 657   \@tempskipa #5\relax
 658   \ifdim \@tempskipa<\z@
 659     \def\@svsechd{%
 660       #6{\hskip #3\relax
 661       \@svsec #8}%
 662       \csname #1mark\endcsname{#7}%
 663       \addcontentsline{toc}{#1}{%
 664         \ifnum #2>\c@secnumdepth \else
 665           \protect\numberline{\csname the#1\endcsname}%
 666         \fi
 667         #7}}% 目次にフルネームを載せるなら #8
 668   \else
 669     \begingroup
 670       \interlinepenalty \@M % 下から移動
 671       #6{%
 672         \@hangfrom{\hskip #3\relax\@svsec}%
 673         #8\@@par}%
 674     \endgroup
 675     \csname #1mark\endcsname{#7}%
 676     \addcontentsline{toc}{#1}{%
 677       \ifnum #2>\c@secnumdepth \else
 678         \protect\numberline{\csname the#1\endcsname}%
 679       \fi
 680       #7}% 目次にフルネームを載せるならここは #8
 681   \fi
 682   \@xsect{#5}}
 683 \def\@xsect#1{%
 684   \@tempskipa #1\relax
 685   \ifdim \@tempskipa<\z@
 686     \@nobreakfalse
 687     \global\@noskipsectrue
 688     \everypar{%
 689       \if@noskipsec
 690         \global\@noskipsecfalse
 691        {\setbox\z@\lastbox}%
 692         \clubpenalty\@M
 693         \begingroup \@svsechd \endgroup
 694         \unskip
 695         \@tempskipa #1\relax
 696         \hskip -\@tempskipa\@inhibitglue
 697       \else
 698         \clubpenalty \@clubpenalty
 699         \everypar{}%
 700       \fi}%
 701   \else
 702     \par \nobreak
 703     \vskip \@tempskipa
 704     \@afterheading
 705   \fi
 706   \if@slide
 707     {\vskip-6\jsc@mpt\maybeblue\hrule height0\jsc@mpt depth1\jsc@mpt\vskip7\jsc@mpt\relax}%
 708   \fi
 709   \par  % 2000-12-18
 710   \ignorespaces}
 711 \def\@ssect#1#2#3#4#5{%
 712   \@tempskipa #3\relax
 713   \ifdim \@tempskipa<\z@
 714     \def\@svsechd{#4{\hskip #1\relax #5}}%
 715   \else
 716     \begingroup
 717       #4{%
 718         \@hangfrom{\hskip #1}%
 719           \interlinepenalty \@M #5\@@par}%
 720     \endgroup
 721   \fi
 722   \@xsect{#3}}
 723 \newcommand*\chaptermark[1]{}
 724 \setcounter{secnumdepth}{3}
 725 \newcounter{part}
 726 \newcounter{section}
 727 \newcounter{subsection}[section]
 728 \newcounter{subsubsection}[subsection]
 729 \newcounter{paragraph}[subsubsection]
 730 \newcounter{subparagraph}[paragraph]
 731 \renewcommand{\thepart}{\@Roman\c@part}
 732 % \renewcommand{\thesection}{\@arabic\c@section}
 733 \renewcommand{\thesection}{\presectionname\@arabic\c@section\postsectionname}
 734 \renewcommand{\thesubsection}{\@arabic\c@section.\@arabic\c@subsection}
 735 \renewcommand{\thesubsubsection}{%
 736    \thesubsection.\@arabic\c@subsubsection}
 737 \renewcommand{\theparagraph}{%
 738    \thesubsubsection.\@arabic\c@paragraph}
 739 \renewcommand{\thesubparagraph}{%
 740    \theparagraph.\@arabic\c@subparagraph}
 741 \newcommand\part{%
 742   \if@noskipsec \leavevmode \fi
 743   \par
 744   \addvspace{4ex}%
 745   \if@english \@afterindentfalse \else \@afterindenttrue \fi
 746   \secdef\@part\@spart}
 747 \def\@part[#1]#2{%
 748   \ifnum \c@secnumdepth >\m@ne
 749     \refstepcounter{part}%
 750     \addcontentsline{toc}{part}{%
 751       \prepartname\thepart\postpartname\hspace{1\zw}#1}%
 752   \else
 753     \addcontentsline{toc}{part}{#1}%
 754   \fi
 755   \markboth{}{}%
 756   {\parindent\z@
 757     \raggedright
 758     \interlinepenalty \@M
 759     \normalfont
 760     \ifnum \c@secnumdepth >\m@ne
 761       \Large\headfont\prepartname\thepart\postpartname
 762       \par\nobreak
 763     \fi
 764     \huge \headfont #2%
 765     \markboth{}{}\par}%
 766   \nobreak
 767   \vskip 3ex
 768   \@afterheading}
 769 \def\@spart#1{{%
 770     \parindent \z@ \raggedright
 771     \interlinepenalty \@M
 772     \normalfont
 773     \huge \headfont #1\par}%
 774   \nobreak
 775   \vskip 3ex
 776   \@afterheading}
 777 \if@twocolumn
 778   \newcommand{\section}{%
 779 \ifx\maketitle\relax\else\maketitle\fi
 780     \@startsection{section}{1}{\z@}%
 781     {0.6\Cvs}{0.4\Cvs}%
 782     {\normalfont\large\headfont\raggedright}}
 783 \else
 784   \newcommand{\section}{%
 785     \if@slide\clearpage\fi
 786     \@startsection{section}{1}{\z@}%
 787     {\Cvs \@plus.5\Cdp \@minus.2\Cdp}% 前アキ
 788     {.5\Cvs \@plus.3\Cdp}% 後アキ
 789     {\normalfont\Large\headfont\raggedright}}
 790 \fi
 791 \if@twocolumn
 792   \newcommand{\subsection}{\@startsection{subsection}{2}{\z@}%
 793     {\z@}{\z@}%
 794     {\normalfont\normalsize\headfont}}
 795 \else
 796   \newcommand{\subsection}{\@startsection{subsection}{2}{\z@}%
 797     {\Cvs \@plus.5\Cdp \@minus.2\Cdp}% 前アキ
 798     {.5\Cvs \@plus.3\Cdp}% 後アキ
 799     {\normalfont\large\headfont}}
 800 \fi
 801 \if@twocolumn
 802   \newcommand{\subsubsection}{\@startsection{subsubsection}{3}{\z@}%
 803     {\z@}{\z@}%
 804     {\normalfont\normalsize\headfont}}
 805 \else
 806   \newcommand{\subsubsection}{\@startsection{subsubsection}{3}{\z@}%
 807     {\Cvs \@plus.5\Cdp \@minus.2\Cdp}%
 808     {\z@}%
 809     {\normalfont\normalsize\headfont}}
 810 \fi
 811 \if@twocolumn
 812   \newcommand{\paragraph}{\@startsection{paragraph}{4}{\z@}%
 813     {\z@}{-1\zw}% 改行せず 1\zw のアキ
 814     {\normalfont\normalsize\headfont}}
 815 \else
 816   \newcommand{\paragraph}{\@startsection{paragraph}{4}{\z@}%
 817     {0.5\Cvs \@plus.5\Cdp \@minus.2\Cdp}%
 818     {-1\zw}% 改行せず 1\zw のアキ
 819     {\normalfont\normalsize\headfont}}
 820 \fi
 821 \newcommand{\subparagraph}{\@startsection{subparagraph}{5}{\z@}%
 822    {\z@}{-1\zw}%
 823    {\normalfont\normalsize\headfont}}
 824 \if@slide
 825   \setlength\leftmargini{1\zw}
 826 \else
 827   \if@twocolumn
 828     \setlength\leftmargini{2\zw}
 829   \else
 830     \setlength\leftmargini{3\zw}
 831   \fi
 832 \fi
 833 \if@slide
 834   \setlength\leftmarginii {1\zw}
 835   \setlength\leftmarginiii{1\zw}
 836   \setlength\leftmarginiv {1\zw}
 837   \setlength\leftmarginv  {1\zw}
 838   \setlength\leftmarginvi {1\zw}
 839 \else
 840   \setlength\leftmarginii {2\zw}
 841   \setlength\leftmarginiii{2\zw}
 842   \setlength\leftmarginiv {2\zw}
 843   \setlength\leftmarginv  {1\zw}
 844   \setlength\leftmarginvi {1\zw}
 845 \fi
 846 \setlength  \labelsep  {0.5\zw} % .5em
 847 \setlength  \labelwidth{\leftmargini}
 848 \addtolength\labelwidth{-\labelsep}
 849 \setlength\partopsep{\z@} % {2\p@ \@plus 1\p@ \@minus 1\p@}
 850 \@beginparpenalty -\@lowpenalty
 851 \@endparpenalty   -\@lowpenalty
 852 \@itempenalty     -\@lowpenalty
 853 \def\@listi{\leftmargin\leftmargini
 854   \parsep \z@
 855   \topsep 0.5\baselineskip
 856   \itemsep \z@ \relax}
 857 \let\@listI\@listi
 858 \@listi
 859 \def\@listii{\leftmargin\leftmarginii
 860   \labelwidth\leftmarginii \advance\labelwidth-\labelsep
 861   \topsep \z@
 862   \parsep \z@
 863   \itemsep\parsep}
 864 \def\@listiii{\leftmargin\leftmarginiii
 865   \labelwidth\leftmarginiii \advance\labelwidth-\labelsep
 866   \topsep \z@
 867   \parsep \z@
 868   \itemsep\parsep}
 869 \def\@listiv {\leftmargin\leftmarginiv
 870               \labelwidth\leftmarginiv
 871               \advance\labelwidth-\labelsep}
 872 \def\@listv  {\leftmargin\leftmarginv
 873               \labelwidth\leftmarginv
 874               \advance\labelwidth-\labelsep}
 875 \def\@listvi {\leftmargin\leftmarginvi
 876               \labelwidth\leftmarginvi
 877               \advance\labelwidth-\labelsep}
 878 \renewcommand{\theenumi}{\@arabic\c@enumi}
 879 \renewcommand{\theenumii}{\@alph\c@enumii}
 880 \renewcommand{\theenumiii}{\@roman\c@enumiii}
 881 \renewcommand{\theenumiv}{\@Alph\c@enumiv}
 882 \newcommand{\labelenumi}{\theenumi.}
 883 \newcommand{\labelenumii}{\inhibitglue（\theenumii）\inhibitglue}
 884 \newcommand{\labelenumiii}{\theenumiii.}
 885 \newcommand{\labelenumiv}{\theenumiv.}
 886 \renewcommand{\p@enumii}{\theenumi}
 887 \renewcommand{\p@enumiii}{\theenumi\inhibitglue（\theenumii）}
 888 \renewcommand{\p@enumiv}{\p@enumiii\theenumiii}
 889 \newcommand\labelitemi{\textbullet}
 890 \newcommand\labelitemii{\normalfont\bfseries \textendash}
 891 \newcommand\labelitemiii{\textasteriskcentered}
 892 \newcommand\labelitemiv{\textperiodcentered}
 893 \newenvironment{description}{%
 894   \list{}{%
 895     \labelwidth=\leftmargin
 896     \labelsep=1\zw
 897     \advance \labelwidth by -\labelsep
 898     \let \makelabel=\descriptionlabel}}{\endlist}
 899 \newcommand*\descriptionlabel[1]{\normalfont\headfont #1\hfil}
 900 \newbox\@abstractbox
 901 \newenvironment{abstract}{%
 902   \global\setbox\@abstractbox\hbox\bgroup
 903   \begin{minipage}[b]{157\jsc@mmm}{\sffamily Abstract}\par
 904     \small
 905     \if@english \parindent6\jsc@mmm \else \parindent1\zw \fi}%
 906   {\end{minipage}\egroup}
 907 \newenvironment{verse}{%
 908   \let \\=\@centercr
 909   \list{}{%
 910     \itemsep \z@
 911     \itemindent -2\zw % 元: -1.5em
 912     \listparindent\itemindent
 913     \rightmargin \z@
 914     \advance\leftmargin 2\zw}% 元: 1.5em
 915   \item\relax}{\endlist}
 916 \newenvironment{quotation}{%
 917   \list{}{%
 918     \listparindent\parindent
 919     \itemindent\listparindent
 920     \rightmargin \z@}%
 921   \item\relax}{\endlist}
 922 \newenvironment{quote}%
 923   {\list{}{\rightmargin\z@}\item\relax}{\endlist}
 924 \def\@begintheorem#1#2{\trivlist\labelsep=1\zw
 925    \item[\hskip \labelsep{\headfont #1\ #2}]}
 926 \def\@opargbegintheorem#1#2#3{\trivlist\labelsep=1\zw
 927       \item[\hskip \labelsep{\headfont #1\ #2（#3）}]}
 928 \newenvironment{titlepage}{%
 929     \if@twocolumn
 930       \@restonecoltrue\onecolumn
 931     \else
 932       \@restonecolfalse\newpage
 933     \fi
 934     \thispagestyle{empty}%
 935     \setcounter{page}\@ne
 936   }%
 937   {\if@restonecol\twocolumn \else \newpage \fi
 938     \if@twoside\else
 939       \setcounter{page}\@ne
 940     \fi}
 941 \newcommand{\appendix}{\par
 942   \setcounter{section}{0}%
 943   \setcounter{subsection}{0}%
 944   \gdef\presectionname{\appendixname}%
 945   \gdef\postsectionname{}%
 946   \gdef\thesection{\presectionname\@Alph\c@section\postsectionname}%
 947   \gdef\thesubsection{\@Alph\c@section.\@arabic\c@subsection}}
 948 \setlength\arraycolsep{5\jsc@mpt}
 949 \setlength\tabcolsep{6\jsc@mpt}
 950 \setlength\arrayrulewidth{.4\jsc@mpt}
 951 \setlength\doublerulesep{2\jsc@mpt}
 952 \setlength\tabbingsep{\labelsep}
 953 \skip\@mpfootins = \skip\footins
 954 \setlength\fboxsep{3\jsc@mpt}
 955 \setlength\fboxrule{.4\jsc@mpt}
 956 \renewcommand \theequation {\@arabic\c@equation}
 957 \newcounter{figure}
 958 \renewcommand \thefigure {\@arabic\c@figure}
 959 \def\fps@figure{tbp}
 960 \def\ftype@figure{1}
 961 \def\ext@figure{lof}
 962 \def\fnum@figure{\figurename\nobreak\thefigure}
 963 \newenvironment{figure}%
 964                {\@float{figure}}%
 965                {\end@float}
 966 \newenvironment{figure*}%
 967                {\@dblfloat{figure}}%
 968                {\end@dblfloat}
 969 \newcounter{table}
 970 \renewcommand\thetable{\@arabic\c@table}
 971 \def\fps@table{tbp}
 972 \def\ftype@table{2}
 973 \def\ext@table{lot}
 974 \def\fnum@table{\tablename\nobreak\thetable}
 975 \newenvironment{table}%
 976                {\@float{table}}%
 977                {\end@float}
 978 \newenvironment{table*}%
 979                {\@dblfloat{table}}%
 980                {\end@dblfloat}
 981 \newlength\abovecaptionskip
 982 \newlength\belowcaptionskip
 983 \setlength\abovecaptionskip{5\jsc@mpt} % 元: 10\p@
 984 \setlength\belowcaptionskip{5\jsc@mpt} % 元: 0\p@
 985 \long\def\@makecaption#1#2{%
 986   \vskip\abovecaptionskip
 987   \sbox\@tempboxa{\small\sffamily #1\quad #2}%
 988   \ifdim \wd\@tempboxa >\hsize
 989     {\small\sffamily
 990       \list{#1}{%
 991         \renewcommand{\makelabel}[1]{##1\hfil}
 992         \itemsep    \z@
 993         \itemindent \z@
 994         \labelsep   \z@
 995         \labelwidth 11\jsc@mmm
 996         \listparindent\z@
 997         \leftmargin 11\jsc@mmm}\item\relax #2\endlist}
 998   \else
 999     \global \@minipagefalse
1000     \hb@xt@\hsize{\hfil\box\@tempboxa\hfil}%
1001   \fi
1002   \vskip\belowcaptionskip}
1003 \DeclareOldFontCommand{\mc}{\normalfont\mcfamily}{\mathmc}
1004 \DeclareOldFontCommand{\gt}{\normalfont\gtfamily}{\mathgt}
1005 \DeclareOldFontCommand{\rm}{\normalfont\rmfamily}{\mathrm}
1006 \DeclareOldFontCommand{\sf}{\normalfont\sffamily}{\mathsf}
1007 \DeclareOldFontCommand{\tt}{\normalfont\ttfamily}{\mathtt}
1008 \DeclareOldFontCommand{\bf}{\normalfont\bfseries}{\mathbf}
1009 \DeclareOldFontCommand{\it}{\normalfont\itshape}{\mathit}
1010 \DeclareOldFontCommand{\sl}{\normalfont\slshape}{\@nomath\sl}
1011 \DeclareOldFontCommand{\sc}{\normalfont\scshape}{\@nomath\sc}
1012 \DeclareRobustCommand*{\cal}{\@fontswitch\relax\mathcal}
1013 \DeclareRobustCommand*{\mit}{\@fontswitch\relax\mathnormal}
1014 \newcommand\@pnumwidth{1.55em}
1015 \newcommand\@tocrmarg{2.55em}
1016 \newcommand\@dotsep{4.5}
1017 \setcounter{tocdepth}{2}
1018 \newdimen\jsc@tocl@width
1019 \newcommand{\tableofcontents}{%
1020   \settowidth\jsc@tocl@width{\headfont\presectionname\postsectionname}%
1021   \settowidth\@tempdima{\headfont\appendixname}%
1022   \ifdim\jsc@tocl@width<\@tempdima\relax\setlength\jsc@tocl@width{\@tempdima}\fi
1023   \ifdim\jsc@tocl@width<2\zw \divide\jsc@tocl@width by 2 \advance\jsc@tocl@width 1\zw\fi
1024   \section*{\contentsname}%
1025   \@mkboth{\contentsname}{\contentsname}%
1026   \@starttoc{toc}%
1027 }
1028 \newcommand*{\l@part}[2]{%
1029   \ifnum \c@tocdepth >-2\relax
1030     \addpenalty\@secpenalty
1031     \addvspace{2.25em \@plus\jsc@mpt}%
1032     \begingroup
1033       \parindent \z@
1034       \rightskip \@tocrmarg
1035       \parfillskip -\rightskip
1036       {\leavevmode
1037         \large \headfont
1038         \setlength\@lnumwidth{4\zw}%
1039         #1\hfil \hb@xt@\@pnumwidth{\hss #2}}\par
1040       \nobreak
1041     \endgroup
1042   \fi}
1043 \newcommand*{\l@section}[2]{%
1044   \ifnum \c@tocdepth >\z@
1045     \addpenalty{\@secpenalty}%
1046     \addvspace{1.0em \@plus\jsc@mpt}%
1047     \begingroup
1048       \parindent\z@
1049       \rightskip\@tocrmarg
1050       \parfillskip-\rightskip
1051       \leavevmode\headfont
1052       %\setlength\@lnumwidth{4\zw}% 元1.5em [2003-03-02]
1053       \setlength\@lnumwidth{\jsc@tocl@width}\advance\@lnumwidth 2\zw
1054       \advance\leftskip\@lnumwidth \hskip-\leftskip
1055       #1\nobreak\hfil\nobreak\hbox to\@pnumwidth{\hss#2}\par
1056     \endgroup
1057   \fi}
1058 \newcommand*{\l@subsection}{%
1059           \@tempdima\jsc@tocl@width \advance\@tempdima -1\zw
1060           \@dottedtocline{2}{\@tempdima}{3\zw}}
1061 \newcommand*{\l@subsubsection}{%
1062           \@tempdima\jsc@tocl@width \advance\@tempdima 0\zw
1063           \@dottedtocline{3}{\@tempdima}{4\zw}}
1064 \newcommand*{\l@paragraph}{%
1065           \@tempdima\jsc@tocl@width \advance\@tempdima 1\zw
1066           \@dottedtocline{4}{\@tempdima}{5\zw}}
1067 \newcommand*{\l@subparagraph}{%
1068           \@tempdima\jsc@tocl@width \advance\@tempdima 2\zw
1069           \@dottedtocline{5}{\@tempdima}{6\zw}}
1070 \newdimen\@lnumwidth
1071 \def\numberline#1{\hb@xt@\@lnumwidth{#1\hfil}\hspace{0pt}}
1072 \def\@dottedtocline#1#2#3#4#5{\ifnum #1>\c@tocdepth \else
1073   \vskip \z@ \@plus.2\jsc@mpt
1074   {\leftskip #2\relax \rightskip \@tocrmarg \parfillskip -\rightskip
1075     \parindent #2\relax\@afterindenttrue
1076    \interlinepenalty\@M
1077    \leavevmode
1078    \@lnumwidth #3\relax
1079    \advance\leftskip \@lnumwidth \null\nobreak\hskip -\leftskip
1080     {#4}\nobreak
1081     \leaders\hbox{$\m@th \mkern \@dotsep mu\hbox{.}\mkern \@dotsep
1082        mu$}\hfill \nobreak\hb@xt@\@pnumwidth{%
1083          \hfil\normalfont \normalcolor #5}\par}\fi}
1084 \newcommand{\listoffigures}{%
1085   \section*{\listfigurename}%
1086   \@mkboth{\listfigurename}{\listfigurename}%
1087   \@starttoc{lof}%
1088 }
1089 \newcommand*{\l@figure}{\@dottedtocline{1}{1\zw}{3.683\zw}}
1090 \newcommand{\listoftables}{%
1091   \section*{\listtablename}%
1092   \@mkboth{\listtablename}{\listtablename}%
1093   \@starttoc{lot}%
1094 }
1095 \let\l@table\l@figure
1096 \newdimen\bibindent
1097 \setlength\bibindent{2\zw}
1098 \newenvironment{thebibliography}[1]{%
1099   \global\let\presectionname\relax
1100   \global\let\postsectionname\relax
1101   \section*{\refname}\@mkboth{\refname}{\refname}%
1102    \list{\@biblabel{\@arabic\c@enumiv}}%
1103         {\settowidth\labelwidth{\@biblabel{#1}}%
1104          \leftmargin\labelwidth
1105          \advance\leftmargin\labelsep
1106          \@openbib@code
1107          \usecounter{enumiv}%
1108          \let\p@enumiv\@empty
1109          \renewcommand\theenumiv{\@arabic\c@enumiv}}%
1110    \sloppy
1111    \clubpenalty4000
1112    \@clubpenalty\clubpenalty
1113    \widowpenalty4000%
1114    \sfcode`\.\@m}
1115   {\def\@noitemerr
1116     {\@latex@warning{Empty `thebibliography' environment}}%
1117    \endlist}
1118 \newcommand{\newblock}{\hskip .11em\@plus.33em\@minus.07em}
1119 \let\@openbib@code\@empty
1120 \newenvironment{theindex}{% 索引を3段組で出力する環境
1121     \if@twocolumn
1122       \onecolumn\@restonecolfalse
1123     \else
1124       \clearpage\@restonecoltrue
1125     \fi
1126     \columnseprule.4pt \columnsep 2\zw
1127     \ifx\multicols\@undefined
1128       \def\presectionname{}\def\postsectionname{}%
1129       \twocolumn[\section*{\indexname}]%
1130     \else
1131       \ifdim\textwidth<\fullwidth
1132         \setlength{\evensidemargin}{\oddsidemargin}
1133         \setlength{\textwidth}{\fullwidth}
1134         \setlength{\linewidth}{\fullwidth}
1135         \def\presectionname{}\def\postsectionname{}%
1136         \begin{multicols}{3}[\section*{\indexname}]%
1137       \else
1138         \def\presectionname{}\def\postsectionname{}%
1139         \begin{multicols}{2}[\section*{\indexname}]%
1140       \fi
1141     \fi
1142     \@mkboth{\indexname}{\indexname}%
1143     \plainifnotempty % \thispagestyle{plain}
1144     \parindent\z@
1145     \parskip\z@ \@plus .3\jsc@mpt\relax
1146     \let\item\@idxitem
1147     \raggedright
1148     \footnotesize\narrowbaselines
1149   }{
1150     \ifx\multicols\@undefined
1151       \if@restonecol\onecolumn\fi
1152     \else
1153       \end{multicols}
1154     \fi
1155     \clearpage
1156   }
1157 \newcommand{\@idxitem}{\par\hangindent 4\zw} % 元 40pt
1158 \newcommand{\subitem}{\@idxitem \hspace*{2\zw}} % 元 20pt
1159 \newcommand{\subsubitem}{\@idxitem \hspace*{3\zw}} % 元 30pt
1160 \newcommand{\indexspace}{\par \vskip 10\jsc@mpt \@plus5\jsc@mpt \@minus3\jsc@mpt\relax}
1161 \newcommand\seename{\if@english see\else →\fi}
1162 \newcommand\alsoname{\if@english see also\else →\fi}
1163 \let\footnotes@ve=\footnote
1164 \def\footnote{\inhibitglue\footnotes@ve}
1165 \let\footnotemarks@ve=\footnotemark
1166 \def\footnotemark{\inhibitglue\footnotemarks@ve}
1167 \renewcommand\@makefnmark{%
1168   \unless\ifnum\ltjgetparameter{direction}=3
1169     \hbox{}\hbox{\@textsuperscript{\normalfont\@thefnmark}}\hbox{}%
1170   \else\hbox{\yoko \@textsuperscript{\normalfont\@thefnmark}}\fi}
1171 \def\thefootnote{\ifnum\c@footnote>\z@\leavevmode\lower.5ex\hbox{*}\@arabic\c@footnote\fi}
1172 \renewcommand{\footnoterule}{%
1173   \kern-3\jsc@mpt
1174   \hrule width .4\columnwidth height 0.4\jsc@mpt
1175   \kern 2.6\jsc@mpt}
1176 \long\def\@footnotetext{%
1177   \insert\footins\bgroup
1178     \normalfont\footnotesize
1179     \interlinepenalty\interfootnotelinepenalty
1180     \splittopskip\footnotesep
1181     \splitmaxdepth \dp\strutbox \floatingpenalty \@MM
1182     \hsize\columnwidth \@parboxrestore
1183     \protected@edef\@currentlabel{%
1184        \csname p@footnote\endcsname\@thefnmark
1185     }%
1186     \color@begingroup
1187       \@makefntext{%
1188         \rule\z@\footnotesep\ignorespaces}%
1189       \futurelet\next\fo@t}
1190 \def\fo@t{\ifcat\bgroup\noexpand\next \let\next\f@@t
1191                                 \else \let\next\f@t\fi \next}
1192 \def\f@@t{\bgroup\aftergroup\@foot\let\next}
1193 \def\f@t#1{#1\@foot}
1194 \def\@foot{\@finalstrut\strutbox\color@endgroup\egroup}
1195 \newcommand\@makefntext[1]{%
1196   \advance\leftskip 3\zw
1197   \parindent 1\zw
1198   \noindent
1199   \llap{\@makefnmark\hskip0.3\zw}#1}
1200 \protected\def\@inhibitglue{\directlua{luatexja.jfmglue.create_beginpar_node()}}
1201 \def\@item[#1]{%
1202   \if@noparitem
1203     \@donoparitem
1204   \else
1205     \if@inlabel
1206       \indent \par
1207     \fi
1208     \ifhmode
1209       \unskip\unskip \par
1210     \fi
1211     \if@newlist
1212       \if@nobreak
1213         \@nbitem
1214       \else
1215         \addpenalty\@beginparpenalty
1216         \addvspace\@topsep
1217         \addvspace{-\parskip}%
1218       \fi
1219     \else
1220       \addpenalty\@itempenalty
1221       \addvspace\itemsep
1222     \fi
1223     \global\@inlabeltrue
1224   \fi
1225   \everypar{%
1226     \@minipagefalse
1227     \global\@newlistfalse
1228     \if@inlabel
1229       \global\@inlabelfalse
1230       {\setbox\z@\lastbox
1231        \ifvoid\z@
1232          \kern-\itemindent
1233        \fi}%
1234       \box\@labels
1235       \penalty\z@
1236     \fi
1237     \if@nobreak
1238       \@nobreakfalse
1239       \clubpenalty \@M
1240     \else
1241       \clubpenalty \@clubpenalty
1242       \everypar{}%
1243     \fi\@inhibitglue}%
1244   \if@noitemarg
1245     \@noitemargfalse
1246     \if@nmbrlist
1247       \refstepcounter\@listctr
1248     \fi
1249   \fi
1250   \sbox\@tempboxa{\makelabel{#1}}%
1251   \global\setbox\@labels\hbox{%
1252     \unhbox\@labels
1253     \hskip \itemindent
1254     \hskip -\labelwidth
1255     \hskip -\labelsep
1256     \ifdim \wd\@tempboxa >\labelwidth
1257       \box\@tempboxa
1258     \else
1259       \hbox to\labelwidth {\unhbox\@tempboxa}%
1260     \fi
1261     \hskip \labelsep}%
1262   \ignorespaces}
1263 \def\@gnewline #1{%
1264   \ifvmode
1265     \@nolnerr
1266   \else
1267     \unskip \reserved@e {\reserved@f#1}\nobreak \hfil \break \null
1268     \inhibitglue \ignorespaces
1269   \fi}
1270 \def\小#1{\hbox{$\m@th$%
1271   \csname S@\f@size\endcsname
1272   \fontsize\sf@size\z@
1273   \math@fontsfalse\selectfont
1274   #1}}
1275 \def\上小#1{{\sbox\z@ T\vbox to\ht0{\小{#1}\vss}}}
1276 \def\cmrTeX{%
1277   \ifdim \fontdimen\@ne\font >\z@
1278     T\kern-.25em\lower.5ex\hbox{E}\kern-.125emX\@
1279   \else
1280     T\kern-.1667em\lower.5ex\hbox{E}\kern-.125emX\@
1281   \fi}
1282 \def\cmrLaTeX{%
1283   \ifdim \fontdimen\@ne\font >\z@
1284     L\kern-.32em\上小{A}\kern-.22em\cmrTeX
1285   \else
1286     L\kern-.36em\上小{A}\kern-.15em\cmrTeX
1287   \fi}
1288 \def\sfTeX{T\kern-.1em\lower.4ex\hbox{E}\kern-.07emX\@}
1289 \def\sfLaTeX{L\kern-.25em\上小{A}\kern-.08em\sfTeX}
1290 \def\ptmTeX{%
1291   \ifdim \fontdimen\@ne\font >\z@
1292     T\kern-.12em\lower.37ex\hbox{E}\kern-.02emX\@
1293   \else
1294     T\kern-.07em\lower.37ex\hbox{E}\kern-.05emX\@
1295   \fi}
1296 \def\ptmLaTeX{%
1297   \ifdim \fontdimen\@ne\font >\z@
1298     L\kern-.2em\上小{A}\kern-.1em\ptmTeX
1299   \else
1300     L\kern-.3em\上小{A}\kern-.1em\ptmTeX
1301   \fi}
1302 \def\pncTeX{%
1303   \ifdim \fontdimen\@ne\font >\z@
1304     T\kern-.2em\lower.5ex\hbox{E}\kern-.08emX\@
1305   \else
1306     T\kern-.13em\lower.5ex\hbox{E}\kern-.13emX\@
1307   \fi}
1308 \def\pncLaTeX{%
1309   \ifdim \fontdimen\@ne\font >\z@
1310     L\kern-.3em\上小{A}\kern-.1em\pncTeX
1311   \else
1312     L\kern-.3em\上小{A}\kern-.1em\pncTeX
1313   \fi}
1314 \def\pplTeX{%
1315   \ifdim \fontdimen\@ne\font >\z@
1316     T\kern-.17em\lower.32ex\hbox{E}\kern-.15emX\@
1317   \else
1318     T\kern-.12em\lower.34ex\hbox{E}\kern-.1emX\@
1319   \fi}
1320 \def\pplLaTeX{%
1321   \ifdim \fontdimen\@ne\font >\z@
1322     L\kern-.27em\上小{A}\kern-.12em\pplTeX
1323   \else
1324     L\kern-.3em\上小{A}\kern-.15em\pplTeX
1325   \fi}
1326 \def\ugmTeX{%
1327   \ifdim \fontdimen\@ne\font >\z@
1328     T\kern-.1em\lower.32ex\hbox{E}\kern-.06emX\@
1329   \else
1330     T\kern-.12em\lower.34ex\hbox{E}\kern-.1emX\@
1331   \fi}
1332 \def\ugmLaTeX{%
1333   \ifdim \fontdimen\@ne\font >\z@
1334     L\kern-.2em\上小{A}\kern-.13em\ugmTeX
1335   \else
1336     L\kern-.3em\上小{A}\kern-.13em\ugmTeX
1337   \fi}
1338 \DeclareRobustCommand{\TeX}{%
1339   \def\@tempa{cmr}%
1340   \ifx\f@family\@tempa\cmrTeX
1341   \else
1342     \def\@tempa{ptm}%
1343     \ifx\f@family\@tempa\ptmTeX
1344     \else
1345       \def\@tempa{txr}%
1346       \ifx\f@family\@tempa\ptmTeX
1347       \else
1348         \def\@tempa{pnc}%
1349         \ifx\f@family\@tempa\pncTeX
1350         \else
1351           \def\@tempa{ppl}%
1352           \ifx\f@family\@tempa\pplTeX
1353           \else
1354             \def\@tempa{ugm}%
1355             \ifx\f@family\@tempa\ugmTeX
1356             \else\sfTeX
1357             \fi
1358           \fi
1359         \fi
1360       \fi
1361     \fi
1362   \fi}
1363
1364 \DeclareRobustCommand{\LaTeX}{%
1365   \def\@tempa{cmr}%
1366   \ifx\f@family\@tempa\cmrLaTeX
1367   \else
1368     \def\@tempa{ptm}%
1369     \ifx\f@family\@tempa\ptmLaTeX
1370     \else
1371       \def\@tempa{txr}%
1372       \ifx\f@family\@tempa\ptmLaTeX
1373       \else
1374         \def\@tempa{pnc}%
1375         \ifx\f@family\@tempa\pncLaTeX
1376         \else
1377           \def\@tempa{ppl}%
1378           \ifx\f@family\@tempa\pplLaTeX
1379           \else
1380             \def\@tempa{ugm}%
1381             \ifx\f@family\@tempa\ugmLaTeX
1382             \else\sfLaTeX
1383             \fi
1384           \fi
1385         \fi
1386       \fi
1387     \fi
1388   \fi}
1389 \DeclareRobustCommand{\LaTeXe}{$\mbox{%
1390   \if b\expandafter\@car\f@series\@nil\boldmath\fi
1391   \LaTeX\kern.15em2\raisebox{-.37ex}{$\textstyle\varepsilon$}}$}
1392 \def\pTeX{p\kern-.05em\TeX}
1393 \def\pLaTeX{p\LaTeX}
1394 \def\pLaTeXe{p\LaTeXe}
1395 \def\AmSTeX{\protect\AmS-\protect\TeX{}}
1396 \DeclareRobustCommand{\BibTeX}{B\kern-.05em\小{I\kern-.025em B}%
1397   \ifx\f@family\cmr\kern-.08em\else\kern-.15em\fi\TeX}
1398 \DeclareRobustCommand{\SliTeX}{%
1399   S\kern-.06emL\kern-.18em\上小{I}\kern -.03em\TeX}
1400 \newcommand{\prepartname}{\if@english Part~\else 第\fi}
1401 \newcommand{\postpartname}{\if@english\else 部\fi}
1402 \newcommand{\presectionname}{}%  第
1403 \newcommand{\postsectionname}{}% 節
1404 \newcommand{\contentsname}{\if@english Contents\else 目次\fi}
1405 \newcommand{\listfigurename}{\if@english List of Figures\else 図目次\fi}
1406 \newcommand{\listtablename}{\if@english List of Tables\else 表目次\fi}
1407 \newcommand{\refname}{\if@english References\else 参考文献\fi}
1408 \newcommand{\bibname}{\if@english Bibliography\else 参考文献\fi}
1409 \newcommand{\indexname}{\if@english Index\else 索引\fi}
1410 \newcommand{\figurename}{Fig.~}
1411 \newcommand{\tablename}{Table~}
1412 \newcommand{\appendixname}{\if@english \else 付録\fi}
1413 \newcommand{\abstractname}{\if@english Abstract\else 概要\fi}
1414 \newif\if西暦 \西暦true
1415 \def\西暦{\西暦true}
1416 \def\和暦{\西暦false}
1417 \newcount\heisei \heisei\year \advance\heisei-1988\relax
1418 \def\today{%
1419   \if@english
1420     \ifcase\month\or
1421       January\or February\or March\or April\or May\or June\or
1422       July\or August\or September\or October\or November\or December\fi
1423       \space\number\day, \number\year
1424   \else
1425     \if西暦
1426       \number\year 年
1427       \number\month 月
1428       \number\day 日
1429     \else
1430       平成\number\heisei 年
1431       \number\month 月
1432       \number\day 日
1433     \fi
1434   \fi}
1435 \hyphenation{ado-be post-script ghost-script phe-nom-e-no-log-i-cal man-u-script}
1436 \pagestyle{headings}
1437 \pagenumbering{arabic}
1438 \if@twocolumn
1439   \twocolumn
1440   \sloppy
1441   \flushbottom
1442 \else
1443   \onecolumn
1444   \raggedbottom
1445 \fi
1446 \if@slide
1447   \renewcommand\kanjifamilydefault{\gtdefault}
1448   \renewcommand\familydefault{\sfdefault}
1449   \raggedright
1450   \ltj@setpar@global
1451   \ltjsetxkanjiskip{0.1em}\relax
1452 \fi
1453 \endinput
1454 %%
1455 %% End of file `ltjspf.cls'.