annotate ipsjcommon.sty @ 32:9d1cb32f048c

Added tag v3.0 for changeset 0dc99ce70bd9
author Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
date Thu, 11 Dec 2014 21:29:27 +0900
parents 07abe01ef529
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1 % Copyright (C) 1995-2007 by Hiroshi Nakashima, Yasuki Saito and
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
2 % The Editorial Board of the IPSJ Journal
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
3 %
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
4 % ipsjcommon.sty 02-Jan-08 by Hiroshi Nakashima (ver 3.00)
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
5 % (revision history deleted)
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
6 % ipsjcommon.sty 24-Apr-95 by Hiroshi Nakashima (ver 1.0)
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
7
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
8 %%%%%% Sectioning Commands %%%%%%
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
9
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
10 % \section: 2 rows
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
11 % others: 1 row
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
12 %
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
13 % Note that \paragraph and \subparagraph act as \subsubsubsection and
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
14 % \subsubsubsubsection resp.
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
15 %
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
16 % The form of sectioning header is;
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
17 % <1 Kanji sp> \the<sect-command> [`.' if \section] <1 Kanji sp> <title>
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
18 % Nothe that <1 Kanji sp> is that of \normalsize.
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
19
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
20 \def\section{\@startsection
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
21 {section}{1}{\@mojihaba}{\sec@aboveskip}{\sec@belowskip}{\fs@sec\bf}}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
22 \let\ipsj@section\section % 2.04(1)
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
23 \def\subsection{\@startsection
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
24 {subsection}{2}{\@mojihaba}{\z@}{\z@}{\fs@subsec\bf}}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
25 \def\subsubsection{\@startsection
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
26 {subsubsection}{3}{\@mojihaba}{\z@}{\z@}{\fs@subsec\bf}}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
27 \def\paragraph{\@startsection
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
28 {paragraph}{4}{\@mojihaba}{\z@}{\z@}{\fs@subsec\bf}}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
29 \def\subparagraph{\@startsection
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
30 {subparagraph}{5}{\@mojihaba}{\z@}{\z@}{\fs@subsec\bf}}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
31
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
32 \newcounter{section}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
33 \newcounter{subsection}[section]
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
34 \newcounter{subsubsection}[subsection]
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
35 \newcounter{paragraph}[subsubsection]
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
36 \newcounter{subparagraph}[paragraph]
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
37
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
38 \def\thesection{\arabic{section}}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
39 \def\sec@section@postfix{.}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
40 \def\thesubsection{\thesection.\arabic{subsection}}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
41 \def\thesubsubsection{\thesubsection.\arabic{subsubsection}}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
42 \def\theparagraph{\thesubsubsection.\arabic{paragraph}}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
43 \def\thesubparagraph{\theparagraph.\arabic{subparagraph}}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
44
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
45 \setcounter{secnumdepth}{5}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
46
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
47 \def\appendix{\let\sec@sec\section
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
48 \def\section{\@startsection
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
49 {section}{1}{\@mojihaba}{\z@}{\z@}{\fs@subsec\bf}}%
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
50 \def\thesection{\appendixprefix\arabic{section}}%
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
51 \def\sec@section@postfix{\appendixpostfix}%
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
52 \stepcounter{section}\setcounter{section}{0}%
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
53 \@ifnextchar[%]
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
54 {\sec@oappendix}{\sec@xappendix}}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
55 \def\sec@xappendix{\@ifstar{\let\section\sec@sec}%
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
56 {\sec@sec*{\ifDS@english Appendix\else\ipsj@j@app \fi}}}% 2.12(1b)
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
57 \def\sec@oappendix[#1]{\sec@sec*{\ifDS@english Appendix: \else
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
58 \ipsj@j@app\hskip\jspaceskip\fi #1}} % 2.12(1b)
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
59 \def\appendixprefix{A.}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
60 \def\appendixpostfix{}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
61
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
62 \def\acknowledgment{\par
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
63 {\bf \ifDS@english Acknowledgments \else\ipsj@j@ack\fi}%% 2.12(1b)
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
64 \hskip\@mojihaba \ignorespaces}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
65 \let\endacknowledgment\par
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
66
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
67 \newif\ifipsj@recommendation \ipsj@recommendationfalse % 2.04(1) >>
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
68 \def\recommendation#1{\global\ipsj@recommendationtrue
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
69 \ifDS@draft\else \ra@putrcvacc\fi
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
70 \ipsj@section*{#1}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
71 }
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
72 \def\endrecommendation{\par\vskip\baselineskip\penalty\opt@magicpenalty}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
73 % 2.04(1) <<
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
74
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
75 % Modified \@startsection has a trick for "2-row" of \section, which must
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
76 % work even if \section appears the top of a page. The BEFORESKIP must be
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
77 % inserted with respect to the previous baseline. So, we must go back to
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
78 % the imaginary previous baseline at the top of a page. That is, we do;
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
79 % \vskip\baselineskip \vspace*{-\baselineskip}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
80 % which resuls;
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
81 % <a> do nothing at midpage
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
82 % <b> go to the first baseline by \topskip, then go back to 0th
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
83 % baseline by \vspace*.
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
84 % The trick "\vskip-\prevdepth \prevdepth\z@" will assure exact vertical
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
85 % space even when the last line has much depth.
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
86 %
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
87 % \@startsection {NAME}{LEVEL}{INDENT}{BEFORESKIP}{AFTERSKIP}{STYLE}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
88 \def\@startsection#1#2#3#4#5#6{\if@noskipsec \leavevmode \fi
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
89 \par \@tempskipa #4\relax
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
90 \@afterindenttrue
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
91 \ifdim\@tempskipa<\z@ \@tempskipa-\@tempskipa \@afterindentfalse\fi
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
92 \if@nobreak \everypar{}\else \addpenalty{\@secpenalty}\fi
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
93 \ifdim\@tempskipa>\z@
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
94 % Here is the trick for \section.
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
95 \vskip-\prevdepth \prevdepth\z@ \vskip\baselineskip
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
96 \vspace*{-\baselineskip}\vskip\@tempskipa\fi
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
97 \@ifstar
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
98 {\@ssect{#3}{#4}{#5}{#6}}{\@dblarg{\@sect{#1}{#2}{#3}{#4}{#5}{#6}}}}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
99
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
100 % \@sect is modified to cope with `.' for \section and MOJI-DORI
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
101 %
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
102 % \@sect{NAME}{LEVEL}{INDENT}{BEFORESKIP}{AFTERSKIP}{STYLE}[TITLE]{TITLE}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
103 \def\@sect#1#2#3#4#5#6[#7]#8{\ifnum #2>\c@secnumdepth
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
104 \def\@svsec{}\else
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
105 \refstepcounter{#1}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
106 % 2.00(1)>>
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
107 \let\@@protect\protect \def\protect{\noexpand\protect\noexpand}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
108 \edef\@svsec{\csname the#1\endcsname \csname sec@#1@postfix\endcsname
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
109 \hskip\@mojihaba} \let\protect\@@protect\fi % 2.00(1)<<
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
110 \@tempskipa #5\relax
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
111 \ifdim \@tempskipa<\z@
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
112 \def\@svsechd{#6\hskip #3\relax\@svsec #8} % 2.00(1)
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
113 \else
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
114 \begingroup #6\relax
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
115 \@hangfrom{\hskip #3\relax\@svsec}%
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
116 {\interlinepenalty\@M \sec@mojidori{#8}\par}%
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
117 \endgroup
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
118 \fi \@xsect{#5}}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
119
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
120 % \@ssect is modified to cope with MOJI-DORI
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
121 %
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
122 % \@sect{INDENT}{BEFORESKIP}{AFTERSKIP}{STYLE}{TITLE}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
123 \def\@ssect#1#2#3#4#5{\@tempskipa #3\relax
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
124 \ifdim \@tempskipa<\z@ \def\@svsechd{#4\hskip #1\relax #5}%
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
125 \else \begingroup #4%
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
126 \@hangfrom{\hskip #1}{\interlinepenalty\@M
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
127 \sec@mojidori{#5}\par}\endgroup
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
128 \fi \@xsect{#3}}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
129
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
130 %% Modify \@xsect to avoid (buggy) \clubpenalty=10000. (H.N.)
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
131 \def\@xsect#1{\@tempskipa #1\relax
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
132 \ifdim \@tempskipa<\z@
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
133 \glboal\@nobreakfalse \global\@noskipsectrue
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
134 \everypar{\global\@noskipsecfalse \hskip-\parindent
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
135 \begingroup \@svsechd \endgroup \unskip
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
136 \hskip -#1\everypar{}}%
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
137 \else
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
138 \par \nobreak
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
139 \vskip \@tempskipa \global\@nobreaktrue
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
140 \everypar{\global\@nobreakfalse
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
141 \if@afterindent\else {\setbox0\lastbox}\fi \everypar{}}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
142 \fi\ignorespaces}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
143
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
144 % Here is a trick for MOJI-DORI of sectioning tilte. The rule is;
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
145 % 2 - 4 Kanji char -> 5 Kanji char
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
146 % otherwise -> natural width
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
147 %
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
148 \def\sec@mojidori#1{\ifDS@english #1\else % 2.12(1b)
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
149 \setbox0\hbox{#1}\settowidth\@tempdimb{\ipsj@j@a}% % 2.12(1b)
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
150 \ifdim\wd0>4.5\@tempdimb #1\else
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
151 \ifdim\wd0<1.5\@tempdimb #1\else
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
152 \jintercharskip\fill \jasciikanjiskip\fill \jmathkanjiskip\fill
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
153 \leavevmode\hbox to5\@tempdimb{#1\hfil}\fi\fi\fi}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
154
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
155 %%%%%% List-like Environments %%%%%%
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
156 %
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
157 % LM RM LW LS LPI II
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
158 % default 2K 0 0.75K 0.25K 0 0
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
159 % \enumerate 3K 0 3K 0 0 0
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
160 % \Enumerate 0 0 3K 0 0 3K
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
161 % \ENUMERATE 0 0 3K 0 0 4K
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
162 % \enumerate* 1K 0 3K 0 0 2K
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
163 % \itemize 2K 0 2K 0 0 0
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
164 % \Itemize 0 0 2K 0 0 2K
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
165 % \ITEMIZE 0 0 2K 0 0 3K
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
166 % \itemize* 1K 0 2K 0 0 1K
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
167 % \description 2K 0 0 1K 0 -1K
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
168 % \Description 0 0 0 1K 0 1K
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
169 % \DESCRIPTION 0 0 0 1K 0 2K
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
170 % \description* 1K 0 0 1K 0 0
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
171 % \verse 3K 2K 0.75K 0.25K -1K -1K
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
172 % \quotation 2K 2K 0.75K 0.25K 1K 1K
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
173 % \quote 2K 2K 0.75K 0.25K 0 0
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
174 %
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
175 % where LM is \leftmargin, RM is \rightmargin, LW is \labelwidth, LS is
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
176 % \labelsep, \LPI is \listparindent, II is \itemindent, and K is Kanji char
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
177 % width (\@mojihaba).
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
178 %
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
179 % All vertical space parameters, \topsep, \partopsep, \itemsep and \parsep,
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
180 % are 0pt.
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
181
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
182 \leftmargini2\@mojihaba
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
183 \leftmarginii2\@mojihaba
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
184 \leftmarginiii2\@mojihaba
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
185 \leftmarginiv2\@mojihaba
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
186 \leftmarginv2\@mojihaba
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
187 \leftmarginvi2\@mojihaba
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
188
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
189 \def\lst@listi{\labelsep.75\@mojihaba \labelwidth.25\@mojihaba
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
190 \rightmargin\z@ \listparindent\z@ \itemindent\z@
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
191 \partopsep\z@ \parsep\z@ \topsep\z@ \itemsep\z@}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
192 \def\@listi{\leftmargin\leftmargini \lst@listi}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
193 \def\@listii{\leftmargin\leftmarginii \lst@listi}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
194 \def\@listiii{\leftmargin\leftmarginiii \lst@listi}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
195 \def\@listiv{\leftmargin\leftmarginiv \lst@listi}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
196 \def\@listv{\leftmargin\leftmarginv \lst@listi}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
197 \def\@listvi{\leftmargin\leftmarginvi \lst@listi}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
198
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
199 \@listi
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
200
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
201 \def\labelenumi{(\,\theenumi\,)}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
202 \def\theenumi{\arabic{enumi}}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
203 \def\labelenumii{(\,\theenumii\,)}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
204 \def\theenumii{\alph{enumii}}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
205 \def\p@enumii{\theenumi}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
206 \def\labelenumiii{(\,\theenumiii\,)}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
207 \def\theenumiii{\roman{enumiii}}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
208 \def\p@enumiii{\theenumi(\theenumii)}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
209 \def\labelenumiv{(\,\theenumiv\,)}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
210 \def\theenumiv{\Alph{enumiv}}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
211 \def\p@enumiv{\p@enumiii\theenumiii}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
212 \def\enumerate{\ifnum \@enumdepth >3 \@toodeep\else
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
213 \advance\@enumdepth \@ne
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
214 \edef\@enumctr{enum\romannumeral\the\@enumdepth}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
215 \list{\csname label\@enumctr\endcsname}{\usecounter
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
216 {\@enumctr}\def\makelabel##1{##1\hss}%
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
217 \leftmargin3\@mojihaba \labelwidth3\@mojihaba \labelsep\z@}\fi}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
218 \let\endenumerate\endlist
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
219
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
220 \def\labelitemi{$\bullet$}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
221 \def\labelitemii{\bf --}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
222 \def\labelitemiii{$\ast$}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
223 \def\labelitemiv{$\cdot$}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
224 \def\itemize{\ifnum \@itemdepth >3 \@toodeep\else \advance\@itemdepth \@ne
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
225 \edef\@itemitem{labelitem\romannumeral\the\@itemdepth}%
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
226 \list{\csname\@itemitem\endcsname}{\def\makelabel##1{\hss##1\hss}%
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
227 \labelwidth2\@mojihaba \labelsep\z@}\fi}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
228 \let\enditemize\endlist
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
229
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
230 \def\description{\list{}{\labelwidth\z@ \labelsep\@mojihaba
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
231 \itemindent\labelsep \advance\itemindent-\leftmargin
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
232 \def\makelabel##1{\bf ##1}}}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
233 \let\enddescription\endlist
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
234
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
235 \let\latex@trivlist\@trivlist
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
236 \def\lst@trivlist#1#2{\leftmargin#1\relax
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
237 \itemindent\labelwidth \advance\itemindent\labelsep
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
238 \advance\itemindent#2\relax
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
239 \let\@trivlist\latex@trivlist \@trivlist}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
240
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
241 \def\lst@Trivlist{\def\@trivlist{\lst@trivlist\z@\z@}}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
242 \def\Enumerate{\lst@Trivlist \enumerate}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
243 \let\endEnumerate\endlist
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
244 \def\Itemize{\lst@Trivlist \itemize}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
245 \let\endItemize\endlist
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
246 \def\Description{\lst@Trivlist \description}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
247 \let\endDescription\endlist
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
248
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
249 \def\lst@TRIVLIST{\def\@trivlist{\lst@trivlist\z@\@mojihaba}}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
250 \def\ENUMERATE{\lst@TRIVLIST \enumerate}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
251 \let\endENUMERATE\endlist
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
252 \def\ITEMIZE{\lst@TRIVLIST \itemize}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
253 \let\endITEMIZE\endlist
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
254 \def\DESCRIPTION{\lst@TRIVLIST \description}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
255 \let\endDESCRIPTION\endlist
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
256
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
257 \def\lst@strivlist{\def\@trivlist{\lst@trivlist\@mojihaba{-\@mojihaba}}}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
258 \@namedef{enumerate*}{\lst@strivlist \enumerate}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
259 \@namedef{endenumerate*}{\endlist}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
260 \@namedef{itemize*}{\lst@strivlist \itemize}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
261 \@namedef{enditemize*}{\endlist}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
262 \@namedef{description*}{\lst@strivlist \description}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
263 \@namedef{enddescription*}{\endlist}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
264
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
265 \def\verse{\let\\=\@centercr
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
266 \list{}{\itemindent-\@mojihaba \listparindent\itemindent
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
267 \rightmargin\leftmargin \advance\leftmargin\@mojihaba}\item[]}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
268 \let\endverse\endlist
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
269 \def\quotation{\list{}{\listparindent\@mojihaba \itemindent\listparindent
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
270 \rightmargin\leftmargin}\item[]}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
271 \let\endquotation\endlist
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
272 \def\quote{\list{}{\rightmargin\leftmargin}\item[]}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
273 \let\endquote\endlist
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
274
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
275 \def\newtheorem{\@ifstar
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
276 {\theo@newtheorem{\theo@it}{\ }}{\theo@newtheorem{}{\theo@sp}}}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
277 \def\theo@newtheorem#1#2#3{\@namedef{theo@it@#3}{#1}\@namedef{theo@sp@#3}{#2}%
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
278 \@ifnextchar[%]
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
279 {\@othm{#3}}{\@nthm{#3}}}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
280 \def\@begintheorem#1#2{\DESCRIPTION \csname theo@it@\@currenvir\endcsname
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
281 \item[#1\csname theo@sp@\@currenvir\endcsname #2]}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
282 \def\@opargbegintheorem#1#2#3{\DESCRIPTION
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
283 \csname theo@style@\@currenvir\endcsname
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
284 \item[#1\csname theo@sp@\@currenvir\endcsname #2\ (#3)]}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
285 \let\@endtheorem\endlist % 1.02(2)
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
286 \ifDS@english
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
287 \let\theo@it\it \let\theo@sp\ %
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
288 \else
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
289 \let\theo@it\relax \let\theo@sp\relax
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
290 \fi
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
291
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
292 %%%%%% Bibliography %%%%%%
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
293 %
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
294 % 1. Label format is "<nn>)".
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
295 % 2. \leftmargin 24Q (or 2K)
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
296 % 3. \labelsep is 6Q (or 0.5K)
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
297 % 4. \baselineskip is 16Q(j)/15Q(e)/normal(d)
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
298 % 5. ~ and \ is null but stretchable and (hardly) breakable. % 2.09(1)
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
299
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
300 \def\thebibliography#1{%
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
301 \section*{\hskip-\@mojihaba\hfill\hbox{\bib@refname}\hfill\hskip\z@}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
302 \ifDS@draft \@tempdima\@mojihaba \else\@tempdima12\@Q\fi
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
303 \list{\arabic{enumi}\rlap{%(
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
304 )}}%
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
305 {\fs@bibliography \leftmargin2\@tempdima \labelwidth\z@
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
306 \labelsep\@tempdima \itemindent.5\@tempdima
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
307 \usecounter{enumi}\def\makelabel##1{\hss\llap{##1}}}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
308 \def\newblock{\hskip .11em plus .33em minus .07em}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
309 \sloppy \frenchspacing
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
310 \def\ {\hskip\z@ plus\fontdimen\thr@@\font \penalty5000\relax}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
311 % 2.09(1)
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
312 \ifDS@english\else \ipsj@defcolonforbib \fi} % 2.12(1b)(2)
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
313
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
314 % (removal of \bib@refname) % 2.12(1a)
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
315
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
316 \newdimen\bib@adjustheight \bib@adjustheight-\maxdimen
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
317 \def\endthebibliography{\endlist \par \@normalsize
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
318 \@tempdima\@colht \advance\@tempdima-\@colroom
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
319 \advance\@tempdima\pagetotal \advance\@tempdima-\prevdepth
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
320 \advance\@tempdima-\topskip
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
321 \@tempdimb\@tempdima \divide\@tempdima\baselineskip
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
322 \@tempcnta\@tempdima \@tempdima\@tempcnta\baselineskip
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
323 \advance\@tempdima-\@tempdimb
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
324 \ifdim\@tempdima<\z@ \advance\@tempdima\baselineskip \fi
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
325 \vskip-\prevdepth \vskip\@tempdima \prevdepth\z@
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
326 \bib@adjustheight\@tempdimb \advance\bib@adjustheight\@tempdima
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
327 \global\advance\bib@adjustheight\topskip
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
328 \if@firstcolumn\else\global\advance\bib@adjustheight\@M pt\fi}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
329
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
330
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
331 %%%%%% Floats %%%%%%
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
332
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
333 % You may need to change following parameters
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
334 \setcounter{topnumber}{4}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
335 \setcounter{bottomnumber}{4}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
336 \setcounter{totalnumber}{8}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
337 \setcounter{dbltopnumber}{4}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
338 \def\topfraction{.9}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
339 \def\bottomfraction{.9}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
340 \def\textfraction{.1}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
341 \def\dbltopfraction{.9}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
342 \def\floatpagefraction{.6} % 3.00(1)
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
343 \def\dblfloatpagefraction{.6} % 3.00(1)
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
344
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
345 \newcounter{figure}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
346 \newcounter{table}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
347 \def\thefigure{\@arabic\c@figure}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
348 \def\thetable{\@arabic\c@table}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
349 \def\fps@figure{tbp}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
350 \def\fps@table{tbp}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
351 \def\ftype@figure{1}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
352 \def\ftype@table{2}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
353 \def\fnum@figure{\fname@figure\thefigure}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
354 \def\fnum@table{\fname@table\thetable}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
355 \ifDS@english
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
356 \def\fname@figure{Fig.\,} % 2.06(1)
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
357 \def\fname@Figure{Figure~}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
358 \def\fname@table{Table~}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
359 \def\fname@figures{Figs.\,} % 2.12(8)>>
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
360 \def\fname@Figures{Figures~}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
361 \def\fname@tables{Tables~} % 2.12(8)<<
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
362 \else
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
363 \def\fname@figure{\ipsj@j@fig\fref@nobreak} % 1.06(1), 2.12(1b)
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
364 \let\fname@Figure\fname@figure
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
365 \def\fname@table{\ipsj@j@tab\fref@nobreak} % 1.06(1), 2.12(1b)
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
366 \let\fname@figures\fname@figure % 2.12(8)>>
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
367 \let\fname@Figures\fname@figure
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
368 \let\fname@tables\fname@table % 2.12(8)<<
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
369 \fi
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
370 \def\fnum@efigure{Fig.\,\thefigure} % 2.06(1)
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
371 \def\fnum@etable{Table~\thetable}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
372
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
373 % 1.06(3) >>
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
374 \def\figure{\let\cap@afterskip\relax \let\flt@fontsize\relax \@float{figure}}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
375 \def\endfigure{\end@float}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
376 \@namedef{figure*}{\let\cap@afterskip\relax \let\flt@fontsize\relax
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
377 \@dblfloat{figure}}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
378 \@namedef{endfigure*}{\end@dblfloat}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
379
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
380 %% Default font for table env. is \footnotesize (H.N.)
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
381 \def\table{\let\cap@beforeskip\relax \let\flt@fontsize\fs@table
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
382 \@float{table}}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
383 \def\endtable{\end@float}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
384 \@namedef{table*}{\let\cap@beforeskip\relax \let\flt@fontsize\fs@table
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
385 \@dblfloat{table}} % 2.01(2)
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
386 \@namedef{endtable*}{\end@dblfloat}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
387 % 1.06(3) <<
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
388
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
389 \let\latex@float\@float
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
390 \let\latex@dbflt\@dbflt
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
391 \def\@float{\cap@linewidth\hsize \cap@hsize\hsize \latex@float}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
392 \def\@dbflt{\cap@linewidth.8\textwidth \cap@hsize.667\textwidth \latex@dbflt}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
393 \let\latex@xfloat\@xfloat % 1.06(3)
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
394 \def\@xfloat#1[#2]{\latex@xfloat#1[#2]\flt@fontsize}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
395 % 1.06(3)
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
396 \def\end@float{\flt@endfloat
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
397 \ifdim\bib@adjustheight=-\maxdimen\else
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
398 \advance\bib@adjustheight\@tempdima
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
399 \global\advance\bib@adjustheight\baselineskip \fi
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
400 \ifnum\@floatpenalty <\z@
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
401 \@nameuse{@largefloatcheck}% % 2.00(2)
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
402 \@cons\@currlist\@currbox
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
403 \ifdim \ht\@currbox >\textheight
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
404 \ht\@currbox\textheight \fi
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
405 \ifnum\@floatpenalty < -\@Mii
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
406 \penalty -\@Miv
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
407 \@tempdima\prevdepth \vbox{} \prevdepth\@tempdima
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
408 \penalty\@floatpenalty
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
409 \else \vadjust{\penalty -\@Miv \vbox{}\penalty\@floatpenalty}\@esphack
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
410 \fi\fi}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
411 \def\end@dblfloat{\if@twocolumn \flt@endfloat
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
412 \ifnum\@floatpenalty <\z@ \@cons\@dbldeferlist\@currbox\fi
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
413 \ifnum \@floatpenalty =-\@Mii \@esphack\fi\else\end@float\fi}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
414 \def\flt@endfloat{\par \boxmaxdepth\dp\strutbox % 2.12(7c)
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
415 \global\@minipagefalse \@nameuse{outer@nobreak}\egroup % 2.00(2)
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
416 \@nameuse{color@endbox}\@normalsize % 2.00(2)
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
417 \@tempdima\ht\@currbox \advance\@tempdima\dp\@currbox
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
418 \divide\@tempdima\baselineskip \@tempcnta\@tempdima
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
419 \advance\@tempcnta\@ne \@tempdima\@tempcnta\baselineskip
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
420 \global\setbox\@currbox\vbox to\@tempdima{\box\@currbox\vfil}}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
421 % 2.10(1)
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
422 % 2.12(7a,b)>>
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
423 \let\ipsj@cflb\@cflb
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
424 \let\ipsj@comflelt\@comflelt
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
425 \def\@cflb{\let\ipsj@botfigrule\botfigrule \let\botfigrule\vfil
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
426 \let\@comflelt\ipsj@comfleltbot \ipsj@cflb
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
427 \let\@comflelt\ipsj@comflelt \let\botfigrule\ipsj@botfigrule}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
428 \def\ipsj@comfleltbot#1{%
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
429 \setbox#1\vbox to\ht#1{\vfil\unvbox#1\unskip}%
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
430 \setbox#1\vbox to\ht#1{\@tempdima\dp#1\unvbox#1\vskip-\@tempdima}%
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
431 % 3.00(4)
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
432 \ipsj@comflelt{#1}}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
433 % 2.12(7a,b)<<
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
434
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
435 \def\cap@beforeskip{\nointerlineskip\vskip5pt}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
436 \def\cap@afterskip{\nointerlineskip\vskip5pt}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
437 \long\def\@caption#1[#2]#3{\par\begingroup
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
438 \fs@caption \cap@beforeskip
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
439 \@makecaption{{\bf \csname fnum@#1\endcsname}}{\ignorespaces#3}\par
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
440 \ifDS@english \cap@afterskip \fi
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
441 \endgroup}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
442 \def\ecaption{\@dblarg{\@ecaption\@captype}}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
443 \long\def\@ecaption#1[#2]#3{\par
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
444 \begingroup \fs@caption
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
445 \@makecaption{\csname fnum@e#1\endcsname}{\ignorespaces #3}\par
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
446 \cap@afterskip
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
447 \endgroup}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
448
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
449 \newif\ifcap@sw
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
450 \newdimen\cap@linewidth
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
451 \newdimen\cap@hsize
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
452 \newcount\cap@prevgraf
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
453 \newbox\cap@box
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
454 \let\latex@label\label
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
455 \long\def\@makecaption#1#2{\begingroup \gdef\cap@label{}\let\label\@gobble
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
456 \setbox0\hbox{#1\hskip\jspaceskip}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
457 \advance\cap@linewidth-\wd0 \advance\cap@hsize-\wd0
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
458 \cap@makepar\cap@linewidth{#2}{\def\label##1{{% %1.03(1)
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
459 \def\protect{\noexpand\protect\noexpand} %1.03(1)
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
460 \xdef\cap@label{\cap@label\protect\label{##1}}}}} %1.03(1)
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
461 \cap@swtrue
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
462 \ifnum\cap@prevgraf=\@ne
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
463 \setbox1\vbox{\unvcopy1\cap@getbox1
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
464 \ifhbox1 \global\setbox\cap@box\hbox{\unhbox1}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
465 \ifdim\wd\cap@box>\cap@linewidth\else
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
466 \global\cap@swfalse \fi\fi}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
467 \ifcap@sw\else
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
468 \cap@put{\vtop{\box\cap@box\hbox{}}}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
469 \fi\fi
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
470 \ifcap@sw \cap@makepar\cap@hsize{#2}\relax
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
471 \ifnum\cap@prevgraf=\tw@
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
472 \setbox1\vbox{\unvcopy1\cap@getbox2\cap@getbox3
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
473 \ifhbox2\ifhbox3
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
474 \setbox2\hbox{\unhbox2}\setbox3\hbox{\unhbox3}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
475 \ifdim\wd2>\cap@hsize\else
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
476 \ifdim\wd3>\cap@hsize\else
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
477 \global\cap@swfalse
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
478 \global\setbox\cap@box\vtop{\box3\box2\hbox{}}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
479 \fi\fi\fi\fi}\fi
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
480 \ifcap@sw \setbox1\vtop{\hsize\cap@hsize
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
481 \@parboxrestore #2\par\hbox{}}\cap@put{\box1}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
482 \else\cap@put{\box\cap@box}\fi
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
483 \fi
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
484 \endgroup \cap@label}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
485 \long\def\cap@makepar#1#2#3{\setbox1\vbox{\hsize#1\@parboxrestore
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
486 \rightskip\@flushglue \hfuzz\maxdimen
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
487 \exhyphenpenalty\z@ \finalhyphendemerits\z@
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
488 \let\@@par\cap@par \let\par\cap@par \global\cap@prevgraf\z@
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
489 #3#2\cap@par}}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
490 \let\cap@@par\@@par
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
491 \def\cap@par{\cap@@par\global\advance\cap@prevgraf\prevgraf \prevgraf\z@}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
492 \def\cap@put#1{\hbox to\hsize{\hss\box0#1\hss}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
493 \vskip-\baselineskip\prevdepth\z@}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
494 \def\cap@getbox#1{\@tempcnta10\relax\@whilenum\@tempcnta>0\do{%
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
495 \unskip\unkern\unpenalty\advance\@tempcnta\m@ne}\setbox#1\lastbox}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
496
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
497 \def\figref{\fref@ref\fname@figure}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
498 \def\Figref{\fref@ref\fname@Figure}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
499 \def\tabref{\fref@ref\fname@table}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
500 \let\Tabref\tabref
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
501 \def\fref@ref#1{\@ifstar{\fref@sref{#1}}{\fref@iref\bf{#1}}}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
502 \def\fref@iref#1#2#3{{\@ifundefined{fref@r@#3}%
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
503 {#1#2\fref@doref{#3}\global\@namedef{fref@r@#3}{}}{#2\fref@doref{#3}}}}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
504 \def\fref@sref#1#2{#1\fref@doref{#2}}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
505 \def\fref@doref#1{{\let\null\relax\ref{#1}}} % 1.06(2)
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
506 \def\fref@nobreak{\nobreak\ifASCII\else\hskip\@@jasciikanjiskip\fi}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
507 % 1.06(1)
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
508 \def\figsref{\fref@refs\fname@figures} % 2.12(8)>>
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
509 \def\Figsref{\fref@refs\fname@Figures}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
510 \def\tabsref{\fref@refs\fname@tables}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
511 \let\Tabsref\tabsref
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
512 \def\fref@refs#1{\@ifstar{\fref@irefs\relax{#1}}{\fref@irefs\bf{#1}}}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
513 \def\fref@irefs#1#2#3{\def\fref@list{#3}\@tempswafalse \@tempcnta\z@
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
514 \@for\fref@elem:=\fref@list\do{%
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
515 \@ifundefined{fref@r@\fref@elem}{\@tempswatrue}{}%
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
516 \advance\@tempcnta\@ne}%
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
517 \ifx#1\relax \@tempswafalse\fi
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
518 \ifDS@english {\if@tempswa #1\fi #2}\let\fref@temp\relax
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
519 \else \def\fref@temp{#2}\fi
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
520 \@for\fref@elem:=\fref@list\do{%
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
521 \if@tempswa \fref@iref{#1}{\fref@temp}{\fref@elem}%
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
522 \else \fref@temp\fref@doref{\fref@elem}\fi
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
523 \advance\@tempcnta\m@ne
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
524 \ifnum\@tempcnta=\@ne \fref@and
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
525 \else\ifnum\@tempcnta>\@ne \fref@comma \fi\fi}}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
526 \ifDS@english
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
527 \def\fref@and{ and~}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
528 \def\fref@comma{, }
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
529 \else
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
530 \def\fref@and{\ipsj@j@comma}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
531 \let\fref@comma\fref@and
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
532 \fi
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
533
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
534 \ifDS@printer
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
535 \def\figures{{\bf\fname@figures}}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
536 \def\Figures{{\bf\fname@Figures}}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
537 \def\tables{{\bf\fname@tables}}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
538 \let\Tables\tables
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
539 \def\Ref{\fref@iref\bf\relax}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
540 \fi % 2.12(8)<<
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
541
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
542 \def\fig@extraspace{3mm} %1.04(4)
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
543 \def\figspace#1{\vskip#1\vskip\fig@extraspace} %1.04(4)
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
544
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
545 %%%%%% Footnote %%%%%%
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
546
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
547 %% The following codes are from pfnote.sty, by H. Nakashima of Kyoto Univ.,
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
548 %% to reset footnote counter at the begining of every page. (H.N.)
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
549
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
550 % 1.04(2c)>>
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
551 \def\footnote{\@ifnextchar[%]
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
552 {\@xfootnote}{{\PF@adjustfnote \stepcounter{\@mpfn}%
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
553 \def\protect{\noexpand\protect\noexpand}%
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
554 \xdef\@thefnmark{\thempfn}}\@footnotemark\@footnotetext}}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
555 \def\footnotemark{\@ifnextchar[%]
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
556 {\@xfootnotemark}{{\PF@adjustfnote \stepcounter{footnote}%
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
557 \def\protect{\noexpand\protect\noexpand}%
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
558 \xdef\@thefnmark{\thefootnote}}\@footnotemark}}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
559 % 1.04(2c)<<
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
560
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
561 \newcount\PF@fnotectr\global\PF@fnotectr=\z@
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
562 \newcount\PF@page\global\PF@page=-\@M
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
563 \def\PF@thepage{\number\c@page}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
564 \def\PF@adjustfnote{\global\advance\PF@fnotectr\@ne
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
565 \expandafter\ifx\csname PF@fn\number\PF@fnotectr\endcsname\relax
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
566 \global\c@footnote\z@\else
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
567 \expandafter\@tempcnta\csname PF@fn\number\PF@fnotectr\endcsname\relax
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
568 \ifnum\@tempcnta=\PF@page\else
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
569 \global\PF@page\@tempcnta \global\c@footnote\z@ \fi\fi
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
570 \@tempcnta\c@footnote \multiply\@tempcnta\@M
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
571 \advance\@tempcnta\PF@fnotectr
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
572 \if@filesw{\let\PF@thepage\relax
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
573 \xdef\@gtempa{\write\@auxout{\string\PF@fnpage
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
574 {\number\@tempcnta}{\PF@thepage}}}}%
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
575 \@gtempa\fi}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
576 % 1.04(2a)<<
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
577
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
578 % 1.04(2a)>>
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
579 \def\PF@fnpage#1#2{\@tempcnta#1\relax \@tempcntb\@tempcnta \divide\@tempcnta\@M
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
580 \expandafter\xdef\csname PF@fnpage#2\endcsname{\number\@tempcnta}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
581 \multiply\@tempcnta\@M \advance\@tempcntb-\@tempcnta
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
582 \global\@namedef{PF@fn\number\@tempcntb}{#2}}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
583 % 1.04(2a)<<
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
584 %% End of quote from pfnote.sty. (H.N.)
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
585
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
586 \long\def\@makefntext#1{\leftskip20\@Q
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
587 \noindent\llap{\@makefnmarkforfn\hskip-\scriptspace\hskip5\@Q}#1}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
588 % 1.04(2e)
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
589 \def\@makefnmarkstar{$\@thefnmark$} % 2.12(3)
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
590 \def\@makefnmarkdagger{$\@thefnmark$}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
591 \def\@makefnmarkast{$\@thefnmark$} % 2.12(3)
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
592 \let\@makefnmarkforfn\@makefnmarkstar
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
593
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
594 \def\@makefnmark{\smash{$^{\@thefnmark}$}} % 2.12(3)
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
595 % 1.04(2d)
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
596 % smashed to make it
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
597 % zero height
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
598
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
599 \def\thefootnote{\ifnum\c@footnote>0\relax{\star}\number\c@footnote\fi}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
600 % 2.12(3)
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
601
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
602 %%%%%% Citation %%%%%%
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
603
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
604 %% The following codes for \cite are from overcite.sty by D. Arseneau, but
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
605 %% modified for Trans. IPSJ (H.N.)
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
606 % O V E R C I T E . S T Y
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
607 %
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
608 % version 3.2 (Mar 1993)
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
609 %
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
610 % Compressed, sorted lists of superscript numerical citations.
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
611 % see also CITE.STY and DRFTCITE.STY
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
612 %
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
613 % Copyright (C) 1989-1993 by Donald Arseneau
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
614 % These macros may be freely transmitted, reproduced, or modified for
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
615 % non-commercial purposes provided that this notice is left intact.
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
616 %
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
617 \def\cite{\protect\@p@cite}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
618 \def\@p@cite{\let\@citeY\@citey \@p@@cite}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
619 \def\Cite{\protect\@p@Cite}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
620 \def\@p@Cite{\let\@citeY\@Citey \@p@@cite}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
621 \def\@p@@cite{\@ifnextchar[%]
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
622 {\@tempswatrue\@citex}{\@tempswafalse\@citex[]}}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
623 \def\@citex[#1]#2{\@citeY{\@p@citen{#2}}\if@tempswa\space[#1]\fi}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
624 \def\@citey#1{\leavevmode\unskip\kern\z@$\let\@cite@tiestyle\ipsj@j@citescript
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
625 % % 2.06(2)
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
626 % 2.12(4)
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
627 \def\@cite@punct{,}\m@th^{\hbox{\scriptsize#1}}$\spacefactor\@m}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
628 \def\@Citey#1{\let\@cite@tiestyle\ipsj@j@citetext % 2.12(4)
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
629 % 1.04(1)>>
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
630 \ifDS@english \def\@cite@punct{,\space\penalty\@highpenalty}%
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
631 % 2.13(1)
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
632 \else\def\@cite@punct{\ipsj@j@comma}\fi#1\spacefactor\@m}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
633 % 1.04(1)<<
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
634 % 2.12(1b)
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
635 \def\@p@citen#1{%
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
636 \edef\@tempa{\@ignspaftercomma,#1, \@end, }%
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
637 \edef\@tempa{\expandafter\@ignendcommas\@tempa\@end}%
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
638 \if@filesw \immediate\write\@auxout{\string\citation{\@tempa}}\fi
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
639 \@tempcntb\m@ne \let\@h@ld\relax \let\@citea\@empty
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
640 \let\@celt\relax \def\@cite@list{}% % 2.06(3)
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
641 \@for\@citeb:=\@tempa\do{\@make@cite@list}%
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
642 \def\protect{\noexpand\protect\noexpand}%
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
643 \@tempcnta\m@ne \let\@celt\@compress@cite \@cite@list
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
644 \let\protect\relax \@h@ld}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
645 \def\@ignspaftercomma#1, {\ifx\@end#1\@empty\else
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
646 #1,\expandafter\@ignspaftercomma\fi}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
647 \def\@ignendcommas,#1,\@end{#1}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
648
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
649 %(
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
650 \let\@cite@rp)
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
651 \chardef\@cite@escape`\\
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
652 \def\@make@cite@list{%
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
653 \expandafter\let\expandafter\@B@citeB\csname b@\@citeb\endcsname
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
654 \ifx\@B@citeB\relax
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
655 \@citea {\bf ?}\@cite@rp \let\@citea\@cite@punct
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
656 \@latex@warning{Citation `\@citeb' on page \thepage\space undefined}%
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
657 % 2.00(3)
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
658 \global\@namedef{b@\@citeb}{{\bf ?}}%
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
659 \else
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
660 \ifcat \@cite@escape\ifnum\z@<0\@B@citeB \@cite@escape\else A\fi
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
661 \@tempcnta\@B@citeB \relax
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
662 \ifnum \@tempcnta>\@tempcntb
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
663 \edef\@cite@list{\@cite@list \@celt{\@B@citeB}}%
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
664 \@tempcntb\@tempcnta
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
665 \else
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
666 \edef\@cite@list{\expandafter\@sort@celt\@cite@list\@gobble @}%
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
667 \fi
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
668 \else \@citea \@B@citeB \@cite@rp \let\@citea\@cite@punct
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
669 \fi\fi}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
670
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
671 \def\@sort@celt#1#2{\ifx \@celt #1% parameters are \@celt {num}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
672 \ifnum #2<\@tempcnta % number goes later in list
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
673 \@celt{#2}\expandafter\expandafter\expandafter\@sort@celt
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
674 \else \@celt{\number\@tempcnta}\@celt{#2}\fi\fi}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
675
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
676 \def\@compress@cite#1{\advance\@tempcnta\@ne
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
677 \ifnum #1=\@tempcnta
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
678 \ifx\@h@ld\relax \edef\@h@ld{\@citea #1\@cite@rp}%
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
679 \else \edef\@h@ld{\@cite@tie{\protect\@cite@tiestyle}%
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
680 % 2.12(4)
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
681 \penalty\@highpenalty #1\@cite@rp}\fi
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
682 \else \@h@ld \@citea #1\@cite@rp
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
683 \let\@h@ld\relax
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
684 \fi \@tempcnta#1\relax \let\@citea\@cite@punct}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
685
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
686 %% End of quote from overcite.sty. (H.N.)
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
687
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
688 \def\multicite{\protect\@p@multicite}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
689 \def\@p@multicite#1#2{\@citey{\@p@citen{#1}%
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
690 \@cite@tie\ipsj@j@citescript \@p@citen{#2}}} % 2.12(4)
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
691 \def\multiCite{\protect\@p@multiCite}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
692 \def\@p@multiCite#1#2{\@Citey{\@p@citen{#1}\@cite@tie\relax % 2.12(4)
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
693 \penalty\@highpenalty \@p@citen{#2}}}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
694
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
695
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
696 %%%%%% Box Height Adjustment and Displayed Math %%%%%%
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
697
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
698 \newbox\adj@boxa \newbox\adj@boxb
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
699 \newdimen\adj@height
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
700 \@tempdima\baselineskip \advance\@tempdima-\topskip
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
701 \edef\adj@minaboveclearance{\the\@tempdima}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
702 \@tempdima\baselineskip \advance\@tempdima-1ex
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
703 \edef\adj@maxaboveclearance{\the\@tempdima}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
704
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
705 \def\adj@setbhd#1{\setbox0\hbox{#1} % 2.12(1c)>>
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
706 \@tempdima\baselineskip \advance\@tempdima-\ht0 \advance\@tempdima\dp0
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
707 \edef\adj@bhd{\the\@tempdima}} % 2.12(1c)<<
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
708
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
709 % 2.01(1) >>
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
710 \def\adjustvboxheight{\ifinner \let\@tempa\relax
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
711 \let\endadjustvboxheight\relax \let\@endadjustvboxheight\relax
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
712 \else \let\@tempa\@adjustvboxheight \fi \@tempa}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
713 \def\@adjustvboxheight{\par\penalty\z@
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
714 \global\setbox\adj@boxa\vbox\bgroup\relax % 1.01(3)
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
715 \let\@footnotetext\@mpfootnotetext % 2.02(1)
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
716 % % 2.05(1)
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
717 \hsize\columnwidth}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
718 % 2.01(1) <<
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
719 \def\endadjustvboxheight{\adj@closebox \adj@putbox
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
720 \ifvoid\@mpfootins\else\insert\footins{\unvbox\@mpfootins}\fi
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
721 % % 2.02(1)
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
722 \global\@ignoretrue\@endparenv}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
723 \def\adj@closebox{\egroup \normalsize
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
724 \boxmaxdepth\dp\strutbox % 1.01(1,3), 2.13(2)
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
725 \advance\boxmaxdepth-1pt % 2.13(2)
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
726 \setbox\adj@boxa\vbox{\unvbox\adj@boxa} % 1.01(3)
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
727 \adj@height\ht\adj@boxa
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
728 \advance\adj@height\adj@minaboveclearance\relax
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
729 \@tempdima\adj@height \divide\adj@height\baselineskip
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
730 \@tempcnta\adj@height \adj@height\@tempcnta\baselineskip
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
731 \ifdim\adj@height<\@tempdima \advance\adj@height\baselineskip\fi}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
732 \def\adj@putbox{\vskip-\prevdepth \prevdepth\z@ \vskip\baselineskip
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
733 \vspace*{-\baselineskip}\advance\@tempdima-\adj@height
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
734 \@tempdima-\@tempdima \advance\@tempdima\adj@minaboveclearance\relax
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
735 \@tempdimb\dp\adj@boxa
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
736 \ifdim\@tempdima>\adj@maxaboveclearance\relax
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
737 \advance\@tempdima-\@tempdimb \advance\@tempdima\adj@bhd\relax
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
738 \divide\@tempdima\tw@
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
739 \vbox to\adj@height{\vskip\@tempdima \box\adj@boxa \vss}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
740 \else \vbox to\adj@height{\vfil\box\adj@boxa\vskip-\@tempdimb}\fi}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
741
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
742 \newcount\adj@deadcycle
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
743 \@namedef{adjustvboxheight*}{\adjustvboxheight}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
744 \@namedef{endadjustvboxheight*}{\@endadjustvboxheight}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
745 \def\@endadjustvboxheight{\global\adj@deadcycle10\relax
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
746 \@iendadjustvboxheight
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
747 \ifvoid\@mpfootins\else\insert\footins{\unvbox\@mpfootins}\fi
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
748 % % 2.05(2)
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
749 \global\@ignoretrue\@endparenv}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
750 \def\@iendadjustvboxheight{\adj@closebox
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
751 \ifnum\adj@deadcycle<\@ne
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
752 \ipsj@error{I cannot adjust too tall/deep box}{\@ehd}\fi % 2.00(3)
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
753 \global\advance\adj@deadcycle\m@ne
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
754 \ifdim\pagegoal=\maxdimen
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
755 \@tempdimb\@colht \advance\@tempdimb-\topskip
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
756 \advance\@tempdimb\baselineskip
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
757 \else \@tempdimb\pagegoal
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
758 \advance\@tempdimb-\pagetotal \advance\@tempdimb-\pagedepth
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
759 \advance\@tempdimb\prevdepth \fi % 1.01(4a)
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
760 \let\next\relax
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
761 \ifdim\adj@height<\@tempdimb \adj@putbox \else
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
762 \ifdim\adj@height=\@tempdimb \adj@putbox \else
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
763 \divide\@tempdimb\baselineskip \@tempcnta\@tempdimb % 1.01(4b)>>
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
764 \@tempdimb\@tempcnta\baselineskip
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
765 \advance\@tempdimb-\adj@minaboveclearance\relax % 1.01(4b)<<
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
766 \setbox\adj@boxa\vbox{\allowbreak\unvbox\adj@boxa}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
767 \vbadness\@M \splittopskip\z@ \splitmaxdepth\@maxdepth %1.01(1)
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
768 \setbox\@tempboxa\vsplit\adj@boxa to\@tempdimb
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
769 \setbox\adj@boxb\copy\adj@boxa
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
770 \setbox\@tempboxa\vbox{\unvbox\@tempboxa}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
771 \@tempdimb\ht\@tempboxa \advance\@tempdimb\dp\@tempboxa
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
772 \ifdim\@tempdimb>\z@
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
773 \setbox\adj@boxa\vbox\bgroup\unvbox\@tempboxa
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
774 \adj@closebox \adj@putbox \newpage
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
775 \else \newpage \fi
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
776 \setbox\adj@boxa\vbox\bgroup\unvbox\adj@boxb
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
777 \let\next\@iendadjustvboxheight \fi\fi \next}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
778
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
779 \def\adj@eqindent{2\@mojihaba}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
780 \def\[{\adjustvboxheight\advance\@totalleftmargin\adj@eqindent\relax
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
781 \hbox to\hsize\bgroup\hskip\@totalleftmargin$\displaystyle}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
782 \def\]{$\hfill\egroup\endadjustvboxheight\@doendpe\ignorespaces} % 2.03(1)
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
783 \def\equation{\refstepcounter{equation}\[}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
784 \def\endequation{\hfill\@eqnnum$\egroup\endadjustvboxheight}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
785 \def\theequation{\arabic{equation}}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
786 \def\@eqnnum{{\rm (\theequation)\hskip\@mojihaba}}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
787
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
788 \def\adj@eqnlineskip{3pt}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
789 \def\adj@eqnlineskiplimit{2pt}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
790 \def\eqnarray{\futurelet\@tempa\adj@eqnarray}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
791 \def\adj@eqnarray{\ifx\@tempa[%]
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
792 \let\next\adj@ieqnarray\else\let\next\adj@xeqnarray\fi\next}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
793 \def\adj@ieqnarray[#1]{\@ifundefined{adj@xeqnarray#1}%
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
794 {\ipsj@warning{Unknown eqnarray option `#1'}\adj@xeqnarray}% 2.00(3)
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
795 {\@nameuse{adj@xeqnarray#1}}}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
796 \def\adj@xeqnarray{\adjustvboxheight
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
797 \advance\@totalleftmargin\adj@eqindent\relax
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
798 \stepcounter{equation}\let\@currentlabel=\theequation
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
799 \global\@eqnswtrue
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
800 \global\@eqcnt\z@\tabskip\z@\let\\=\@eqncr
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
801 \lineskip\adj@eqnlineskip \lineskiplimit\adj@eqnlineskiplimit \jot\z@
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
802 \halign to \hsize\bgroup\@eqnsel\hskip\@totalleftmargin
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
803 \hfil$\displaystyle{##}$&\global\@eqcnt\@ne % 1.01(2)
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
804 \hfil$\displaystyle{}\mathrel{##}{}$\hfil
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
805 &\global\@eqcnt\tw@ $\displaystyle{##}$\hfil
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
806 \tabskip\@centering&\llap{##}\tabskip\z@\cr}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
807 \def\adj@xeqnarrays{\let\endadjustvboxheight\@endadjustvboxheight
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
808 \adj@xeqnarray}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
809 \@namedef{adj@xeqnarrays!}{\par\let\adjustvboxheight\relax
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
810 \let\endadjustvboxheight\relax \adj@xeqnarray}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
811 \def\endeqnarray{\@@eqncr \egroup \global\advance\c@equation\m@ne
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
812 \endadjustvboxheight}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
813
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
814
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
815 %%%%%% Miscellaneous %%%%%%
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
816
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
817 %% \doublerulesep is 1pt (H.N.)
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
818 \arraycolsep5pt \tabcolsep6pt \arrayrulewidth.4pt \doublerulesep1pt
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
819 \tabbingsep.5\@mojihaba
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
820
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
821 \skip\@mpfootins\skip\footins
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
822 \fboxsep3pt \fboxrule.4pt
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
823
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
824 %% We simply allow (not encourage) club and widow lines. (H.N.)
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
825 \clubpenalty\z@ \widowpenalty\z@ \displaywidowpenalty\z@
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
826
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
827 % The following redefinition influences \linebreak etc.
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
828 \def\sloppy{\tolerance9999\hbadness9999\hfuzz.5\p@ \vfuzz.5\p@}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
829
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
830 %% For heading of TBIO papers
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
831 \ifDS@TBIO % 2.11(1)>>
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
832 \def\TBIOpapercategory#1{\def\ipsj@TBIO@pcat{#1}\ignorespaces}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
833 \def\ipsj@TBIO@pcat{original}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
834 \def\ipsj@TBIO@pcat@original{Original Paper}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
835 \def\ipsj@TBIO@pcat@survey{Survey Paper}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
836 \def\ipsj@TBIO@pcat@database{Database/Software Paper}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
837 \def\ipsj@TBIO@pcatref{\@ifundefined{ipsj@TBIO@pcat@\ipsj@TBIO@pcat}%
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
838 {\ipsj@warning{TBIO paper category \ipsj@TBIO@pcat\space is undefined.}}%
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
839 \relax
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
840 \@nameuse{ipsj@TBIO@pcat@\ipsj@TBIO@pcat}}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
841 \fi % 2.11(1)<<
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
842
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
843
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
844 % 2.12(1a)>>
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
845 \let\ipsj@j@citescript\scriptsize % 2.12(4)>>
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
846 \let\ipsj@j@citetext\normalsize
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
847 \def\@cite@tie#1{\hbox{#1--}} % 2.12(4)<<
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
848 \def\bib@refname{References}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
849 \adj@setbhd{A}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
850
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
851 \ifipsj@nonjp \let\next\endinput \else \let\next\relax \fi
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
852 \next
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
853
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
854 \def\ipsj@j@a{あ}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
855 \def\ipsj@j@app{付録}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
856 \def\ipsj@j@ack{謝辞}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
857 \def\ipsj@j@bib{参考文献}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
858 \def\ipsj@j@fig{図}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
859 \def\ipsj@j@tab{表}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
860 \def\ipsj@j@comma{,}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
861 \def\ipsj@j@technote{テクニカルノート}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
862 \def\ipsj@j@invited{招待論文}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
863 \def\ipsj@j@sigrec{推薦論文} % 2.13 (3)
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
864 \def\ipsj@j@talkabst{発表概要}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
865 \def\ipsj@j@presently{現在,}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
866 \def\ipsj@j@jipsj{情報処理学会論文誌}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
867 \def\ipsj@j@regpaper{論文}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
868 \def\ipsj@j@contactto{連絡先}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
869 \def\ipsj@j@abstract{概要}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
870 \def\ipsj@j@colon{:}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
871 \def\ipsj@j@year{年}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
872 \def\ipsj@j@month{月}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
873 \def\ipsj@j@day{日}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
874 \def\ipsj@j@lp{(}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
875 \def\ipsj@j@rp{)}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
876 \def\ipsj@j@edinch{担当編集委員}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
877 \def\ipsj@j@rerec{再受付}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
878 \def\ipsj@j@received{受付}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
879 \def\ipsj@j@accepted{採録}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
880 \def\ipsj@j@released{掲載} % 3.00(3)
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
881 \def\ipsj@j@presented{発表}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
882 \def\ipsj@j@member{正会員}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
883 \def\ipsj@j@stmember{学生会員}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
884 \def\ipsj@j@nomember{非会員}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
885
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
886 \ifDS@english\else \ifDS@draft\else
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
887 \sec@setskips{\ipsj@j@a}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
888 \fi\fi
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
889
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
890 \expandafter\let\csname c@巻数\endcsname\c@volume
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
891 \expandafter\let\csname c@号数\endcsname\c@number
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
892 \expandafter\let\csname c@月数\endcsname\c@month % 3.00(2)
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
893 \expandafter\let\csname c@年数\endcsname\c@year
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
894
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
895 \def\ipsj@sig@PRO@j{プログラミング}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
896 \def\ipsj@sig@TOM@j{数理モデル化と応用}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
897 \def\ipsj@sig@TOD@j{データベース}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
898 \def\ipsj@sig@HPS@j{ハイパフォーマンスコンピューティングシステム}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
899 \def\ipsj@sig@CVIM@j{コンピュータビジョンとイメージメディア}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
900 \def\ipsj@sig@ACS@j{コンピューティングシステム} % 2.09(2)
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
901
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
902 \def\ra@nengo{平成} %% Change here when ...
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
903 \let\受付\received
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
904 \let\採録\accepted
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
905 \let\発表\presented % 2.07(7)
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
906 \let\再受付\rereceived
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
907
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
908 \def\々{\hskip\jintercharskip\hbox to\jspaceskip{\hfil 々\hfil}%% 2.12(5)
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
909 \hskip\jintercharskip}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
910
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
911 \ifDS@english\else \ifDS@draft\else
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
912 {\fs@sec \@tempdima7\jspaceskip
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
913 \xdef\bib@refname{\hbox to\the\@tempdima{\jintercharskip\fill\ipsj@j@bib}}}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
914 \adj@setbhd\ipsj@j@a
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
915 \fi\fi
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
916
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
917 \def\ipsj@j@colon@command{{\nobreak % 2.12(2)>>
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
918 \hbox to.7\jspaceskip{:\hss}\allowbreak
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
919 \@tempdima.3\jspaceskip \hskip\@tempdima minus\@tempdima
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
920 \allowbreak
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
921 \hskip\z@ minus-\@tempdima}\ignorespaces}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
922 \def\ipsj@defcolonforbib{\let\:\ipsj@j@colon@command}
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
923 \ifDS@printer \ipsj@defcolonforbib \fi % 2.12(2)<<
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
924
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
925
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
926 %%%%%% Kinsoku Parameters %%%%%%
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
927
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
928 % 1.04(3)>>
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
929 \ifASCII
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
930 \postbreakpenalty`\`=\@M
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
931 \prebreakpenalty`'=\@M
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
932 \prebreakpenalty`)=\@M
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
933 \postbreakpenalty`(=\@M
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
934 \prebreakpenalty`]=\@M
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
935 \postbreakpenalty`[=\@M
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
936 \prebreakpenalty`\}=\@M
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
937 \postbreakpenalty`\{=\@M
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
938
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
939 \prebreakpenalty`・=\@M
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
940 \prebreakpenalty`:=\@M
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
941 \prebreakpenalty`;=\@M
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
942 \prebreakpenalty`?=\@M
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
943 \prebreakpenalty`!=\@M
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
944
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
945 \prebreakpenalty\jis"212D=\@M % ´
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
946 \postbreakpenalty\jis"212E=\@M % `
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
947 \postbreakpenalty\jis"2146=\@M % ‘
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
948 \prebreakpenalty\jis"2147=\@M % ’
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
949 \postbreakpenalty\jis"2148=\@M % “
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
950 \prebreakpenalty\jis"2149=\@M % ”
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
951
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
952 \prebreakpenalty`)=\@M
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
953 \postbreakpenalty`(=\@M
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
954 \prebreakpenalty`}=\@M
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
955 \postbreakpenalty`{=\@M
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
956 \prebreakpenalty`]=\@M
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
957 \postbreakpenalty`[=\@M
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
958 \postbreakpenalty`‘=\@M
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
959 \prebreakpenalty`’=\@M
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
960
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
961 \postbreakpenalty\jis"214C=\@M %〔
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
962 \prebreakpenalty\jis"214D=\@M % 〕
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
963 \postbreakpenalty\jis"2152=\@M % 〈
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
964 \prebreakpenalty\jis"2153=\@M % 〉
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
965 \postbreakpenalty\jis"2154=\@M % 《
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
966 \prebreakpenalty\jis"2155=\@M % 》
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
967 \postbreakpenalty\jis"2156=\@M % 「
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
968 \prebreakpenalty\jis"2157=\@M % 」
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
969 \postbreakpenalty\jis"2158=\@M % 『
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
970 \prebreakpenalty\jis"2159=\@M % 』
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
971 \postbreakpenalty\jis"215A=\@M % 【
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
972 \prebreakpenalty\jis"215B=\@M % 】
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
973
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
974 \prebreakpenalty`ー=\@M % 2.12(6)
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
975 \prebreakpenalty`〜=\@M % 2.12(6)
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
976
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
977 \prebreakpenalty`ぁ=\@M
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
978 \prebreakpenalty`ぃ=\@M
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
979 \prebreakpenalty`ぅ=\@M
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
980 \prebreakpenalty`ぇ=\@M
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
981 \prebreakpenalty`ぉ=\@M
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
982 \prebreakpenalty`っ=\@M
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
983 \prebreakpenalty`ゃ=\@M
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
984 \prebreakpenalty`ゅ=\@M
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
985 \prebreakpenalty`ょ=\@M
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
986 \prebreakpenalty\jis"246E=\@M % ゎ
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
987 \prebreakpenalty`ァ=\@M
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
988 \prebreakpenalty`ィ=\@M
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
989 \prebreakpenalty`ゥ=\@M
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
990 \prebreakpenalty`ェ=\@M
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
991 \prebreakpenalty`ォ=\@M
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
992 \prebreakpenalty`ッ=\@M
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
993 \prebreakpenalty`ャ=\@M
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
994 \prebreakpenalty`ュ=\@M
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
995 \prebreakpenalty`ョ=\@M
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
996 \prebreakpenalty\jis"256E=\@M % ヮ
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
997 \prebreakpenalty\jis"2575=\@M % ヵ
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
998 \prebreakpenalty\jis"2576=\@M % ヶ
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
999
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1000 \fi
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1001 % 1.04(3)<<
07abe01ef529 Add samples
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1002 % 2.12(1a)<<