OSDN Git Service

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