OSDN Git Service

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