OSDN Git Service

first step of using newtokenlib if possible
[luatex-ja/luatexja.git] / src / ltjsarticle.cls
1 %%
2 %% This is file `ltjsarticle.cls',
3 %% generated with the docstrip utility.
4 %%
5 %% The original source files were:
6 %%
7 %% ltjsclasses.dtx  (with options: `article')
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 ltjsarticle.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{ltjsarticle}
41   [2015/01/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,oneside,onecolumn,notitlepage,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 \if@slide\def\n@baseline{13}\else\def\n@baseline{16}\fi
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.924872] \ltj@stdmcfont:jfm=min}{}
309   \DeclareFontShape{JY3}{gt}{m}{n}{<-> s * [0.924872] \ltj@stdgtfont:jfm=min}{}
310 \else
311   \ifptexjis
312     \DeclareFontShape{JY3}{mc}{m}{n}{<-> s * [0.924872] \ltj@stdmcfont:jfm=jis}{}
313     \DeclareFontShape{JY3}{gt}{m}{n}{<-> s * [0.924872] \ltj@stdgtfont:jfm=jis}{}
314   \else
315     \DeclareFontShape{JY3}{mc}{m}{n}{<-> s * [0.924872] \ltj@stdmcfont:jfm=ujis}{}
316     \DeclareFontShape{JY3}{gt}{m}{n}{<-> s * [0.924872] \ltj@stdgtfont:jfm=ujis}{}
317   \fi
318 \fi
319 \DeclareFontShape{JT3}{mc}{m}{n}{<-> s * [0.924872] \ltj@stdmcfont:jfm=ujisv}{}
320 \DeclareFontShape{JT3}{gt}{m}{n}{<-> s * [0.924872] \ltj@stdgtfont:jfm=ujisv}{}
321 \DeclareFontShape{JY3}{mc}{bx}{n}{<->ssub*gt/m/n}{}
322 \DeclareFontShape{JY3}{gt}{bx}{n}{<->ssub*gt/m/n}{}
323 \DeclareFontShape{JY3}{mc}{m}{it}{<->ssub*mc/m/n}{}
324 \DeclareFontShape{JY3}{mc}{m}{sl}{<->ssub*mc/m/n}{}
325 \DeclareFontShape{JY3}{mc}{m}{sc}{<->ssub*mc/m/n}{}
326 \DeclareFontShape{JY3}{gt}{m}{it}{<->ssub*gt/m/n}{}
327 \DeclareFontShape{JY3}{gt}{m}{sl}{<->ssub*gt/m/n}{}
328 \DeclareFontShape{JY3}{mc}{bx}{it}{<->ssub*gt/m/n}{}
329 \DeclareFontShape{JY3}{mc}{bx}{sl}{<->ssub*gt/m/n}{}
330 %% \DeclareFontShape{JT3}{mc}{m}{it}{<->ssub*mc/m/n}{}
331 %% \DeclareFontShape{JT3}{mc}{m}{sl}{<->ssub*mc/m/n}{}
332 %% \DeclareFontShape{JT3}{mc}{m}{sc}{<->ssub*mc/m/n}{}
333 %% \DeclareFontShape{JT3}{gt}{m}{it}{<->ssub*gt/m/n}{}
334 %% \DeclareFontShape{JT3}{gt}{m}{sl}{<->ssub*gt/m/n}{}
335 %% \DeclareFontShape{JT3}{mc}{bx}{it}{<->ssub*gt/m/n}{}
336 %% \DeclareFontShape{JT3}{mc}{bx}{sl}{<->ssub*gt/m/n}{}
337 \renewcommand\jttdefault{\gtdefault}
338 \DeclareRobustCommand\rmfamily
339         {\not@math@alphabet\rmfamily\mathrm
340          \romanfamily\rmdefault\kanjifamily\mcdefault\selectfont}
341 \DeclareRobustCommand\sffamily
342         {\not@math@alphabet\sffamily\mathsf
343          \romanfamily\sfdefault\kanjifamily\gtdefault\selectfont}
344 \DeclareRobustCommand\ttfamily
345         {\not@math@alphabet\ttfamily\mathtt
346          \romanfamily\ttdefault\kanjifamily\jttdefault\selectfont}
347 %%
348 \AtBeginDocument{%
349   \reDeclareMathAlphabet{\mathrm}{\mathrm}{\mathmc}
350   \reDeclareMathAlphabet{\mathbf}{\mathbf}{\mathgt}}%
351 \ltjsetparameter{jaxspmode={`!,2}}
352 \ltjsetparameter{jaxspmode={`〒,1}}
353 \ltjsetparameter{alxspmode={`+,3}}
354 \ltjsetparameter{alxspmode={`\%,3}}
355 \def\@{\spacefactor3000\space}
356 \def\@setfontsize#1#2#3{%
357   \ifx\protect\@typeset@protect
358     \let\@currsize#1%
359   \fi
360   \fontsize{#2}{#3}\selectfont
361   \ifdim\parindent>\z@
362     \if@english
363       \parindent=1em
364     \else
365       \parindent=1\zw
366     \fi
367   \fi
368   \ltj@setpar@global
369   \ifltj@token@avail@scan
370     \ltjsetkanjiskip\z@ plus .1\zw minus .01\zw
371     \@tempskipa=\ltjgetparameter{xkanjiskip}
372     \ifdim\@tempskipa>\z@
373       \if@slide
374         \ltjsetxkanjiskip .1em
375       \else
376        \ltjsetxkanjiskip .25em plus .15em minus .06em
377       \fi
378     \fi
379   \else
380     \ltjsetkanjiskip{\z@ plus .1\zw minus .01\zw}
381     \@tempskipa=\ltjgetparameter{xkanjiskip}
382     \ifdim\@tempskipa>\z@
383       \if@slide
384         \ltjsetxkanjiskip{.1em}
385       \else
386         \ltjsetxkanjiskip{.25em plus .15em minus .06em}
387       \fi
388     \fi
389   \fi}
390 \emergencystretch 3\zw
391 \newif\ifnarrowbaselines
392 \if@english
393   \narrowbaselinestrue
394 \fi
395 \def\narrowbaselines{%
396   \narrowbaselinestrue
397   \skip0=\abovedisplayskip
398   \skip2=\abovedisplayshortskip
399   \skip4=\belowdisplayskip
400   \skip6=\belowdisplayshortskip
401   \@currsize\selectfont
402   \abovedisplayskip=\skip0
403   \abovedisplayshortskip=\skip2
404   \belowdisplayskip=\skip4
405   \belowdisplayshortskip=\skip6\relax}
406 \def\widebaselines{\narrowbaselinesfalse\@currsize\selectfont}
407 \def\ltj@@ifnarrowbaselines{%
408   \ifnarrowbaselines\expandafter\@firstoftwo
409   \else \expandafter\@secondoftwo
410   \fi
411 }
412 \renewcommand{\normalsize}{%
413   \ltj@@ifnarrowbaselines
414     {\@setfontsize\normalsize\@xpt\@xiipt}%
415     {\@setfontsize\normalsize\@xpt{\n@baseline}}%
416   \abovedisplayskip 11\p@ \@plus3\p@ \@minus4\p@
417   \abovedisplayshortskip \z@ \@plus3\p@
418   \belowdisplayskip 9\p@ \@plus3\p@ \@minus4\p@
419   \belowdisplayshortskip \belowdisplayskip
420   \let\@listi\@listI}
421 \normalsize
422 \setbox0\hbox{\char"3000}% 全角スペース
423 \setlength\Cht{\ht0}
424 \setlength\Cdp{\dp0}
425 \setlength\Cwd{\wd0}
426 \setlength\Cvs{\baselineskip}
427 \setlength\Chs{\wd0}
428 \newcommand{\small}{%
429   \ltj@@ifnarrowbaselines
430     {\@setfontsize\small\@ixpt{11}}%
431     {\@setfontsize\small\@ixpt{13}}%
432   \abovedisplayskip 9\p@ \@plus3\p@ \@minus4\p@
433   \abovedisplayshortskip  \z@ \@plus3\p@
434   \belowdisplayskip \abovedisplayskip
435   \belowdisplayshortskip \belowdisplayskip
436   \def\@listi{\leftmargin\leftmargini
437               \topsep \z@
438               \parsep \z@
439               \itemsep \parsep}}
440 \newcommand{\footnotesize}{%
441   \ltj@@ifnarrowbaselines
442     {\@setfontsize\footnotesize\@viiipt{9.5}}%
443     {\@setfontsize\footnotesize\@viiipt{11}}%
444   \abovedisplayskip 6\p@ \@plus2\p@ \@minus3\p@
445   \abovedisplayshortskip  \z@ \@plus2\p@
446   \belowdisplayskip \abovedisplayskip
447   \belowdisplayshortskip \belowdisplayskip
448   \def\@listi{\leftmargin\leftmargini
449               \topsep \z@
450               \parsep \z@
451               \itemsep \parsep}}
452 \newcommand{\scriptsize}{\@setfontsize\scriptsize\@viipt\@viiipt}
453 \newcommand{\tiny}{\@setfontsize\tiny\@vpt\@vipt}
454 \if@twocolumn
455   \newcommand{\large}{\@setfontsize\large\@xiipt{\n@baseline}}
456 \else
457   \newcommand{\large}{\@setfontsize\large\@xiipt{17}}
458 \fi
459 \newcommand{\Large}{\@setfontsize\Large\@xivpt{21}}
460 \newcommand{\LARGE}{\@setfontsize\LARGE\@xviipt{25}}
461 \newcommand{\huge}{\@setfontsize\huge\@xxpt{28}}
462 \newcommand{\Huge}{\@setfontsize\Huge\@xxvpt{33}}
463 \newcommand{\HUGE}{\@setfontsize\HUGE{30}{40}}
464 \everydisplay=\expandafter{\the\everydisplay \narrowbaselines}
465 \newcommand{\headfont}{\gtfamily\sffamily}
466 \setlength\columnsep{2\zw}
467 \setlength\columnseprule{0\p@}
468 \setlength\lineskip{1\p@}
469 \setlength\normallineskip{1\p@}
470 \setlength\lineskiplimit{1\p@}
471 \setlength\normallineskiplimit{1\p@}
472 \renewcommand{\baselinestretch}{}
473 \setlength\parskip{0\p@}
474 \if@slide
475   \setlength\parindent{0\zw}
476 \else
477   \setlength\parindent{1\zw}
478 \fi
479 \@lowpenalty   51
480 \@medpenalty  151
481 \@highpenalty 301
482 \setlength\topskip{10\p@}
483 \if@slide
484   \setlength\headheight{0\p@}
485 \else
486   \setlength\headheight{2\topskip}
487 \fi
488 \if@slide
489   \setlength\footskip{0pt}
490 \else
491   \setlength\footskip{0.03367\paperheight}
492   \ifdim\footskip<\baselineskip
493     \setlength\footskip{\baselineskip}
494   \fi
495 \fi
496 \if@slide
497   \setlength\headsep{0\p@}
498 \else
499   \setlength\headsep{\footskip}
500   \addtolength\headsep{-\topskip}
501 \fi
502 \setlength\maxdepth{.5\topskip}
503 \newdimen\fullwidth
504 \if@slide
505   \setlength\fullwidth{0.9\paperwidth}
506 \else
507   \setlength\fullwidth{0.76\paperwidth}
508 \fi
509 \if@twocolumn \@tempdima=2\zw \else \@tempdima=1\zw \fi
510 \divide\fullwidth\@tempdima \multiply\fullwidth\@tempdima
511 \setlength\textwidth{\fullwidth}
512 \if@slide
513   \setlength{\textheight}{0.95\paperheight}
514 \else
515   \setlength{\textheight}{0.83\paperheight}
516 \fi
517 \addtolength{\textheight}{-\topskip}
518 \addtolength{\textheight}{-\headsep}
519 \addtolength{\textheight}{-\footskip}
520 \addtolength{\textheight}{-\topskip}
521 \divide\textheight\baselineskip
522 \multiply\textheight\baselineskip
523 \addtolength{\textheight}{\topskip}
524 \addtolength{\textheight}{0.1\p@}
525 \setlength\marginparsep{\columnsep}
526 \setlength\marginparpush{\baselineskip}
527 \setlength{\oddsidemargin}{\paperwidth}
528 \addtolength{\oddsidemargin}{-\fullwidth}
529 \setlength{\oddsidemargin}{.5\oddsidemargin}
530 \addtolength{\oddsidemargin}{-1in}
531 \setlength{\evensidemargin}{\oddsidemargin}
532 \if@mparswitch
533   \addtolength{\evensidemargin}{\fullwidth}
534   \addtolength{\evensidemargin}{-\textwidth}
535 \fi
536 \setlength\marginparwidth{\paperwidth}
537 \addtolength\marginparwidth{-\oddsidemargin}
538 \addtolength\marginparwidth{-1in}
539 \addtolength\marginparwidth{-\textwidth}
540 \addtolength\marginparwidth{-1cm}
541 \addtolength\marginparwidth{-\marginparsep}
542 \@tempdima=1\zw
543 \divide\marginparwidth\@tempdima
544 \multiply\marginparwidth\@tempdima
545 \setlength\topmargin{\paperheight}
546 \addtolength\topmargin{-\textheight}
547 \if@slide
548   \addtolength\topmargin{-\headheight}
549 \else
550   \addtolength\topmargin{-\topskip}
551 \fi
552 \addtolength\topmargin{-\headsep}
553 \addtolength\topmargin{-\footskip}
554 \setlength\topmargin{0.5\topmargin}
555 \addtolength\topmargin{-1in}
556 {\footnotesize\global\setlength\footnotesep{\baselineskip}}
557 \setlength\footnotesep{0.7\footnotesep}
558 \setlength{\skip\footins}{16\p@ \@plus 5\p@ \@minus 2\p@}
559 \setcounter{topnumber}{9}
560 \renewcommand{\topfraction}{.85}
561 \setcounter{bottomnumber}{9}
562 \renewcommand{\bottomfraction}{.8}
563 \setcounter{totalnumber}{20}
564 \renewcommand{\textfraction}{.1}
565 \renewcommand{\floatpagefraction}{.8}
566 \setcounter{dbltopnumber}{9}
567 \renewcommand{\dbltopfraction}{.8}
568 \renewcommand{\dblfloatpagefraction}{.8}
569 \setlength\floatsep    {12\p@ \@plus 2\p@ \@minus 2\p@}
570 \setlength\textfloatsep{20\p@ \@plus 2\p@ \@minus 4\p@}
571 \setlength\intextsep   {12\p@ \@plus 2\p@ \@minus 2\p@}
572 \setlength\dblfloatsep    {12\p@ \@plus 2\p@ \@minus 2\p@}
573 \setlength\dbltextfloatsep{20\p@ \@plus 2\p@ \@minus 4\p@}
574 \setlength\@fptop{0\p@ \@plus 1fil}
575 \setlength\@fpsep{8\p@ \@plus 2fil}
576 \setlength\@fpbot{0\p@ \@plus 1fil}
577 \setlength\@dblfptop{0\p@ \@plus 1fil}
578 \setlength\@dblfpsep{8\p@ \@plus 2fil}
579 \setlength\@dblfpbot{0\p@ \@plus 1fil}
580 \def\ps@plainfoot{%
581   \let\@mkboth\@gobbletwo
582   \let\@oddhead\@empty
583   \def\@oddfoot{\normalfont\hfil\thepage\hfil}%
584   \let\@evenhead\@empty
585   \let\@evenfoot\@oddfoot}
586 \def\ps@plainhead{%
587   \let\@mkboth\@gobbletwo
588   \let\@oddfoot\@empty
589   \let\@evenfoot\@empty
590   \def\@evenhead{%
591     \if@mparswitch \hss \fi
592     \hbox to \fullwidth{\textbf{\thepage}\hfil}%
593     \if@mparswitch\else \hss \fi}%
594   \def\@oddhead{%
595     \hbox to \fullwidth{\hfil\textbf{\thepage}}\hss}}
596 \let\ps@plain\ps@plainfoot
597 \if@twoside
598   \def\ps@headings{%
599     \let\@oddfoot\@empty
600     \let\@evenfoot\@empty
601     \def\@evenhead{\if@mparswitch \hss \fi
602       \underline{\hbox to \fullwidth{\textbf{\thepage}\hfil\leftmark}}%
603       \if@mparswitch\else \hss \fi}%
604     \def\@oddhead{%
605       \underline{%
606         \hbox to \fullwidth{{\rightmark}\hfil\textbf{\thepage}}}\hss}%
607     \let\@mkboth\markboth
608     \def\sectionmark##1{\markboth{%
609        \ifnum \c@secnumdepth >\z@ \thesection \hskip1\zw\fi
610        ##1}{}}%
611     \def\subsectionmark##1{\markright{%
612        \ifnum \c@secnumdepth >\@ne \thesubsection \hskip1\zw\fi
613        ##1}}%
614   }
615 \else % if not twoside
616   \def\ps@headings{%
617     \let\@oddfoot\@empty
618     \def\@oddhead{%
619       \underline{%
620         \hbox to \fullwidth{{\rightmark}\hfil\textbf{\thepage}}}\hss}%
621     \let\@mkboth\markboth
622     \def\sectionmark##1{\markright{%
623         \ifnum \c@secnumdepth >\z@ \thesection \hskip1\zw\fi
624         ##1}}}
625 \fi
626 \def\ps@myheadings{%
627   \let\@oddfoot\@empty\let\@evenfoot\@empty
628   \def\@evenhead{%
629     \if@mparswitch \hss \fi%
630     \hbox to \fullwidth{\thepage\hfil\leftmark}%
631     \if@mparswitch\else \hss \fi}%
632   \def\@oddhead{%
633     \hbox to \fullwidth{\rightmark\hfil\thepage}\hss}%
634   \let\@mkboth\@gobbletwo
635   \let\sectionmark\@gobble
636   \let\subsectionmark\@gobble
637 }
638 \def\plainifnotempty{%
639   \ifx \@oddhead \@empty
640     \ifx \@oddfoot \@empty
641     \else
642       \thispagestyle{plainfoot}%
643     \fi
644   \else
645     \thispagestyle{plainhead}%
646   \fi}
647 \if@titlepage
648   \newcommand{\maketitle}{%
649     \begin{titlepage}%
650       \let\footnotesize\small
651       \let\footnoterule\relax
652       \let\footnote\thanks
653       \null\vfil
654       \if@slide
655         {\footnotesize \@date}%
656         \begin{center}
657           \mbox{} \\[1\zw]
658           \large
659           {\maybeblue\hrule height0pt depth2pt\relax}\par
660           \smallskip
661           \@title
662           \smallskip
663           {\maybeblue\hrule height0pt depth2pt\relax}\par
664           \vfill
665           {\small \@author}%
666         \end{center}
667       \else
668       \vskip 60\p@
669       \begin{center}%
670         {\LARGE \@title \par}%
671         \vskip 3em%
672         {\large
673           \lineskip .75em
674           \begin{tabular}[t]{c}%
675             \@author
676           \end{tabular}\par}%
677         \vskip 1.5em
678         {\large \@date \par}%
679       \end{center}%
680       \fi
681       \par
682       \@thanks\vfil\null
683     \end{titlepage}%
684     \setcounter{footnote}{0}%
685     \global\let\thanks\relax
686     \global\let\maketitle\relax
687     \global\let\@thanks\@empty
688     \global\let\@author\@empty
689     \global\let\@date\@empty
690     \global\let\@title\@empty
691     \global\let\title\relax
692     \global\let\author\relax
693     \global\let\date\relax
694     \global\let\and\relax
695   }%
696 \else
697   \newcommand{\maketitle}{\par
698     \begingroup
699       \renewcommand\thefootnote{\@fnsymbol\c@footnote}%
700       \def\@makefnmark{\rlap{\@textsuperscript{\normalfont\@thefnmark}}}%
701       \long\def\@makefntext##1{\advance\leftskip 3\zw
702         \parindent 1\zw\noindent
703         \llap{\@textsuperscript{\normalfont\@thefnmark}\hskip0.3\zw}##1}%
704       \if@twocolumn
705         \ifnum \col@number=\@ne
706           \@maketitle
707         \else
708           \twocolumn[\@maketitle]%
709         \fi
710       \else
711         \newpage
712         \global\@topnum\z@  % Prevents figures from going at top of page.
713         \@maketitle
714       \fi
715       \plainifnotempty
716       \@thanks
717     \endgroup
718     \setcounter{footnote}{0}%
719     \global\let\thanks\relax
720     \global\let\maketitle\relax
721     \global\let\@thanks\@empty
722     \global\let\@author\@empty
723     \global\let\@date\@empty
724     \global\let\@title\@empty
725     \global\let\title\relax
726     \global\let\author\relax
727     \global\let\date\relax
728     \global\let\and\relax
729   }
730   \def\@maketitle{%
731     \newpage\null
732     \vskip 2em
733     \begin{center}%
734       \let\footnote\thanks
735       {\LARGE \@title \par}%
736       \vskip 1.5em
737       {\large
738         \lineskip .5em
739         \begin{tabular}[t]{c}%
740           \@author
741         \end{tabular}\par}%
742       \vskip 1em
743       {\large \@date}%
744     \end{center}%
745     \par\vskip 1.5em
746     \ifvoid\@abstractbox\else\centerline{\box\@abstractbox}\vskip1.5em\fi
747   }
748 \fi
749 \def\@startsection#1#2#3#4#5#6{%
750   \if@noskipsec \leavevmode \fi
751   \par
752   \@tempskipa #4\relax
753   \if@english \@afterindentfalse \else \@afterindenttrue \fi
754   \ifdim \@tempskipa <\z@
755     \@tempskipa -\@tempskipa \@afterindentfalse
756   \fi
757   \if@nobreak
758     \everypar{}%
759   \else
760     \addpenalty\@secpenalty
761     \ifdim \@tempskipa >\z@
762       \if@slide\else
763         \null
764         \vspace*{-\baselineskip}%
765       \fi
766       \vskip\@tempskipa
767     \fi
768   \fi
769   \noindent
770   \@ifstar
771     {\@ssect{#3}{#4}{#5}{#6}}%
772     {\@dblarg{\@sect{#1}{#2}{#3}{#4}{#5}{#6}}}}
773 \def\@sect#1#2#3#4#5#6[#7]#8{%
774   \ifnum #2>\c@secnumdepth
775     \let\@svsec\@empty
776   \else
777     \refstepcounter{#1}%
778     \protected@edef\@svsec{\@seccntformat{#1}\relax}%
779   \fi
780   \@tempskipa #5\relax
781   \ifdim \@tempskipa<\z@
782     \def\@svsechd{%
783       #6{\hskip #3\relax
784       \@svsec #8}%
785       \csname #1mark\endcsname{#7}%
786       \addcontentsline{toc}{#1}{%
787         \ifnum #2>\c@secnumdepth \else
788           \protect\numberline{\csname the#1\endcsname}%
789         \fi
790         #7}}% 目次にフルネームを載せるなら #8
791   \else
792     \begingroup
793       \interlinepenalty \@M % 下から移動
794       #6{%
795         \@hangfrom{\hskip #3\relax\@svsec}%
796         #8\@@par}%
797     \endgroup
798     \csname #1mark\endcsname{#7}%
799     \addcontentsline{toc}{#1}{%
800       \ifnum #2>\c@secnumdepth \else
801         \protect\numberline{\csname the#1\endcsname}%
802       \fi
803       #7}% 目次にフルネームを載せるならここは #8
804   \fi
805   \@xsect{#5}}
806 \def\@xsect#1{%
807   \@tempskipa #1\relax
808   \ifdim \@tempskipa<\z@
809     \@nobreakfalse
810     \global\@noskipsectrue
811     \everypar{%
812       \if@noskipsec
813         \global\@noskipsecfalse
814        {\setbox\z@\lastbox}%
815         \clubpenalty\@M
816         \begingroup \@svsechd \endgroup
817         \unskip
818         \@tempskipa #1\relax
819         \hskip -\@tempskipa\@inhibitglue
820       \else
821         \clubpenalty \@clubpenalty
822         \everypar{}%
823       \fi}%
824   \else
825     \par \nobreak
826     \vskip \@tempskipa
827     \@afterheading
828   \fi
829   \if@slide
830     {\vskip-6pt\maybeblue\hrule height0pt depth1pt\vskip7pt\relax}%
831   \fi
832   \par  % 2000-12-18
833   \ignorespaces}
834 \def\@ssect#1#2#3#4#5{%
835   \@tempskipa #3\relax
836   \ifdim \@tempskipa<\z@
837     \def\@svsechd{#4{\hskip #1\relax #5}}%
838   \else
839     \begingroup
840       #4{%
841         \@hangfrom{\hskip #1}%
842           \interlinepenalty \@M #5\@@par}%
843     \endgroup
844   \fi
845   \@xsect{#3}}
846 \newcommand*\chaptermark[1]{}
847 \setcounter{secnumdepth}{3}
848 \newcounter{part}
849 \newcounter{section}
850 \newcounter{subsection}[section]
851 \newcounter{subsubsection}[subsection]
852 \newcounter{paragraph}[subsubsection]
853 \newcounter{subparagraph}[paragraph]
854 \renewcommand{\thepart}{\@Roman\c@part}
855 % \renewcommand{\thesection}{\@arabic\c@section}
856 \renewcommand{\thesection}{\presectionname\@arabic\c@section\postsectionname}
857 \renewcommand{\thesubsection}{\@arabic\c@section.\@arabic\c@subsection}
858 \renewcommand{\thesubsubsection}{%
859    \thesubsection.\@arabic\c@subsubsection}
860 \renewcommand{\theparagraph}{%
861    \thesubsubsection.\@arabic\c@paragraph}
862 \renewcommand{\thesubparagraph}{%
863    \theparagraph.\@arabic\c@subparagraph}
864 \newcommand\part{%
865   \if@noskipsec \leavevmode \fi
866   \par
867   \addvspace{4ex}%
868   \if@english \@afterindentfalse \else \@afterindenttrue \fi
869   \secdef\@part\@spart}
870 \def\@part[#1]#2{%
871   \ifnum \c@secnumdepth >\m@ne
872     \refstepcounter{part}%
873     \addcontentsline{toc}{part}{%
874       \prepartname\thepart\postpartname\hspace{1\zw}#1}%
875   \else
876     \addcontentsline{toc}{part}{#1}%
877   \fi
878   \markboth{}{}%
879   {\parindent\z@
880     \raggedright
881     \interlinepenalty \@M
882     \normalfont
883     \ifnum \c@secnumdepth >\m@ne
884       \Large\headfont\prepartname\thepart\postpartname
885       \par\nobreak
886     \fi
887     \huge \headfont #2%
888     \markboth{}{}\par}%
889   \nobreak
890   \vskip 3ex
891   \@afterheading}
892 \def\@spart#1{{%
893     \parindent \z@ \raggedright
894     \interlinepenalty \@M
895     \normalfont
896     \huge \headfont #1\par}%
897   \nobreak
898   \vskip 3ex
899   \@afterheading}
900 \if@twocolumn
901   \newcommand{\section}{%
902     \@startsection{section}{1}{\z@}%
903     {0.6\Cvs}{0.4\Cvs}%
904     {\normalfont\large\headfont\raggedright}}
905 \else
906   \newcommand{\section}{%
907     \if@slide\clearpage\fi
908     \@startsection{section}{1}{\z@}%
909     {\Cvs \@plus.5\Cdp \@minus.2\Cdp}% 前アキ
910     {.5\Cvs \@plus.3\Cdp}% 後アキ
911     {\normalfont\Large\headfont\raggedright}}
912 \fi
913 \if@twocolumn
914   \newcommand{\subsection}{\@startsection{subsection}{2}{\z@}%
915     {\z@}{\z@}%
916     {\normalfont\normalsize\headfont}}
917 \else
918   \newcommand{\subsection}{\@startsection{subsection}{2}{\z@}%
919     {\Cvs \@plus.5\Cdp \@minus.2\Cdp}% 前アキ
920     {.5\Cvs \@plus.3\Cdp}% 後アキ
921     {\normalfont\large\headfont}}
922 \fi
923 \if@twocolumn
924   \newcommand{\subsubsection}{\@startsection{subsubsection}{3}{\z@}%
925     {\z@}{\z@}%
926     {\normalfont\normalsize\headfont}}
927 \else
928   \newcommand{\subsubsection}{\@startsection{subsubsection}{3}{\z@}%
929     {\Cvs \@plus.5\Cdp \@minus.2\Cdp}%
930     {\z@}%
931     {\normalfont\normalsize\headfont}}
932 \fi
933 \if@twocolumn
934   \newcommand{\paragraph}{\@startsection{paragraph}{4}{\z@}%
935     {\z@}{-1\zw}% 改行せず 1\zw のアキ
936     {\normalfont\normalsize\headfont ■}}
937 \else
938   \newcommand{\paragraph}{\@startsection{paragraph}{4}{\z@}%
939     {0.5\Cvs \@plus.5\Cdp \@minus.2\Cdp}%
940     {-1\zw}% 改行せず 1\zw のアキ
941     {\normalfont\normalsize\headfont ■}}
942 \fi
943 \newcommand{\subparagraph}{\@startsection{subparagraph}{5}{\z@}%
944    {\z@}{-1\zw}%
945    {\normalfont\normalsize\headfont}}
946 \if@slide
947   \setlength\leftmargini{1\zw}
948 \else
949   \if@twocolumn
950     \setlength\leftmargini{2\zw}
951   \else
952     \setlength\leftmargini{3\zw}
953   \fi
954 \fi
955 \if@slide
956   \setlength\leftmarginii {1\zw}
957   \setlength\leftmarginiii{1\zw}
958   \setlength\leftmarginiv {1\zw}
959   \setlength\leftmarginv  {1\zw}
960   \setlength\leftmarginvi {1\zw}
961 \else
962   \setlength\leftmarginii {2\zw}
963   \setlength\leftmarginiii{2\zw}
964   \setlength\leftmarginiv {2\zw}
965   \setlength\leftmarginv  {1\zw}
966   \setlength\leftmarginvi {1\zw}
967 \fi
968 \setlength  \labelsep  {0.5\zw} % .5em
969 \setlength  \labelwidth{\leftmargini}
970 \addtolength\labelwidth{-\labelsep}
971 \setlength\partopsep{\z@} % {2\p@ \@plus 1\p@ \@minus 1\p@}
972 \@beginparpenalty -\@lowpenalty
973 \@endparpenalty   -\@lowpenalty
974 \@itempenalty     -\@lowpenalty
975 \def\@listi{\leftmargin\leftmargini
976   \parsep \z@
977   \topsep 0.5\baselineskip
978   \itemsep \z@ \relax}
979 \let\@listI\@listi
980 \@listi
981 \def\@listii{\leftmargin\leftmarginii
982   \labelwidth\leftmarginii \advance\labelwidth-\labelsep
983   \topsep \z@
984   \parsep \z@
985   \itemsep\parsep}
986 \def\@listiii{\leftmargin\leftmarginiii
987   \labelwidth\leftmarginiii \advance\labelwidth-\labelsep
988   \topsep \z@
989   \parsep \z@
990   \itemsep\parsep}
991 \def\@listiv {\leftmargin\leftmarginiv
992               \labelwidth\leftmarginiv
993               \advance\labelwidth-\labelsep}
994 \def\@listv  {\leftmargin\leftmarginv
995               \labelwidth\leftmarginv
996               \advance\labelwidth-\labelsep}
997 \def\@listvi {\leftmargin\leftmarginvi
998               \labelwidth\leftmarginvi
999               \advance\labelwidth-\labelsep}
1000 \renewcommand{\theenumi}{\@arabic\c@enumi}
1001 \renewcommand{\theenumii}{\@alph\c@enumii}
1002 \renewcommand{\theenumiii}{\@roman\c@enumiii}
1003 \renewcommand{\theenumiv}{\@Alph\c@enumiv}
1004 \newcommand{\labelenumi}{\theenumi.}
1005 \newcommand{\labelenumii}{\inhibitglue(\theenumii)\inhibitglue}
1006 \newcommand{\labelenumiii}{\theenumiii.}
1007 \newcommand{\labelenumiv}{\theenumiv.}
1008 \renewcommand{\p@enumii}{\theenumi}
1009 \renewcommand{\p@enumiii}{\theenumi\inhibitglue(\theenumii)}
1010 \renewcommand{\p@enumiv}{\p@enumiii\theenumiii}
1011 \newcommand\labelitemi{\textbullet}
1012 \newcommand\labelitemii{\normalfont\bfseries \textendash}
1013 \newcommand\labelitemiii{\textasteriskcentered}
1014 \newcommand\labelitemiv{\textperiodcentered}
1015 \newenvironment{description}{%
1016   \list{}{%
1017     \labelwidth=\leftmargin
1018     \labelsep=1\zw
1019     \advance \labelwidth by -\labelsep
1020     \let \makelabel=\descriptionlabel}}{\endlist}
1021 \newcommand*\descriptionlabel[1]{\normalfont\headfont #1\hfil}
1022 \newbox\@abstractbox
1023 \if@titlepage
1024   \newenvironment{abstract}{%
1025     \titlepage
1026     \null\vfil
1027     \@beginparpenalty\@lowpenalty
1028     \begin{center}%
1029       \headfont \abstractname
1030       \@endparpenalty\@M
1031     \end{center}}%
1032   {\par\vfil\null\endtitlepage}
1033 \else
1034   \newenvironment{abstract}{%
1035     \if@twocolumn
1036       \ifx\maketitle\relax
1037         \section*{\abstractname}%
1038       \else
1039         \global\setbox\@abstractbox\hbox\bgroup
1040         \begin{minipage}[b]{\textwidth}
1041           \small\parindent1\zw
1042           \begin{center}%
1043             {\headfont \abstractname\vspace{-.5em}\vspace{\z@}}%
1044           \end{center}%
1045           \list{}{%
1046             \listparindent\parindent
1047             \itemindent \listparindent
1048             \rightmargin \leftmargin}%
1049           \item\relax
1050       \fi
1051     \else
1052       \small
1053       \begin{center}%
1054         {\headfont \abstractname\vspace{-.5em}\vspace{\z@}}%
1055       \end{center}%
1056       \list{}{%
1057         \listparindent\parindent
1058         \itemindent \listparindent
1059         \rightmargin \leftmargin}%
1060       \item\relax
1061     \fi}{\if@twocolumn
1062       \ifx\maketitle\relax
1063       \else
1064         \endlist\end{minipage}\egroup
1065       \fi
1066     \else
1067       \endlist
1068     \fi}
1069 \fi
1070 \newenvironment{verse}{%
1071   \let \\=\@centercr
1072   \list{}{%
1073     \itemsep \z@
1074     \itemindent -2\zw % 元: -1.5em
1075     \listparindent\itemindent
1076     \rightmargin \z@
1077     \advance\leftmargin 2\zw}% 元: 1.5em
1078   \item\relax}{\endlist}
1079 \newenvironment{quotation}{%
1080   \list{}{%
1081     \listparindent\parindent
1082     \itemindent\listparindent
1083     \rightmargin \z@}%
1084   \item\relax}{\endlist}
1085 \newenvironment{quote}%
1086   {\list{}{\rightmargin\z@}\item\relax}{\endlist}
1087 \def\@begintheorem#1#2{\trivlist\labelsep=1\zw
1088    \item[\hskip \labelsep{\headfont #1\ #2}]}
1089 \def\@opargbegintheorem#1#2#3{\trivlist\labelsep=1\zw
1090       \item[\hskip \labelsep{\headfont #1\ #2(#3)}]}
1091 \newenvironment{titlepage}{%
1092     \if@twocolumn
1093       \@restonecoltrue\onecolumn
1094     \else
1095       \@restonecolfalse\newpage
1096     \fi
1097     \thispagestyle{empty}%
1098     \setcounter{page}\@ne
1099   }%
1100   {\if@restonecol\twocolumn \else \newpage \fi
1101     \if@twoside\else
1102       \setcounter{page}\@ne
1103     \fi}
1104 \newcommand{\appendix}{\par
1105   \setcounter{section}{0}%
1106   \setcounter{subsection}{0}%
1107   \gdef\presectionname{\appendixname}%
1108   \gdef\postsectionname{}%
1109   \gdef\thesection{\presectionname\@Alph\c@section\postsectionname}%
1110   \gdef\thesubsection{\@Alph\c@section.\@arabic\c@subsection}}
1111 \setlength\arraycolsep{5\p@}
1112 \setlength\tabcolsep{6\p@}
1113 \setlength\arrayrulewidth{.4\p@}
1114 \setlength\doublerulesep{2\p@}
1115 \setlength\tabbingsep{\labelsep}
1116 \skip\@mpfootins = \skip\footins
1117 \setlength\fboxsep{3\p@}
1118 \setlength\fboxrule{.4\p@}
1119 \renewcommand \theequation {\@arabic\c@equation}
1120 \newcounter{figure}
1121 \renewcommand \thefigure {\@arabic\c@figure}
1122 \def\fps@figure{tbp}
1123 \def\ftype@figure{1}
1124 \def\ext@figure{lof}
1125 \def\fnum@figure{\figurename\nobreak\thefigure}
1126 \newenvironment{figure}%
1127                {\@float{figure}}%
1128                {\end@float}
1129 \newenvironment{figure*}%
1130                {\@dblfloat{figure}}%
1131                {\end@dblfloat}
1132 \newcounter{table}
1133 \renewcommand\thetable{\@arabic\c@table}
1134 \def\fps@table{tbp}
1135 \def\ftype@table{2}
1136 \def\ext@table{lot}
1137 \def\fnum@table{\tablename\nobreak\thetable}
1138 \newenvironment{table}%
1139                {\@float{table}}%
1140                {\end@float}
1141 \newenvironment{table*}%
1142                {\@dblfloat{table}}%
1143                {\end@dblfloat}
1144 \newlength\abovecaptionskip
1145 \newlength\belowcaptionskip
1146 \setlength\abovecaptionskip{5\p@} % 元: 10\p@
1147 \setlength\belowcaptionskip{5\p@} % 元: 0\p@
1148 \long\def\@makecaption#1#2{{\small
1149   \advance\leftskip .0628\linewidth
1150   \advance\rightskip .0628\linewidth
1151   \vskip\abovecaptionskip
1152   \sbox\@tempboxa{#1\hskip1\zw\relax #2}%
1153   \ifdim \wd\@tempboxa <\hsize \centering \fi
1154   #1\hskip1\zw\relax #2\par
1155   \vskip\belowcaptionskip}}
1156 \DeclareOldFontCommand{\mc}{\normalfont\mcfamily}{\mathmc}
1157 \DeclareOldFontCommand{\gt}{\normalfont\gtfamily}{\mathgt}
1158 \DeclareOldFontCommand{\rm}{\normalfont\rmfamily}{\mathrm}
1159 \DeclareOldFontCommand{\sf}{\normalfont\sffamily}{\mathsf}
1160 \DeclareOldFontCommand{\tt}{\normalfont\ttfamily}{\mathtt}
1161 \DeclareOldFontCommand{\bf}{\normalfont\bfseries}{\mathbf}
1162 \DeclareOldFontCommand{\it}{\normalfont\itshape}{\mathit}
1163 \DeclareOldFontCommand{\sl}{\normalfont\slshape}{\@nomath\sl}
1164 \DeclareOldFontCommand{\sc}{\normalfont\scshape}{\@nomath\sc}
1165 \DeclareRobustCommand*{\cal}{\@fontswitch\relax\mathcal}
1166 \DeclareRobustCommand*{\mit}{\@fontswitch\relax\mathnormal}
1167 \newcommand\@pnumwidth{1.55em}
1168 \newcommand\@tocrmarg{2.55em}
1169 \newcommand\@dotsep{4.5}
1170 \setcounter{tocdepth}{2}
1171 \newdimen\js@tocl@width
1172 \newcommand{\tableofcontents}{%
1173   \settowidth\js@tocl@width{\headfont\presectionname\postsectionname}%
1174   \settowidth\@tempdima{\headfont\appendixname}%
1175   \ifdim\js@tocl@width<\@tempdima\relax\setlength\js@tocl@width{\@tempdima}\fi
1176   \ifdim\js@tocl@width<2\zw \divide\js@tocl@width by 2 \advance\js@tocl@width 1\zw\fi
1177   \section*{\contentsname}%
1178   \@mkboth{\contentsname}{\contentsname}%
1179   \@starttoc{toc}%
1180 }
1181 \newcommand*{\l@part}[2]{%
1182   \ifnum \c@tocdepth >-2\relax
1183     \addpenalty\@secpenalty
1184     \addvspace{2.25em \@plus\p@}%
1185     \begingroup
1186       \parindent \z@
1187       \rightskip \@tocrmarg
1188       \parfillskip -\rightskip
1189       {\leavevmode
1190         \large \headfont
1191         \setlength\@lnumwidth{4\zw}%
1192         #1\hfil \hb@xt@\@pnumwidth{\hss #2}}\par
1193       \nobreak
1194     \endgroup
1195   \fi}
1196 \newcommand*{\l@section}[2]{%
1197   \ifnum \c@tocdepth >\z@
1198     \addpenalty{\@secpenalty}%
1199     \addvspace{1.0em \@plus\p@}%
1200     \begingroup
1201       \parindent\z@
1202       \rightskip\@tocrmarg
1203       \parfillskip-\rightskip
1204       \leavevmode\headfont
1205       %\setlength\@lnumwidth{4\zw}% 元1.5em [2003-03-02]
1206       \setlength\@lnumwidth{\js@tocl@width}\advance\@lnumwidth 2\zw
1207       \advance\leftskip\@lnumwidth \hskip-\leftskip
1208       #1\nobreak\hfil\nobreak\hbox to\@pnumwidth{\hss#2}\par
1209     \endgroup
1210   \fi}
1211 \newcommand*{\l@subsection}{%
1212           \@tempdima\js@tocl@width \advance\@tempdima -1\zw
1213           \@dottedtocline{2}{\@tempdima}{3\zw}}
1214 \newcommand*{\l@subsubsection}{%
1215           \@tempdima\js@tocl@width \advance\@tempdima 0\zw
1216           \@dottedtocline{3}{\@tempdima}{4\zw}}
1217 \newcommand*{\l@paragraph}{%
1218           \@tempdima\js@tocl@width \advance\@tempdima 1\zw
1219           \@dottedtocline{4}{\@tempdima}{5\zw}}
1220 \newcommand*{\l@subparagraph}{%
1221           \@tempdima\js@tocl@width \advance\@tempdima 2\zw
1222           \@dottedtocline{5}{\@tempdima}{6\zw}}
1223 \newdimen\@lnumwidth
1224 \def\numberline#1{\hb@xt@\@lnumwidth{#1\hfil}\hspace{0pt}}
1225 \def\@dottedtocline#1#2#3#4#5{\ifnum #1>\c@tocdepth \else
1226   \vskip \z@ \@plus.2\p@
1227   {\leftskip #2\relax \rightskip \@tocrmarg \parfillskip -\rightskip
1228     \parindent #2\relax\@afterindenttrue
1229    \interlinepenalty\@M
1230    \leavevmode
1231    \@lnumwidth #3\relax
1232    \advance\leftskip \@lnumwidth \null\nobreak\hskip -\leftskip
1233     {#4}\nobreak
1234     \leaders\hbox{$\m@th \mkern \@dotsep mu\hbox{.}\mkern \@dotsep
1235        mu$}\hfill \nobreak\hb@xt@\@pnumwidth{%
1236          \hfil\normalfont \normalcolor #5}\par}\fi}
1237 \newcommand{\listoffigures}{%
1238   \section*{\listfigurename}%
1239   \@mkboth{\listfigurename}{\listfigurename}%
1240   \@starttoc{lof}%
1241 }
1242 \newcommand*{\l@figure}{\@dottedtocline{1}{1\zw}{3.683\zw}}
1243 \newcommand{\listoftables}{%
1244   \section*{\listtablename}%
1245   \@mkboth{\listtablename}{\listtablename}%
1246   \@starttoc{lot}%
1247 }
1248 \let\l@table\l@figure
1249 \newdimen\bibindent
1250 \setlength\bibindent{2\zw}
1251 \newenvironment{thebibliography}[1]{%
1252   \global\let\presectionname\relax
1253   \global\let\postsectionname\relax
1254   \section*{\refname}\@mkboth{\refname}{\refname}%
1255    \list{\@biblabel{\@arabic\c@enumiv}}%
1256         {\settowidth\labelwidth{\@biblabel{#1}}%
1257          \leftmargin\labelwidth
1258          \advance\leftmargin\labelsep
1259          \@openbib@code
1260          \usecounter{enumiv}%
1261          \let\p@enumiv\@empty
1262          \renewcommand\theenumiv{\@arabic\c@enumiv}}%
1263    \sloppy
1264    \clubpenalty4000
1265    \@clubpenalty\clubpenalty
1266    \widowpenalty4000%
1267    \sfcode`\.\@m}
1268   {\def\@noitemerr
1269     {\@latex@warning{Empty `thebibliography' environment}}%
1270    \endlist}
1271 \newcommand{\newblock}{\hskip .11em\@plus.33em\@minus.07em}
1272 \let\@openbib@code\@empty
1273 \newenvironment{theindex}{% 索引を3段組で出力する環境
1274     \if@twocolumn
1275       \onecolumn\@restonecolfalse
1276     \else
1277       \clearpage\@restonecoltrue
1278     \fi
1279     \columnseprule.4pt \columnsep 2\zw
1280     \ifx\multicols\@undefined
1281       \def\presectionname{}\def\postsectionname{}%
1282       \twocolumn[\section*{\indexname}]%
1283     \else
1284       \ifdim\textwidth<\fullwidth
1285         \setlength{\evensidemargin}{\oddsidemargin}
1286         \setlength{\textwidth}{\fullwidth}
1287         \setlength{\linewidth}{\fullwidth}
1288         \def\presectionname{}\def\postsectionname{}%
1289         \begin{multicols}{3}[\section*{\indexname}]%
1290       \else
1291         \def\presectionname{}\def\postsectionname{}%
1292         \begin{multicols}{2}[\section*{\indexname}]%
1293       \fi
1294     \fi
1295     \@mkboth{\indexname}{\indexname}%
1296     \plainifnotempty % \thispagestyle{plain}
1297     \parindent\z@
1298     \parskip\z@ \@plus .3\p@\relax
1299     \let\item\@idxitem
1300     \raggedright
1301     \footnotesize\narrowbaselines
1302   }{
1303     \ifx\multicols\@undefined
1304       \if@restonecol\onecolumn\fi
1305     \else
1306       \end{multicols}
1307     \fi
1308     \clearpage
1309   }
1310 \newcommand{\@idxitem}{\par\hangindent 4\zw} % 元 40pt
1311 \newcommand{\subitem}{\@idxitem \hspace*{2\zw}} % 元 20pt
1312 \newcommand{\subsubitem}{\@idxitem \hspace*{3\zw}} % 元 30pt
1313 \newcommand{\indexspace}{\par \vskip 10\p@ \@plus5\p@ \@minus3\p@\relax}
1314 \newcommand\seename{\if@english see\else →\fi}
1315 \newcommand\alsoname{\if@english see also\else →\fi}
1316 \let\footnotes@ve=\footnote
1317 \def\footnote{\inhibitglue\footnotes@ve}
1318 \let\footnotemarks@ve=\footnotemark
1319 \def\footnotemark{\inhibitglue\footnotemarks@ve}
1320 \renewcommand\@makefnmark{\hbox{}\hbox{%
1321   \unless\ifnum\ltjgetparameter{direction}=3 \@textsuperscript{\normalfont\@thefnmark}%
1322   \else\hbox{\yoko\@textsuperscript{\normalfont\@thefnmark}}\fi}\hbox{}}
1323 \def\thefootnote{\ifnum\c@footnote>\z@\leavevmode\lower.5ex\hbox{*}\@arabic\c@footnote\fi}
1324 \renewcommand{\footnoterule}{%
1325   \kern-3\p@
1326   \hrule width .4\columnwidth
1327   \kern 2.6\p@}
1328 \long\def\@footnotetext{%
1329   \insert\footins\bgroup
1330     \normalfont\footnotesize
1331     \interlinepenalty\interfootnotelinepenalty
1332     \splittopskip\footnotesep
1333     \splitmaxdepth \dp\strutbox \floatingpenalty \@MM
1334     \hsize\columnwidth \@parboxrestore
1335     \protected@edef\@currentlabel{%
1336        \csname p@footnote\endcsname\@thefnmark
1337     }%
1338     \color@begingroup
1339       \@makefntext{%
1340         \rule\z@\footnotesep\ignorespaces}%
1341       \futurelet\next\fo@t}
1342 \def\fo@t{\ifcat\bgroup\noexpand\next \let\next\f@@t
1343                                 \else \let\next\f@t\fi \next}
1344 \def\f@@t{\bgroup\aftergroup\@foot\let\next}
1345 \def\f@t#1{#1\@foot}
1346 \def\@foot{\@finalstrut\strutbox\color@endgroup\egroup}
1347 \newcommand\@makefntext[1]{%
1348   \advance\leftskip 3\zw
1349   \parindent 1\zw
1350   \noindent
1351   \llap{\@makefnmark\hskip0.3\zw}#1}
1352 \protected\def\@inhibitglue{\directlua{luatexja.jfmglue.create_beginpar_node()}}
1353 \def\@item[#1]{%
1354   \if@noparitem
1355     \@donoparitem
1356   \else
1357     \if@inlabel
1358       \indent \par
1359     \fi
1360     \ifhmode
1361       \unskip\unskip \par
1362     \fi
1363     \if@newlist
1364       \if@nobreak
1365         \@nbitem
1366       \else
1367         \addpenalty\@beginparpenalty
1368         \addvspace\@topsep
1369         \addvspace{-\parskip}%
1370       \fi
1371     \else
1372       \addpenalty\@itempenalty
1373       \addvspace\itemsep
1374     \fi
1375     \global\@inlabeltrue
1376   \fi
1377   \everypar{%
1378     \@minipagefalse
1379     \global\@newlistfalse
1380     \if@inlabel
1381       \global\@inlabelfalse
1382       {\setbox\z@\lastbox
1383        \ifvoid\z@
1384          \kern-\itemindent
1385        \fi}%
1386       \box\@labels
1387       \penalty\z@
1388     \fi
1389     \if@nobreak
1390       \@nobreakfalse
1391       \clubpenalty \@M
1392     \else
1393       \clubpenalty \@clubpenalty
1394       \everypar{}%
1395     \fi\@inhibitglue}%
1396   \if@noitemarg
1397     \@noitemargfalse
1398     \if@nmbrlist
1399       \refstepcounter\@listctr
1400     \fi
1401   \fi
1402   \sbox\@tempboxa{\makelabel{#1}}%
1403   \global\setbox\@labels\hbox{%
1404     \unhbox\@labels
1405     \hskip \itemindent
1406     \hskip -\labelwidth
1407     \hskip -\labelsep
1408     \ifdim \wd\@tempboxa >\labelwidth
1409       \box\@tempboxa
1410     \else
1411       \hbox to\labelwidth {\unhbox\@tempboxa}%
1412     \fi
1413     \hskip \labelsep}%
1414   \ignorespaces}
1415 \def\@gnewline #1{%
1416   \ifvmode
1417     \@nolnerr
1418   \else
1419     \unskip \reserved@e {\reserved@f#1}\nobreak \hfil \break \null
1420     \inhibitglue \ignorespaces
1421   \fi}
1422 \def\小#1{\hbox{$\m@th$%
1423   \csname S@\f@size\endcsname
1424   \fontsize\sf@size\z@
1425   \math@fontsfalse\selectfont
1426   #1}}
1427 \def\上小#1{{\sbox\z@ T\vbox to\ht0{\小{#1}\vss}}}
1428 \def\cmrTeX{%
1429   \ifdim \fontdimen\@ne\font >\z@
1430     T\kern-.25em\lower.5ex\hbox{E}\kern-.125emX\@
1431   \else
1432     T\kern-.1667em\lower.5ex\hbox{E}\kern-.125emX\@
1433   \fi}
1434 \def\cmrLaTeX{%
1435   \ifdim \fontdimen\@ne\font >\z@
1436     L\kern-.32em\上小{A}\kern-.22em\cmrTeX
1437   \else
1438     L\kern-.36em\上小{A}\kern-.15em\cmrTeX
1439   \fi}
1440 \def\sfTeX{T\kern-.1em\lower.4ex\hbox{E}\kern-.07emX\@}
1441 \def\sfLaTeX{L\kern-.25em\上小{A}\kern-.08em\sfTeX}
1442 \def\ptmTeX{%
1443   \ifdim \fontdimen\@ne\font >\z@
1444     T\kern-.12em\lower.37ex\hbox{E}\kern-.02emX\@
1445   \else
1446     T\kern-.07em\lower.37ex\hbox{E}\kern-.05emX\@
1447   \fi}
1448 \def\ptmLaTeX{%
1449   \ifdim \fontdimen\@ne\font >\z@
1450     L\kern-.2em\上小{A}\kern-.1em\ptmTeX
1451   \else
1452     L\kern-.3em\上小{A}\kern-.1em\ptmTeX
1453   \fi}
1454 \def\pncTeX{%
1455   \ifdim \fontdimen\@ne\font >\z@
1456     T\kern-.2em\lower.5ex\hbox{E}\kern-.08emX\@
1457   \else
1458     T\kern-.13em\lower.5ex\hbox{E}\kern-.13emX\@
1459   \fi}
1460 \def\pncLaTeX{%
1461   \ifdim \fontdimen\@ne\font >\z@
1462     L\kern-.3em\上小{A}\kern-.1em\pncTeX
1463   \else
1464     L\kern-.3em\上小{A}\kern-.1em\pncTeX
1465   \fi}
1466 \def\pplTeX{%
1467   \ifdim \fontdimen\@ne\font >\z@
1468     T\kern-.17em\lower.32ex\hbox{E}\kern-.15emX\@
1469   \else
1470     T\kern-.12em\lower.34ex\hbox{E}\kern-.1emX\@
1471   \fi}
1472 \def\pplLaTeX{%
1473   \ifdim \fontdimen\@ne\font >\z@
1474     L\kern-.27em\上小{A}\kern-.12em\pplTeX
1475   \else
1476     L\kern-.3em\上小{A}\kern-.15em\pplTeX
1477   \fi}
1478 \def\ugmTeX{%
1479   \ifdim \fontdimen\@ne\font >\z@
1480     T\kern-.1em\lower.32ex\hbox{E}\kern-.06emX\@
1481   \else
1482     T\kern-.12em\lower.34ex\hbox{E}\kern-.1emX\@
1483   \fi}
1484 \def\ugmLaTeX{%
1485   \ifdim \fontdimen\@ne\font >\z@
1486     L\kern-.2em\上小{A}\kern-.13em\ugmTeX
1487   \else
1488     L\kern-.3em\上小{A}\kern-.13em\ugmTeX
1489   \fi}
1490 \DeclareRobustCommand{\TeX}{%
1491   \def\@tempa{cmr}%
1492   \ifx\f@family\@tempa\cmrTeX
1493   \else
1494     \def\@tempa{ptm}%
1495     \ifx\f@family\@tempa\ptmTeX
1496     \else
1497       \def\@tempa{txr}%
1498       \ifx\f@family\@tempa\ptmTeX
1499       \else
1500         \def\@tempa{pnc}%
1501         \ifx\f@family\@tempa\pncTeX
1502         \else
1503           \def\@tempa{ppl}%
1504           \ifx\f@family\@tempa\pplTeX
1505           \else
1506             \def\@tempa{ugm}%
1507             \ifx\f@family\@tempa\ugmTeX
1508             \else\sfTeX
1509             \fi
1510           \fi
1511         \fi
1512       \fi
1513     \fi
1514   \fi}
1515
1516 \DeclareRobustCommand{\LaTeX}{%
1517   \def\@tempa{cmr}%
1518   \ifx\f@family\@tempa\cmrLaTeX
1519   \else
1520     \def\@tempa{ptm}%
1521     \ifx\f@family\@tempa\ptmLaTeX
1522     \else
1523       \def\@tempa{txr}%
1524       \ifx\f@family\@tempa\ptmLaTeX
1525       \else
1526         \def\@tempa{pnc}%
1527         \ifx\f@family\@tempa\pncLaTeX
1528         \else
1529           \def\@tempa{ppl}%
1530           \ifx\f@family\@tempa\pplLaTeX
1531           \else
1532             \def\@tempa{ugm}%
1533             \ifx\f@family\@tempa\ugmLaTeX
1534             \else\sfLaTeX
1535             \fi
1536           \fi
1537         \fi
1538       \fi
1539     \fi
1540   \fi}
1541 \DeclareRobustCommand{\LaTeXe}{$\mbox{%
1542   \if b\expandafter\@car\f@series\@nil\boldmath\fi
1543   \LaTeX\kern.15em2\raisebox{-.37ex}{$\textstyle\varepsilon$}}$}
1544 \def\pTeX{p\kern-.05em\TeX}
1545 \def\pLaTeX{p\LaTeX}
1546 \def\pLaTeXe{p\LaTeXe}
1547 \def\AmSTeX{\protect\AmS-\protect\TeX{}}
1548 \DeclareRobustCommand{\BibTeX}{B\kern-.05em\小{I\kern-.025em B}%
1549   \ifx\f@family\cmr\kern-.08em\else\kern-.15em\fi\TeX}
1550 \DeclareRobustCommand{\SliTeX}{%
1551   S\kern-.06emL\kern-.18em\上小{I}\kern -.03em\TeX}
1552 \newcommand{\prepartname}{\if@english Part~\else 第\fi}
1553 \newcommand{\postpartname}{\if@english\else 部\fi}
1554 \newcommand{\presectionname}{}%  第
1555 \newcommand{\postsectionname}{}% 節
1556 \newcommand{\contentsname}{\if@english Contents\else 目次\fi}
1557 \newcommand{\listfigurename}{\if@english List of Figures\else 図目次\fi}
1558 \newcommand{\listtablename}{\if@english List of Tables\else 表目次\fi}
1559 \newcommand{\refname}{\if@english References\else 参考文献\fi}
1560 \newcommand{\bibname}{\if@english Bibliography\else 参考文献\fi}
1561 \newcommand{\indexname}{\if@english Index\else 索引\fi}
1562 \newcommand{\figurename}{\if@english Fig.~\else 図\fi}
1563 \newcommand{\tablename}{\if@english Table~\else 表\fi}
1564 \newcommand{\appendixname}{\if@english \else 付録\fi}
1565 \newcommand{\abstractname}{\if@english Abstract\else 概要\fi}
1566 \newif\if西暦 \西暦true
1567 \def\西暦{\西暦true}
1568 \def\和暦{\西暦false}
1569 \newcount\heisei \heisei\year \advance\heisei-1988\relax
1570 \def\today{%
1571   \if@english
1572     \ifcase\month\or
1573       January\or February\or March\or April\or May\or June\or
1574       July\or August\or September\or October\or November\or December\fi
1575       \space\number\day, \number\year
1576   \else
1577     \if西暦
1578       \number\year 年
1579       \number\month 月
1580       \number\day 日
1581     \else
1582       平成\number\heisei 年
1583       \number\month 月
1584       \number\day 日
1585     \fi
1586   \fi}
1587 \hyphenation{ado-be post-script ghost-script phe-nom-e-no-log-i-cal man-u-script}
1588 \if@slide \pagestyle{empty} \else \pagestyle{plain} \fi
1589 \pagenumbering{arabic}
1590 \if@twocolumn
1591   \twocolumn
1592   \sloppy
1593   \flushbottom
1594 \else
1595   \onecolumn
1596   \raggedbottom
1597 \fi
1598 \if@slide
1599   \renewcommand\kanjifamilydefault{\gtdefault}
1600   \renewcommand\familydefault{\sfdefault}
1601   \raggedright
1602   \ltj@setpar@global
1603   \ltjsetxkanjiskip{0.1em}\relax
1604 \fi
1605 \endinput
1606 %%
1607 %% End of file `ltjsarticle.cls'.