annotate jsreport.cls @ 2:192a425a7f10 default tip

final commit
author Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
date Thu, 17 Feb 2022 17:33:16 +0900
parents ee7afe39f461
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
1
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1 %%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
2 %% This is file `jsreport.cls',
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
3 %% generated with the docstrip utility.
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
4 %%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
5 %% The original source files were:
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
6 %%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
7 %% jsclasses.dtx (with options: `class,report')
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
8 %%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
9 %% Maintained on GitHub: https://github.com/texjporg/jsclasses
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
10 %%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
11 \ifx\epTeXinputencoding\undefined\else
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
12 \epTeXinputencoding utf8 % ^^A added (2017-10-04)
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
13 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
14 \NeedsTeXFormat{pLaTeX2e}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
15 \ProvidesClass{jsreport}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
16 [2021/06/28 jsclasses (okumura, texjporg)]
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
17 \def\jsc@clsname{jsreport}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
18 \newif\ifjsc@needsp@tch
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
19 \jsc@needsp@tchfalse
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
20 \newif\if@restonecol
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
21 \newif\if@titlepage
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
22 \newif\if@openright
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
23 \newif\if@openleft
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
24 \newif\if@enablejfam \@enablejfamtrue
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
25 \DeclareOption{a3paper}{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
26 \setlength\paperheight {420mm}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
27 \setlength\paperwidth {297mm}}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
28 \DeclareOption{a4paper}{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
29 \setlength\paperheight {297mm}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
30 \setlength\paperwidth {210mm}}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
31 \DeclareOption{a5paper}{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
32 \setlength\paperheight {210mm}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
33 \setlength\paperwidth {148mm}}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
34 \DeclareOption{a6paper}{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
35 \setlength\paperheight {148mm}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
36 \setlength\paperwidth {105mm}}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
37 \DeclareOption{b4paper}{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
38 \setlength\paperheight {364mm}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
39 \setlength\paperwidth {257mm}}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
40 \DeclareOption{b5paper}{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
41 \setlength\paperheight {257mm}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
42 \setlength\paperwidth {182mm}}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
43 \DeclareOption{b6paper}{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
44 \setlength\paperheight {182mm}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
45 \setlength\paperwidth {128mm}}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
46 \DeclareOption{a4j}{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
47 \setlength\paperheight {297mm}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
48 \setlength\paperwidth {210mm}}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
49 \DeclareOption{a5j}{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
50 \setlength\paperheight {210mm}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
51 \setlength\paperwidth {148mm}}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
52 \DeclareOption{b4j}{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
53 \setlength\paperheight {364mm}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
54 \setlength\paperwidth {257mm}}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
55 \DeclareOption{b5j}{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
56 \setlength\paperheight {257mm}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
57 \setlength\paperwidth {182mm}}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
58 \DeclareOption{a4var}{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
59 \setlength\paperheight {283mm}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
60 \setlength\paperwidth {210mm}}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
61 \DeclareOption{b5var}{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
62 \setlength\paperheight {230mm}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
63 \setlength\paperwidth {182mm}}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
64 \DeclareOption{letterpaper}{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
65 \setlength\paperheight {11in}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
66 \setlength\paperwidth {8.5in}}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
67 \DeclareOption{legalpaper}{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
68 \setlength\paperheight {14in}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
69 \setlength\paperwidth {8.5in}}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
70 \DeclareOption{executivepaper}{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
71 \setlength\paperheight {10.5in}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
72 \setlength\paperwidth {7.25in}}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
73 \newif\if@landscape
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
74 \@landscapefalse
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
75 \DeclareOption{landscape}{\@landscapetrue}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
76 \newif\if@slide
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
77 \@slidefalse
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
78 \newcommand{\@ptsize}{0}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
79 \newif\ifjsc@mag\jsc@magtrue
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
80 \newif\ifjsc@mag@xreal\jsc@mag@xrealfalse
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
81 \def\jsc@magscale{1}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
82 \DeclareOption{8pt}{\def\jsc@magscale{0.833}\renewcommand{\@ptsize}{-2}}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
83 \DeclareOption{9pt}{\def\jsc@magscale{0.913}\renewcommand{\@ptsize}{-1}}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
84 \DeclareOption{10pt}{\def\jsc@magscale{1}\renewcommand{\@ptsize}{0}}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
85 \DeclareOption{11pt}{\def\jsc@magscale{1.095}\renewcommand{\@ptsize}{1}}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
86 \DeclareOption{12pt}{\def\jsc@magscale{1.200}\renewcommand{\@ptsize}{2}}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
87 \DeclareOption{14pt}{\def\jsc@magscale{1.440}\renewcommand{\@ptsize}{4}}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
88 \DeclareOption{17pt}{\def\jsc@magscale{1.728}\renewcommand{\@ptsize}{7}}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
89 \DeclareOption{20pt}{\def\jsc@magscale{2}\renewcommand{\@ptsize}{10}}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
90 \DeclareOption{21pt}{\def\jsc@magscale{2.074}\renewcommand{\@ptsize}{11}}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
91 \DeclareOption{25pt}{\def\jsc@magscale{2.488}\renewcommand{\@ptsize}{15}}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
92 \DeclareOption{30pt}{\def\jsc@magscale{2.986}\renewcommand{\@ptsize}{20}}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
93 \DeclareOption{36pt}{\def\jsc@magscale{3.583}\renewcommand{\@ptsize}{26}}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
94 \DeclareOption{43pt}{\def\jsc@magscale{4.300}\renewcommand{\@ptsize}{33}}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
95 \DeclareOption{12Q}{\def\jsc@magscale{0.923}\renewcommand{\@ptsize}{1200}}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
96 \DeclareOption{14Q}{\def\jsc@magscale{1.077}\renewcommand{\@ptsize}{1400}}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
97 \DeclareOption{10ptj}{\def\jsc@magscale{1.085}\renewcommand{\@ptsize}{1001}}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
98 \DeclareOption{10.5ptj}{\def\jsc@magscale{1.139}\renewcommand{\@ptsize}{1051}}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
99 \DeclareOption{11ptj}{\def\jsc@magscale{1.194}\renewcommand{\@ptsize}{1101}}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
100 \DeclareOption{12ptj}{\def\jsc@magscale{1.302}\renewcommand{\@ptsize}{1201}}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
101 \DeclareOption{usemag}{\jsc@magtrue\jsc@mag@xrealfalse}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
102 \DeclareOption{nomag}{\jsc@magfalse\jsc@mag@xrealfalse}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
103 \DeclareOption{nomag*}{\jsc@magfalse\jsc@mag@xrealtrue}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
104 \hour\time \divide\hour by 60\relax
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
105 \@tempcnta\hour \multiply\@tempcnta 60\relax
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
106 \minute\time \advance\minute-\@tempcnta
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
107 \DeclareOption{tombow}{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
108 \tombowtrue \tombowdatetrue
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
109 \setlength{\@tombowwidth}{.1\p@}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
110 \@bannertoken{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
111 \jobname\space(\number\year-\two@digits\month-\two@digits\day
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
112 \space\two@digits\hour:\two@digits\minute)}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
113 \maketombowbox}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
114 \DeclareOption{tombo}{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
115 \tombowtrue \tombowdatefalse
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
116 \setlength{\@tombowwidth}{.1\p@}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
117 \maketombowbox}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
118 \DeclareOption{mentuke}{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
119 \tombowtrue \tombowdatefalse
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
120 \setlength{\@tombowwidth}{\z@}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
121 \maketombowbox}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
122 \DeclareOption{oneside}{\@twosidefalse \@mparswitchfalse}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
123 \DeclareOption{twoside}{\@twosidetrue \@mparswitchtrue}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
124 \DeclareOption{vartwoside}{\@twosidetrue \@mparswitchfalse}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
125 \DeclareOption{onecolumn}{\@twocolumnfalse}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
126 \DeclareOption{twocolumn}{\@twocolumntrue}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
127 \DeclareOption{titlepage}{\@titlepagetrue}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
128 \DeclareOption{notitlepage}{\@titlepagefalse}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
129 \DeclareOption{openright}{\@openrighttrue\@openleftfalse}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
130 \DeclareOption{openleft}{\@openlefttrue\@openrightfalse}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
131 \DeclareOption{openany}{\@openrightfalse\@openleftfalse}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
132 \def\eqnarray{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
133 \stepcounter{equation}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
134 \def\@currentlabel{\p@equation\theequation}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
135 \global\@eqnswtrue
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
136 \m@th
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
137 \global\@eqcnt\z@
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
138 \tabskip\@centering
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
139 \let\\\@eqncr
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
140 $$\everycr{}\halign to\displaywidth\bgroup
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
141 \hskip\@centering$\displaystyle\tabskip\z@skip{##}$\@eqnsel
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
142 &\global\@eqcnt\@ne \hfil$\displaystyle{{}##{}}$\hfil
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
143 &\global\@eqcnt\tw@ $\displaystyle{##}$\hfil\tabskip\@centering
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
144 &\global\@eqcnt\thr@@ \hb@xt@\z@\bgroup\hss##\egroup
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
145 \tabskip\z@skip
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
146 \cr}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
147 \DeclareOption{leqno}{\input{leqno.clo}}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
148 \DeclareOption{fleqn}{\input{fleqn.clo}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
149 \def\eqnarray{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
150 \stepcounter{equation}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
151 \def\@currentlabel{\p@equation\theequation}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
152 \global\@eqnswtrue\m@th
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
153 \global\@eqcnt\z@
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
154 \tabskip\mathindent
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
155 \let\\=\@eqncr
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
156 \setlength\abovedisplayskip{\topsep}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
157 \ifvmode
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
158 \addtolength\abovedisplayskip{\partopsep}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
159 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
160 \addtolength\abovedisplayskip{\parskip}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
161 \setlength\belowdisplayskip{\abovedisplayskip}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
162 \setlength\belowdisplayshortskip{\abovedisplayskip}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
163 \setlength\abovedisplayshortskip{\abovedisplayskip}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
164 $$\everycr{}\halign to\linewidth% $$
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
165 \bgroup
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
166 \hskip\@centering$\displaystyle\tabskip\z@skip{##}$\@eqnsel
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
167 &\global\@eqcnt\@ne \hfil$\displaystyle{{}##{}}$\hfil
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
168 &\global\@eqcnt\tw@
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
169 $\displaystyle{##}$\hfil \tabskip\@centering
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
170 &\global\@eqcnt\thr@@ \hb@xt@\z@\bgroup\hss##\egroup
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
171 \tabskip\z@skip\cr
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
172 }}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
173 \DeclareOption{disablejfam}{\@enablejfamfalse}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
174 \DeclareOption{draft}{\setlength\overfullrule{5pt}}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
175 \DeclareOption{final}{\setlength\overfullrule{0pt}}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
176 \newif\ifmingoth
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
177 \mingothfalse
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
178 \newif\ifjisfont
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
179 \jisfontfalse
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
180 \newif\if@jsc@uplatex
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
181 \@jsc@uplatexfalse
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
182 \newif\if@jsc@autodetect
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
183 \@jsc@autodetectfalse
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
184 \DeclareOption{winjis}{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
185 \ClassWarningNoLine{\jsc@clsname}{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
186 The option `winjis' has been removed;\MessageBreak
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
187 Use `\string\usepackage{winjis}' instead}}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
188 \DeclareOption{mingoth}{\mingothtrue}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
189 \DeclareOption{jis}{\jisfonttrue}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
190 \DeclareOption{uplatex}{\@jsc@uplatextrue}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
191 \DeclareOption{autodetect-engine}{\@jsc@autodetecttrue}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
192 \def\jsc@JYn{\if@jsc@uplatex JY2\else JY1\fi}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
193 \def\jsc@JTn{\if@jsc@uplatex JT2\else JT1\fi}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
194 \def\jsc@pfx@{\if@jsc@uplatex u\else \fi}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
195 \newif\ifpapersize
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
196 \papersizefalse
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
197 \DeclareOption{papersize}{\papersizetrue}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
198 \newif\if@english
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
199 \@englishfalse
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
200 \DeclareOption{english}{\@englishtrue}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
201 \newif\if@jslogo \@jslogotrue
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
202 \DeclareOption{jslogo}{\@jslogotrue}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
203 \DeclareOption{nojslogo}{\@jslogofalse}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
204 \ExecuteOptions{a4paper,oneside,onecolumn,titlepage,openany,final}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
205 \ProcessOptions
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
206 \if@slide
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
207 \def\maybeblue{\@ifundefined{ver@color.sty}{}{\color{blue}}}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
208 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
209 \if@landscape
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
210 \setlength\@tempdima {\paperheight}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
211 \setlength\paperheight{\paperwidth}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
212 \setlength\paperwidth {\@tempdima}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
213 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
214 \ifnum \ifx\ucs\@undefined\z@\else\ucs"3000 \fi ="3000
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
215 \if@jsc@autodetect
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
216 \ClassInfo\jsc@clsname{Autodetected engine: upLaTeX}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
217 \@jsc@uplatextrue
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
218 \g@addto@macro\@classoptionslist{,uplatex}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
219 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
220 \if@jsc@uplatex\else
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
221 \ClassError\jsc@clsname
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
222 {You are running upLaTeX.\MessageBreak
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
223 Please use pLaTeX instead, or add 'uplatex' to\MessageBreak
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
224 the class option list}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
225 {\@ehc}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
226 \@jsc@uplatextrue
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
227 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
228 \else
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
229 \if@jsc@uplatex
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
230 \ClassError\jsc@clsname
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
231 {You are running pLaTeX.\MessageBreak
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
232 Please use upLaTeX instead, or remove 'uplatex' from\MessageBreak
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
233 the class option list}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
234 {\@ehc}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
235 \@jsc@uplatexfalse
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
236 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
237 \if@jsc@autodetect
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
238 \ClassInfo\jsc@clsname{Autodetected engine: pLaTeX}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
239 \@jsc@uplatexfalse
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
240 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
241 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
242 \iftombow
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
243 \newdimen\stockwidth \newdimen\stockheight
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
244 \setlength{\stockwidth}{\paperwidth}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
245 \setlength{\stockheight}{\paperheight}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
246 \advance \stockwidth 2in
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
247 \advance \stockheight 2in
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
248 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
249 \ifpapersize
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
250 \iftombow
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
251 \edef\jsc@papersize@special{papersize=\the\stockwidth,\the\stockheight}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
252 \else
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
253 \edef\jsc@papersize@special{papersize=\the\paperwidth,\the\paperheight}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
254 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
255 \AtBeginDvi{\special{\jsc@papersize@special}}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
256 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
257 \if@slide\def\n@baseline{13}\else\def\n@baseline{16}\fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
258 \newdimen\jsc@mpt
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
259 \newdimen\jsc@mmm
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
260 \def\inv@mag{1}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
261 \ifjsc@mag
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
262 \jsc@mpt=1\p@
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
263 \jsc@mmm=1mm
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
264 \ifnum\@ptsize=-2
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
265 \mag 833
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
266 \def\inv@mag{1.20048}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
267 \def\n@baseline{15}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
268 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
269 \ifnum\@ptsize=-1
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
270 \mag 913 % formerly 900
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
271 \def\inv@mag{1.09529}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
272 \def\n@baseline{15}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
273 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
274 \ifnum\@ptsize=1
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
275 \mag 1095 % formerly 1100
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
276 \def\inv@mag{0.913242}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
277 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
278 \ifnum\@ptsize=2
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
279 \mag 1200
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
280 \def\inv@mag{0.833333}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
281 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
282 \ifnum\@ptsize=4
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
283 \mag 1440
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
284 \def\inv@mag{0.694444}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
285 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
286 \ifnum\@ptsize=7
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
287 \mag 1728
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
288 \def\inv@mag{0.578704}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
289 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
290 \ifnum\@ptsize=10
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
291 \mag 2000
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
292 \def\inv@mag{0.5}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
293 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
294 \ifnum\@ptsize=11
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
295 \mag 2074
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
296 \def\inv@mag{0.48216}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
297 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
298 \ifnum\@ptsize=15
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
299 \mag 2488
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
300 \def\inv@mag{0.401929}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
301 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
302 \ifnum\@ptsize=20
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
303 \mag 2986
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
304 \def\inv@mag{0.334896}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
305 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
306 \ifnum\@ptsize=26
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
307 \mag 3583
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
308 \def\inv@mag{0.279096}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
309 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
310 \ifnum\@ptsize=33
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
311 \mag 4300
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
312 \def\inv@mag{0.232558}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
313 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
314 \ifnum\@ptsize=1200
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
315 \mag 923
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
316 \def\inv@mag{1.0834236}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
317 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
318 \ifnum\@ptsize=1400
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
319 \mag 1077
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
320 \def\inv@mag{0.928505}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
321 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
322 \ifnum\@ptsize=1001
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
323 \mag 1085
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
324 \def\inv@mag{0.921659}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
325 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
326 \ifnum\@ptsize=1051
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
327 \mag 1139
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
328 \def\inv@mag{0.877963}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
329 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
330 \ifnum\@ptsize=1101
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
331 \mag 1194
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
332 \def\inv@mag{0.837521}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
333 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
334 \ifnum\@ptsize=1201
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
335 \mag 1302
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
336 \def\inv@mag{0.768049}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
337 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
338 \else
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
339 \jsc@mpt=\jsc@magscale\p@
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
340 \jsc@mmm=\jsc@magscale mm
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
341 \def\inv@mag{1}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
342 \ifnum\@ptsize=-2
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
343 \def\n@baseline{15}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
344 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
345 \ifnum\@ptsize=-1
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
346 \def\n@baseline{15}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
347 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
348 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
349 \ifjsc@mag@xreal
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
350 \RequirePackage{type1cm}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
351 \mathchardef\jsc@csta=259
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
352 \def\jsc@invscale#1#2{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
353 \begingroup \@tempdima=#1\relax \@tempdimb#2\p@\relax
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
354 \@tempcnta\@tempdima \multiply\@tempcnta\@cclvi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
355 \divide\@tempcnta\@tempdimb \multiply\@tempcnta\@cclvi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
356 \@tempcntb\p@ \divide\@tempcntb\@tempdimb
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
357 \advance\@tempcnta-\@tempcntb \advance\@tempcnta-\tw@
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
358 \@tempdimb\@tempcnta\@ne
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
359 \advance\@tempcnta\@tempcntb \advance\@tempcnta\@tempcntb
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
360 \advance\@tempcnta\jsc@csta \@tempdimc\@tempcnta\@ne
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
361 \@whiledim\@tempdimb<\@tempdimc\do{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
362 \@tempcntb\@tempdimb \advance\@tempcntb\@tempdimc
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
363 \advance\@tempcntb\@ne \divide\@tempcntb\tw@
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
364 \ifdim #2\@tempcntb>\@tempdima
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
365 \advance\@tempcntb\m@ne \@tempdimc=\@tempcntb\@ne
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
366 \else \@tempdimb=\@tempcntb\@ne \fi}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
367 \xdef\jsc@gtmpa{\the\@tempdimb}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
368 \endgroup #1=\jsc@gtmpa\relax}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
369 \expandafter\let\csname OT1/cmr/m/n/10\endcsname\relax
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
370 \expandafter\let\csname OMX/cmex/m/n/10\endcsname\relax
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
371 \let\jsc@get@external@font\get@external@font
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
372 \def\get@external@font{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
373 \jsc@preadjust@extract@font
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
374 \jsc@get@external@font}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
375 \def\jsc@fstrunc#1{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
376 \edef\jsc@tmpa{\strip@pt#1}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
377 \expandafter\jsc@fstrunc@a\jsc@tmpa.****\@nil}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
378 \def\jsc@fstrunc@a#1.#2#3#4#5#6\@nil{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
379 \if#5*\else
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
380 \edef\jsc@tmpa{#1%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
381 \ifnum#2#3>\z@ .#2\ifnum#3>\z@ #3\fi\fi}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
382 \fi}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
383 \def\jsc@preadjust@extract@font{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
384 \let\jsc@req@size\f@size
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
385 \dimen@\f@size\p@ \jsc@invscale\dimen@\jsc@magscale
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
386 \advance\dimen@.005pt\relax \jsc@fstrunc\dimen@
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
387 \let\jsc@ref@size\jsc@tmpa
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
388 \let\f@size\jsc@ref@size}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
389 \def\execute@size@function#1{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
390 \let\jsc@cref@size\f@size
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
391 \let\f@size\jsc@req@size
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
392 \csname s@fct@#1\endcsname}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
393 \let\jsc@DeclareErrorFont\DeclareErrorFont
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
394 \def\DeclareErrorFont#1#2#3#4#5{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
395 \@tempdimc#5\p@ \@tempdimc\jsc@magscale\@tempdimc
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
396 \edef\jsc@tmpa{{#1}{#2}{#3}{#4}{\strip@pt\@tempdimc}}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
397 \expandafter\jsc@DeclareErrorFont\jsc@tmpa}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
398 \def\gen@sfcnt{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
399 \edef\mandatory@arg{\mandatory@arg\jsc@cref@size}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
400 \empty@sfcnt}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
401 \def\genb@sfcnt{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
402 \edef\mandatory@arg{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
403 \mandatory@arg\expandafter\genb@x\jsc@cref@size..\@@}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
404 \empty@sfcnt}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
405 \DeclareErrorFont{OT1}{cmr}{m}{n}{10}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
406 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
407 \def\jsc@smallskip{\vspace\jsc@smallskipamount}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
408 \newskip\jsc@smallskipamount
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
409 \jsc@smallskipamount=3\jsc@mpt plus 1\jsc@mpt minus 1\jsc@mpt
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
410 \setlength\paperwidth{\inv@mag\paperwidth}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
411 \setlength\paperheight{\inv@mag\paperheight}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
412 \iftombow
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
413 \setlength\stockwidth{\inv@mag\stockwidth}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
414 \setlength\stockheight{\inv@mag\stockheight}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
415 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
416 \def\Cjascale{0.924690}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
417 \ifmingoth
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
418 \DeclareFontShape{\jsc@JYn}{mc}{m}{n}{<-> s * [0.961] \jsc@pfx@ min10}{}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
419 \DeclareFontShape{\jsc@JYn}{gt}{m}{n}{<-> s * [0.961] \jsc@pfx@ goth10}{}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
420 \DeclareFontShape{\jsc@JTn}{mc}{m}{n}{<-> s * [0.961] \jsc@pfx@ tmin10}{}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
421 \DeclareFontShape{\jsc@JTn}{gt}{m}{n}{<-> s * [0.961] \jsc@pfx@ tgoth10}{}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
422 \else
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
423 \ifjisfont
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
424 \DeclareFontShape{\jsc@JYn}{mc}{m}{n}{<-> s * [0.961] \jsc@pfx@ jis}{}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
425 \DeclareFontShape{\jsc@JYn}{gt}{m}{n}{<-> s * [0.961] \jsc@pfx@ jisg}{}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
426 \DeclareFontShape{\jsc@JTn}{mc}{m}{n}{<-> s * [0.961] \jsc@pfx@ tmin10}{}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
427 \DeclareFontShape{\jsc@JTn}{gt}{m}{n}{<-> s * [0.961] \jsc@pfx@ tgoth10}{}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
428 \else
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
429 \if@jsc@uplatex
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
430 \DeclareFontShape{JY2}{mc}{m}{n}{<-> s * [0.924690] upjisr-h}{}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
431 \DeclareFontShape{JY2}{gt}{m}{n}{<-> s * [0.924690] upjisg-h}{}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
432 \DeclareFontShape{JT2}{mc}{m}{n}{<-> s * [0.924690] upjisr-v}{}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
433 \DeclareFontShape{JT2}{gt}{m}{n}{<-> s * [0.924690] upjisg-v}{}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
434 \else
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
435 \DeclareFontShape{\jsc@JYn}{mc}{m}{n}{<-> s * [0.961] \jsc@pfx@ jis}{}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
436 \DeclareFontShape{\jsc@JYn}{gt}{m}{n}{<-> s * [0.961] \jsc@pfx@ jisg}{}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
437 \DeclareFontShape{\jsc@JTn}{mc}{m}{n}{<-> s * [0.961] \jsc@pfx@ tmin10}{}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
438 \DeclareFontShape{\jsc@JTn}{gt}{m}{n}{<-> s * [0.961] \jsc@pfx@ tgoth10}{}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
439 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
440 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
441 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
442 \DeclareFontShape{\jsc@JYn}{mc}{m}{it}{<->ssub*mc/m/n}{}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
443 \DeclareFontShape{\jsc@JYn}{mc}{m}{sl}{<->ssub*mc/m/n}{}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
444 \DeclareFontShape{\jsc@JYn}{mc}{m}{sc}{<->ssub*mc/m/n}{}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
445 \DeclareFontShape{\jsc@JYn}{gt}{m}{it}{<->ssub*gt/m/n}{}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
446 \DeclareFontShape{\jsc@JYn}{gt}{m}{sl}{<->ssub*gt/m/n}{}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
447 \DeclareFontShape{\jsc@JYn}{mc}{bx}{it}{<->ssub*gt/m/n}{}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
448 \DeclareFontShape{\jsc@JYn}{mc}{bx}{sl}{<->ssub*gt/m/n}{}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
449 \DeclareFontShape{\jsc@JTn}{mc}{m}{it}{<->ssub*mc/m/n}{}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
450 \DeclareFontShape{\jsc@JTn}{mc}{m}{sl}{<->ssub*mc/m/n}{}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
451 \DeclareFontShape{\jsc@JTn}{mc}{m}{sc}{<->ssub*mc/m/n}{}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
452 \DeclareFontShape{\jsc@JTn}{gt}{m}{it}{<->ssub*gt/m/n}{}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
453 \DeclareFontShape{\jsc@JTn}{gt}{m}{sl}{<->ssub*gt/m/n}{}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
454 \DeclareFontShape{\jsc@JTn}{mc}{bx}{it}{<->ssub*gt/m/n}{}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
455 \DeclareFontShape{\jsc@JTn}{mc}{bx}{sl}{<->ssub*gt/m/n}{}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
456 %% ad-hoc "relation font"
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
457 \@ifl@t@r\fmtversion{2020/10/01}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
458 {\jsc@needsp@tchfalse}{\jsc@needsp@tchtrue}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
459 \ifjsc@needsp@tch % --- for 2020-02-02 or older BEGIN
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
460 \ifx\@rmfamilyhook\@undefined % old
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
461 \DeclareRobustCommand\rmfamily
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
462 {\not@math@alphabet\rmfamily\mathrm
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
463 \romanfamily\rmdefault\kanjifamily\mcdefault\selectfont}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
464 \DeclareRobustCommand\sffamily
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
465 {\not@math@alphabet\sffamily\mathsf
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
466 \romanfamily\sfdefault\kanjifamily\gtdefault\selectfont}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
467 \DeclareRobustCommand\ttfamily
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
468 {\not@math@alphabet\ttfamily\mathtt
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
469 \romanfamily\ttdefault\kanjifamily\gtdefault\selectfont}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
470 \AtBeginDocument{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
471 \ifx\mweights@init\@undefined\else % mweights.sty is loaded
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
472 % my definitions above should have been overwritten, recover it!
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
473 % \selectfont is executed twice but I don't care about speed...
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
474 \expandafter\g@addto@macro\csname rmfamily \endcsname
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
475 {\kanjifamily\mcdefault\selectfont}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
476 \expandafter\g@addto@macro\csname sffamily \endcsname
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
477 {\kanjifamily\gtdefault\selectfont}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
478 \expandafter\g@addto@macro\csname ttfamily \endcsname
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
479 {\kanjifamily\gtdefault\selectfont}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
480 \fi}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
481 \else % 2020-02-02
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
482 \g@addto@macro\@rmfamilyhook
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
483 {\prepare@family@series@update@kanji{mc}\mcdefault}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
484 \g@addto@macro\@sffamilyhook
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
485 {\prepare@family@series@update@kanji{gt}\gtdefault}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
486 \g@addto@macro\@ttfamilyhook
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
487 {\prepare@family@series@update@kanji{gt}\gtdefault}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
488 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
489 \else % --- for 2020-02-02 or older END & for 2020-10-01 BEGIN
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
490 \AddToHook{rmfamily}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
491 {\prepare@family@series@update@kanji{mc}\mcdefault}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
492 \AddToHook{sffamily}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
493 {\prepare@family@series@update@kanji{gt}\gtdefault}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
494 \AddToHook{ttfamily}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
495 {\prepare@family@series@update@kanji{gt}\gtdefault}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
496 \fi % --- for 2020-10-01 END
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
497 \ifx\DeclareFixJFMCJKTextFontCommand\@undefined
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
498 \DeclareRobustCommand\textmc[1]{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
499 \relax\ifmmode \expandafter\nfss@text \fi{\mcfamily #1}}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
500 \DeclareRobustCommand\textgt[1]{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
501 \relax\ifmmode \expandafter\nfss@text \fi{\gtfamily #1}}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
502 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
503 \def\reDeclareMathAlphabet#1#2#3{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
504 \edef\@tempa{\expandafter\@gobble\string#2}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
505 \edef\@tempb{\expandafter\@gobble\string#3}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
506 \edef\@tempc{\string @\expandafter\@gobbletwo\string#2}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
507 \ifx\@tempc\@tempa%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
508 \edef\@tempa{\expandafter\@gobbletwo\string#2}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
509 \edef\@tempb{\expandafter\@gobbletwo\string#3}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
510 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
511 \begingroup
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
512 \let\protect\noexpand
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
513 \def\@tempaa{\relax}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
514 \expandafter\ifx\csname RDMAorg@\@tempa\endcsname\relax
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
515 \edef\@tempaa{\expandafter\def\expandafter\noexpand%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
516 \csname RDMAorg@\@tempa\endcsname{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
517 \expandafter\noexpand\csname\@tempa\endcsname}}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
518 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
519 \def\@tempbb{\relax}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
520 \expandafter\ifx\csname RDMAorg@\@tempb\endcsname\relax
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
521 \edef\@tempbb{\expandafter\def\expandafter\noexpand%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
522 \csname RDMAorg@\@tempb\endcsname{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
523 \expandafter\noexpand\csname\@tempb\endcsname}}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
524 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
525 \edef\@tempc{\@tempaa\@tempbb}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
526 \expandafter\endgroup\@tempc%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
527 \edef#1{\noexpand\protect\expandafter\noexpand\csname%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
528 \expandafter\@gobble\string#1\space\space\endcsname}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
529 \expandafter\edef\csname\expandafter\@gobble\string#1\space\space\endcsname%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
530 {\noexpand\DualLang@mathalph@bet%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
531 {\expandafter\noexpand\csname RDMAorg@\@tempa\endcsname}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
532 {\expandafter\noexpand\csname RDMAorg@\@tempb\endcsname}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
533 }%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
534 }
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
535 \@onlypreamble\reDeclareMathAlphabet
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
536 \def\DualLang@mathalph@bet#1#2{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
537 \relax\ifmmode
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
538 \ifx\math@bgroup\bgroup% 2e normal style (\mathrm{...})
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
539 \bgroup\let\DualLang@Mfontsw\DLMfontsw@standard
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
540 \else
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
541 \ifx\math@bgroup\relax% 2e two letter style (\rm->\mathrm)
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
542 \let\DualLang@Mfontsw\DLMfontsw@oldstyle
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
543 \else
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
544 \ifx\math@bgroup\@empty% 2.09 oldlfont style ({\mathrm ...})
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
545 \let\DualLang@Mfontsw\DLMfontsw@oldlfont
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
546 \else% panic! assume 2e normal style
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
547 \bgroup\let\DualLang@Mfontsw\DLMfontsw@standard
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
548 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
549 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
550 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
551 \else
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
552 \let\DualLang@Mfontsw\@firstoftwo
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
553 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
554 \DualLang@Mfontsw{#1}{#2}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
555 }
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
556 \def\DLMfontsw@standard#1#2#3{#1{#2{#3}}\egroup}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
557 \def\DLMfontsw@oldstyle#1#2{#1\relax\@fontswitch\relax{#2}}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
558 \def\DLMfontsw@oldlfont#1#2{#1\relax#2\relax}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
559 \if@enablejfam
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
560 \DeclareSymbolFont{mincho}{\jsc@JYn}{mc}{m}{n}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
561 \DeclareSymbolFontAlphabet{\mathmc}{mincho}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
562 \SetSymbolFont{mincho}{bold}{\jsc@JYn}{gt}{m}{n}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
563 \jfam\symmincho
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
564 \DeclareMathAlphabet{\mathgt}{\jsc@JYn}{gt}{m}{n}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
565 \AtBeginDocument{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
566 \reDeclareMathAlphabet{\mathrm}{\@mathrm}{\@mathmc}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
567 \reDeclareMathAlphabet{\mathbf}{\@mathbf}{\@mathgt}}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
568 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
569 \prebreakpenalty\jis"2147=10000 % 5000 ’
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
570 \postbreakpenalty\jis"2148=10000 % 5000 “
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
571 \prebreakpenalty\jis"2149=10000 % 5000 ”
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
572 \inhibitxspcode`!=1
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
573 \inhibitxspcode`〒=2
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
574 \xspcode`+=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
575 \xspcode`\%=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
576 \xspcode`^^80=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
577 \xspcode`^^81=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
578 \xspcode`^^82=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
579 \xspcode`^^83=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
580 \xspcode`^^84=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
581 \xspcode`^^85=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
582 \xspcode`^^86=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
583 \xspcode`^^87=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
584 \xspcode`^^88=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
585 \xspcode`^^89=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
586 \xspcode`^^8a=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
587 \xspcode`^^8b=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
588 \xspcode`^^8c=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
589 \xspcode`^^8d=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
590 \xspcode`^^8e=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
591 \xspcode`^^8f=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
592 \xspcode`^^90=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
593 \xspcode`^^91=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
594 \xspcode`^^92=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
595 \xspcode`^^93=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
596 \xspcode`^^94=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
597 \xspcode`^^95=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
598 \xspcode`^^96=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
599 \xspcode`^^97=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
600 \xspcode`^^98=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
601 \xspcode`^^99=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
602 \xspcode`^^9a=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
603 \xspcode`^^9b=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
604 \xspcode`^^9c=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
605 \xspcode`^^9d=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
606 \xspcode`^^9e=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
607 \xspcode`^^9f=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
608 \xspcode`^^a0=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
609 \xspcode`^^a1=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
610 \xspcode`^^a2=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
611 \xspcode`^^a3=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
612 \xspcode`^^a4=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
613 \xspcode`^^a5=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
614 \xspcode`^^a6=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
615 \xspcode`^^a7=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
616 \xspcode`^^a8=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
617 \xspcode`^^a9=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
618 \xspcode`^^aa=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
619 \xspcode`^^ab=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
620 \xspcode`^^ac=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
621 \xspcode`^^ad=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
622 \xspcode`^^ae=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
623 \xspcode`^^af=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
624 \xspcode`^^b0=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
625 \xspcode`^^b1=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
626 \xspcode`^^b2=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
627 \xspcode`^^b3=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
628 \xspcode`^^b4=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
629 \xspcode`^^b5=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
630 \xspcode`^^b6=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
631 \xspcode`^^b7=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
632 \xspcode`^^b8=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
633 \xspcode`^^b9=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
634 \xspcode`^^ba=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
635 \xspcode`^^bb=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
636 \xspcode`^^bc=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
637 \xspcode`^^bd=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
638 \xspcode`^^be=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
639 \xspcode`^^bf=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
640 \xspcode`^^c0=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
641 \xspcode`^^c1=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
642 \xspcode`^^c2=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
643 \xspcode`^^c3=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
644 \xspcode`^^c4=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
645 \xspcode`^^c5=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
646 \xspcode`^^c6=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
647 \xspcode`^^c7=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
648 \xspcode`^^c8=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
649 \xspcode`^^c9=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
650 \xspcode`^^ca=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
651 \xspcode`^^cb=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
652 \xspcode`^^cc=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
653 \xspcode`^^cd=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
654 \xspcode`^^ce=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
655 \xspcode`^^cf=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
656 \xspcode`^^d0=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
657 \xspcode`^^d1=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
658 \xspcode`^^d2=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
659 \xspcode`^^d3=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
660 \xspcode`^^d4=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
661 \xspcode`^^d5=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
662 \xspcode`^^d6=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
663 \xspcode`^^d7=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
664 \xspcode`^^d8=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
665 \xspcode`^^d9=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
666 \xspcode`^^da=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
667 \xspcode`^^db=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
668 \xspcode`^^dc=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
669 \xspcode`^^dd=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
670 \xspcode`^^de=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
671 \xspcode`^^df=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
672 \xspcode`^^e0=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
673 \xspcode`^^e1=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
674 \xspcode`^^e2=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
675 \xspcode`^^e3=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
676 \xspcode`^^e4=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
677 \xspcode`^^e5=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
678 \xspcode`^^e6=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
679 \xspcode`^^e7=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
680 \xspcode`^^e8=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
681 \xspcode`^^e9=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
682 \xspcode`^^ea=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
683 \xspcode`^^eb=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
684 \xspcode`^^ec=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
685 \xspcode`^^ed=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
686 \xspcode`^^ee=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
687 \xspcode`^^ef=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
688 \xspcode`^^f0=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
689 \xspcode`^^f1=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
690 \xspcode`^^f2=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
691 \xspcode`^^f3=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
692 \xspcode`^^f4=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
693 \xspcode`^^f5=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
694 \xspcode`^^f6=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
695 \xspcode`^^f7=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
696 \xspcode`^^f8=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
697 \xspcode`^^f9=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
698 \xspcode`^^fa=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
699 \xspcode`^^fb=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
700 \xspcode`^^fc=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
701 \xspcode`^^fd=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
702 \xspcode`^^fe=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
703 \xspcode`^^ff=3
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
704 \def\@{\spacefactor3000{}}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
705 %% \@setfontsize with \parindent and \(x)kanjiskip settings
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
706 \def\@setfontsize#1#2#3{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
707 \ifx\protect\@typeset@protect
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
708 \let\@currsize#1%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
709 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
710 \fontsize{#2}{#3}\selectfont
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
711 \ifdim\parindent>\z@
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
712 \if@english
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
713 \parindent=1em
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
714 \else
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
715 \parindent=1zw
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
716 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
717 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
718 \kanjiskip=0zw plus .1zw minus .01zw
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
719 \ifdim\xkanjiskip>\z@
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
720 \if@slide \xkanjiskip=0.1em \else
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
721 \xkanjiskip=0.25em plus 0.15em minus 0.06em
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
722 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
723 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
724 }
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
725 \def\jsc@setfontsize#1#2#3{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
726 \@setfontsize#1{#2\jsc@mpt}{#3\jsc@mpt}}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
727 \emergencystretch 3zw
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
728 \newif\ifnarrowbaselines
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
729 \if@english
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
730 \narrowbaselinestrue
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
731 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
732 \def\narrowbaselines{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
733 \narrowbaselinestrue
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
734 \skip0=\abovedisplayskip
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
735 \skip2=\abovedisplayshortskip
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
736 \skip4=\belowdisplayskip
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
737 \skip6=\belowdisplayshortskip
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
738 \@currsize\selectfont
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
739 \abovedisplayskip=\skip0
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
740 \abovedisplayshortskip=\skip2
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
741 \belowdisplayskip=\skip4
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
742 \belowdisplayshortskip=\skip6\relax}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
743 \def\widebaselines{\narrowbaselinesfalse\@currsize\selectfont}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
744 \renewcommand{\normalsize}{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
745 \ifnarrowbaselines
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
746 \jsc@setfontsize\normalsize\@xpt\@xiipt
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
747 \else
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
748 \jsc@setfontsize\normalsize\@xpt{\n@baseline}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
749 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
750 \abovedisplayskip 11\jsc@mpt \@plus3\jsc@mpt \@minus4\jsc@mpt
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
751 \abovedisplayshortskip \z@ \@plus3\jsc@mpt
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
752 \belowdisplayskip 9\jsc@mpt \@plus3\jsc@mpt \@minus4\jsc@mpt
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
753 \belowdisplayshortskip \belowdisplayskip
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
754 \let\@listi\@listI}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
755 %% initialize
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
756 \normalsize
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
757 \setbox0\hbox{\char\jis"3441}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
758 \setlength\Cht{\ht0}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
759 \setlength\Cdp{\dp0}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
760 \setlength\Cwd{\wd0}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
761 \setlength\Cvs{\baselineskip}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
762 \setlength\Chs{\wd0}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
763 \setbox0=\box\voidb@x
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
764 \newcommand{\small}{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
765 \ifnarrowbaselines
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
766 \jsc@setfontsize\small\@ixpt{11}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
767 \else
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
768 \jsc@setfontsize\small\@ixpt{13}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
769 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
770 \abovedisplayskip 9\jsc@mpt \@plus3\jsc@mpt \@minus4\jsc@mpt
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
771 \abovedisplayshortskip \z@ \@plus3\jsc@mpt
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
772 \belowdisplayskip \abovedisplayskip
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
773 \belowdisplayshortskip \belowdisplayskip
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
774 \def\@listi{\leftmargin\leftmargini
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
775 \topsep \z@
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
776 \parsep \z@
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
777 \itemsep \parsep}}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
778 \newcommand{\footnotesize}{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
779 \ifnarrowbaselines
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
780 \jsc@setfontsize\footnotesize\@viiipt{9.5}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
781 \else
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
782 \jsc@setfontsize\footnotesize\@viiipt{11}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
783 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
784 \abovedisplayskip 6\jsc@mpt \@plus2\jsc@mpt \@minus3\jsc@mpt
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
785 \abovedisplayshortskip \z@ \@plus2\jsc@mpt
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
786 \belowdisplayskip \abovedisplayskip
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
787 \belowdisplayshortskip \belowdisplayskip
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
788 \def\@listi{\leftmargin\leftmargini
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
789 \topsep \z@
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
790 \parsep \z@
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
791 \itemsep \parsep}}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
792 \newcommand{\scriptsize}{\jsc@setfontsize\scriptsize\@viipt\@viiipt}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
793 \newcommand{\tiny}{\jsc@setfontsize\tiny\@vpt\@vipt}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
794 \if@twocolumn
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
795 \newcommand{\large}{\jsc@setfontsize\large\@xiipt{\n@baseline}}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
796 \else
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
797 \newcommand{\large}{\jsc@setfontsize\large\@xiipt{17}}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
798 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
799 \newcommand{\Large}{\jsc@setfontsize\Large\@xivpt{21}}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
800 \newcommand{\LARGE}{\jsc@setfontsize\LARGE\@xviipt{25}}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
801 \newcommand{\huge}{\jsc@setfontsize\huge\@xxpt{28}}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
802 \newcommand{\Huge}{\jsc@setfontsize\Huge\@xxvpt{33}}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
803 \newcommand{\HUGE}{\jsc@setfontsize\HUGE{30}{40}}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
804 \everydisplay=\expandafter{\the\everydisplay \narrowbaselines}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
805 \newcommand{\headfont}{\gtfamily\sffamily}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
806 \setlength\columnsep{2zw}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
807 \setlength\columnseprule{\z@}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
808 \setlength\lineskip{1\jsc@mpt}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
809 \setlength\normallineskip{1\jsc@mpt}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
810 \setlength\lineskiplimit{1\jsc@mpt}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
811 \setlength\normallineskiplimit{1\jsc@mpt}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
812 \renewcommand{\baselinestretch}{}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
813 \setlength\parskip{\z@}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
814 \if@slide
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
815 \setlength\parindent{0zw}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
816 \else
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
817 \setlength\parindent{1zw}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
818 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
819 \@lowpenalty 51
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
820 \@medpenalty 151
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
821 \@highpenalty 301
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
822 \setlength\topskip{1.38zw}%% from 10\jsc@mpt (2016-08-17)
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
823 \if@slide
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
824 \setlength\headheight{0\jsc@mpt}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
825 \else
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
826 \setlength\headheight{20\jsc@mpt}%% from 2\topskip (2016-08-17); from \topskip (2003-06-26)
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
827 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
828 \setlength\footskip{0.03367\paperheight}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
829 \ifdim\footskip<\baselineskip
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
830 \setlength\footskip{\baselineskip}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
831 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
832 \setlength\headsep{\footskip}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
833 \addtolength\headsep{-\topskip}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
834 \setlength\maxdepth{.5\topskip}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
835 \newdimen\fullwidth
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
836 \setlength\fullwidth{0.76\paperwidth}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
837 \if@twocolumn \@tempdima=2zw \else \@tempdima=1zw \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
838 \divide\fullwidth\@tempdima \multiply\fullwidth\@tempdima
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
839 \setlength\textwidth{\fullwidth}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
840 \if@slide
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
841 \setlength{\textheight}{0.95\paperheight}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
842 \else
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
843 \setlength{\textheight}{0.83\paperheight}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
844 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
845 \addtolength{\textheight}{-10\jsc@mpt}%% from -\topskip (2016-10-08); from -\headheight (2003-06-26)
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
846 \addtolength{\textheight}{-\headsep}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
847 \addtolength{\textheight}{-\footskip}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
848 \addtolength{\textheight}{-\topskip}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
849 \divide\textheight\baselineskip
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
850 \multiply\textheight\baselineskip
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
851 \addtolength{\textheight}{\topskip}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
852 \addtolength{\textheight}{0.1\jsc@mpt}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
853 \def\flushbottom{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
854 \def\@textbottom{\vskip \z@ \@plus.1\jsc@mpt}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
855 \let\@texttop\relax}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
856 \setlength\marginparsep{\columnsep}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
857 \setlength\marginparpush{\baselineskip}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
858 \setlength{\oddsidemargin}{\paperwidth}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
859 \addtolength{\oddsidemargin}{-\fullwidth}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
860 \setlength{\oddsidemargin}{.5\oddsidemargin}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
861 \iftombow
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
862 \addtolength{\oddsidemargin}{-1in}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
863 \else
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
864 \addtolength{\oddsidemargin}{-\inv@mag in}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
865 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
866 \setlength{\evensidemargin}{\oddsidemargin}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
867 \if@mparswitch
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
868 \addtolength{\evensidemargin}{\fullwidth}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
869 \addtolength{\evensidemargin}{-\textwidth}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
870 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
871 \setlength\marginparwidth{\paperwidth}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
872 \addtolength\marginparwidth{-\oddsidemargin}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
873 \addtolength\marginparwidth{-\inv@mag in}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
874 \addtolength\marginparwidth{-\textwidth}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
875 \addtolength\marginparwidth{-10\jsc@mmm}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
876 \addtolength\marginparwidth{-\marginparsep}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
877 \@tempdima=1zw
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
878 \divide\marginparwidth\@tempdima
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
879 \multiply\marginparwidth\@tempdima
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
880 \setlength\topmargin{\paperheight}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
881 \addtolength\topmargin{-\textheight}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
882 \if@slide
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
883 \addtolength\topmargin{-\headheight}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
884 \else
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
885 \addtolength\topmargin{-10\jsc@mpt}%% from -\topskip (2016-10-08); from -\headheight (2003-06-26)
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
886 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
887 \addtolength\topmargin{-\headsep}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
888 \addtolength\topmargin{-\footskip}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
889 \setlength\topmargin{0.5\topmargin}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
890 \iftombow
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
891 \addtolength\topmargin{-1in}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
892 \else
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
893 \addtolength\topmargin{-\inv@mag in}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
894 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
895 {\footnotesize\global\setlength\footnotesep{\baselineskip}}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
896 \setlength\footnotesep{0.7\footnotesep}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
897 \setlength{\skip\footins}{16\jsc@mpt \@plus 5\jsc@mpt \@minus 2\jsc@mpt}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
898 \setcounter{topnumber}{9}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
899 \renewcommand{\topfraction}{.85}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
900 \setcounter{bottomnumber}{9}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
901 \renewcommand{\bottomfraction}{.8}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
902 \setcounter{totalnumber}{20}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
903 \renewcommand{\textfraction}{.1}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
904 \renewcommand{\floatpagefraction}{.8}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
905 \setcounter{dbltopnumber}{9}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
906 \renewcommand{\dbltopfraction}{.8}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
907 \renewcommand{\dblfloatpagefraction}{.8}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
908 \setlength\floatsep {12\jsc@mpt \@plus 2\jsc@mpt \@minus 2\jsc@mpt}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
909 \setlength\textfloatsep{20\jsc@mpt \@plus 2\jsc@mpt \@minus 4\jsc@mpt}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
910 \setlength\intextsep {12\jsc@mpt \@plus 2\jsc@mpt \@minus 2\jsc@mpt}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
911 \setlength\dblfloatsep {12\jsc@mpt \@plus 2\jsc@mpt \@minus 2\jsc@mpt}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
912 \setlength\dbltextfloatsep{20\jsc@mpt \@plus 2\jsc@mpt \@minus 4\jsc@mpt}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
913 \setlength\@fptop{0\jsc@mpt \@plus 1fil}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
914 \setlength\@fpsep{8\jsc@mpt \@plus 2fil}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
915 \setlength\@fpbot{0\jsc@mpt \@plus 1fil}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
916 \setlength\@dblfptop{0\jsc@mpt \@plus 1fil}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
917 \setlength\@dblfpsep{8\jsc@mpt \@plus 2fil}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
918 \setlength\@dblfpbot{0\jsc@mpt \@plus 1fil}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
919 \def\pltx@cleartorightpage{\clearpage\if@twoside
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
920 \ifodd\c@page
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
921 \iftdir
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
922 \hbox{}\thispagestyle{empty}\newpage
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
923 \if@twocolumn\hbox{}\newpage\fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
924 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
925 \else
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
926 \ifydir
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
927 \hbox{}\thispagestyle{empty}\newpage
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
928 \if@twocolumn\hbox{}\newpage\fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
929 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
930 \fi\fi}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
931 \def\pltx@cleartoleftpage{\clearpage\if@twoside
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
932 \ifodd\c@page
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
933 \ifydir
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
934 \hbox{}\thispagestyle{empty}\newpage
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
935 \if@twocolumn\hbox{}\newpage\fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
936 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
937 \else
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
938 \iftdir
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
939 \hbox{}\thispagestyle{empty}\newpage
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
940 \if@twocolumn\hbox{}\newpage\fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
941 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
942 \fi\fi}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
943 \def\pltx@cleartooddpage{\clearpage\if@twoside
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
944 \ifodd\c@page\else
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
945 \hbox{}\thispagestyle{empty}\newpage
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
946 \if@twocolumn\hbox{}\newpage\fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
947 \fi\fi}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
948 \def\pltx@cleartoevenpage{\clearpage\if@twoside
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
949 \ifodd\c@page
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
950 \hbox{}\thispagestyle{empty}\newpage
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
951 \if@twocolumn\hbox{}\newpage\fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
952 \fi\fi}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
953 \if@openleft
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
954 \let\cleardoublepage\pltx@cleartoleftpage
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
955 \else\if@openright
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
956 \let\cleardoublepage\pltx@cleartorightpage
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
957 \fi\fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
958 \def\ps@plainfoot{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
959 \let\@mkboth\@gobbletwo
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
960 \let\@oddhead\@empty
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
961 \def\@oddfoot{\normalfont\hfil\thepage\hfil}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
962 \let\@evenhead\@empty
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
963 \let\@evenfoot\@oddfoot}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
964 \def\ps@plainhead{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
965 \let\@mkboth\@gobbletwo
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
966 \let\@oddfoot\@empty
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
967 \let\@evenfoot\@empty
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
968 \def\@evenhead{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
969 \if@mparswitch \hss \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
970 \hbox to \fullwidth{\textbf{\thepage}\hfil}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
971 \if@mparswitch\else \hss \fi}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
972 \def\@oddhead{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
973 \hbox to \fullwidth{\hfil\textbf{\thepage}}\hss}}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
974 \let\ps@plain\ps@plainfoot
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
975 \newif\if@omit@number
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
976 \def\ps@headings{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
977 \let\@oddfoot\@empty
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
978 \let\@evenfoot\@empty
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
979 \def\@evenhead{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
980 \if@mparswitch \hss \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
981 \underline{\hbox to \fullwidth{\autoxspacing
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
982 \textbf{\thepage}\hfil\leftmark}}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
983 \if@mparswitch\else \hss \fi}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
984 \def\@oddhead{\underline{\hbox to \fullwidth{\autoxspacing
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
985 {\if@twoside\rightmark\else\leftmark\fi}\hfil\textbf{\thepage}}}\hss}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
986 \let\@mkboth\markboth
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
987 \def\chaptermark##1{\markboth{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
988 \ifnum \c@secnumdepth >\m@ne
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
989 \if@omit@number\else
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
990 \@chapapp\thechapter\@chappos\hskip1zw
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
991 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
992 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
993 ##1}{}}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
994 \def\sectionmark##1{\markright{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
995 \ifnum \c@secnumdepth >\z@ \thesection \hskip1zw\fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
996 ##1}}}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
997 \def\ps@myheadings{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
998 \let\@oddfoot\@empty\let\@evenfoot\@empty
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
999 \def\@evenhead{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1000 \if@mparswitch \hss \fi%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1001 \hbox to \fullwidth{\thepage\hfil\leftmark}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1002 \if@mparswitch\else \hss \fi}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1003 \def\@oddhead{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1004 \hbox to \fullwidth{\rightmark\hfil\thepage}\hss}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1005 \let\@mkboth\@gobbletwo
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1006 \let\chaptermark\@gobble
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1007 \let\sectionmark\@gobble
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1008 }
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1009 \def\plainifnotempty{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1010 \ifx \@oddhead \@empty
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1011 \ifx \@oddfoot \@empty
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1012 \else
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1013 \thispagestyle{plainfoot}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1014 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1015 \else
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1016 \thispagestyle{plainhead}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1017 \fi}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1018 \if@titlepage
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1019 \newcommand{\maketitle}{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1020 \begin{titlepage}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1021 \let\footnotesize\small
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1022 \let\footnoterule\relax
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1023 \let\footnote\thanks
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1024 \null\vfil
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1025 \if@slide
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1026 {\footnotesize \@date}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1027 \begin{center}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1028 \mbox{} \\[1zw]
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1029 \large
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1030 {\maybeblue\hrule height0\jsc@mpt depth2\jsc@mpt\relax}\par
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1031 \jsc@smallskip
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1032 \@title
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1033 \jsc@smallskip
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1034 {\maybeblue\hrule height0\jsc@mpt depth2\jsc@mpt\relax}\par
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1035 \vfill
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1036 {\small \@author}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1037 \end{center}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1038 \else
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1039 \vskip 60\jsc@mpt
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1040 \begin{center}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1041 {\LARGE \@title \par}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1042 \vskip 3em%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1043 {\large
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1044 \lineskip .75em
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1045 \begin{tabular}[t]{c}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1046 \@author
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1047 \end{tabular}\par}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1048 \vskip 1.5em
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1049 {\large \@date \par}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1050 \end{center}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1051 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1052 \par
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1053 \@thanks\vfil\null
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1054 \end{titlepage}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1055 \setcounter{footnote}{0}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1056 \global\let\thanks\relax
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1057 \global\let\maketitle\relax
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1058 \global\let\@thanks\@empty
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1059 \global\let\@author\@empty
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1060 \global\let\@date\@empty
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1061 \global\let\@title\@empty
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1062 \global\let\title\relax
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1063 \global\let\author\relax
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1064 \global\let\date\relax
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1065 \global\let\and\relax
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1066 }%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1067 \else
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1068 \newcommand{\maketitle}{\par
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1069 \begingroup
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1070 \renewcommand\thefootnote{\@fnsymbol\c@footnote}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1071 \def\@makefnmark{\rlap{\@textsuperscript{\normalfont\@thefnmark}}}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1072 \long\def\@makefntext##1{\advance\leftskip 3zw
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1073 \parindent 1zw\noindent
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1074 \llap{\@textsuperscript{\normalfont\@thefnmark}\hskip0.3zw}##1}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1075 \if@twocolumn
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1076 \ifnum \col@number=\@ne
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1077 \@maketitle
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1078 \else
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1079 \twocolumn[\@maketitle]%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1080 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1081 \else
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1082 \newpage
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1083 \global\@topnum\z@ % Prevents figures from going at top of page.
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1084 \@maketitle
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1085 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1086 \plainifnotempty
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1087 \@thanks
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1088 \endgroup
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1089 \setcounter{footnote}{0}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1090 \global\let\thanks\relax
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1091 \global\let\maketitle\relax
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1092 \global\let\@thanks\@empty
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1093 \global\let\@author\@empty
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1094 \global\let\@date\@empty
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1095 \global\let\@title\@empty
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1096 \global\let\title\relax
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1097 \global\let\author\relax
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1098 \global\let\date\relax
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1099 \global\let\and\relax
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1100 }
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1101 \def\@maketitle{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1102 \newpage\null
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1103 \vskip 2em
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1104 \begin{center}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1105 \let\footnote\thanks
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1106 {\LARGE \@title \par}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1107 \vskip 1.5em
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1108 {\large
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1109 \lineskip .5em
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1110 \begin{tabular}[t]{c}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1111 \@author
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1112 \end{tabular}\par}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1113 \vskip 1em
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1114 {\large \@date}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1115 \end{center}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1116 \par\vskip 1.5em
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1117 \ifvoid\@abstractbox\else\centerline{\box\@abstractbox}\vskip1.5em\fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1118 }
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1119 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1120 \def\@startsection#1#2#3#4#5#6{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1121 \if@noskipsec \leavevmode \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1122 \par
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1123 \@tempskipa #4\relax
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1124 \if@english \@afterindentfalse \else \@afterindenttrue \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1125 \ifdim \@tempskipa <\z@
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1126 \@tempskipa -\@tempskipa \@afterindentfalse
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1127 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1128 \if@nobreak
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1129 \everypar{}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1130 \else
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1131 \addpenalty\@secpenalty
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1132 \ifdim \@tempskipa >\z@
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1133 \if@slide\else
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1134 \null
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1135 \vspace*{-\baselineskip}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1136 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1137 \vskip\@tempskipa
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1138 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1139 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1140 \noindent
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1141 \@ifstar
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1142 {\@ssect{#3}{#4}{#5}{#6}}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1143 {\@dblarg{\@sect{#1}{#2}{#3}{#4}{#5}{#6}}}}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1144 \def\@sect#1#2#3#4#5#6[#7]#8{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1145 \ifnum #2>\c@secnumdepth
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1146 \let\@svsec\@empty
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1147 \else
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1148 \refstepcounter{#1}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1149 \protected@edef\@svsec{\@seccntformat{#1}\relax}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1150 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1151 \@tempskipa #5\relax
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1152 \ifdim \@tempskipa<\z@
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1153 \def\@svsechd{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1154 #6{\hskip #3\relax
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1155 \@svsec #8}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1156 \csname #1mark\endcsname{#7}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1157 \addcontentsline{toc}{#1}{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1158 \ifnum #2>\c@secnumdepth \else
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1159 \protect\numberline{\csname the#1\endcsname}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1160 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1161 #7}}% 目次にフルネームを載せるなら #8
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1162 \else
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1163 \begingroup
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1164 \interlinepenalty \@M % 下から移動
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1165 #6{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1166 \@hangfrom{\hskip #3\relax\@svsec}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1167 #8\@@par}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1168 \endgroup
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1169 \csname #1mark\endcsname{#7}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1170 \addcontentsline{toc}{#1}{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1171 \ifnum #2>\c@secnumdepth \else
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1172 \protect\numberline{\csname the#1\endcsname}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1173 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1174 #7}% 目次にフルネームを載せるならここは #8
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1175 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1176 \@xsect{#5}}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1177 \def\@xsect#1{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1178 \@tempskipa #1\relax
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1179 \ifdim \@tempskipa<\z@
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1180 \@nobreakfalse
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1181 \global\@noskipsectrue
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1182 \everypar{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1183 \if@noskipsec
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1184 \global\@noskipsecfalse
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1185 {\setbox\z@\lastbox}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1186 \clubpenalty\@M
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1187 \begingroup \@svsechd \endgroup
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1188 \unskip
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1189 \@tempskipa #1\relax
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1190 \hskip -\@tempskipa
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1191 \else
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1192 \clubpenalty \@clubpenalty
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1193 \everypar{\everyparhook}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1194 \fi\everyparhook}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1195 \else
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1196 \par \nobreak
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1197 \vskip \@tempskipa
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1198 \@afterheading
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1199 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1200 \if@slide
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1201 {\vskip\if@twocolumn-5\jsc@mpt\else-6\jsc@mpt\fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1202 \maybeblue\hrule height0\jsc@mpt depth1\jsc@mpt
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1203 \vskip\if@twocolumn 4\jsc@mpt\else 7\jsc@mpt\fi\relax}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1204 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1205 \par % 2000-12-18
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1206 \ignorespaces}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1207 \def\@ssect#1#2#3#4#5{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1208 \@tempskipa #3\relax
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1209 \ifdim \@tempskipa<\z@
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1210 \def\@svsechd{#4{\hskip #1\relax #5}}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1211 \else
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1212 \begingroup
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1213 #4{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1214 \@hangfrom{\hskip #1}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1215 \interlinepenalty \@M #5\@@par}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1216 \endgroup
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1217 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1218 \@xsect{#3}}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1219 \newcommand*\chaptermark[1]{}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1220 \setcounter{secnumdepth}{2}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1221 \newcounter{part}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1222 \newcounter{chapter}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1223 \newcounter{section}[chapter]
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1224 \newcounter{subsection}[section]
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1225 \newcounter{subsubsection}[subsection]
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1226 \newcounter{paragraph}[subsubsection]
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1227 \newcounter{subparagraph}[paragraph]
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1228 \renewcommand{\thepart}{\@Roman\c@part}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1229 \renewcommand{\thechapter}{\@arabic\c@chapter}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1230 \renewcommand{\thesection}{\thechapter.\@arabic\c@section}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1231 \renewcommand{\thesubsection}{\thesection.\@arabic\c@subsection}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1232 \renewcommand{\thesubsubsection}{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1233 \thesubsection.\@arabic\c@subsubsection}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1234 \renewcommand{\theparagraph}{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1235 \thesubsubsection.\@arabic\c@paragraph}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1236 \renewcommand{\thesubparagraph}{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1237 \theparagraph.\@arabic\c@subparagraph}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1238 \newcommand{\@chapapp}{\prechaptername}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1239 \newcommand{\@chappos}{\postchaptername}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1240 \newcommand\part{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1241 \if@openleft
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1242 \cleardoublepage
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1243 \else\if@openright
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1244 \cleardoublepage
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1245 \else
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1246 \clearpage
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1247 \fi\fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1248 \thispagestyle{empty}% 欧文用標準スタイルでは plain
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1249 \if@twocolumn
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1250 \onecolumn
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1251 \@restonecoltrue
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1252 \else
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1253 \@restonecolfalse
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1254 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1255 \null\vfil
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1256 \secdef\@part\@spart}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1257 \def\@part[#1]#2{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1258 \ifnum \c@secnumdepth >-2\relax
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1259 \refstepcounter{part}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1260 \addcontentsline{toc}{part}{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1261 \prepartname\thepart\postpartname\hspace{1zw}#1}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1262 \else
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1263 \addcontentsline{toc}{part}{#1}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1264 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1265 \markboth{}{}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1266 {\centering
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1267 \interlinepenalty \@M
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1268 \normalfont
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1269 \ifnum \c@secnumdepth >-2\relax
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1270 \huge\headfont \prepartname\thepart\postpartname
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1271 \par\vskip20\jsc@mpt
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1272 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1273 \Huge \headfont #2\par}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1274 \@endpart}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1275 \def\@spart#1{{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1276 \centering
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1277 \interlinepenalty \@M
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1278 \normalfont
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1279 \Huge \headfont #1\par}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1280 \@endpart}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1281 \def\@endpart{\vfil\newpage
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1282 \if@twoside
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1283 \if@openleft %% added (2017/02/24)
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1284 \null\thispagestyle{empty}\newpage
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1285 \else\if@openright %% added (2016/12/13)
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1286 \null\thispagestyle{empty}\newpage
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1287 \fi\fi %% added (2016/12/13, 2017/02/24)
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1288 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1289 \if@restonecol
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1290 \twocolumn
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1291 \fi}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1292 \newcommand{\chapter}{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1293 \if@openleft\cleardoublepage\else
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1294 \if@openright\cleardoublepage\else\clearpage\fi\fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1295 \plainifnotempty % 元: \thispagestyle{plain}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1296 \global\@topnum\z@
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1297 \if@english \@afterindentfalse \else \@afterindenttrue \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1298 \secdef
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1299 {\@omit@numberfalse\@chapter}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1300 {\@omit@numbertrue\@schapter}}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1301 \def\@chapter[#1]#2{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1302 \ifnum \c@secnumdepth >\m@ne
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1303 \refstepcounter{chapter}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1304 \typeout{\@chapapp\thechapter\@chappos}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1305 \addcontentsline{toc}{chapter}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1306 {\protect\numberline
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1307 % {\if@english\thechapter\else\@chapapp\thechapter\@chappos\fi}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1308 {\@chapapp\thechapter\@chappos}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1309 #1}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1310 \else
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1311 \addcontentsline{toc}{chapter}{#1}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1312 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1313 \chaptermark{#1}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1314 \addtocontents{lof}{\protect\addvspace{10\jsc@mpt}}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1315 \addtocontents{lot}{\protect\addvspace{10\jsc@mpt}}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1316 \if@twocolumn
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1317 \@topnewpage[\@makechapterhead{#2}]%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1318 \else
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1319 \@makechapterhead{#2}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1320 \@afterheading
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1321 \fi}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1322 \def\@makechapterhead#1{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1323 \vspace*{2\Cvs}% 欧文は50pt
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1324 {\parindent \z@ \raggedright \normalfont
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1325 \ifnum \c@secnumdepth >\m@ne
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1326 \huge\headfont \@chapapp\thechapter\@chappos
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1327 \par\nobreak
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1328 \vskip \Cvs % 欧文は20pt
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1329 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1330 \interlinepenalty\@M
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1331 \Huge \headfont #1\par\nobreak
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1332 \vskip 3\Cvs}} % 欧文は40pt
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1333 \def\@schapter#1{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1334 \chaptermark{#1}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1335 \if@twocolumn
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1336 \@topnewpage[\@makeschapterhead{#1}]%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1337 \else
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1338 \@makeschapterhead{#1}\@afterheading
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1339 \fi}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1340 \def\@makeschapterhead#1{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1341 \vspace*{2\Cvs}% 欧文は50pt
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1342 {\parindent \z@ \raggedright
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1343 \normalfont
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1344 \interlinepenalty\@M
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1345 \Huge \headfont #1\par\nobreak
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1346 \vskip 3\Cvs}} % 欧文は40pt
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1347 \if@twocolumn
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1348 \newcommand{\section}{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1349 \@startsection{section}{1}{\z@}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1350 {0.6\Cvs}{0.4\Cvs}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1351 {\normalfont\large\headfont\raggedright}}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1352 \else
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1353 \newcommand{\section}{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1354 \if@slide\clearpage\fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1355 \@startsection{section}{1}{\z@}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1356 {\Cvs \@plus.5\Cdp \@minus.2\Cdp}% 前アキ
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1357 {.5\Cvs \@plus.3\Cdp}% 後アキ
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1358 {\normalfont\Large\headfont\raggedright}}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1359 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1360 \if@twocolumn
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1361 \newcommand{\subsection}{\@startsection{subsection}{2}{\z@}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1362 {\z@}{\if@slide .4\Cvs \else \z@ \fi}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1363 {\normalfont\normalsize\headfont}}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1364 \else
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1365 \newcommand{\subsection}{\@startsection{subsection}{2}{\z@}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1366 {\Cvs \@plus.5\Cdp \@minus.2\Cdp}% 前アキ
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1367 {.5\Cvs \@plus.3\Cdp}% 後アキ
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1368 {\normalfont\large\headfont}}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1369 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1370 \if@twocolumn
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1371 \newcommand{\subsubsection}{\@startsection{subsubsection}{3}{\z@}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1372 {\z@}{\if@slide .4\Cvs \else \z@ \fi}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1373 {\normalfont\normalsize\headfont}}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1374 \else
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1375 \newcommand{\subsubsection}{\@startsection{subsubsection}{3}{\z@}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1376 {\Cvs \@plus.5\Cdp \@minus.2\Cdp}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1377 {\if@slide .5\Cvs \@plus.3\Cdp \else \z@ \fi}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1378 {\normalfont\normalsize\headfont}}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1379 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1380 \newcommand{\jsParagraphMark}{■}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1381 \if@twocolumn
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1382 \newcommand{\paragraph}{\@startsection{paragraph}{4}{\z@}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1383 {\z@}{\if@slide .4\Cvs \else -1zw\fi}% 改行せず 1zw のアキ
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1384 {\normalfont\normalsize\headfont\jsParagraphMark}}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1385 \else
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1386 \newcommand{\paragraph}{\@startsection{paragraph}{4}{\z@}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1387 {0.5\Cvs \@plus.5\Cdp \@minus.2\Cdp}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1388 {\if@slide .5\Cvs \@plus.3\Cdp \else -1zw\fi}% 改行せず 1zw のアキ
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1389 {\normalfont\normalsize\headfont\jsParagraphMark}}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1390 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1391 \if@twocolumn
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1392 \newcommand{\subparagraph}{\@startsection{subparagraph}{5}{\z@}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1393 {\z@}{\if@slide .4\Cvs \@plus.3\Cdp \else -1zw\fi}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1394 {\normalfont\normalsize\headfont}}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1395 \else
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1396 \newcommand{\subparagraph}{\@startsection{subparagraph}{5}{\z@}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1397 {\z@}{\if@slide .5\Cvs \@plus.3\Cdp \else -1zw\fi}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1398 {\normalfont\normalsize\headfont}}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1399 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1400 \if@slide
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1401 \setlength\leftmargini{1zw}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1402 \else
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1403 \if@twocolumn
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1404 \setlength\leftmargini{2zw}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1405 \else
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1406 \setlength\leftmargini{3zw}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1407 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1408 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1409 \if@slide
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1410 \setlength\leftmarginii {1zw}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1411 \setlength\leftmarginiii{1zw}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1412 \setlength\leftmarginiv {1zw}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1413 \setlength\leftmarginv {1zw}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1414 \setlength\leftmarginvi {1zw}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1415 \else
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1416 \setlength\leftmarginii {2zw}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1417 \setlength\leftmarginiii{2zw}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1418 \setlength\leftmarginiv {2zw}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1419 \setlength\leftmarginv {1zw}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1420 \setlength\leftmarginvi {1zw}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1421 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1422 \setlength \labelsep {0.5zw} % .5em
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1423 \setlength \labelwidth{\leftmargini}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1424 \addtolength\labelwidth{-\labelsep}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1425 \setlength\partopsep{\z@} % {2\p@ \@plus 1\p@ \@minus 1\p@}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1426 \@beginparpenalty -\@lowpenalty
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1427 \@endparpenalty -\@lowpenalty
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1428 \@itempenalty -\@lowpenalty
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1429 \def\@listi{\leftmargin\leftmargini
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1430 \parsep \z@
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1431 \topsep 0.5\baselineskip
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1432 \itemsep \z@ \relax}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1433 \let\@listI\@listi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1434 \@listi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1435 \def\@listii{\leftmargin\leftmarginii
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1436 \labelwidth\leftmarginii \advance\labelwidth-\labelsep
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1437 \topsep \z@
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1438 \parsep \z@
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1439 \itemsep\parsep}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1440 \def\@listiii{\leftmargin\leftmarginiii
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1441 \labelwidth\leftmarginiii \advance\labelwidth-\labelsep
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1442 \topsep \z@
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1443 \parsep \z@
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1444 \itemsep\parsep}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1445 \def\@listiv {\leftmargin\leftmarginiv
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1446 \labelwidth\leftmarginiv
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1447 \advance\labelwidth-\labelsep}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1448 \def\@listv {\leftmargin\leftmarginv
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1449 \labelwidth\leftmarginv
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1450 \advance\labelwidth-\labelsep}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1451 \def\@listvi {\leftmargin\leftmarginvi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1452 \labelwidth\leftmarginvi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1453 \advance\labelwidth-\labelsep}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1454 \renewcommand{\theenumi}{\@arabic\c@enumi}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1455 \renewcommand{\theenumii}{\@alph\c@enumii}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1456 \renewcommand{\theenumiii}{\@roman\c@enumiii}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1457 \renewcommand{\theenumiv}{\@Alph\c@enumiv}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1458 \newcommand{\labelenumi}{\theenumi.}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1459 \newcommand{\labelenumii}{\inhibitglue (\theenumii )\inhibitglue}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1460 \newcommand{\labelenumiii}{\theenumiii.}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1461 \newcommand{\labelenumiv}{\theenumiv.}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1462 \renewcommand{\p@enumii}{\theenumi}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1463 \renewcommand{\p@enumiii}{\theenumi\inhibitglue (\theenumii )}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1464 \renewcommand{\p@enumiv}{\p@enumiii\theenumiii}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1465 \newcommand\labelitemi{\textbullet}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1466 \newcommand\labelitemii{\normalfont\bfseries \textendash}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1467 \newcommand\labelitemiii{\textasteriskcentered}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1468 \newcommand\labelitemiv{\textperiodcentered}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1469 \newenvironment{description}{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1470 \list{}{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1471 \labelwidth=\leftmargin
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1472 \labelsep=1zw
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1473 \advance \labelwidth by -\labelsep
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1474 \let \makelabel=\descriptionlabel}}{\endlist}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1475 \newcommand*\descriptionlabel[1]{\normalfont\headfont #1\hfil}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1476 \newbox\@abstractbox
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1477 \if@titlepage
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1478 \newenvironment{abstract}{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1479 \titlepage
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1480 \null\vfil
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1481 \@beginparpenalty\@lowpenalty
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1482 \begin{center}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1483 \headfont \abstractname
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1484 \@endparpenalty\@M
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1485 \end{center}}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1486 {\par\vfil\null\endtitlepage}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1487 \else
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1488 \newenvironment{abstract}{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1489 \if@twocolumn
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1490 \ifx\maketitle\relax
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1491 \section*{\abstractname}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1492 \else
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1493 \global\setbox\@abstractbox\hbox\bgroup
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1494 \begin{minipage}[b]{\textwidth}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1495 \small\parindent1zw
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1496 \begin{center}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1497 {\headfont \abstractname\vspace{-.5em}\vspace{\z@}}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1498 \end{center}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1499 \list{}{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1500 \listparindent\parindent
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1501 \itemindent \listparindent
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1502 \rightmargin \leftmargin}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1503 \item\relax
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1504 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1505 \else
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1506 \small
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1507 \begin{center}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1508 {\headfont \abstractname\vspace{-.5em}\vspace{\z@}}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1509 \end{center}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1510 \list{}{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1511 \listparindent\parindent
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1512 \itemindent \listparindent
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1513 \rightmargin \leftmargin}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1514 \item\relax
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1515 \fi}{\if@twocolumn
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1516 \ifx\maketitle\relax
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1517 \else
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1518 \endlist\end{minipage}\egroup
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1519 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1520 \else
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1521 \endlist
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1522 \fi}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1523 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1524 \newenvironment{verse}{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1525 \let \\=\@centercr
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1526 \list{}{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1527 \itemsep \z@
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1528 \itemindent -2zw % 元: -1.5em
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1529 \listparindent\itemindent
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1530 \rightmargin \z@
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1531 \advance\leftmargin 2zw}% 元: 1.5em
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1532 \item\relax}{\endlist}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1533 \newenvironment{quotation}{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1534 \list{}{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1535 \listparindent\parindent
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1536 \itemindent\listparindent
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1537 \rightmargin \z@}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1538 \item\relax}{\endlist}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1539 \newenvironment{quote}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1540 {\list{}{\rightmargin\z@}\item\relax}{\endlist}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1541 \def\@begintheorem#1#2{\trivlist\labelsep=1zw
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1542 \item[\hskip \labelsep{\headfont #1\ #2}]}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1543 \def\@opargbegintheorem#1#2#3{\trivlist\labelsep=1zw
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1544 \item[\hskip \labelsep{\headfont #1\ #2(#3)}]}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1545 \newenvironment{titlepage}{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1546 \if@twocolumn
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1547 \@restonecoltrue\onecolumn
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1548 \else
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1549 \@restonecolfalse\newpage
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1550 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1551 \thispagestyle{empty}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1552 \ifodd\c@page\setcounter{page}\@ne\else\setcounter{page}\z@\fi %% 2017-02-24
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1553 }%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1554 {\if@restonecol\twocolumn \else \newpage \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1555 \if@twoside\else
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1556 \setcounter{page}\@ne
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1557 \fi}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1558 \newcommand{\appendix}{\par
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1559 \setcounter{chapter}{0}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1560 \setcounter{section}{0}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1561 \gdef\@chapapp{\appendixname}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1562 \gdef\@chappos{}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1563 \gdef\thechapter{\@Alph\c@chapter}}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1564 \setlength\arraycolsep{5\jsc@mpt}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1565 \setlength\tabcolsep{6\jsc@mpt}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1566 \setlength\arrayrulewidth{.4\jsc@mpt}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1567 \setlength\doublerulesep{2\jsc@mpt}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1568 \setlength\tabbingsep{\labelsep}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1569 \skip\@mpfootins = \skip\footins
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1570 \setlength\fboxsep{3\jsc@mpt}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1571 \setlength\fboxrule{.4\jsc@mpt}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1572 \@addtoreset{equation}{chapter}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1573 \renewcommand\theequation
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1574 {\ifnum \c@chapter>\z@ \thechapter.\fi \@arabic\c@equation}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1575 \newcounter{figure}[chapter]
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1576 \renewcommand \thefigure
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1577 {\ifnum \c@chapter>\z@ \thechapter.\fi \@arabic\c@figure}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1578 \def\fps@figure{tbp}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1579 \def\ftype@figure{1}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1580 \def\ext@figure{lof}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1581 \def\fnum@figure{\figurename\nobreak\thefigure}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1582 \newenvironment{figure}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1583 {\@float{figure}}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1584 {\end@float}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1585 \newenvironment{figure*}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1586 {\@dblfloat{figure}}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1587 {\end@dblfloat}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1588 \newcounter{table}[chapter]
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1589 \renewcommand \thetable
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1590 {\ifnum \c@chapter>\z@ \thechapter.\fi \@arabic\c@table}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1591 \def\fps@table{tbp}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1592 \def\ftype@table{2}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1593 \def\ext@table{lot}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1594 \def\fnum@table{\tablename\nobreak\thetable}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1595 \newenvironment{table}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1596 {\@float{table}}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1597 {\end@float}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1598 \newenvironment{table*}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1599 {\@dblfloat{table}}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1600 {\end@dblfloat}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1601 \newlength\abovecaptionskip
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1602 \newlength\belowcaptionskip
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1603 \setlength\abovecaptionskip{5\jsc@mpt} % 元: 10\p@
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1604 \setlength\belowcaptionskip{5\jsc@mpt} % 元: 0\p@
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1605 \long\def\@makecaption#1#2{{\small
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1606 \advance\leftskip .0628\linewidth
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1607 \advance\rightskip .0628\linewidth
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1608 \vskip\abovecaptionskip
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1609 \sbox\@tempboxa{#1\hskip1zw\relax #2}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1610 \ifdim \wd\@tempboxa <\hsize \centering \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1611 #1{\hskip1zw\relax}#2\par
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1612 \vskip\belowcaptionskip}}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1613 \DeclareOldFontCommand{\mc}{\normalfont\mcfamily}{\mathmc}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1614 \DeclareOldFontCommand{\gt}{\normalfont\gtfamily}{\mathgt}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1615 \DeclareOldFontCommand{\rm}{\normalfont\rmfamily}{\mathrm}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1616 \DeclareOldFontCommand{\sf}{\normalfont\sffamily}{\mathsf}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1617 \DeclareOldFontCommand{\tt}{\normalfont\ttfamily}{\mathtt}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1618 \DeclareOldFontCommand{\bf}{\normalfont\bfseries}{\mathbf}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1619 \DeclareOldFontCommand{\it}{\normalfont\itshape}{\mathit}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1620 \DeclareOldFontCommand{\sl}{\normalfont\slshape}{\@nomath\sl}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1621 \DeclareOldFontCommand{\sc}{\normalfont\scshape}{\@nomath\sc}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1622 \DeclareRobustCommand*{\cal}{\@fontswitch\relax\mathcal}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1623 \DeclareRobustCommand*{\mit}{\@fontswitch\relax\mathnormal}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1624 \newcommand\@pnumwidth{1.55em}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1625 \newcommand\@tocrmarg{2.55em}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1626 \newcommand\@dotsep{4.5}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1627 \setcounter{tocdepth}{1}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1628 \newdimen\jsc@tocl@width
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1629 \newcommand{\tableofcontents}{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1630 \settowidth\jsc@tocl@width{\headfont\prechaptername\postchaptername}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1631 \settowidth\@tempdima{\headfont\appendixname}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1632 \ifdim\jsc@tocl@width<\@tempdima \setlength\jsc@tocl@width{\@tempdima}\fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1633 \ifdim\jsc@tocl@width<2zw \divide\jsc@tocl@width by 2 \advance\jsc@tocl@width 1zw\fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1634 \if@twocolumn
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1635 \@restonecoltrue\onecolumn
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1636 \else
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1637 \@restonecolfalse
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1638 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1639 \chapter*{\contentsname}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1640 \@mkboth{\contentsname}{}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1641 \@starttoc{toc}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1642 \if@restonecol\twocolumn\fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1643 }
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1644 \newcommand*{\l@part}[2]{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1645 \ifnum \c@tocdepth >-2\relax
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1646 \addpenalty{-\@highpenalty}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1647 \addvspace{2.25em \@plus\jsc@mpt}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1648 \begingroup
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1649 \parindent \z@
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1650 \rightskip \@tocrmarg
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1651 \parfillskip -\rightskip
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1652 {\leavevmode
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1653 \large \headfont
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1654 \setlength\@lnumwidth{4zw}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1655 #1\hfil \hb@xt@\@pnumwidth{\hss #2}}\par
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1656 \nobreak
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1657 \global\@nobreaktrue
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1658 \everypar{\global\@nobreakfalse\everypar{}}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1659 \endgroup
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1660 \fi}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1661 \newcommand*{\l@chapter}[2]{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1662 \ifnum \c@tocdepth >\m@ne
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1663 \addpenalty{-\@highpenalty}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1664 \addvspace{1.0em \@plus\jsc@mpt}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1665 \begingroup
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1666 \parindent\z@
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1667 \rightskip\@tocrmarg
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1668 \parfillskip-\rightskip
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1669 \leavevmode\headfont
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1670 % \if@english\setlength\@lnumwidth{5.5em}\else\setlength\@lnumwidth{4.683zw}\fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1671 \setlength\@lnumwidth{\jsc@tocl@width}\advance\@lnumwidth 2.683zw
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1672 \advance\leftskip\@lnumwidth \hskip-\leftskip
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1673 #1\nobreak\hfil\nobreak\hbox to\@pnumwidth{\hss#2}\par
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1674 \penalty\@highpenalty
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1675 \endgroup
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1676 \fi}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1677 % \newcommand*{\l@section}{\@dottedtocline{1}{1zw}{3.683zw}}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1678 \newcommand*{\l@section}{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1679 \@tempdima\jsc@tocl@width \advance\@tempdima -1zw
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1680 \@dottedtocline{1}{\@tempdima}{3.683zw}}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1681 \newcommand*{\l@subsection}{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1682 \@tempdima\jsc@tocl@width \advance\@tempdima 2.683zw
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1683 \@dottedtocline{2}{\@tempdima}{3.5zw}}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1684 \newcommand*{\l@subsubsection}{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1685 \@tempdima\jsc@tocl@width \advance\@tempdima 6.183zw
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1686 \@dottedtocline{3}{\@tempdima}{4.5zw}}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1687 \newcommand*{\l@paragraph}{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1688 \@tempdima\jsc@tocl@width \advance\@tempdima 10.683zw
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1689 \@dottedtocline{4}{\@tempdima}{5.5zw}}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1690 \newcommand*{\l@subparagraph}{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1691 \@tempdima\jsc@tocl@width \advance\@tempdima 16.183zw
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1692 \@dottedtocline{5}{\@tempdima}{6.5zw}}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1693 \newdimen\@lnumwidth
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1694 \def\numberline#1{\hb@xt@\@lnumwidth{#1\hfil}\hspace{0pt}}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1695 \def\jsTocLine{\leaders\hbox{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1696 $\m@th \mkern \@dotsep mu\hbox{.}\mkern \@dotsep mu$}\hfill}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1697 \def\@dottedtocline#1#2#3#4#5{\ifnum #1>\c@tocdepth \else
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1698 \vskip \z@ \@plus.2\jsc@mpt
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1699 {\leftskip #2\relax \rightskip \@tocrmarg \parfillskip -\rightskip
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1700 \parindent #2\relax\@afterindenttrue
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1701 \interlinepenalty\@M
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1702 \leavevmode
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1703 \@lnumwidth #3\relax
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1704 \advance\leftskip \@lnumwidth \null\nobreak\hskip -\leftskip
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1705 {#4}\nobreak
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1706 \jsTocLine \nobreak\hb@xt@\@pnumwidth{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1707 \hfil\normalfont \normalcolor #5}\par}\fi}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1708 \newcommand{\listoffigures}{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1709 \if@twocolumn\@restonecoltrue\onecolumn
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1710 \else\@restonecolfalse\fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1711 \chapter*{\listfigurename}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1712 \@mkboth{\listfigurename}{}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1713 \@starttoc{lof}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1714 \if@restonecol\twocolumn\fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1715 }
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1716 \newcommand*{\l@figure}{\@dottedtocline{1}{1zw}{3.683zw}}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1717 \newcommand{\listoftables}{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1718 \if@twocolumn\@restonecoltrue\onecolumn
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1719 \else\@restonecolfalse\fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1720 \chapter*{\listtablename}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1721 \@mkboth{\listtablename}{}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1722 \@starttoc{lot}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1723 \if@restonecol\twocolumn\fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1724 }
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1725 \let\l@table\l@figure
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1726 \newdimen\bibindent
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1727 \setlength\bibindent{2zw}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1728 \newenvironment{thebibliography}[1]{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1729 \global\let\presectionname\relax
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1730 \global\let\postsectionname\relax
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1731 \chapter*{\bibname}\@mkboth{\bibname}{}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1732 \addcontentsline{toc}{chapter}{\bibname}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1733 \list{\@biblabel{\@arabic\c@enumiv}}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1734 {\settowidth\labelwidth{\@biblabel{#1}}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1735 \leftmargin\labelwidth
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1736 \advance\leftmargin\labelsep
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1737 \@openbib@code
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1738 \usecounter{enumiv}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1739 \let\p@enumiv\@empty
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1740 \renewcommand\theenumiv{\@arabic\c@enumiv}}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1741 \sloppy
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1742 \clubpenalty4000
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1743 \@clubpenalty\clubpenalty
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1744 \widowpenalty4000%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1745 \sfcode`\.\@m}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1746 {\def\@noitemerr
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1747 {\@latex@warning{Empty `thebibliography' environment}}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1748 \endlist}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1749 \newcommand{\newblock}{\hskip .11em\@plus.33em\@minus.07em}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1750 \let\@openbib@code\@empty
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1751 \newenvironment{theindex}{% 索引を3段組で出力する環境
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1752 \if@twocolumn
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1753 \onecolumn\@restonecolfalse
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1754 \else
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1755 \clearpage\@restonecoltrue
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1756 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1757 \columnseprule.4pt \columnsep 2zw
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1758 \ifx\multicols\@undefined
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1759 \twocolumn[\@makeschapterhead{\indexname}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1760 \addcontentsline{toc}{chapter}{\indexname}]%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1761 \else
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1762 \ifdim\textwidth<\fullwidth
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1763 \setlength{\evensidemargin}{\oddsidemargin}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1764 \setlength{\textwidth}{\fullwidth}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1765 \setlength{\linewidth}{\fullwidth}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1766 \begin{multicols}{3}[\chapter*{\indexname}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1767 \addcontentsline{toc}{chapter}{\indexname}]%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1768 \else
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1769 \begin{multicols}{2}[\chapter*{\indexname}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1770 \addcontentsline{toc}{chapter}{\indexname}]%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1771 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1772 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1773 \@mkboth{\indexname}{}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1774 \plainifnotempty % \thispagestyle{plain}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1775 \parindent\z@
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1776 \parskip\z@ \@plus .3\jsc@mpt\relax
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1777 \let\item\@idxitem
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1778 \raggedright
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1779 \footnotesize\narrowbaselines
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1780 }{
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1781 \ifx\multicols\@undefined
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1782 \if@restonecol\onecolumn\fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1783 \else
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1784 \end{multicols}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1785 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1786 \clearpage
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1787 }
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1788 \newcommand{\@idxitem}{\par\hangindent 4zw} % 元 40pt
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1789 \newcommand{\subitem}{\@idxitem \hspace*{2zw}} % 元 20pt
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1790 \newcommand{\subsubitem}{\@idxitem \hspace*{3zw}} % 元 30pt
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1791 \newcommand{\indexspace}{\par \vskip 10\jsc@mpt \@plus5\jsc@mpt \@minus3\jsc@mpt\relax}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1792 \newcommand\seename{\if@english see\else →\fi}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1793 \newcommand\alsoname{\if@english see also\else →\fi}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1794 \@ifl@t@r\pfmtversion{2016/09/03}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1795 {\jsc@needsp@tchfalse}{\jsc@needsp@tchtrue}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1796 \ifjsc@needsp@tch
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1797 \let\footnotes@ve=\footnote
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1798 \def\footnote{\inhibitglue\footnotes@ve}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1799 \let\footnotemarks@ve=\footnotemark
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1800 \def\footnotemark{\inhibitglue\footnotemarks@ve}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1801 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1802 \@ifl@t@r\pfmtversion{2016/04/17}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1803 {\jsc@needsp@tchfalse}{\jsc@needsp@tchtrue}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1804 \ifjsc@needsp@tch
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1805 \renewcommand\@makefnmark{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1806 \ifydir \hbox{}\hbox{\@textsuperscript{\normalfont\@thefnmark}}\hbox{}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1807 \else\hbox{\yoko\@textsuperscript{\normalfont\@thefnmark}}\fi}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1808 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1809 \def\thefootnote{\ifnum\c@footnote>\z@\leavevmode\lower.5ex\hbox{*}\@arabic\c@footnote\fi}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1810 \renewcommand{\footnoterule}{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1811 \kern-3\jsc@mpt
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1812 \hrule width .4\columnwidth height 0.4\jsc@mpt
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1813 \kern 2.6\jsc@mpt}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1814 \@addtoreset{footnote}{chapter}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1815 \long\def\@footnotetext{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1816 \insert\footins\bgroup
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1817 \normalfont\footnotesize
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1818 \interlinepenalty\interfootnotelinepenalty
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1819 \splittopskip\footnotesep
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1820 \splitmaxdepth \dp\strutbox \floatingpenalty \@MM
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1821 \hsize\columnwidth \@parboxrestore
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1822 \protected@edef\@currentlabel{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1823 \csname p@footnote\endcsname\@thefnmark
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1824 }%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1825 \color@begingroup
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1826 \@makefntext{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1827 \rule\z@\footnotesep\ignorespaces}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1828 \futurelet\jsc@next\jsc@fo@t}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1829 \def\jsc@fo@t{\ifcat\bgroup\noexpand\jsc@next \let\jsc@next\jsc@f@@t
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1830 \else \let\jsc@next\jsc@f@t\fi \jsc@next}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1831 \def\jsc@f@@t{\bgroup\aftergroup\jsc@@foot\let\jsc@next}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1832 \def\jsc@f@t#1{#1\jsc@@foot}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1833 \def\jsc@@foot{\@finalstrut\strutbox\color@endgroup\egroup
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1834 \ifx\pltx@foot@penalty\@undefined\else
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1835 \ifhmode\null\fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1836 \ifnum\pltx@foot@penalty=\z@\else
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1837 \penalty\pltx@foot@penalty
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1838 \pltx@foot@penalty\z@
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1839 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1840 \fi}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1841 \newcommand\@makefntext[1]{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1842 \advance\leftskip 3zw
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1843 \parindent 1zw
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1844 \noindent
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1845 \llap{\@makefnmark\hskip0.3zw}#1}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1846 \def\@inhibitglue{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1847 \futurelet\@let@token\@@inhibitglue}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1848 \begingroup
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1849 \let\GDEF=\gdef
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1850 \let\CATCODE=\catcode
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1851 \let\ENDGROUP=\endgroup
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1852 \CATCODE`k=12
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1853 \CATCODE`a=12
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1854 \CATCODE`n=12
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1855 \CATCODE`j=12
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1856 \CATCODE`i=12
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1857 \CATCODE`c=12
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1858 \CATCODE`h=12
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1859 \CATCODE`r=12
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1860 \CATCODE`t=12
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1861 \CATCODE`e=12
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1862 \GDEF\KANJI@CHARACTER{kanji character }
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1863 \ENDGROUP
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1864 \def\@@inhibitglue{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1865 \expandafter\expandafter\expandafter\jsc@inhibitglue\expandafter\meaning\expandafter\@let@token\KANJI@CHARACTER\relax\jsc@end}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1866 \expandafter\def\expandafter\jsc@inhibitglue\expandafter#\expandafter1\KANJI@CHARACTER#2#3\jsc@end{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1867 \def\jsc@ig@temp{#1}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1868 \ifx\jsc@ig@temp\@empty
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1869 \ifnum\the\inhibitxspcode`#2=2\relax
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1870 \inhibitglue
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1871 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1872 \fi}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1873 \let\everyparhook=\@inhibitglue
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1874 \AtBeginDocument{\everypar{\everyparhook}}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1875 \def\@doendpe{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1876 \@endpetrue
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1877 \def\par{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1878 \@restorepar\clubpenalty\@clubpenalty\everypar{\everyparhook}\par\@endpefalse}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1879 \everypar{{\setbox\z@\lastbox}\everypar{\everyparhook}\@endpefalse\everyparhook}}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1880 \def\@setminipage{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1881 \@minipagetrue
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1882 \everypar{\@minipagefalse\everypar{\everyparhook}}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1883 }
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1884 \def\@item[#1]{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1885 \if@noparitem
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1886 \@donoparitem
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1887 \else
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1888 \if@inlabel
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1889 \indent \par
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1890 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1891 \ifhmode
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1892 \unskip\unskip \par
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1893 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1894 \if@newlist
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1895 \if@nobreak
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1896 \@nbitem
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1897 \else
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1898 \addpenalty\@beginparpenalty
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1899 \addvspace\@topsep
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1900 \addvspace{-\parskip}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1901 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1902 \else
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1903 \addpenalty\@itempenalty
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1904 \addvspace\itemsep
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1905 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1906 \global\@inlabeltrue
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1907 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1908 \everypar{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1909 \@minipagefalse
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1910 \global\@newlistfalse
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1911 \if@inlabel
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1912 \global\@inlabelfalse
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1913 {\setbox\z@\lastbox
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1914 \ifvoid\z@
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1915 \kern-\itemindent
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1916 \fi}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1917 \box\@labels
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1918 \penalty\z@
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1919 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1920 \if@nobreak
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1921 \@nobreakfalse
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1922 \clubpenalty \@M
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1923 \else
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1924 \clubpenalty \@clubpenalty
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1925 \everypar{\everyparhook}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1926 \fi\everyparhook}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1927 \if@noitemarg
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1928 \@noitemargfalse
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1929 \if@nmbrlist
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1930 \refstepcounter\@listctr
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1931 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1932 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1933 \sbox\@tempboxa{\makelabel{#1}}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1934 \global\setbox\@labels\hbox{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1935 \unhbox\@labels
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1936 \hskip \itemindent
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1937 \hskip -\labelwidth
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1938 \hskip -\labelsep
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1939 \ifdim \wd\@tempboxa >\labelwidth
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1940 \box\@tempboxa
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1941 \else
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1942 \hbox to\labelwidth {\unhbox\@tempboxa}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1943 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1944 \hskip \labelsep}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1945 \ignorespaces}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1946 \def\@afterheading{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1947 \@nobreaktrue
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1948 \everypar{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1949 \if@nobreak
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1950 \@nobreakfalse
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1951 \clubpenalty \@M
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1952 \if@afterindent \else
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1953 {\setbox\z@\lastbox}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1954 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1955 \else
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1956 \clubpenalty \@clubpenalty
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1957 \everypar{\everyparhook}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1958 \fi\everyparhook}}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1959 \def\@gnewline #1{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1960 \ifvmode
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1961 \@nolnerr
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1962 \else
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1963 \unskip \reserved@e {\reserved@f#1}\nobreak \hfil \break \null
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1964 \inhibitglue \ignorespaces
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1965 \fi}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1966 \if@jslogo
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1967 \IfFileExists{jslogo.sty}{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1968 \RequirePackage{jslogo}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1969 \def\小{\jslg@small}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1970 \def\上小{\jslg@uppersmall}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1971 }{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1972 \ClassWarningNoLine{\jsc@clsname}{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1973 The redefinitions of LaTeX-related logos has\MessageBreak
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1974 been moved to jslogo.sty since 2016, but\MessageBreak
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1975 jslogo.sty not found. Current release of\MessageBreak
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1976 'jsclasses' includes it, so please check\MessageBreak
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1977 the installation}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1978 }
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1979 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1980 \newcommand{\prepartname}{\if@english Part~\else 第\fi}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1981 \newcommand{\postpartname}{\if@english\else 部\fi}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1982 \newcommand{\prechaptername}{\if@english Chapter~\else 第\fi}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1983 \newcommand{\postchaptername}{\if@english\else 章\fi}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1984 \newcommand{\presectionname}{}% 第
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1985 \newcommand{\postsectionname}{}% 節
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1986 \newcommand{\contentsname}{\if@english Contents\else 目次\fi}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1987 \newcommand{\listfigurename}{\if@english List of Figures\else 図目次\fi}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1988 \newcommand{\listtablename}{\if@english List of Tables\else 表目次\fi}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1989 \newcommand{\refname}{\if@english References\else 参考文献\fi}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1990 \newcommand{\bibname}{\if@english Bibliography\else 参考文献\fi}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1991 \newcommand{\indexname}{\if@english Index\else 索引\fi}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1992 \newcommand{\figurename}{\if@english Fig.~\else 図\fi}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1993 \newcommand{\tablename}{\if@english Table~\else 表\fi}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1994 \newcommand{\appendixname}{\if@english \else 付録\fi}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1995 \newcommand{\abstractname}{\if@english Abstract\else 概要\fi}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1996 \newif\if西暦 \西暦true
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1997 \def\西暦{\西暦true}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1998 \def\和暦{\西暦false}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1999 \newcount\heisei \heisei\year \advance\heisei-1988\relax
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
2000 \def\pltx@today@year@#1{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
2001 \ifnum\numexpr\year-#1=1 元\else
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
2002 \ifnum1=\iftdir\ifmdir0\else1\fi\else0\fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
2003 \kansuji\numexpr\year-#1\relax
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
2004 \else
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
2005 \number\numexpr\year-#1\relax\nobreak
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
2006 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
2007 \fi 年
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
2008 }
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
2009 \def\pltx@today@year{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
2010 \ifnum\numexpr\year*10000+\month*100+\day<19890108
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
2011 昭和\pltx@today@year@{1925}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
2012 \else\ifnum\numexpr\year*10000+\month*100+\day<20190501
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
2013 平成\pltx@today@year@{1988}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
2014 \else
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
2015 令和\pltx@today@year@{2018}%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
2016 \fi\fi}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
2017 \def\today{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
2018 \if@english
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
2019 \ifcase\month\or
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
2020 January\or February\or March\or April\or May\or June\or
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
2021 July\or August\or September\or October\or November\or December\fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
2022 \space\number\day, \number\year
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
2023 \else\if西暦
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
2024 \ifnum1=\iftdir\ifmdir0\else1\fi\else0\fi \kansuji\year
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
2025 \else\number\year\nobreak\fi 年
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
2026 \else
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
2027 \pltx@today@year
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
2028 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
2029 \ifnum1=\iftdir\ifmdir0\else1\fi\else0\fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
2030 \kansuji\month 月
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
2031 \kansuji\day 日
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
2032 \else
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
2033 \number\month\nobreak 月
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
2034 \number\day\nobreak 日
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
2035 \fi\fi}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
2036 \hyphenation{ado-be post-script ghost-script phe-nom-e-no-log-i-cal man-u-script}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
2037 \pagestyle{plain}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
2038 \pagenumbering{arabic}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
2039 \if@twocolumn
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
2040 \twocolumn
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
2041 \sloppy
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
2042 \flushbottom
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
2043 \else
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
2044 \onecolumn
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
2045 \raggedbottom
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
2046 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
2047 \if@slide
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
2048 \renewcommand\kanjifamilydefault{\gtdefault}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
2049 \renewcommand\familydefault{\sfdefault}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
2050 \raggedright
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
2051 \xkanjiskip=0.1em\relax
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
2052 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
2053 \@ifpackageloaded{exppl2e}{\jsc@needsp@tchtrue}{\jsc@needsp@tchfalse}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
2054 \ifjsc@needsp@tch\else
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
2055 \expandafter\endinput
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
2056 \fi
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
2057 \def\@gnewline #1{%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
2058 \ifvmode
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
2059 \@nolnerr
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
2060 \else
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
2061 \unskip \reserved@e {\reserved@f#1}\nobreak \hfil \break \hskip \z@
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
2062 \ignorespaces
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
2063 \fi}
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
2064 \endinput
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
2065 %%
Masato Tawata <e185761@ie.u-ryukyu.ac.jp>
parents:
diff changeset
2066 %% End of file `jsreport.cls'.