OSDN Git Service

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