OSDN Git Service

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