OSDN Git Service

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