|
0
|
1 % Copyright (C) 1995,1996 by Editorial Board of the Trans. IPSJ
|
|
|
2 %
|
|
|
3 % ipsjpapers.sty 16-Jul-96 by Hiroshi Nakashima (ver 2.01)
|
|
|
4 % ipsjpapers.sty 1-Jun-96 by Hiroshi Nakashima (ver 2.00)
|
|
|
5 % ipsjpapers.sty 22-Feb-96 by Hiroshi Nakashima (ver 1.06)
|
|
|
6 % ipsjpapers.sty 16-Nov-95 by Hiroshi Nakashima (ver 1.05)
|
|
|
7 % ipsjpapers.sty 2-Oct-95 by Hiroshi Nakashima (ver 1.04)
|
|
|
8 % ipsjpapers.sty 1-Sep-95 by Hiroshi Nakashima (ver 1.03)
|
|
|
9 % ipsjpapers.sty 4-Aug-95 by Hiroshi Nakashima (ver 1.02)
|
|
|
10 % ipsjpapers.sty 6-Jul-95 by Hiroshi Nakashima (ver 1.01)
|
|
|
11 % ipsjpapers.sty 24-Apr-95 by Hiroshi Nakashima (ver 1.0)
|
|
|
12 % ipsjpapers.sty 30-Nov-93 by Hiroshi Nakashima
|
|
|
13 % ipsjpapers.sty 3-Feb-93 by Yaski Saito
|
|
|
14 % compsoft.sty 22-April-92 by Yaski Saito
|
|
|
15 % compsoft.sty 18-July-90 by Hideki Isozaki
|
|
|
16 % j-article.sty 10-Feb-89 from report.sty 16-Mar-88
|
|
|
17
|
|
|
18 % REVISION
|
|
|
19 % ver 2.01 16-Jul-96 by Hiroshi Nakashima
|
|
|
20 % (1) If a float column follows a page which has footnote in the same
|
|
|
21 % column, \footnoterule is mistakingly displayed. To cope with it,
|
|
|
22 % \@vtryfc is modified so that \if@{left|right}footnoteexist is set to
|
|
|
23 % false (because a float column cannot have any footnotes.)
|
|
|
24 %
|
|
|
25 % ver 2.00 1-Jun-96 by Hiroshi Nakashima
|
|
|
26 % (1) Introduce a new flag \if@LaTeX@eN which is true if LaTeX2e is used in
|
|
|
27 % native mode. Now, ipsjpapers and related styles are compatible to
|
|
|
28 % LaTeX 2.09 and LaTeX2e (both native and compatible modes). Note that
|
|
|
29 % LaTeX2e mode test cannot be done by \if@compatibility because it is
|
|
|
30 % not \let-equal to \iftrue/\iffallse in LaTeX 2.09. LaTeX version
|
|
|
31 % check is moved to the beginning of the file.
|
|
|
32 % (2) In 2e-native mode, options are declared by \DeclareOption and
|
|
|
33 % processed by related macros. The banner is not put in native mode.
|
|
|
34 % (3) Introduce \ipsj@warning and \ipsj@error which call \ClassWarning and
|
|
|
35 % \ClassError in 2e-native mode. Since some warnings are put by
|
|
|
36 % \@latex@warning, it is \let-equal to \@warning in 2.09.
|
|
|
37 % (4) In 2e, fonts are loaded using NFSS. For ASCII-printer version,
|
|
|
38 % Japanese fonts are re-declared, except for some special fonts which
|
|
|
39 % are loaded out of NFSS. In other cases, standard fonts are used
|
|
|
40 % rather than loading explicitly.
|
|
|
41 % (5) To give aliases to a font, \ipsj@declare@font is introduced.
|
|
|
42 % (6) Definitions of skips and macros for NTT/ASCII compatibility are moved
|
|
|
43 % in order to do them both in 2.09 and 2e.
|
|
|
44 % (7) \defjintercharskip and its relatives, which are moved by 1.06(3), are
|
|
|
45 % moved again. Since \ipsj@declare@font is used to specify font names
|
|
|
46 % and it loads fonts, \defintercharskip etc. should be work well.
|
|
|
47 % To cope with old NTT versions, \defintercharskip etc. and \setjglue are
|
|
|
48 % sorrounded by availability check.
|
|
|
49 % (8) For 2e-native, \DeclareOldFontCommand's are added. In 2e (incl.
|
|
|
50 % compatibility mode), \dm and \dg are \def'ed as \mc and \gt.
|
|
|
51 % (9) In 2e, \vpt etc. (not \old@vpt etc.) are \let-equal to \old@somept.
|
|
|
52 %(10) In 2e, \normalsize is \let-equal to \@normalsize.
|
|
|
53 %(11) In 2e, redefinition of \bf may not work well. So, it is done in 2.09
|
|
|
54 % only.
|
|
|
55 %(12) In 2e, \@makecol has \color@begingroup/endgroup and some codes for
|
|
|
56 % \enlargethispage. Since they are useless/harmful for ipsjpapers, they
|
|
|
57 % are omitted and \enlargethispage is redefined to put a warning.
|
|
|
58 %(13) In ASCII 2e (older than <1996/03/05>), \@outputpage has a bug which
|
|
|
59 % nullifies \topmargin. A straightforward fix, set \@@topmargin to
|
|
|
60 % \topmargin, for the bug is added in our own \@outputpage.
|
|
|
61 %(14) Since 2e-native doesn't have \@maxsep and \@dblmaxsep, they are
|
|
|
62 % \let-equal to a dummy skip register \old@latex@skip.
|
|
|
63 %(15) `Jun.' and `Jul.' in \@monthyear are replaced with `June' and `July'
|
|
|
64 % respectively to meet the format tradition.
|
|
|
65 %(16) \pageref should show the value of \c@volpage rather than \c@page. To
|
|
|
66 % cope with it easily, \c@page is set to \c@volpageoffset in \document.
|
|
|
67 % Thus, now \c@volpage and \thevolpage are useless and are replaced with
|
|
|
68 % \c@page and \thepage. The trick to flip odd/even page in
|
|
|
69 % \@outputpage, which was introduced in ver 1.04(2), is removed because
|
|
|
70 % it is no longer necessary (but harmful now).
|
|
|
71 %
|
|
|
72 % ver 1.06 22-Feb-96 by Hiroshi Nakashima
|
|
|
73 % (1) Introduce a new flag \if@LaTeX@e which is true if LaTeX2e is used.
|
|
|
74 % Although this modification is to cope with LaTeX2e, of course, note
|
|
|
75 % that this version may NOT be compatible to LaTeX2e but is (hopefully)
|
|
|
76 % compatible to its LaTeX 2.09 compatible mode.
|
|
|
77 % (2) \jfsize is available only in NTT jTeX-1.5 (or older versions). Thus,
|
|
|
78 % \newcount\jfsize is done if it is \undefined. The \newcount in
|
|
|
79 % \ifASCII section in "Fonts" becomes redundant and thus is removed.
|
|
|
80 % (3) In NTT version, the first \@normalsize seems to reset special Kanji
|
|
|
81 % skips. Thus, \defjintercharskip and \setjglues are moved below the
|
|
|
82 % first \@normalsize. The shrink of \@@jintercharskip is set to 0.5pt
|
|
|
83 % (0.14pt before) to avoid frequent overfulls. \defjasciikanjiskip and
|
|
|
84 % \defjmathkanjiskip are added to set corresponding skips to the values
|
|
|
85 % similar to the value of \xkanjiskip.
|
|
|
86 % (4) LaTeX2e's \@setsize doesn't expand its 3rd argument (e.g. \xpt), but
|
|
|
87 % this expansion is necessary to chage the combinations of CM and Kanji
|
|
|
88 % fonts. Thus, \@setsize is redefined so that it expand its 3rd
|
|
|
89 % argument after \@setfontsize is executed. However, since this
|
|
|
90 % expansion is only necessary for the combination change, \old@vpt and
|
|
|
91 % its relatives, which are called in our own \vpt and relatives, don't
|
|
|
92 % have to do anything except for setting \jspaceskip to 1zw in ASCII
|
|
|
93 % version.
|
|
|
94 % (5) \boldmath for 9pt fonts are available in LaTeX2e, and 2.09 style
|
|
|
95 % \(un)boldmath definition is incomatible. Thus, \@ixptboldmath is set
|
|
|
96 % to \relax.
|
|
|
97 % (6) \pbf (and its relatives) is not available in LaTeX2e. Since \bf is
|
|
|
98 % definied and well-protected in both LaTeX2e and 2.09, our own \bf can
|
|
|
99 % expand LaTeX's \bf in its body. Note that \dg in \bf's body works
|
|
|
100 % well because; (a) \dg is defined as \protect\pdg in ASCII and NTT-2.09;
|
|
|
101 % (b) \dg does "normal" operation in NTT-2e but CM/Kanji combination in
|
|
|
102 % NTT is also "normal".
|
|
|
103 %
|
|
|
104 % ver 1.05 16-Nov-95 by Hiroshi Nakashima
|
|
|
105 % (1) Set \lineskiplimit to \normallineskiplimit at the beginning of
|
|
|
106 % \@makecol to fix a bug of LaTeX 2.09. \lineskiplimit may set some
|
|
|
107 % unusually small value (e.g. -\maxdimen in \ooalign) at a critical
|
|
|
108 % timing at which \output routine is invoked.
|
|
|
109 % (2) New document style option `techrep' is introduced for SIG technical
|
|
|
110 % reports. This style is different from the default in the following
|
|
|
111 % points:
|
|
|
112 % (a) \baselineskip for \normalsize is 17Q in both Japanese/English.
|
|
|
113 % (b) \textheight is 50\baselineskip+\topskip (i.e. 51 lines) in both
|
|
|
114 % Japanese/English. Other page layout parameters are those for
|
|
|
115 % Japanese default.
|
|
|
116 % (c) Page headers/footers are always empty.
|
|
|
117 % (d) Page corner markers are always printed.
|
|
|
118 % (e) Page number is put below the bottom margin.
|
|
|
119 % (f) \hrule at the bottom of final page is omitted.
|
|
|
120 %
|
|
|
121 % ver 1.04 2-Oct-95 by Hiroshi Nakashima
|
|
|
122 % (1) As usual footnotes, if four or more affiliations are declared,
|
|
|
123 % footnote marks for them are \dagger1, \dagger2, \dagger3, \dagger4,
|
|
|
124 % ..., instead of \dagger, \dagger\dagger, \dagger\dagger\dagger,
|
|
|
125 % \dagger\dagger\dagger\dagger, ..., in order to keep marks from
|
|
|
126 % invading into margins. To do this, footnote mechanism is drastically
|
|
|
127 % changed as follows:
|
|
|
128 % (a) \stepcounter{affi@footnote} is added into \affilabel to count
|
|
|
129 % number of declarations. The value of counter is referred in
|
|
|
130 % \@maketitle just before it calls \@affilabels to choose usual
|
|
|
131 % style of new style for four or more declarations. If the value is
|
|
|
132 % greater than 3, \theaffi@footnote is made \let equal to
|
|
|
133 % \theaffi@footnotemany.
|
|
|
134 % (b) \theaffi@footnotemany, which produces ``\dagger<n>'' where <n> is
|
|
|
135 % affiliation number, is added. Four and five sequence of \dagger's
|
|
|
136 % in \theaffi@footnote is removed.
|
|
|
137 % (c) \dagger's in \theaffi@footnote are enclosed in { and } in order to
|
|
|
138 % keep it from acting Bin operator and avoid extra spaces. This and
|
|
|
139 % 1.04(2e) of ipsjcommon keep three \dagger's from invading into
|
|
|
140 % margin.
|
|
|
141 % (d) In \affi@label, space after ``$B8=:_(B'' for presen affiliation is
|
|
|
142 % replaced by Japanese comma.
|
|
|
143 % (2) In \@outputpage, \@oddhead and \@evenhead are exchanged if
|
|
|
144 % volpageoffset is even, so that headers for a paper which starts from
|
|
|
145 % even page are put properly.
|
|
|
146 % (3) Definitions for standerd pt-size options are added to cope with some
|
|
|
147 % style files (e.g. amssymbol) which refer these definitions.
|
|
|
148 %
|
|
|
149 % ver 1.03 1-Sep-95 by Hiroshi Nakashima
|
|
|
150 % (1) \tenmib, \tensyb and \tenlyb in \@ixptboldmath for non-printer version
|
|
|
151 % are replaced with \ninmib, \ninsyb and \ninlyb repectively. In old
|
|
|
152 % version, 10pt \boldmath will misunderstand that it has already been
|
|
|
153 % called if 9pt \boldmath was called and defined \tenmib.
|
|
|
154 %
|
|
|
155 % ver 1.02 4-Aug-95 by Hiroshi Nakashima
|
|
|
156 % (1) Add copyright.
|
|
|
157 % (2) Make \boldmath available for \ixpt (Japanese \normalsize). With
|
|
|
158 % printer option, \boldmath uses scale 900 10pt bold math fonts.
|
|
|
159 % Without printer option, it uses 10pt bold math fonts.
|
|
|
160 %
|
|
|
161 % ver 1.01, 6-Jul-95 by Hiroshi Nakashima
|
|
|
162 % (1) \maxdepth=0pt in \@addtobot is removed. This operation is
|
|
|
163 % unnecessary because we have enough space (= \baselineskip) between
|
|
|
164 % main text and bottom figures. This modification will usually add one
|
|
|
165 % more line to a page having bottom figures. Note that this
|
|
|
166 % modification is not incorporated into "ipsjdrafts", because adding one
|
|
|
167 % line to a draft page is not urgently required.
|
|
|
168 % (2) \@combinefloats is modified in order to cancel the depth of main text
|
|
|
169 % if a page has bottom figures. This modification avoids overfull in
|
|
|
170 % output routine which would be caused by the revision (1).
|
|
|
171 % (3) \maxdepth in \@outputdoublecol is replaced with \@maxdepth. This
|
|
|
172 % modification, however, will be redundant.
|
|
|
173
|
|
|
174 %%%%%% LaTeX Version %%%%%%
|
|
|
175
|
|
|
176 % 2.00(1) >>
|
|
|
177 %% \ifASCII is true if ASCII version Japanese TeX, which doesn't have
|
|
|
178 %% \jintercharskip (H.N.)
|
|
|
179 \newif\ifASCII \ASCIIfalse
|
|
|
180 \ifx\jintercharskip\undefined\ASCIItrue\fi
|
|
|
181 \newif\if@LaTeX@e \@LaTeX@efalse % 1.06(1)
|
|
|
182 \newif\if@LaTeX@eN \@LaTeX@eNfalse % 2.00(1)
|
|
|
183 \def\@tempa{LaTeX2e} % 1.06(1)
|
|
|
184 \ifx\fmtname\@tempa \@LaTeX@etrue % 1.06(1)
|
|
|
185 \ifx\xpt\undefined \@LaTeX@eNtrue \fi\fi % 2.00(1)
|
|
|
186 % 2.00(1) <<
|
|
|
187
|
|
|
188
|
|
|
189 %%%%%% Document Styles %%%%%%
|
|
|
190
|
|
|
191 % 2.00(2) >>
|
|
|
192 \newif\ifDS@printer \DS@printerfalse
|
|
|
193 \newif\ifDS@english \DS@englishfalse
|
|
|
194 \newif\ifDS@technote \DS@technotefalse
|
|
|
195 \newif\ifDS@preface \DS@prefacefalse
|
|
|
196 \newif\ifDS@draft \DS@draftfalse
|
|
|
197 \newif\ifDS@techrep \DS@techrepfalse % 1.05(2)
|
|
|
198
|
|
|
199 \if@LaTeX@eN
|
|
|
200 \DeclareOption{printer}{\DS@printertrue}
|
|
|
201 \DeclareOption{english}{\DS@englishtrue}
|
|
|
202 \DeclareOption{technote}{\DS@technotetrue}
|
|
|
203 \DeclareOption{preface}{\DS@prefacetrue}
|
|
|
204 \DeclareOption{draft}{\DS@drafttrue}
|
|
|
205 \DeclareOption{techrep}{\DS@techreptrue}
|
|
|
206 \DeclareOption{10pt}{\def\@ptsize{0}}
|
|
|
207 \DeclareOption{11pt}{\def\@ptsize{1}}
|
|
|
208 \DeclareOption{12pt}{\def\@ptsize{2}}
|
|
|
209 \ExecuteOptions{10pt}
|
|
|
210 \ProcessOptions
|
|
|
211 \def\ipsj@warning{\ClassWarning{ipsjpapers}} % 2.00(3)
|
|
|
212 \def\ipsj@error{\ClassError{ipsjpapers}} % 2.00(3)
|
|
|
213 \newskip \old@latex@skip % 2.00(14)
|
|
|
214 \let\@maxsep\old@latex@skip % 2.00(14)
|
|
|
215 \let\@dblmaxsep\old@latex@skip % 2.00(14)
|
|
|
216
|
|
|
217 \else
|
|
|
218 \expandafter\ifx\csname ver@ipsjpapers.cls\endcsname\relax
|
|
|
219 \typeout{Document Style `ipsjpapers' (ver 2.01) <16 Jul 96>.}
|
|
|
220 \fi
|
|
|
221
|
|
|
222 \def\ds@printer{\DS@printertrue}
|
|
|
223 \def\ds@english{\DS@englishtrue}
|
|
|
224 \def\ds@technote{\DS@technotetrue}
|
|
|
225 \def\ds@preface{\DS@prefacetrue}
|
|
|
226 \def\ds@draft{\DS@drafttrue}
|
|
|
227 \def\ds@techrep{\DS@techreptrue} % 1.05(2)
|
|
|
228
|
|
|
229 % 1.04(3)>>
|
|
|
230 \def\@ptsize{0}
|
|
|
231 \@namedef{ds@11pt}{\def\@ptsize{1}}
|
|
|
232 \@namedef{ds@12pt}{\def\@ptsize{2}}
|
|
|
233 % 1.04(3)<<
|
|
|
234
|
|
|
235 \@options
|
|
|
236 \let\ipsj@warning\@warning % 2.00(3)
|
|
|
237 \let\@latex@warning\@warning % 2.00(3)
|
|
|
238 \def\ipsj@error#1#2{\errhlp{#2}\errmessge{#1}} % 2.00(3)
|
|
|
239 \fi
|
|
|
240 % 2.00(2) <<
|
|
|
241
|
|
|
242
|
|
|
243 %%%%%% Basics %%%%%%
|
|
|
244
|
|
|
245 \newdimen\@Q \@Q=0.25mm
|
|
|
246
|
|
|
247 \lineskip\z@ \normallineskip\z@
|
|
|
248 \lineskiplimit\z@ \normallineskiplimit\z@
|
|
|
249 \abovedisplayskip\z@ \belowdisplayskip\z@
|
|
|
250 \abovedisplayshortskip\z@ \belowdisplayshortskip\z@
|
|
|
251
|
|
|
252 \def\baselinestretch{1}
|
|
|
253 \jot\z@
|
|
|
254
|
|
|
255 \ifDS@draft\def\next{\input{ipsjdrafts.sty}\endinput}\else\let\next\relax\fi
|
|
|
256 \next
|
|
|
257
|
|
|
258 \@twosidetrue
|
|
|
259
|
|
|
260 %%%%%% Fonts %%%%%%
|
|
|
261 % \finvedm(dg) dm5 \vpt \tiny fn-mark
|
|
|
262 % \sixdm(dg) dm6 \vipt \scriptsize
|
|
|
263 % \sevendm(dg) dm7 \vipt \footnotesize f-note, capt
|
|
|
264 % 10Q = 7.11304pt -> w(min7) = 6.73550pt
|
|
|
265 % \eightdm(dg) dm8 \viiipt \small abst, header
|
|
|
266 % 11Q = 7.82434pt -> w(min8) = 7.69772pt
|
|
|
267 % \eightdm(dg)half dm9 \ixpt \normalsize main text
|
|
|
268 % 12Q = 8.53564pt -> w(min9) = 8.65994
|
|
|
269 % \tendm(dg) dm10 \xpt \large sec title
|
|
|
270 % 13Q = 9.24695pt -> w(min10) = 9.62216pt
|
|
|
271 % \tendm(dg)half dm10*1095 \xipt \Large author names
|
|
|
272 % 15Q =10.66956pt -> w(min10*1095) = 10.53625pt
|
|
|
273 % (\twlvdm) (dm12) \xiipt \LARGE e-title
|
|
|
274 % \twelvedm(dg)half dm12*1095 \xivpt \huge title
|
|
|
275 % min10*1440
|
|
|
276 % 18Q =12.80347pt -> w(min10*1440) = 13.8559pt
|
|
|
277 %
|
|
|
278 % Note that cm fonts follows LaTeX standard. (e.g. \viiipt -> cmr8, etc.)
|
|
|
279
|
|
|
280 % 2.00(4)>>
|
|
|
281 \if@LaTeX@e
|
|
|
282 \ifASCII
|
|
|
283 \def\ipsj@declare@font#1#2#3{{\fontsize{#3}{\z@}#2\selectfont % 2.00(5)>>
|
|
|
284 \edef\@tempa{\the\jfont}
|
|
|
285 \expandafter\global\expandafter\let\expandafter#1\@tempa}} % 2.00(5)<<
|
|
|
286
|
|
|
287 \ifDS@printer % ASCII LaTeX2e printer
|
|
|
288 \DeclareFontShape{JY1}{mc}{m}{n}{%
|
|
|
289 <5> sfixed* [5.175] min5 % 7Q/w5 = 4.97922/4.81108=1.035
|
|
|
290 <6> sfixed* [5.916] min6 % 8Q/w6 = 5.69055/5.77328=0.986
|
|
|
291 <7> sfixed* [7.392] min7 %10Q/w7 = 7.11304/6.73550=1.056
|
|
|
292 <8> sfixed* [8.128] min8 %11Q/w8 = 7.82434/7.69772=1.016
|
|
|
293 <9> sfixed* [8.872] min8 %12Q/w8 = 8.53564/7.69772=1.109
|
|
|
294 <10> sfixed* [9.610] min10 %13Q/w10= 9.24695/9.62216=0.961
|
|
|
295 <10.95> sfixed* [11.09] min10 %15Q/w10=10.66956/9.62216=1.109
|
|
|
296 <12> sfixed* [11.83] min10 %16Q/w10=11.38110/9.62216=1.183
|
|
|
297 <14.4> sfixed* [13.31] min10 %18Q/w10=12.80347/9.62216=1.331
|
|
|
298 }{}
|
|
|
299 \DeclareFontShape{JY1}{gt}{m}{n}{%
|
|
|
300 <5> sfixed* [5.175] goth5 % 7Q/w5 = 4.97922/4.81108=1.035
|
|
|
301 <6> sfixed* [5.916] goth6 % 8Q/w6 = 5.69055/5.77328=0.986
|
|
|
302 <7> sfixed* [7.392] goth7 %10Q/w7 = 7.11304/6.73550=1.056
|
|
|
303 <8> sfixed* [8.128] goth8 %11Q/w8 = 7.82434/7.69772=1.016
|
|
|
304 <9> sfixed* [8.872] goth8 %12Q/w8 = 8.53564/7.69772=1.109
|
|
|
305 <10> sfixed* [9.610] goth10 %13Q/w10= 9.24695/9.62216=0.961
|
|
|
306 <10.95> sfixed* [11.09] goth10 %15Q/w10=10.66956/9.62216=1.109
|
|
|
307 <12> sfixed* [11.83] goth10 %16Q/w10=11.38110/9.62216=1.183
|
|
|
308 <14.4> sfixed* [13.31] goth10 %18Q/w10=12.80347/9.62216=1.331
|
|
|
309 }{}
|
|
|
310
|
|
|
311 \ipsj@declare@font\fn@fontvii\mcfamily\@vpt
|
|
|
312
|
|
|
313 %% The following fonts are out of NFSS scheme
|
|
|
314 \font\fn@fontv min5 scaled739 % 5Q/w5 = 3.55658/4.81108=0.739
|
|
|
315 \font\fn@fontvi min5 scaled887 % 6Q/w5 = 4.26790/4.81108=0.887
|
|
|
316 \font\fn@fontxv goth10 scaled1035 %14Q/w10= 9.95846/9.62216=1.035
|
|
|
317
|
|
|
318 \else % ASCII LaTeX2e non-printer
|
|
|
319 \ipsj@declare@font\fn@fontv\mcfamily\@vpt
|
|
|
320 \ipsj@declare@font\fn@fontvi\mcfamily\@vpt
|
|
|
321 \ipsj@declare@font\fn@fontvii\mcfamily\@vpt
|
|
|
322 \ipsj@declare@font\fn@fontxv\gtfamily\@xipt
|
|
|
323 \fi
|
|
|
324
|
|
|
325 \else % NTT LaTeX2e
|
|
|
326 \def\ipsj@declare@font#1#2#3{{\fontsize{#3}{\z@}#2\selectfont % 2.00(5)
|
|
|
327 \xdef#1{\expandafter\noexpand\csname\jf@ntn@me\endcsname}}} % 2.00(5)
|
|
|
328 \ipsj@declare@font\fn@fontv\dm\@vpt
|
|
|
329 \ipsj@declare@font\fn@fontvi\dm\@vpt
|
|
|
330 \ipsj@declare@font\fn@fontvii\dm\@vpt
|
|
|
331 \ipsj@declare@font\fn@fontxv\dg\@xipt
|
|
|
332 \fi
|
|
|
333 % 2.00(4) <<
|
|
|
334
|
|
|
335 \else % LaTeX 2.09 % 2.00(4)
|
|
|
336 %% Fonts for ASCII TeX. (H.N.)
|
|
|
337 \ifASCII
|
|
|
338 \ifDS@printer
|
|
|
339 \font\fn@fontv min5 scaled739 % 5Q/w5 = 3.55658/4.81108=0.739
|
|
|
340 \font\fn@fontvi min5 scaled887 % 6Q/w5 = 4.26790/4.81108=0.887
|
|
|
341 \font\fivedm min5 scaled1035 % 7Q/w5 = 4.97922/4.81108=1.035
|
|
|
342 \font\fivedg goth5 scaled1035
|
|
|
343 \font\sixdm min6 scaled986 % 8Q/w6 = 5.69055/5.77328=0.986
|
|
|
344 \font\sixdg goth6 scaled986
|
|
|
345 \font\sevendm min7 scaled1056 %10Q/w7 = 7.11304/6.73550=1.056
|
|
|
346 \font\sevendg goth7 scaled1056
|
|
|
347 \font\eightdm min8 scaled1016 %11Q/w8 = 7.82434/7.69772=1.016
|
|
|
348 \font\eightdg goth8 scaled1016
|
|
|
349 \font\eightdmhalf min8 scaled1109 %12Q/w8 = 8.53564/7.69772=1.109
|
|
|
350 \font\eightdghalf goth8 scaled1109
|
|
|
351 \font\tendm min10 scaled961 %13Q/w10= 9.24695/9.62216=0.961
|
|
|
352 \font\tendg goth10 scaled961
|
|
|
353 \font\fn@fontxv goth10 scaled1035 %14Q/w10= 9.95846/9.62216=1.035
|
|
|
354 \font\tendmhalf min10 scaled1109 %15Q/w10=10.66956/9.62216=1.109
|
|
|
355 \font\tendghalf goth10 scaled1109
|
|
|
356 \font\twelvedm min10 scaled1183 %16Q/w10=11.38110/9.62216=1.183
|
|
|
357 \font\twelvedg goth10 scaled1183
|
|
|
358 \font\twelvedmhalf min10 scaled1331 %18Q/w10=12.80347/9.62216=1.331
|
|
|
359 \font\twelvedghalf goth10 scaled1331
|
|
|
360 \let\fn@fontvii\fivedm
|
|
|
361
|
|
|
362 \else
|
|
|
363 \font\fivedm min5
|
|
|
364 \font\fivedg goth5
|
|
|
365 \font\sixdm min6
|
|
|
366 \font\sixdg goth6
|
|
|
367 \font\sevendm min7
|
|
|
368 \font\sevendg goth7
|
|
|
369 \font\eightdm min8
|
|
|
370 \font\eightdg goth8
|
|
|
371 \font\eightdmhalf min9
|
|
|
372 \font\eightdghalf goth9
|
|
|
373 \font\tendm min10
|
|
|
374 \font\tendg goth10
|
|
|
375 \font\tendmhalf min10 scaled\magstephalf
|
|
|
376 \font\tendghalf goth10 scaled\magstephalf
|
|
|
377 \font\twelvedm min10 scaled\magstep1
|
|
|
378 \font\twelvedg goth10 scaled\magstep1
|
|
|
379 \font\twelvedmhalf min10 scaled\magstep2
|
|
|
380 \font\twelvedghalf goth10 scaled\magstep2
|
|
|
381 \let\fn@fontv\fivedm
|
|
|
382 \let\fn@fontvi\fivedm
|
|
|
383 \let\fn@fontvii\fivedm
|
|
|
384 \let\fn@fontxv\tendghalf
|
|
|
385
|
|
|
386 \fi
|
|
|
387
|
|
|
388 %% ASCII doesn't have \old@Npt. (H.N.)
|
|
|
389 \let\old@@vpt\vpt
|
|
|
390 \let\old@@vipt\vipt
|
|
|
391 \let\old@@viipt\viipt
|
|
|
392 \let\old@@viiipt\viiipt
|
|
|
393 \let\old@@ixpt\ixpt
|
|
|
394 \let\old@@xpt\xpt
|
|
|
395 \let\old@@xipt\xipt
|
|
|
396 \let\old@@xiipt\xiipt
|
|
|
397 \let\old@@xivpt\xivpt
|
|
|
398
|
|
|
399 \def\old@vpt{\old@@vpt\jspaceskip1zw\relax}
|
|
|
400 \def\old@vipt{\old@@vipt\jspaceskip1zw\relax}
|
|
|
401 \def\old@viipt{\old@@viipt\jspaceskip1zw\relax}
|
|
|
402 \def\old@viiipt{\old@@viiipt\jspaceskip1zw\relax}
|
|
|
403 \def\old@ixpt{\old@@ixpt\jspaceskip1zw\relax}
|
|
|
404 \def\old@xpt{\old@@xpt\jspaceskip1zw\relax}
|
|
|
405 \def\old@xipt{\old@@xipt\jspaceskip1zw\relax}
|
|
|
406 \def\old@xiipt{\old@@xiipt\jspaceskip1zw\relax}
|
|
|
407 \def\old@xivpt{\old@@xivpt\jspaceskip1zw\relax}
|
|
|
408
|
|
|
409 % 2.00(6)
|
|
|
410 % 1.06(2)
|
|
|
411
|
|
|
412 %% ASCII doesn't have \dg nor \dm. (H.N.)
|
|
|
413 \def\dg{\protect\pdg}
|
|
|
414 \def\dm{\protect\pdm}
|
|
|
415 %% Redefine \gt and \mc
|
|
|
416 \def\gt{\protect\pdg}
|
|
|
417 \def\mc{\protect\pdm}
|
|
|
418 \let\pdm\relax
|
|
|
419
|
|
|
420 \else
|
|
|
421 %% Fonts for NTT jTeX
|
|
|
422 %% \magstephalf and \magstep1 may cause trouble in older versions.
|
|
|
423
|
|
|
424 \jfont\fivedm=dm5
|
|
|
425 \jfont\fivedg=dg5
|
|
|
426 \jfont\sixdm=dm6
|
|
|
427 \jfont\sixdg=dg6
|
|
|
428 \jfont\sevendm=dm7
|
|
|
429 \jfont\sevendg=dg7
|
|
|
430 \jfont\eightdm=dm8
|
|
|
431 \jfont\eightdg=dg8
|
|
|
432 \jfont\eightdmhalf=dm9
|
|
|
433 \jfont\eightdghalf=dg9
|
|
|
434 \jfont\tendm=dm10
|
|
|
435 \jfont\tendg=dg10
|
|
|
436 \jfont\tendmhalf=dm10 scaled 1095
|
|
|
437 \jfont\tendghalf=dg10 scaled 1095
|
|
|
438 \jfont\twelvedm=dm12
|
|
|
439 \jfont\twelvedg=dg12
|
|
|
440 \jfont\twelvedmhalf=dm12 scaled 1095
|
|
|
441 \jfont\twelvedghalf=dg12 scaled 1095
|
|
|
442 \let\fn@fontv\fivedm
|
|
|
443 \let\fn@fontvi\fivedm
|
|
|
444 \let\fn@fontvii\fivedm
|
|
|
445 \let\fn@fontxv\tendghalf
|
|
|
446 % 1.06(3)
|
|
|
447 \fi
|
|
|
448 \fi
|
|
|
449
|
|
|
450 \ifx\jfsize\undefined \newcount\jfsize \fi % 1.06(2)
|
|
|
451
|
|
|
452 \ifASCII % 1.06(3),2.00(6)>>
|
|
|
453 \let\setjglues\relax
|
|
|
454 \let\jintercharskip\kanjiskip
|
|
|
455 \let\jasciikanjiskip\xkanjiskip
|
|
|
456 \let\jmathkanjiskip\xkanjiskip
|
|
|
457 \newdimen\jspaceskip
|
|
|
458
|
|
|
459 \def\defjintercharskip#1#2#3#4{\@asciiwarning{\defjintercharskip}}
|
|
|
460 \def\defjasciikanjiskip#1#2#3#4{\@asciiwarning{\defjasciicharskip}}
|
|
|
461 \def\defmathkanjiskip#1#2#3#4{\@asciiwarning{\defmathcharskip}}
|
|
|
462 \def\defjspaceskip#1#2#3#4{\@asciiwarning{\defjspaceskip}}
|
|
|
463
|
|
|
464 \def\@asciiwarning#1{\ipsj@warning{\string#1\space % 2.00(3)
|
|
|
465 is not supported in ASCII version}}
|
|
|
466 % 1.06(3),2.00(6)<<
|
|
|
467 \else % 2.00(7)>>
|
|
|
468 \if@LaTeX@e
|
|
|
469 \ipsj@declare@font\fn@eightdmhalf\dm\@ixpt
|
|
|
470 \ipsj@declare@font\fn@eightdghalf\dg\@ixpt
|
|
|
471 \else
|
|
|
472 \def\fn@eightdmhalf{\eightdmhalf}
|
|
|
473 \def\fn@eightdghalf{\eightdghalf}
|
|
|
474 \fi
|
|
|
475 \ifx\setjglues\undefined\else
|
|
|
476 \expandafter\defjintercharskip\fn@eightdmhalf{0pt}{1.4pt}{0.5pt}
|
|
|
477 \expandafter\defjintercharskip\fn@eightdghalf{0pt}{1.4pt}{0.5pt}
|
|
|
478 \expandafter\defjasciikanjiskip\fn@eightdmhalf{2pt}{1pt}{1pt}
|
|
|
479 \expandafter\defjasciikanjiskip\fn@eightdghalf{2pt}{1pt}{1pt}
|
|
|
480 \expandafter\defjmathkanjiskip\fn@eightdmhalf{2pt}{1pt}{1pt}
|
|
|
481 \expandafter\defjmathkanjiskip\fn@eightdghalf{2pt}{1pt}{1pt}
|
|
|
482 \fi % 2.00(7)<<
|
|
|
483 \fi % 2.00(4)
|
|
|
484
|
|
|
485 \if@LaTeX@e % 2.00(8)>>
|
|
|
486 \if@LaTeX@eN
|
|
|
487 \DeclareOldFontCommand{\rm}{\normalfont\rmfamily}{\mathrm}
|
|
|
488 \DeclareOldFontCommand{\sf}{\normalfont\sffamily}{\mathsf}
|
|
|
489 \DeclareOldFontCommand{\tt}{\normalfont\ttfamily}{\mathtt}
|
|
|
490 \DeclareOldFontCommand{\bf}{\normalfont\bfseries}{\mathbf}
|
|
|
491 \DeclareOldFontCommand{\it}{\normalfont\itshape}{\mathit}
|
|
|
492 \DeclareOldFontCommand{\sl}{\normalfont\slshape}{\@nomath\sl}
|
|
|
493 \DeclareOldFontCommand{\sc}{\normalfont\scshape}{\@nomath\sc}
|
|
|
494 \DeclareRobustCommand*{\cal}{\@fontswitch{\relax}{\mathcal}}
|
|
|
495 \DeclareRobustCommand*{\mit}{\@fontswitch{\relax}{\mathnormal}}
|
|
|
496 \ifASCII
|
|
|
497 \DeclareOldFontCommand{\mc}{\normalfont\mcfamily}{\mathmc}
|
|
|
498 \DeclareOldFontCommand{\gt}{\normalfont\gtfamily}{\mathgt}
|
|
|
499 \fi\fi
|
|
|
500 \ifASCII
|
|
|
501 \def\dm{\mc}
|
|
|
502 \def\dg{\gt}
|
|
|
503 \fi\fi % 2.00(8)<<
|
|
|
504
|
|
|
505 %%%%%% Basic Font Size Macros %%%%%%
|
|
|
506
|
|
|
507 \if@LaTeX@e % 1.06(4) >>
|
|
|
508 \def\@setsize#1#2#3#4{\@setfontsize#1{#4}{#2}#3}
|
|
|
509 \ifASCII
|
|
|
510 \def\old@somept{\jspaceskip1zw\relax}
|
|
|
511 \else
|
|
|
512 \let\old@somept\relax
|
|
|
513 \fi
|
|
|
514 \let\vpt\old@somept % 2.00(9)>>
|
|
|
515 \let\vipt\old@somept
|
|
|
516 \let\viipt\old@somept
|
|
|
517 \let\viiipt\old@somept
|
|
|
518 \let\ixpt\old@somept
|
|
|
519 \let\xpt\old@somept
|
|
|
520 \let\xipt\old@somept
|
|
|
521 \let\xiipt\old@somept
|
|
|
522 \let\xivpt\old@somept
|
|
|
523 \let\xviipt\old@somept % 2.00(9)<<
|
|
|
524 % 1.06(4) <<
|
|
|
525
|
|
|
526 %% \vipt etc. are redefined to use appropriate Japanese fonts.
|
|
|
527 \else % 2.00(9)
|
|
|
528 \def\vpt{\old@vpt\fivedm\let\pdg\fivedg\let\pdm\fivedm\jfsize=5\relax}
|
|
|
529 \def\vipt{\old@vipt\sixdm\let\pdg\sixdg\let\pdm\sixdm\jfsize=6\relax}
|
|
|
530 \def\viipt{\old@viipt\sevendm\let\pdg\sevendg\let\pdm\sevendm\jfsize=7\relax}
|
|
|
531 \def\viiipt{\old@viiipt\eightdm\let\pdg\eightdg\let\pdm\eightdm\jfsize=8\relax}
|
|
|
532 \def\ixpt{\old@ixpt\eightdmhalf\let\pdg\eightdghalf\let\pdm\eightdmhalf
|
|
|
533 \jfsize=9\relax \@ixptboldmath} % 1.02(2)
|
|
|
534 \def\xpt{\old@xpt\tendm\let\pdg\tendg\let\pdm\tendm\jfsize=10\relax}
|
|
|
535 \def\xipt{\old@xipt\tendmhalf\let\pdg\tendghalf\let\pdm\tendmhalf\jfsize=11
|
|
|
536 \relax}
|
|
|
537 \def\xiipt{\old@xiipt\twelvedm\let\pdg\twelvedg\let\pdm\twelvedm
|
|
|
538 \jfsize=12\relax}
|
|
|
539 \def\xivpt{\old@xivpt\twelvedmhalf\let\pdg\twelvedghalf\let\pdm\twelvedmhalf
|
|
|
540 \jfsize=14\relax}
|
|
|
541 \fi % 2.00(9)
|
|
|
542
|
|
|
543 \if@LaTeX@e % 1.06(5)
|
|
|
544 \let\@ixptboldmath\relax % 1.06(5)
|
|
|
545 \else % 1.06(5)
|
|
|
546 % 1.02(2) >>
|
|
|
547 \ifDS@printer
|
|
|
548 \def\@ixptboldmath{%
|
|
|
549 \def\unboldmath{\everymath{}\everydisplay{}\@nomath\unboldmath
|
|
|
550 \textfont\@ne\ninmi
|
|
|
551 \textfont\tw@\ninsy \textfont\lyfam\ninly
|
|
|
552 \@boldfalse}\@boldfalse
|
|
|
553 \def\boldmath{\@ifundefined{ninmib}{%
|
|
|
554 \global\font\ninmib\@mbi\@ptscale9\relax
|
|
|
555 \global\font\ninsyb\@mbsy\@ptscale9\relax
|
|
|
556 \global\font\ninlyb\@lasyb\@ptscale9\relax
|
|
|
557 \@addfontinfo\@ixpt
|
|
|
558 {\def\boldmath{\everymath{\mit}\everydisplay{\mit}%
|
|
|
559 \@prtct\@nomathbold
|
|
|
560 \textfont\@ne\ninmib \textfont\tw@\ninsyb
|
|
|
561 \textfont\lyfam\ninlyb \@prtct\@boldtrue}}}{}%
|
|
|
562 \@ixpt\boldmath}}
|
|
|
563 \else
|
|
|
564 \def\@ixptboldmath{%
|
|
|
565 \def\unboldmath{\everymath{}\everydisplay{}\@nomath\unboldmath
|
|
|
566 \textfont\@ne\ninmi
|
|
|
567 \textfont\tw@\ninsy \textfont\lyfam\ninly
|
|
|
568 \@boldfalse}\@boldfalse
|
|
|
569 % 1.03(1) >>
|
|
|
570 \def\boldmath{\@ifundefined{ninmib}{\global\font\ninmib\@mbi
|
|
|
571 \global\font\ninsyb\@mbsy\relax
|
|
|
572 \global\font\ninlyb\@lasyb\relax
|
|
|
573 \@addfontinfo\@ixpt
|
|
|
574 {\def\boldmath{\everymath{\mit}\everydisplay{\mit}%
|
|
|
575 \@prtct\@nomathbold
|
|
|
576 \textfont\@ne\ninmib \textfont\tw@\ninsyb
|
|
|
577 \textfont\lyfam\ninlyb \@prtct\@boldtrue}}}{}%
|
|
|
578 \@ixpt\boldmath}}
|
|
|
579 % 1.03(1) <<
|
|
|
580 \fi
|
|
|
581 % 1.02(2) <<
|
|
|
582 \fi % 1.06(5)
|
|
|
583
|
|
|
584
|
|
|
585 %%%%%% Font Size Macros %%%%%%
|
|
|
586
|
|
|
587 \def\fs@setsize#1#2#3#4{\normalsize\dimen@\normalbaselineskip
|
|
|
588 \@ifstar{\@setsize{#1}{\dimen@}{#3}{#4}}%
|
|
|
589 {\@setsize{#1}{#2}{#3}{#4}}}
|
|
|
590
|
|
|
591 % s = (3*b - (h' + d') - (h + d))/2
|
|
|
592 % s_a = s + h' + d - b
|
|
|
593 % s_b = s + h + d' - b
|
|
|
594 \def\sec@setskips#1{\setbox0\hbox{\fs@sec\bf#1}\setbox1\hbox{#1}
|
|
|
595 \@tempdima3\baselineskip
|
|
|
596 \advance\@tempdima-\ht0 \advance\@tempdima-\dp0
|
|
|
597 \advance\@tempdima-\ht1 \advance\@tempdima-\dp1
|
|
|
598 \divide\@tempdima\tw@ \advance\@tempdima-\baselineskip
|
|
|
599 \@tempdimb\@tempdima
|
|
|
600 \advance\@tempdima\ht0 \advance\@tempdima\dp1
|
|
|
601 \advance\@tempdimb\ht1 \advance\@tempdimb\dp0
|
|
|
602 \edef\sec@aboveskip{\the\@tempdima}
|
|
|
603 \edef\sec@belowskip{\the\@tempdimb}}
|
|
|
604
|
|
|
605 \ifDS@english
|
|
|
606 % size pt \baselineskip size \?pt \baselineskip
|
|
|
607 % \normalsize 10 16Q \large 11 18Q (*)
|
|
|
608 % \small 9 15Q \Large 12 22Q
|
|
|
609 % \footnotesize 8 13Q \LARGE 14 26Q (*)
|
|
|
610 % \scriptsize 6 8pt (*) \huge 18 30Q (*)
|
|
|
611 % \tiny 5 6pt (*) \Huge 18 30Q (*)
|
|
|
612 % * : not measured
|
|
|
613
|
|
|
614 \def\@normalsize{\@setsize\normalsize{16\@Q}\xpt\@xpt}
|
|
|
615 \def\small{\fs@setsize\small{15\@Q}\ixpt\@ixpt}
|
|
|
616 \def\footnotesize{\fs@setsize\footnotesize{13\@Q}\viiipt\@viiipt}
|
|
|
617 \def\scriptsize{\@setsize\scriptsize{8pt}\viipt\@viipt}
|
|
|
618 \def\tiny{\@setsize\tiny{6pt}\vpt\@vpt}
|
|
|
619 \def\large{\@setsize\Large{18\@Q}\xipt\@xipt}
|
|
|
620 \def\Large{\@setsize\LARGE{22\@Q}\xiipt\@xiipt}
|
|
|
621 \def\LARGE{\@setsize\LARGE{26\@Q}\xivpt\@xivpt}
|
|
|
622 \def\huge{\@setsize\Huge{30\@Q}\xviipt\@xviipt}
|
|
|
623 \let\Huge\huge
|
|
|
624
|
|
|
625 \ifDS@techrep % 1.05(2)>>
|
|
|
626 \def\@normalsize{\@setsize\normalsize{17\@Q}\xpt\@xpt}
|
|
|
627 \fi % 1.05(2)<<
|
|
|
628
|
|
|
629 \if@LaTeX@e % 2.00(10)>>
|
|
|
630 \let\normalsize\@normalsize
|
|
|
631 \fi % 2.00(10)<<
|
|
|
632
|
|
|
633 \let\fs@footnote\footnotesize
|
|
|
634 \let\fs@caption\footnotesize
|
|
|
635 \let\fs@table\footnotesize
|
|
|
636 \let\fs@eabst\footnotesize
|
|
|
637 \let\fs@header\footnotesize
|
|
|
638 \let\fs@footer\footnotesize
|
|
|
639 \let\fs@bibliography\small
|
|
|
640 \let\fs@subsec\normalsize
|
|
|
641 \let\fs@sec\normalsize
|
|
|
642 \let\fs@type\large
|
|
|
643 \let\fs@eauthor\large
|
|
|
644 \let\fs@title\Large
|
|
|
645
|
|
|
646 \@normalsize
|
|
|
647
|
|
|
648 \sec@setskips{A}
|
|
|
649
|
|
|
650 \else
|
|
|
651 % size pt \baselineskip size \?pt \baselineskip
|
|
|
652 % \normalsize 9 19Q \large 10 19Q
|
|
|
653 % \small 8 14Q \Large 11 22Q
|
|
|
654 % \footnotesize 7 14Q \LARGE 12 18Q
|
|
|
655 % \scriptsize 6 8pt (*) \huge 14 26Q
|
|
|
656 % \tiny 5 6pt (*) \Huge 14 26Q
|
|
|
657 % * : not measured
|
|
|
658
|
|
|
659 \def\@normalsize{\@setsize\normalsize{19\@Q}\ixpt\@ixpt}
|
|
|
660 \def\small{\fs@setsize\small{14\@Q}\viiipt\@viiipt}
|
|
|
661 \def\footnotesize{\fs@setsize\footnotesize{14\@Q}\viipt\@viipt}
|
|
|
662 \def\scriptsize{\@setsize\scriptsize{8pt}\vipt\@vipt}
|
|
|
663 \def\tiny{\@setsize\tiny{6pt}\vpt\@vpt}
|
|
|
664 \def\large{\@setsize\large{19\@Q}\xpt\@xpt}
|
|
|
665 \def\Large{\@setsize\Large{22\@Q}\xipt\@xipt}
|
|
|
666 \def\LARGE{\@setsize\LARGE{18\@Q}\xiipt\@xiipt}
|
|
|
667 \def\huge{\@setsize\Huge{26\@Q}\xivpt\@xivpt}
|
|
|
668 \let\Huge\huge
|
|
|
669
|
|
|
670 \ifDS@techrep % 1.05(2)>>
|
|
|
671 \def\@normalsize{\@setsize\normalsize{17\@Q}\ixpt\@ixpt}
|
|
|
672 \fi % 1.05(2)<<
|
|
|
673
|
|
|
674 \if@LaTeX@e % 2.00(10)>>
|
|
|
675 \let\normalsize\@normalsize
|
|
|
676 \fi % 2.00(10)<<
|
|
|
677
|
|
|
678 \let\fs@footnote\footnotesize
|
|
|
679 \let\fs@caption\footnotesize
|
|
|
680 \let\fs@table\footnotesize
|
|
|
681 \let\fs@abst\small
|
|
|
682 \def\fs@eabst{\small\baselineskip13\@Q}
|
|
|
683 \let\fs@header\small
|
|
|
684 \let\fs@footer\small
|
|
|
685 \let\fs@subsec\normalsize
|
|
|
686 \def\fs@bibliography{\normalsize\baselineskip16\@Q}
|
|
|
687 \let\fs@sec\large
|
|
|
688 \let\fs@type\fn@fontxv
|
|
|
689 \let\fs@author\Large
|
|
|
690 \def\fs@eauthor{\Large\baselineskip15\@Q}
|
|
|
691 \let\fs@etitle\LARGE
|
|
|
692 \let\fs@title\huge
|
|
|
693
|
|
|
694 \@normalsize
|
|
|
695 % 2.00(7)
|
|
|
696 \ifx\setjglues\undefined\else
|
|
|
697 \setjglues
|
|
|
698 \fi
|
|
|
699
|
|
|
700 \sec@setskips{$B$"(B}
|
|
|
701
|
|
|
702 \fi
|
|
|
703
|
|
|
704 \if@LaTeX@e\else % 2.00(11)
|
|
|
705 \let\latex@bf\bf % 1.06(6)
|
|
|
706 \def\bf{\latex@bf \dg} % 1.06(6)
|
|
|
707 \fi % 2.00(11)
|
|
|
708
|
|
|
709
|
|
|
710 %%%%%% Page Layout Parameters %%%%%%
|
|
|
711
|
|
|
712 \newdimen\@mojihaba
|
|
|
713
|
|
|
714 \headheight 12\@Q
|
|
|
715
|
|
|
716 % We want to allow a line containing $\displaystyle X^X$ to be a first line.
|
|
|
717 \setbox0\hbox{$\displaystyle X^X$}
|
|
|
718 \topskip\ht0
|
|
|
719
|
|
|
720 \ifdim\maxdepth<\dp\strutbox \maxdepth\dp\strutbox \@maxdepth\maxdepth\fi
|
|
|
721
|
|
|
722 \@tempswafalse % 1.05(2)>>
|
|
|
723 \ifDS@english \ifDS@techrep \else \@tempswatrue \fi\fi
|
|
|
724 \if@tempswa % 1.05(2)<<
|
|
|
725 \topmargin 138\@Q \advance\topmargin-1in
|
|
|
726
|
|
|
727 % \textheight = 53\baselineskip + \topskip + epsilon(100sp)
|
|
|
728 \textheight53\baselineskip \advance\textheight\topskip \advance\textheight100sp
|
|
|
729
|
|
|
730 % \headsep = 24Q - \topskip
|
|
|
731 \headsep24\@Q \advance\headsep-\topskip
|
|
|
732
|
|
|
733 % Only first page has page number (footer) at the bottom
|
|
|
734 \footskip 27\@Q
|
|
|
735
|
|
|
736 \@mojihaba13\@Q
|
|
|
737
|
|
|
738 \else
|
|
|
739 \topmargin 131\@Q \advance\topmargin-1in
|
|
|
740
|
|
|
741 % \textheight = 45\baselineskip + \topskip + epsilon(100sp)
|
|
|
742 \textheight45\baselineskip \advance\textheight\topskip \advance\textheight100sp
|
|
|
743
|
|
|
744 \ifDS@techrep % 1.05(2)>>
|
|
|
745 \textheight50\baselineskip \advance\textheight\topskip \advance\textheight100sp
|
|
|
746 \fi % 1.05(2)<<
|
|
|
747
|
|
|
748 % \headsep = 28Q - \topskip
|
|
|
749 \headsep28\@Q \advance\headsep-\topskip
|
|
|
750
|
|
|
751 % Only first page has page number (footer) at the bottom
|
|
|
752 \footskip24\@Q
|
|
|
753
|
|
|
754 \@mojihaba12\@Q
|
|
|
755 \fi
|
|
|
756
|
|
|
757 \columnsep30\@Q
|
|
|
758
|
|
|
759 % \textwidth - \columnwidth = 24 * 12Q * 2 + \columnsep = 606Q
|
|
|
760 \textwidth606\@Q
|
|
|
761 \columnseprule0pt
|
|
|
762
|
|
|
763 \oddsidemargin210mm \advance\oddsidemargin-\textwidth \divide\oddsidemargin\tw@
|
|
|
764 \advance\oddsidemargin-1in \evensidemargin\oddsidemargin
|
|
|
765
|
|
|
766 \skip\footins\baselineskip \advance\skip\footins-.5\@mojihaba
|
|
|
767 % \footnotesep = \baselineskip - depth(\strutbox)
|
|
|
768 {\fs@footnote
|
|
|
769 \footnotesep\baselineskip
|
|
|
770 \global\advance\footnotesep-\dp\strutbox}
|
|
|
771
|
|
|
772 \def\footnoterule{{\fs@footnote\kern-\dp\strutbox \hrule \kern-.4\p@
|
|
|
773 \kern\dp\strutbox}}
|
|
|
774
|
|
|
775 \floatsep \baselineskip \textfloatsep \baselineskip
|
|
|
776 \intextsep \baselineskip \@maxsep \baselineskip
|
|
|
777 \dblfloatsep \baselineskip \dbltextfloatsep \baselineskip
|
|
|
778 \@dblmaxsep \baselineskip
|
|
|
779 \@fptop 0pt plus 1fil \@fpsep 0pt plus 2fil \@fpbot 0pt plus 1fil
|
|
|
780 \@dblfptop 0pt plus 1fil \@dblfpsep 0pt plus 2fil \@dblfpbot 0pt plus 1fil
|
|
|
781
|
|
|
782 \parskip\z@ \parindent\@mojihaba
|
|
|
783 \@lowpenalty 51 \@medpenalty 151 \@highpenalty 301
|
|
|
784 \@beginparpenalty -\@lowpenalty \@endparpenalty -\@lowpenalty
|
|
|
785 \@itempenalty -\@lowpenalty
|
|
|
786
|
|
|
787
|
|
|
788 %%%%%% Title and Authors %%%%%%
|
|
|
789 %
|
|
|
790 % Format of title, author names and abstract.
|
|
|
791 %
|
|
|
792 % \huge\bf <Japanese title>
|
|
|
793 % \vskip 32Q
|
|
|
794 % \Large <Japanese author names>
|
|
|
795 % \vskip 32Q
|
|
|
796 % \small <Japanese abstract>
|
|
|
797 % \vskip 34Q
|
|
|
798 % \LARGE\bf <English title>
|
|
|
799 % \vskip 28Q
|
|
|
800 % \Large\sc <English author names>
|
|
|
801 % \vskip 28Q
|
|
|
802 % \small <English abstract>
|
|
|
803 % \vskip 25Q
|
|
|
804
|
|
|
805 \def\maketitle{\par\twocolumn[\@maketitle]\thispagestyle{myheadings}\@thanks}
|
|
|
806
|
|
|
807 % default title header
|
|
|
808
|
|
|
809 \def\title{\@dblarg{\@xtitle}}
|
|
|
810 \def\@xtitle[#1]#2{\gdef\@title{#2}%
|
|
|
811 {\def\protect{\noexpand\protect\noexpand}%
|
|
|
812 \ifDS@english\def\\{\unskip\ \ignorespaces}%
|
|
|
813 \else\def\\{\unskip\ignorespaces}\fi
|
|
|
814 \xdef\@titlestring{#1}}%
|
|
|
815 \settowidth\@tempdima{\fs@header
|
|
|
816 \hskip12\@Q Vol.~00\hskip12\@Q No.~00\qquad\@titlestring\qquad
|
|
|
817 Vol.~00\hskip12\@Q No.~00\hskip12\@Q}
|
|
|
818 \ifdim\@tempdima>\textwidth
|
|
|
819 \ipsj@warning{\string\title\space for headding is too wide}\fi}
|
|
|
820 % 2.00(3)
|
|
|
821 \def\@title{\mkt@warning\title}\def\@titlestring{}
|
|
|
822 \long\def\author#1{\long\gdef\@author{#1}}
|
|
|
823 \def\@author{\mkt@warning\author}
|
|
|
824
|
|
|
825 \newbox\@abstractbox
|
|
|
826 %% Introduce \@titlewidth because we now use this dimen repeatedly. (H.N.)
|
|
|
827 %% \@titlewidth = 44 * 11Q = 484Q
|
|
|
828 \newdimen\@titlewidth \@titlewidth 484\@Q
|
|
|
829
|
|
|
830 \def\abstract{\global\let\@abstract\relax
|
|
|
831 \global\setbox\@abstractbox\hbox\bgroup
|
|
|
832 \begin{minipage}[b]{\@titlewidth}\fs@abst\parindent11\@Q}
|
|
|
833 \def\endabstract{\end{minipage}\egroup}
|
|
|
834 \def\@abstract{\mkt@warning{abstract env}}
|
|
|
835
|
|
|
836 %% We need English title, author name(s) and abstract. (H.N.)
|
|
|
837 \def\etitle#1{\gdef\@etitle{#1}}
|
|
|
838 \def\@etitle{\mkt@warning\etitle}
|
|
|
839 \long\def\eauthor#1{\long\gdef\@eauthor{#1}}
|
|
|
840 \def\@eauthor{\mkt@warning\eauthor}
|
|
|
841
|
|
|
842 \newbox\@eabstractbox
|
|
|
843 \def\eabstract{\global\let\@eabstract\relax
|
|
|
844 \global\setbox\@eabstractbox\hbox\bgroup
|
|
|
845 \begin{minipage}[b]{\@titlewidth}\fs@eabst\parindent11\@Q}
|
|
|
846 \let\endeabstract\endabstract
|
|
|
847 \def\@eabstract{\mkt@warning{eabstract env}}
|
|
|
848
|
|
|
849 \ifDS@english
|
|
|
850 \let\author\eauthor \let\abstract\eabstract
|
|
|
851 \let\@eauthor\@author \let\@eabstract\@abstract
|
|
|
852 \fi
|
|
|
853
|
|
|
854 \def\mkt@warning#1{\ipsj@warning{Missing \string#1}} % 2.00(3)
|
|
|
855
|
|
|
856 \newdimen\mkt@prevdepth
|
|
|
857 \newbox\mkt@titlebox
|
|
|
858 \def\@maketitle{\setbox\mkt@titlebox\vbox{
|
|
|
859 \ifDS@english \ifDS@preface
|
|
|
860 \hbox{}\vskip60\@Q \vskip-\headsep \vskip-\baselineskip
|
|
|
861 \else
|
|
|
862 \hbox{}\vskip26\@Q \vskip-\headsep \vskip-\baselineskip
|
|
|
863 \leftline{\fs@type\it
|
|
|
864 \ifDS@technote Technical Note
|
|
|
865 \else Regular Paper\fi}
|
|
|
866 \vskip32\@Q \vskip-\baselineskip \fi
|
|
|
867 \else\ifDS@technote
|
|
|
868 \vskip18\@Q \vskip-\headsep
|
|
|
869 \leftline{\vbox to28\@Q{\hrule height.8pt\vss
|
|
|
870 \hbox{\hskip7\@Q \fs@type $B%F%/%K%+%k%N!<%H(B%
|
|
|
871 \hskip7\@Q}\vss\hrule height.8pt}}
|
|
|
872 \vskip40\@Q \vskip-\baselineskip
|
|
|
873 \else
|
|
|
874 \hbox{}\vskip60\@Q \vskip-\headsep \vskip-\baselineskip
|
|
|
875 \fi\fi
|
|
|
876 \@tempswafalse \ifDS@english\else\ifDS@preface\@tempswatrue\fi\fi
|
|
|
877 \mkt@maketitle{\fs@title\bf}\@title\title
|
|
|
878 % 1.04(1a) >>
|
|
|
879 \ifnum\c@affi@footnote>\thr@@
|
|
|
880 \let\theaffi@footnote\theaffi@footnotemany \fi
|
|
|
881 \c@affi@footnote\z@
|
|
|
882 % 1.04(1a) <<
|
|
|
883 \affi@labels
|
|
|
884 \ifDS@english\else
|
|
|
885 \vskip-\mkt@prevdepth \nointerlineskip\vskip32\@Q
|
|
|
886 \centerline{\vbox{\centering\hsize\@titlewidth\fs@author
|
|
|
887 \mkt@makeauthor}}
|
|
|
888 \ifDS@preface\else
|
|
|
889 \vskip-\prevdepth \nointerlineskip\vskip32\@Q
|
|
|
890 \centerline{\@abstract\box\@abstractbox}
|
|
|
891 \vskip-\prevdepth \nointerlineskip\vskip34\@Q
|
|
|
892 \mkt@maketitle{\fs@etitle\bf}\@etitle\etitle
|
|
|
893 \fi\fi
|
|
|
894 \if@tempswa\else
|
|
|
895 \vskip-\mkt@prevdepth \nointerlineskip\vskip28\@Q
|
|
|
896 \centerline{\vbox{\centering\hsize\@titlewidth\fs@eauthor\sc
|
|
|
897 \mkt@makeeauthor}}
|
|
|
898 \fi
|
|
|
899 \ifDS@preface\else
|
|
|
900 \vskip-\prevdepth \nointerlineskip\vskip28\@Q
|
|
|
901 \centerline{\@eabstract\box\@eabstractbox}
|
|
|
902 \fi
|
|
|
903 \vskip-\prevdepth \nointerlineskip\vskip25\@Q}
|
|
|
904 \@tempdimb\ht\mkt@titlebox \advance\@tempdimb\dp\mkt@titlebox
|
|
|
905 \@tempcnta\@tempdimb \@tempcntb\baselineskip
|
|
|
906 \divide\@tempcnta\@tempcntb \@tempdima\@tempcnta\baselineskip
|
|
|
907 \advance\@tempdima-\@tempdimb
|
|
|
908 \box\mkt@titlebox
|
|
|
909 \ifdim\@tempdima=\z@\else\advance\@tempdima\baselineskip
|
|
|
910 \vskip\@tempdima\fi}
|
|
|
911
|
|
|
912 %% \mkt@maketitle puts Japanese/English title, whose lines should be
|
|
|
913 %% properly broken with \\ by the user. The result is flushed to left, then
|
|
|
914 %% centered with respect to the longest line. (H.N.)
|
|
|
915 \def\mkt@maketitle#1#2#3{\setbox\@tempboxa\vtop{
|
|
|
916 \def\\{\unskip\egroup\hbox\bgroup\ignorespaces}
|
|
|
917 #1\hbox\bgroup#2\unskip\egroup
|
|
|
918 \global\mkt@prevdepth\prevdepth}
|
|
|
919 \@tempdima\textwidth\advance\@tempdima-4\@mojihaba
|
|
|
920 \ifdim\wd\@tempboxa>\@tempdima
|
|
|
921 \ipsj@warning{% % 2.00(3)
|
|
|
922 \string#3 is too wide. Break line(s) by \string\\}\fi
|
|
|
923 \centerline{\box\@tempboxa}}
|
|
|
924
|
|
|
925 % Assignment of Japanese author names to lines:
|
|
|
926 % 1 -> 1, 2 -> 2, 3 -> 3, 4 -> 2+2, 5 -> 3+2, 6 -> 3+3, 7 -> 3+2+2, 8 -> 3+3+2,
|
|
|
927 % ...
|
|
|
928 % Rule for N authors (N > 2, q := N div 3)
|
|
|
929 % N mod 3 = 0 -> 3 * q
|
|
|
930 % N mod 3 = 1 -> 3 * (q - 2) + 2 + 2
|
|
|
931 % N mod 3 = 2 -> 3 * (q - 1) + 2
|
|
|
932
|
|
|
933 \newcount\mkt@cnta\newcount\mkt@cntb
|
|
|
934 \newcount\mkt@sname\newcount\mkt@gname
|
|
|
935 \newbox\mkt@boxa
|
|
|
936 \newdimen\mkt@namewidth
|
|
|
937 \def\mkt@makeauthor{\let\member\@gobble \let\nomember\relax
|
|
|
938 \let\stmember\@gobble % Those are not necessary in final manuscript.
|
|
|
939 \def\@makefnmark{\smash{\rlap{\fn@fontvii$^{\affi@thefnmark}$}}}%
|
|
|
940 \gdef\affi@thefnmark{}\leavevmode\let\+\ignorespaces
|
|
|
941 \settowidth\@tempdima{$B$"(B}\mkt@namewidth7\@tempdima\@tempcnta\z@
|
|
|
942 \expandafter\mkt@countauthor\@author\and\@nil\and
|
|
|
943 \ifnum\@tempcnta=\@ne\let\mkt@anhbox\mkt@anhboxc\mkt@makesingleauthor
|
|
|
944 \else
|
|
|
945 \@tempcntb\@tempcnta \divide\@tempcntb\thr@@
|
|
|
946 \multiply\@tempcntb\thr@@ \advance\@tempcntb-\@tempcnta
|
|
|
947 \ifnum\@tempcntb=\m@ne\relax\@tempcntb\tw@\else\@tempcntb\z@\fi
|
|
|
948 \mkt@cnta\thr@@
|
|
|
949 \let\mkt@anhbox\mkt@anhboxl
|
|
|
950 \expandafter\mkt@makemultiauthor\@author\and\and\fi}
|
|
|
951 \def\mkt@countauthor#1\and{\def\@tempa{#1}\ifx\@tempa\@nnil\let\next\relax
|
|
|
952 \else\advance\@tempcnta\@ne \let\next\mkt@countauthor\fi\next}
|
|
|
953
|
|
|
954 % If single author, author name has 9 KC width instead of 7.
|
|
|
955 \def\mkt@makesingleauthor{\divide\mkt@namewidth7\multiply\mkt@namewidth9\relax
|
|
|
956 \expandafter\mkt@putauthor\@author\+ \@nil}
|
|
|
957
|
|
|
958 \def\mkt@makemultiauthor#1\and{\ifnum\@tempcnta=\z@\unskip\let\next\relax\else
|
|
|
959 \leavevmode
|
|
|
960 \advance\mkt@cnta\m@ne \advance\@tempcnta\m@ne
|
|
|
961 \ifnum\mkt@cnta=\z@\mkt@maleft{#1}\mkt@cnta\thr@@\else
|
|
|
962 \ifnum\@tempcnta=\@tempcntb\mkt@maleft{#1}\mkt@cnta\tw@\else
|
|
|
963 \mkt@putauthor#1\+ \@nil\let\mkt@anhbox\mkt@anhboxc\fi\fi
|
|
|
964 \let\next\mkt@makemultiauthor\fi\next}
|
|
|
965 \def\mkt@maleft#1{\let\mkt@anhbox\mkt@anhboxr\mkt@putauthor#1\+ \@nil
|
|
|
966 \par\let\mkt@anhbox\mkt@anhboxl}
|
|
|
967
|
|
|
968 % Japanese author name format:
|
|
|
969 % Non Japanese : As is.
|
|
|
970 % Japanese w/o s/g delimitor : As is with warning.
|
|
|
971 % Japanese (s+g>6) : As is.
|
|
|
972 % Japanese (s+g<7) : Give 1-KC space to s/g delimitor, then insert
|
|
|
973 % infinit stretch between each character pair, assuming the
|
|
|
974 % s/g delimitor as a charcter, to make the name have 7-KC
|
|
|
975 % width. An exception is 2s + 2g case, in which s/g
|
|
|
976 % delimitor has 0 width in order to have the result
|
|
|
977 % "S_S_G_G".
|
|
|
978
|
|
|
979 \def\mkt@putauthor#1 #2\@nil{%
|
|
|
980 \setbox\@tempboxa\hbox{\let\affiref\@gobble \let\mkt@warning\@gobble
|
|
|
981 \jintercharskip\z@#1#2}%
|
|
|
982 \setbox\mkt@boxa\hbox{\let\affiref\@gobble \let\mkt@warning\@gobble
|
|
|
983 \jintercharskip1cm#1#2}%
|
|
|
984 \ifdim\wd\@tempboxa=\wd\mkt@boxa \mkt@anhbox{#1 #2}\else
|
|
|
985 % probably no Kanjis
|
|
|
986 \def\@tempa{#2}\ifx\@tempa\empty % without space btwn s/g-name
|
|
|
987 {\let\affiref\@gobble \def\+{}%
|
|
|
988 \ipsj@warning{Author name #1 doesn't have a space}}%
|
|
|
989 % 2.00(3)
|
|
|
990 \mkt@anhbox{#1}\else
|
|
|
991 \mkt@getnamewidth\mkt@sname{#1}\mkt@getnamewidth\mkt@gname{#2}%
|
|
|
992 \mkt@cntb\mkt@sname \advance\mkt@cntb\mkt@gname
|
|
|
993 \ifnum\mkt@cntb>6\relax\mkt@anhbox{#1\ #2}\else
|
|
|
994 \jintercharskip\fill%
|
|
|
995 \@tempskipa\@tempdima plus2fill\relax
|
|
|
996 \ifnum\mkt@sname=\tw@ \ifnum\mkt@gname=\tw@ \@tempskipa\fill\fi\fi
|
|
|
997 \hbox to\mkt@namewidth{#1\hskip\@tempskipa#2\@makefnmark}\fi\fi\fi
|
|
|
998 \gdef\affi@thefnmark{}\hskip\columnsep}
|
|
|
999
|
|
|
1000 % When an author name is formatted "as is", the following macros are used
|
|
|
1001 % according to their position (left, right, or center).
|
|
|
1002 \def\mkt@anhboxl#1{\hbox to\mkt@namewidth{\hss#1\@makefnmark}}
|
|
|
1003 \def\mkt@anhboxr#1{\hbox to\mkt@namewidth{#1\@makefnmark\hss}}
|
|
|
1004 \def\mkt@anhboxc#1{\setbox\@tempboxa\hbox{#1\@makefnmark}%
|
|
|
1005 \ifdim\wd\@tempboxa>\mkt@namewidth\box\@tempboxa
|
|
|
1006 \else\hbox to\mkt@namewidth{\box\@tempboxa\hss}\fi}
|
|
|
1007
|
|
|
1008 \def\mkt@getnamewidth#1#2{\setbox\@tempboxa\hbox{\let\affiref\@gobble#2}%
|
|
|
1009 \@tempdimb\wd\@tempboxa
|
|
|
1010 \advance\@tempdimb.5\@tempdima #1\@tempdimb \mkt@cntb\@tempdima
|
|
|
1011 \divide#1\mkt@cntb}
|
|
|
1012
|
|
|
1013 % English author name format
|
|
|
1014 % 1 -> <name-1>^*
|
|
|
1015 % 2 -> <name-1>^* and~<name-2>^*
|
|
|
1016 % 3 or more -> <name-1>,^* <name-2>,^* ... <name-n-1>^* and~<name-n>^*
|
|
|
1017 % (be careful the position of comma).
|
|
|
1018 %
|
|
|
1019 % No special tricks for assignment names to line. Names are simply put in a
|
|
|
1020 % \centering paragraph.
|
|
|
1021
|
|
|
1022 \def\mkt@makeeauthor{\let\member\@gobble \let\nomember\relax
|
|
|
1023 \let\stmember\@gobble % Those are not necessary in final manuscript.
|
|
|
1024 \leavevmode\let\mkt@and\relax\gdef\affi@thefnmark{}%
|
|
|
1025 \def\@thefnmark{\affi@thefnmark}%
|
|
|
1026 \expandafter\mkt@imakeeauthor\@eauthor\and\@nil\and}
|
|
|
1027 \def\mkt@imakeeauthor#1\and#2\and{\def\@tempa{#2}\ifx\@tempa\@nnil
|
|
|
1028 #1\@makefnmark\let\next\relax
|
|
|
1029 \else
|
|
|
1030 \def\@tempb{#1}\def\next{\mkt@iimakeeauthor#2\and}%
|
|
|
1031 \fi\next}
|
|
|
1032 \def\mkt@iimakeeauthor#1\and{\def\@tempa{#1}\ifx\@tempa\@nnil
|
|
|
1033 \@makefnmark\ {\rm{and}~}\gdef\affi@thefnmark{}\hbox{\@tempb}%
|
|
|
1034 \@makefnmark\let\next\relax
|
|
|
1035 \else
|
|
|
1036 \mkt@and\hbox{\@tempb}\let\mkt@and\mkt@andmid
|
|
|
1037 \let\next\mkt@iimakeeauthor
|
|
|
1038 \fi\def\@tempb{#1}\next}
|
|
|
1039 \def\mkt@andmid{,\@makefnmark\ \gdef\affi@thefnmark{}}
|
|
|
1040
|
|
|
1041 % Macros to specify author's affiliation easily.
|
|
|
1042 \newcounter{affi@footnote} \c@affi@footnote\z@
|
|
|
1043 \def\affilabel{\stepcounter{affi@footnote}\affi@deflabels\affi@affilabel}
|
|
|
1044 % 1.04(1a)
|
|
|
1045 \def\paffilabel{\affi@deflabels\affi@paffilabel}
|
|
|
1046 \def\affi@deflabels#1#2#3{{\def\protect{\noexpand\protect\noexpand}%
|
|
|
1047 \let\affi@affilabel\relax \let\affi@paffilabel\relax \let\\\relax
|
|
|
1048 \xdef\affi@labels{\affi@labels#1{#2}{#3}}}}
|
|
|
1049 \def\affi@labels{}
|
|
|
1050 \def\affi@affilabel{\begingroup
|
|
|
1051 \def\@mpfn{affi@footnote}\def\thempfn{\theaffi@footnote}%
|
|
|
1052 \def\affi@fnmark{\protect\@makefnmarkdagger}%
|
|
|
1053 \affi@label}
|
|
|
1054 \def\affi@paffilabel#1#2{\begingroup\PF@adjustfnote
|
|
|
1055 \def\affi@fnmark{\protect\@makefnmarkstar}%
|
|
|
1056 \def\protect{\noexpand\protect\noexpand}%
|
|
|
1057 \def\\{\noexpand\\Presently with \ignorespaces}%
|
|
|
1058 \edef\@tempa{\ifDS@english Presently with \else $B8=:_!$(B\fi#2}% 1.04(1d)
|
|
|
1059 \affi@label{#1}{\@tempa}}
|
|
|
1060 \def\affi@label#1#2{\stepcounter{\@mpfn}%
|
|
|
1061 \@ifundefined{affi@r@#1}%
|
|
|
1062 {\expandafter\xdef\csname affi@r@#1\endcsname{\thempfn}}
|
|
|
1063 {\ipsj@warning{Affiliation label `#1' multiply defined}}%
|
|
|
1064 % 2.00(3)
|
|
|
1065 \let\affi@footnotetext\relax\let\\\relax
|
|
|
1066 \def\protect{\noexpand\protect\noexpand}%
|
|
|
1067 \xdef\@thanks{\@thanks
|
|
|
1068 \affi@footnotetext{\thempfn}{\affi@fnmark}{#2}}\endgroup}
|
|
|
1069
|
|
|
1070 \def\affiref#1{\@ifundefined{affi@r@#1}%
|
|
|
1071 {\ipsj@warning{Affiliation reference `#1' undefined}% 2.00(3)
|
|
|
1072 \def\@tempa{?}}%
|
|
|
1073 {\def\@tempa{\csname affi@r@#1\endcsname}}%
|
|
|
1074 \ifx\affi@thefnmark\empty\xdef\affi@thefnmark{\@tempa}\else
|
|
|
1075 \xdef\affi@thefnmark{\affi@thefnmark,\hskip\z@\@tempa}\fi}
|
|
|
1076 \def\affi@footnotetext#1#2#3{{\def\@thefnmark{#1}\def\@makefnmarkforfn{#2}
|
|
|
1077 \@footnotetext{#3}}}
|
|
|
1078
|
|
|
1079 % 1.04(1b)>>
|
|
|
1080 \def\theaffi@footnote{\ifcase\c@affi@footnote\or
|
|
|
1081 {\dagger}\or {\dagger}{\dagger}\or {\dagger}{\dagger}{\dagger}\fi}
|
|
|
1082 % 1.04(1c)
|
|
|
1083 \def\theaffi@footnotemany{{\dagger}\number\c@affi@footnote}
|
|
|
1084 % 1.04(1b)<<
|
|
|
1085
|
|
|
1086 \def\thanks#1{\begingroup
|
|
|
1087 \def\@makefnmark{\smash{\hbox{\fn@fontvii$^{\@thefnmark}$}}}%
|
|
|
1088 \footnotemark
|
|
|
1089 \let\affi@footnotetext\relax\let\\\relax
|
|
|
1090 \def\protect{\noexpand\protect\noexpand}%
|
|
|
1091 \xdef\@thanks{\@thanks
|
|
|
1092 \affi@footnotetext{\thempfn}{\protect\@makefnmarkstar}{#1}}%
|
|
|
1093 \endgroup}
|
|
|
1094
|
|
|
1095 % \contact is necessary only for drafts.
|
|
|
1096 \long\def\contact#1{}
|
|
|
1097
|
|
|
1098
|
|
|
1099 %%%%%% Page Header and Footer %%%%%%
|
|
|
1100 %%%XXX
|
|
|
1101
|
|
|
1102 \mark{{}{}}
|
|
|
1103
|
|
|
1104 \newcounter{volpageoffset} % You must set this to appropriate value
|
|
|
1105 \setcounter{volpageoffset}{1} % for each issue!
|
|
|
1106
|
|
|
1107 % 2.00(16)>>
|
|
|
1108 \let\latex@document\document
|
|
|
1109 \def\document{\latex@document\global\c@page\c@volpageoffset}
|
|
|
1110 \let\c@volpage\c@page % for backward compatibility
|
|
|
1111 \def\thevolpage{\thepage} % for backward compatibility
|
|
|
1112 % 2.00(16)<<
|
|
|
1113
|
|
|
1114 \newcounter{volume}\expandafter\let\csname c@$B4,?t(B\endcsname\c@volume
|
|
|
1115 \newcounter{number}\expandafter\let\csname c@$B9f?t(B\endcsname\c@number
|
|
|
1116 \newcounter{year}\expandafter\let\csname c@$BG/?t(B\endcsname\c@year
|
|
|
1117
|
|
|
1118 %\def\@thevolno{Vol.~\arabic{$B4,?t(B}\hskip\@mojihaba No.~\arabic{$B9f?t(B}}
|
|
|
1119 \def\@thevolno{\hskip\@mojihaba}
|
|
|
1120 % 2.00(15)>>
|
|
|
1121 \def\@monthyear{\hskip\@mojihaba}
|
|
|
1122 %\def\@monthyear{\ifcase\value{$B9f?t(B}\or Jan.\or Feb.\or Mar.\or Apr.\or May\or
|
|
|
1123 % June\or July\or Aug.\or Sep.\or Oct.\or Nov.\or Dec.\else\fi
|
|
|
1124 % \hskip.5\@mojihaba \setcounter{$BG/?t(B}{1959}%
|
|
|
1125 % \addtocounter{$BG/?t(B}{\value{$B4,?t(B}}\arabic{$BG/?t(B}}
|
|
|
1126 % 2.00(15)<<
|
|
|
1127
|
|
|
1128 % 1.05(2)>>
|
|
|
1129 \ifDS@techrep
|
|
|
1130 \def\ps@headings{\let\@mkboth\markboth
|
|
|
1131 \def\@oddhead{\@checklines\hss}\let\@evenhead\@oddhead
|
|
|
1132 \def\@oddfoot{}\def\@evenfoot{}}
|
|
|
1133 \let\ps@myheadings\ps@headings
|
|
|
1134
|
|
|
1135 \else
|
|
|
1136 % 1.05(2)<<
|
|
|
1137 \def\ps@headings{\let\@mkboth\markboth
|
|
|
1138 \def\@oddfoot{}
|
|
|
1139 \def\@evenfoot{}
|
|
|
1140 \def\@evenhead{%\fs@header \@checklines
|
|
|
1141 %\hskip\@mojihaba\rlap{\thepage}\hss
|
|
|
1142 %\hdr@tipsj\hss\llap{\@monthyear}\hskip\@mojihaba
|
|
|
1143 }
|
|
|
1144 \def\@oddhead{%\fs@header \@checklines
|
|
|
1145 %\hskip\@mojihaba\rlap{\@thevolno}\hss
|
|
|
1146 %\smash{\@titlestring}\hss
|
|
|
1147 %\llap{\thepage}\hskip\@mojihaba
|
|
|
1148 }
|
|
|
1149 \def\sectionmark##1{}\def\subsectionmark##1{}}
|
|
|
1150
|
|
|
1151 \def\ps@myheadings{\let\@mkboth\@gobbletwo
|
|
|
1152 \def\@oddhead{%\fs@header \@checklines
|
|
|
1153 %\hskip\@mojihaba\rlap{\@thevolno}\hss
|
|
|
1154 %\hdr@tipsj\hss
|
|
|
1155 %\llap{\@monthyear}\hskip\@mojihaba
|
|
|
1156 }
|
|
|
1157 \def\@oddfoot{%\fs@footer\hfil\thepage\hfil
|
|
|
1158 }
|
|
|
1159 \let\@evenhead\@oddhead
|
|
|
1160 \let\@evenfoot\@oddfoot
|
|
|
1161 \def\sectionmark##1{}\def\subsectionmark##1{}}
|
|
|
1162 \fi % 1.05(2)
|
|
|
1163
|
|
|
1164 \ifDS@english
|
|
|
1165 \def\hdr@tipsj{%Transactions of Information Processing Society of Japan
|
|
|
1166 }%
|
|
|
1167 \else
|
|
|
1168 %\def\hdr@tipsj{$B>pJs=hM}3X2qO@J8;o(B}
|
|
|
1169 \def\hdr@tipsj{%$BAH9~$_%=%U%H%&%(%"%7%s%]%8%&%`(BESS04
|
|
|
1170 }%
|
|
|
1171 \fi
|
|
|
1172
|
|
|
1173 % \checklines enables to draw a horizontal rule onto each baselines.
|
|
|
1174
|
|
|
1175 \newif\if@checklines \@checklinesfalse
|
|
|
1176 \def\checklines{\@checklinestrue}
|
|
|
1177 \def\@checklines{\if@checklines \rlap{\smash{\vtop{\normalsize
|
|
|
1178 \hbox{} \vskip\headsep \hrule width\textwidth\vskip-.4pt \vskip\topskip
|
|
|
1179 \hrule\vskip-.4pt
|
|
|
1180 \ifDS@techrep\@tempcnta50\else % 1.05(2)
|
|
|
1181 \ifDS@english\@tempcnta53\else\@tempcnta45\fi\fi % 1.05(2)
|
|
|
1182 \relax\@@checklines}}}\fi
|
|
|
1183 \ifDS@english\@tempcnta-7\else\@tempcnta\z@\fi\relax
|
|
|
1184 % 1.05(2)>>
|
|
|
1185 \@tempswafalse
|
|
|
1186 \ifDS@printer \@tempswatrue \fi \ifDS@techrep \@tempswatrue \fi
|
|
|
1187 \if@tempswa \unitlength\@Q \begin{picture}(0,0)(0,\@tempcnta)
|
|
|
1188 \put(-61,63){\begin{picture}(0,0)
|
|
|
1189 \put(-10,0){\line(-1,0){30}}
|
|
|
1190 \put(0,10){\line(0,1){30}}\end{picture}}
|
|
|
1191 \put(667,63){\begin{picture}(0,0)
|
|
|
1192 \put(10,0){\line(1,0){30}}
|
|
|
1193 \put(0,10){\line(0,1){30}}\end{picture}}
|
|
|
1194 \put(-61,-965){\begin{picture}(0,0)
|
|
|
1195 \put(-10,0){\line(-1,0){30}}
|
|
|
1196 \put(0,-10){\line(0,-1){30}}
|
|
|
1197 \ifDS@techrep
|
|
|
1198 \put(0,-10){\makebox(728,0)[t]{\thepage}}\fi
|
|
|
1199 \end{picture}}
|
|
|
1200 % 1.05(2)<<
|
|
|
1201 \put(667,-965){\begin{picture}(0,0)
|
|
|
1202 \put(10,0){\line(1,0){30}}
|
|
|
1203 \put(0,-10){\line(0,-1){30}}\end{picture}}
|
|
|
1204 \end{picture}\fi}
|
|
|
1205 \def\@@checklines{\ifnum\@tempcnta>\z@
|
|
|
1206 \vskip\normalbaselineskip \hrule\vskip-.4pt \advance\@tempcnta\m@ne
|
|
|
1207 \let\next\@@checklines\else\let\next\relax\fi\next}
|
|
|
1208
|
|
|
1209 \pagestyle{headings}
|
|
|
1210 \pagenumbering{arabic}
|
|
|
1211
|
|
|
1212 \ifDS@english\else
|
|
|
1213 \def\today{\the\year $BG/(B \the\month $B7n(B \the\day $BF|(B}
|
|
|
1214 \fi
|
|
|
1215
|
|
|
1216
|
|
|
1217 %%%%%% Output Routine %%%%%%
|
|
|
1218
|
|
|
1219 % To balance the final page,
|
|
|
1220 % following code is borrowed from nicetwocolumn style
|
|
|
1221
|
|
|
1222 % you can refrain from balancing by falsifying following switch!
|
|
|
1223 %% Initial value of \if@lastpagebalancing is false. It may be turned true by
|
|
|
1224 %% biography processing macros. (H.N.)
|
|
|
1225
|
|
|
1226 \newif\if@lastpagebalancing \@lastpagebalancingfalse
|
|
|
1227 \newif\if@finalpageoutput \@finalpageoutputfalse
|
|
|
1228 % incorporate balanced output to \enddocument
|
|
|
1229 \let\latex@enddocument\enddocument
|
|
|
1230 \def\enddocument{\@finalpageoutputtrue
|
|
|
1231 \if@lastpagebalancing
|
|
|
1232 \global\let\@outputdblcol\opt@balanceoutputdblcol\fi
|
|
|
1233 \ifDS@preface
|
|
|
1234 \global\let\@outputdblcol\opt@balanceoutputdblcol\fi
|
|
|
1235 \latex@enddocument}
|
|
|
1236
|
|
|
1237 \newbox\@leftcolumnfootnote \newbox\@rightcolumnfootnote
|
|
|
1238 \newif\if@leftfootnoteexist \@leftfootnoteexistfalse
|
|
|
1239 \newif\if@rightfootnoteexist \@rightfootnoteexistfalse
|
|
|
1240 \newif\ifopt@floatexist \opt@floatexistfalse
|
|
|
1241
|
|
|
1242 % 2.00(12) \color@{begin/end}group ignored
|
|
|
1243 \def\enlargethispage{\ipsj@warning{\string\enlargepage is ignored}}
|
|
|
1244 % 2.00(3,12)
|
|
|
1245 \def\@makecol{\vbadness10000 \lineskiplimit\normallineskiplimit % 1.05(1)
|
|
|
1246 \setbox\@outputbox\box\@cclv
|
|
|
1247 \if@firstcolumn
|
|
|
1248 \ifvoid\footins \global\@leftfootnoteexistfalse
|
|
|
1249 \else
|
|
|
1250 \global\@leftfootnoteexisttrue
|
|
|
1251 \@tempdima\dp\footins
|
|
|
1252 \global\setbox\@leftcolumnfootnote\vbox{
|
|
|
1253 \unvbox\footins\vskip-\@tempdima}
|
|
|
1254 \fi
|
|
|
1255 \ifx\@botlist\@empty\else\global\opt@floatexisttrue\fi
|
|
|
1256 \else
|
|
|
1257 \ifvoid\footins \global\@rightfootnoteexistfalse
|
|
|
1258 \else
|
|
|
1259 \global\@rightfootnoteexisttrue
|
|
|
1260 \@tempdima\dp\footins
|
|
|
1261 \global\setbox\@rightcolumnfootnote\vbox{
|
|
|
1262 \unvbox\footins \vskip-\@tempdima}
|
|
|
1263 \ifx\@toplist\@empty\else\global\opt@floatexisttrue\fi
|
|
|
1264 \fi
|
|
|
1265 \fi
|
|
|
1266 \xdef\@freelist{\@freelist\@midlist}\gdef\@midlist{}\@combinefloats
|
|
|
1267 \global\maxdepth\@maxdepth}
|
|
|
1268
|
|
|
1269 % 2.01(1) >>
|
|
|
1270 \let\latex@vtryfc\@vtryfc
|
|
|
1271 \def\@vtryfc{\if@firstcolumn \global\@leftfootnoteexistfalse
|
|
|
1272 \else \global\@rightfootnoteexistfalse \fi \latex@vtryfc}
|
|
|
1273 % 2.01(1) <<
|
|
|
1274
|
|
|
1275 % 1.01(1,2) >>
|
|
|
1276 \let\latex@addtobot\@addtobot
|
|
|
1277 \def\@addtobot{\latex@addtobot\global\maxdepth\@maxdepth}
|
|
|
1278 \let\latex@combinefloats\@combinefloats
|
|
|
1279 \def\@combinefloats{\ifx\@botlist\@empty\else \dimen@\dp\@outputbox
|
|
|
1280 \setbox\@outputbox\vbox{\unvbox\@outputbox \vskip-\dimen@}\fi
|
|
|
1281 \latex@combinefloats}
|
|
|
1282 % 1.01(1,2) <<
|
|
|
1283
|
|
|
1284 \newskip\opt@baselineskip
|
|
|
1285 \def\@outputdblcol{
|
|
|
1286 \if@firstcolumn \global\@firstcolumnfalse
|
|
|
1287 \global\setbox\@leftcolumn\box\@outputbox
|
|
|
1288 \global\opt@baselineskip\baselineskip
|
|
|
1289 \else \global\@firstcolumntrue \global\opt@floatexistfalse
|
|
|
1290 \global\bib@adjustheight-\maxdimen
|
|
|
1291 \setbox\@leftcolumn\vbox to\@colht{\boxmaxdepth\@maxdepth % 1.01(3)
|
|
|
1292 \unvbox\@leftcolumn
|
|
|
1293 \if@leftfootnoteexist\vfil
|
|
|
1294 \message{<L>}
|
|
|
1295 \footnoterule\box\@leftcolumnfootnote\fi}
|
|
|
1296 \setbox\@outputbox\vbox to\@colht{\boxmaxdepth\@maxdepth % 1.01(3)
|
|
|
1297 \unvbox\@outputbox
|
|
|
1298 \if@rightfootnoteexist\vfil
|
|
|
1299 \message{<R>}
|
|
|
1300 \footnoterule\box\@rightcolumnfootnote\fi}
|
|
|
1301 \global\maxdepth\@maxdepth
|
|
|
1302 \if@finalpageoutput
|
|
|
1303 \if@leftfootnoteexist\else\if@rightfootnoteexist\else
|
|
|
1304 \setbox\@leftcolumn\vbox{\unvbox\@leftcolumn}%
|
|
|
1305 \setbox\@outputbox\vbox{\unvbox\@outputbox}
|
|
|
1306 \ifdim\ht\@leftcolumn<\ht\@outputbox
|
|
|
1307 \setbox\@leftcolumn\vbox to\ht\@outputbox{
|
|
|
1308 \unvbox\@leftcolumn}%
|
|
|
1309 \else
|
|
|
1310 \setbox\@outputbox\vbox to\ht\@leftcolumn{
|
|
|
1311 \unvbox\@outputbox}%
|
|
|
1312 \fi
|
|
|
1313 \fi\fi\fi
|
|
|
1314 \setbox\@outputbox\vbox{\hbox to\textwidth{\hbox to\columnwidth
|
|
|
1315 {\box\@leftcolumn \hss}\hfil \vrule width\columnseprule\hfil
|
|
|
1316 \hbox to\columnwidth{\box\@outputbox \hss}}}
|
|
|
1317 \@combinedblfloats
|
|
|
1318 \@outputpage \begingroup \@dblfloatplacement \@startdblcolumn
|
|
|
1319 \@whilesw\if@fcolmade \fi{\@outputpage\@startdblcolumn}%
|
|
|
1320 \endgroup
|
|
|
1321 \fi}
|
|
|
1322
|
|
|
1323 \let\opt@outputdblcol\@outputdblcol
|
|
|
1324 \chardef\opt@boxa\z@
|
|
|
1325 \chardef\opt@boxb\@ne
|
|
|
1326 \chardef\opt@boxc\tw@
|
|
|
1327 \def\opt@magicpenalty{1234}
|
|
|
1328 \def\opt@balanceoutputdblcol{\let\next\opt@ibalanceoutputdblcol
|
|
|
1329 \if@firstcolumn \let\next\opt@outputdblcol
|
|
|
1330 \else \ifopt@floatexist \opt@warning \let\next\opt@outputdblcol
|
|
|
1331 \else\ifx\@deferlist\@empty\else
|
|
|
1332 \opt@warning \let\next\opt@outputdblcol\fi\fi\fi
|
|
|
1333 \next}
|
|
|
1334 \def\opt@ibalanceoutputdblcol{%
|
|
|
1335 \setbox\@leftcolumn\vbox{\unvbox\@leftcolumn
|
|
|
1336 \ifnum\lastpenalty=\opt@magicpenalty\relax\else
|
|
|
1337 \@tempcnta10\relax\@whilenum\@tempcnta>0\do{%
|
|
|
1338 \unskip\unskip\unkern\unpenalty
|
|
|
1339 \advance\@tempcnta\m@ne}\fi}
|
|
|
1340 \advance\opt@baselineskip-\dp\@leftcolumn
|
|
|
1341 \ifdim\dp\@leftcolumn=\z@ \ifdim\opt@baselineskip=\baselineskip
|
|
|
1342 \@tempdima\ht\@leftcolumn \advance\@tempdima-\topskip
|
|
|
1343 \divide\@tempdima\baselineskip
|
|
|
1344 \@tempcnta\@tempdima \@tempdima\@tempcnta\baselineskip
|
|
|
1345 \advance\@tempdima\topskip
|
|
|
1346 \advance\@tempdima-\ht\@leftcolumn
|
|
|
1347 \advance\opt@baselineskip\@tempdima \fi\fi
|
|
|
1348 \advance\opt@baselineskip-\topskip
|
|
|
1349 \setbox\@outputbox\vbox{\unvbox\@outputbox}
|
|
|
1350 \ifdim\ht\@outputbox=\topskip \ifdim\dp\@outputbox=\z@
|
|
|
1351 \setbox\opt@boxa\vbox{\unvcopy\@outputbox\unskip
|
|
|
1352 \global\setbox\opt@boxb\lastbox
|
|
|
1353 \global\dimen@\lastskip}
|
|
|
1354 \ifvoid\opt@boxb\else\ifdim\ht\opt@boxb=\z@
|
|
|
1355 \ifdim\dp\opt@boxb=\z@\ifdim\dimen@=\topskip
|
|
|
1356 \@firstcolumntrue\fi\fi\fi\fi\fi\fi
|
|
|
1357 \setbox\opt@boxa\copy\@outputbox
|
|
|
1358 \setbox\@outputbox\vbox{\unvcopy\@leftcolumn
|
|
|
1359 \if@firstcolumn\else
|
|
|
1360 \vskip\opt@baselineskip
|
|
|
1361 \penalty\interlinepenalty\unvbox\@outputbox\fi}
|
|
|
1362 \@tempdima\ht\@outputbox \advance\@tempdima\topskip
|
|
|
1363 \divide\@tempdima\tw@ \advance\@tempdima100sp
|
|
|
1364 \splittopskip\topskip \splitmaxdepth\@maxdepth
|
|
|
1365 \ifdim\bib@adjustheight<\@M pt
|
|
|
1366 \opt@split\@outputbox\opt@boxb\@tempdima
|
|
|
1367 \ifdim\ht\opt@boxb<\bib@adjustheight
|
|
|
1368 \opt@split\@leftcolumn\opt@boxc\bib@adjustheight
|
|
|
1369 \opt@split\opt@boxc\opt@boxb\@tempdima
|
|
|
1370 \if@firstcolumn
|
|
|
1371 \opt@adjust\opt@boxc{\unvbox\@leftcolumn}
|
|
|
1372 \else\opt@adjust\opt@boxc{\ifvoid\@leftcolumn\else
|
|
|
1373 \unvbox\@leftcolumn\vskip\opt@baselineskip\fi
|
|
|
1374 \unvbox\opt@boxa}\fi\fi
|
|
|
1375 \else
|
|
|
1376 \advance\bib@adjustheight-\@M pt
|
|
|
1377 \opt@split\opt@boxa\opt@boxc\bib@adjustheight
|
|
|
1378 \setbox\@outputbox\vbox{\unvbox\@leftcolumn
|
|
|
1379 \vskip\opt@baselineskip\unvbox\opt@boxc}
|
|
|
1380 \opt@split\@outputbox\opt@boxb\@tempdima
|
|
|
1381 \opt@adjust\@outputbox{\unvbox\opt@boxa}
|
|
|
1382 \fi
|
|
|
1383 \if@leftfootnoteexist
|
|
|
1384 \setbox\opt@boxb\vbox to\@colht{\box\opt@boxb\vfill
|
|
|
1385 \footnoterule\box\@leftcolumnfootnote}\fi
|
|
|
1386 \if@rightfootnoteexist
|
|
|
1387 \setbox\@outputbox\vbox to\@colht{\box\@outputbox\vfill
|
|
|
1388 \footnoterule\box\@rightcolumnfootnote}\fi
|
|
|
1389 \ifdim\ht\@outputbox>\ht\opt@boxb
|
|
|
1390 \setbox\opt@boxb\vbox to\ht\@outputbox{\unvbox\opt@boxb}
|
|
|
1391 \else
|
|
|
1392 \setbox\@outputbox\vbox to\ht\opt@boxb{\unvbox\@outputbox}
|
|
|
1393 \fi
|
|
|
1394 \setbox\@outputbox\vbox{\hbox to\textwidth{\hbox to\columnwidth
|
|
|
1395 {\box\opt@boxb \hss}\hfil \vrule width\columnseprule\hfil
|
|
|
1396 \hbox to\columnwidth{\box\@outputbox \hss}}}
|
|
|
1397 \global\@firstcolumntrue \@combinedblfloats
|
|
|
1398 \@outputpage \begingroup \@dblfloatplacement \@startdblcolumn
|
|
|
1399 \@whilesw\if@fcolmade \fi{\@outputpage\@startdblcolumn}\endgroup}
|
|
|
1400
|
|
|
1401 \if@LaTeX@eN % 2.00(3)>>
|
|
|
1402 \def\opt@warning{\ClassWarning{ipsjpapers}{%
|
|
|
1403 Single column floats still remain on biography\MessageBreak
|
|
|
1404 processing.\MessageBreak
|
|
|
1405 Do \string\verbbiography\space for manual balcing}}
|
|
|
1406 \else
|
|
|
1407 \def\opt@warning{\@warning{Single column floats still remain on biography
|
|
|
1408 processing.^^J\space\space\space\space\space
|
|
|
1409 \space\space\space\space\space\space\space\space\space\space
|
|
|
1410 Do \string\verbbiography\space for manual balancing}}
|
|
|
1411 \fi % 2.00(3)<<
|
|
|
1412 \def\opt@split#1#2#3{\setbox#2\vsplit#1to#3\setbox#2\vbox{\unvbox#2}}
|
|
|
1413 \def\opt@adjust#1#2{\@tempdima\ht#1 \advance\@tempdima-\topskip
|
|
|
1414 \@tempdimb\@tempdima \divide\@tempdima\baselineskip
|
|
|
1415 \@tempcnta\@tempdima \@tempdima\@tempcnta\baselineskip
|
|
|
1416 \advance\@tempdima-\@tempdimb
|
|
|
1417 \ifdim\@tempdima<\z@ \advance\@tempdima\baselineskip \fi
|
|
|
1418 \advance\@tempdima\baselineskip \advance\@tempdima-\dp#1
|
|
|
1419 \advance\@tempdima-\topskip
|
|
|
1420 \setbox\@outputbox\vbox{\ifvoid#1\else\unvbox#1\vskip\@tempdima\fi#2}}
|
|
|
1421
|
|
|
1422 \let\latex@outputpage\@outputpage
|
|
|
1423 % \opt@finalgap: vertical space above the \hrule at the end of paper.
|
|
|
1424 % \opt@finallinewidth: width of the \hrule at the end of paper.
|
|
|
1425 \@tempdima2\baselineskip % This might be changed
|
|
|
1426 \edef\opt@finalgap{\the\@tempdima}
|
|
|
1427 \def\opt@finallinewidth{220\@Q} % This might be changed
|
|
|
1428 \ifDS@techrep \let\opt@finallinewidth\z@ \fi % 1.05(2)
|
|
|
1429
|
|
|
1430 \def\@outputpage{\if@finalpageoutput
|
|
|
1431 \setbox\@outputbox\vbox{\unvbox\@outputbox}
|
|
|
1432 \@tempdima\dp\@outputbox
|
|
|
1433 \@tempdimb\ht\@outputbox \advance\@tempdimb\opt@finalgap\relax
|
|
|
1434 \ifdim\@tempdimb>\textheight\else
|
|
|
1435 \setbox\@outputbox\vbox{\unvbox\@outputbox\vskip-\@tempdima
|
|
|
1436 \nointerlineskip\vbox to\z@{\vskip\opt@finalgap
|
|
|
1437 \hbox to\textwidth{\hss
|
|
|
1438 \vrule height0.4pt width\opt@finallinewidth\hss}
|
|
|
1439 \vss}}\fi\fi
|
|
|
1440 \ifASCII\if@LaTeX@e \@@topmargin\topmargin \fi\fi % 2.00(13)
|
|
|
1441 \latex@outputpage}
|
|
|
1442
|
|
|
1443 %%%%%% Biography %%%%%%
|
|
|
1444
|
|
|
1445 % If you want to control the allocation of biographies manually, do
|
|
|
1446 % \verbbiography and insert \adjust{<vertical materials>} just before
|
|
|
1447 % \member (or its relatives). For example;
|
|
|
1448 % \verbbiography
|
|
|
1449 % \begin{biography}
|
|
|
1450 % \member{...} ...
|
|
|
1451 % \adjust{\protect\newpage}
|
|
|
1452 % \member{...} ...
|
|
|
1453 % \adjust{\protect\vspace{1.3cm}}
|
|
|
1454 % \member{...} ...
|
|
|
1455 % \end{biography}
|
|
|
1456 % will make page break just after the biography of the 1st author, and will
|
|
|
1457 % insert a vertical space of 1.3cm just after that of the 2nd. It is
|
|
|
1458 % strongly recommended to \protect any control sequence in the argument of
|
|
|
1459 % \adjust.
|
|
|
1460
|
|
|
1461 % \$B<uIU(B and \$B:NO?(B define the dates of receipt/acceptance. They are put at
|
|
|
1462 % the end of manuscript (just before biographies) by ra@putrcvacc.
|
|
|
1463 \def\ra@nengo{$BJ?@.(B} %% Change here when ...
|
|
|
1464 \ifDS@english
|
|
|
1465 \def\$B<uIU(B#1#2#3{\def\ra@received{\ra@date{#1}{#2}{#3}}\ignorespaces}
|
|
|
1466 \def\$B:NO?(B#1#2#3{\def\ra@accepted{\ra@date{#1}{#2}{#3}}\ignorespaces}
|
|
|
1467 \def\ra@received{??? ??, ????}
|
|
|
1468 \def\ra@accepted{??? ??, ????}
|
|
|
1469 \else
|
|
|
1470 \def\$B<uIU(B#1#2#3{\def\ra@received{#1&}\ignorespaces}
|
|
|
1471 \def\$B:NO?(B#1#2#3{\def\ra@accepted{#1&}\ignorespaces}
|
|
|
1472 \def\ra@received{?&?&?&}
|
|
|
1473 \def\ra@accepted{?&?&?&}
|
|
|
1474 \fi
|
|
|
1475 \let\received\$B<uIU(B
|
|
|
1476 \let\accepted\$B:NO?(B
|
|
|
1477
|
|
|
1478 \def\ra@putrcvacc{\rightline{\vtop{\normalsize\tabskip\z@
|
|
|
1479 \ifDS@english
|
|
|
1480 \llap{(Received \ra@received)}\llap{(Accepted \ra@accepted)}\hbox{}
|
|
|
1481 \else
|
|
|
1482 \halign{(\ra@nengo\hskip\jasciikanjiskip
|
|
|
1483 \hfil##\hfil\hskip\jasciikanjiskip $BG/(B\hskip\jasciikanjiskip&
|
|
|
1484 \hfil##\hfil\hskip\jasciikanjiskip $B7n(B\hskip\jasciikanjiskip&
|
|
|
1485 \hfil##\hfil\hskip\jasciikanjiskip $BF|(B&##\hfil)\cr
|
|
|
1486 \ra@received $B<uIU(B\cr\ra@accepted $B:NO?(B\cr\multispan3\cr}\fi}
|
|
|
1487 \hskip\@mojihaba}
|
|
|
1488 \nobreak\vskip-2\baselineskip\prevdepth\z@\hbox{}\vskip\baselineskip
|
|
|
1489 \penalty\opt@magicpenalty}
|
|
|
1490 \def\ra@date#1#2#3{\ifcase#2\or
|
|
|
1491 January\or February\or March\or April\or May\or June\or
|
|
|
1492 July\or August\or September\or October\or November\or December\fi
|
|
|
1493 \space#3, #1}
|
|
|
1494
|
|
|
1495 \newbox\bio@picbox
|
|
|
1496 % The following define the height and width of a picture for biography, and
|
|
|
1497 % the indentation of the first 6 lines. They might be changed.
|
|
|
1498 \def\bio@picheight{100\@Q}
|
|
|
1499 \def\bio@picwidth{80\@Q}
|
|
|
1500
|
|
|
1501 \newif\ifbio@showpicbox
|
|
|
1502 \bio@showpicboxtrue
|
|
|
1503 % Do \bio@showpicboxfalse if you don't want to put a frame box at the
|
|
|
1504 % position for picture.
|
|
|
1505 \ifDS@english
|
|
|
1506 \def\bio@lineheight{9\@Q}
|
|
|
1507 \def\bio@piclines{7}
|
|
|
1508 \def\bio@indent{91\@Q}
|
|
|
1509 \def\bio@hangafter{7}
|
|
|
1510 \else
|
|
|
1511 \def\bio@lineheight{8\@Q}
|
|
|
1512 \def\bio@piclines{6}
|
|
|
1513 \def\bio@indent{96\@Q}
|
|
|
1514 \def\bio@hangafter{5}
|
|
|
1515 \fi
|
|
|
1516
|
|
|
1517 % \verbbiography forces verbatim output of biography (i.e. not ballanced).
|
|
|
1518 \newif\ifbio@verb \bio@verbfalse
|
|
|
1519 \def\verbbiography{\global\bio@verbtrue}
|
|
|
1520 % The environment biography saves texts for biographies into the list of
|
|
|
1521 % \inserts (for floats).
|
|
|
1522 \def\biography{\par\ra@putrcvacc
|
|
|
1523 \def\member{\bio@member{$B!J@52q0w!K(B}}\def\nomember{\bio@member{}}
|
|
|
1524 \def\stmember{\bio@member{$B!J3X@82q0w!K(B}}\let\adjust\bio@adjust
|
|
|
1525 \ifbio@showpicbox
|
|
|
1526 \setbox\bio@picbox\hbox{\hbox to\z@{\vrule\hskip-0.4pt%
|
|
|
1527 \vtop to\bio@picheight{\vskip\z@\hrule width\bio@picwidth
|
|
|
1528 \vfil\hrule}\hskip-0.4pt\vrule\hss}}
|
|
|
1529 \else
|
|
|
1530 \setbox\bio@picbox\hbox{}
|
|
|
1531 \fi
|
|
|
1532 \@tempdima\bio@piclines\baselineskip \advance\@tempdima\bio@lineheight
|
|
|
1533 \dp\bio@picbox\@tempdima
|
|
|
1534 \let\bio@egroup\relax\let\+\ignorespaces\let\@elt\relax
|
|
|
1535 \def\bio@list{}\global\bio@th\z@}
|
|
|
1536
|
|
|
1537 \def\bio@member#1#2{\bio@egroup\let\bio@egroup\bio@@egroup
|
|
|
1538 \@next\@currbox\@freelist\relax
|
|
|
1539 {\@latexerr{Too many unprocessed floats and biographies}\@ehb}%
|
|
|
1540 \def\@tempa{#2}%
|
|
|
1541 \global\setbox\@currbox\hbox\bgroup
|
|
|
1542 \raise\bio@lineheight\copy\bio@picbox
|
|
|
1543 \vtop\bgroup
|
|
|
1544 \let\par\\
|
|
|
1545 \hangindent\bio@indent\hangafter-\bio@hangafter
|
|
|
1546 \ifDS@english {\bf #2\ }%
|
|
|
1547 \else {\bf\bio@putauthor#2\+ \@nil}#1{\@@par}\fi\ignorespaces}
|
|
|
1548
|
|
|
1549 % Author name format:
|
|
|
1550 % S + G < 5 -> fill space between S/G (like SS__G)
|
|
|
1551 % otherwise -> 1 KC space between S/G (like SS_GG)
|
|
|
1552 \def\bio@putauthor#1 #2\@nil{%
|
|
|
1553 \setbox\@tempboxa\hbox{\jintercharskip\z@#1#2}%
|
|
|
1554 \setbox\mkt@boxa\hbox{\jintercharskip1cm#1#2}%
|
|
|
1555 \ifdim\wd\@tempboxa=\wd\mkt@boxa #1 #2\else
|
|
|
1556 \def\@tempa{#2}\ifx\@tempa\empty
|
|
|
1557 {\def\+{}\ipsj@warning{Author name #1 doesn't have a space}}%
|
|
|
1558 % 2.00(3)
|
|
|
1559 #1\else
|
|
|
1560 \@tempdima\@mojihaba
|
|
|
1561 \mkt@getnamewidth\mkt@sname{#1}\mkt@getnamewidth\mkt@gname{#2}%
|
|
|
1562 \advance\mkt@sname\mkt@gname
|
|
|
1563 \ifnum\mkt@sname<5\leavevmode\hbox to5\@mojihaba{#1\hfil#2}\else
|
|
|
1564 #1#2\fi\fi\fi}
|
|
|
1565 \def\bio@@egroup{\@@par\hbox{}\egroup\egroup\@tempdima\dp\@currbox
|
|
|
1566 \ifdim\@tempdima>\textheight
|
|
|
1567 \ipsj@warning{Biography of \@tempa\space is too long}% 2.00(3)
|
|
|
1568 \bio@verbtrue \fi
|
|
|
1569 \advance\@tempdima\baselineskip\global\advance\bio@th\@tempdima
|
|
|
1570 \global\dimen\@currbox\@tempdima \global\count\@currbox\z@
|
|
|
1571 {\let\protect\bio@protect\xdef\bio@list{\bio@list\@elt\@currbox}}}
|
|
|
1572 \def\bio@adjust#1{\bio@egroup\let\bio@egroup\relax
|
|
|
1573 \ifbio@verb {\let\protect\bio@protect\xdef\bio@list{\bio@list#1}\fi}}
|
|
|
1574 \def\bio@protect{\noexpand\protect\noexpand}
|
|
|
1575
|
|
|
1576 \def\endbiography{\bio@egroup \@tempswatrue
|
|
|
1577 \ifx\@botlist\@empty\ifx\@deferlist\@empty \@tempswafalse \fi\fi
|
|
|
1578 \ifbio@verb\else\if@tempswa \bio@verbtrue \opt@warning\fi\fi
|
|
|
1579 \ifbio@verb{\let\@elt\bio@putelt \let\protect\relax \bio@list}%
|
|
|
1580 \else\bio@putbio\fi}
|
|
|
1581
|
|
|
1582 \newdimen\bio@colht \newdimen\bio@splitheight
|
|
|
1583 \newdimen\bio@maxgap \newdimen\bio@lastgap
|
|
|
1584 \newdimen\bio@th \newdimen\bio@lhA \newdimen\bio@hA \newdimen\bio@hB
|
|
|
1585 \newdimen\bio@lh \newdimen\bio@rh
|
|
|
1586 \newdimen\bio@tempdim
|
|
|
1587 \newif\ifbio@awful
|
|
|
1588 \newinsert\bio@pbox \count\bio@pbox\@ne
|
|
|
1589
|
|
|
1590 \def\bio@putbio{\let\@elt\relax \let\bio@vskip\relax \allowbreak
|
|
|
1591 \bio@colht\@colht \advance\bio@colht-\topskip
|
|
|
1592 \advance\bio@colht\baselineskip
|
|
|
1593 \@tempdima\bio@colht \advance\@tempdima-\@colroom
|
|
|
1594 \advance\@tempdima\pagetotal
|
|
|
1595 \if@firstcolumn
|
|
|
1596 \ifdim\@tempdima>\bio@th
|
|
|
1597 \global\@lastpagebalancingtrue
|
|
|
1598 {\let\@elt\bio@putelt\bio@list}\vskip-\baselineskip
|
|
|
1599 \else
|
|
|
1600 \ifdim\pagetotal=\z@\else
|
|
|
1601 \dimen\bio@pbox\@tempdima \advance\bio@th\@tempdima
|
|
|
1602 \edef\bio@list{\@elt\bio@pbox\bio@list}\fi
|
|
|
1603 \bio@splitheight\bio@colht \bio@splitpage
|
|
|
1604 \bio@splitheight.5\bio@th
|
|
|
1605 \let\bio@awfulput\bio@specialawfulput
|
|
|
1606 \bio@trybalance\fi
|
|
|
1607 \else \advance\@tempdima\bio@th
|
|
|
1608 \ifdim\@tempdima<\bio@colht
|
|
|
1609 \global\@lastpagebalancingtrue
|
|
|
1610 \ifdim\pagetotal=\z@ \global\opt@baselineskip2\baselineskip\fi
|
|
|
1611 {\let\@elt\bio@putelt\bio@list}\vskip-\baselineskip
|
|
|
1612 \else
|
|
|
1613 \let\bio@awfulput\bio@normalawfulput
|
|
|
1614 \bio@splitheight\z@ \advance\@tempdima-\bio@th
|
|
|
1615 \advance\bio@colht-\@tempdima \bio@splitpage
|
|
|
1616 {\let\@elt\bio@putelt\bio@list}\bio@nextpage
|
|
|
1617 \bio@trybalance\fi
|
|
|
1618 \fi}
|
|
|
1619
|
|
|
1620 \def\bio@trybalance{\bio@split
|
|
|
1621 \let\bio@right\bio@rightA \let\bio@left\bio@leftA
|
|
|
1622 \def\bio@rightx{}\def\bio@leftx{}%
|
|
|
1623 \let\bio@hX\bio@hA \bio@balance
|
|
|
1624 \let\bio@rightxA\bio@rightx \let\bio@leftxA\bio@leftx
|
|
|
1625 \ifbio@awful\@tempcnta\tw@\else\@tempcnta\z@\fi
|
|
|
1626 \let\bio@right\bio@rightB \let\bio@left\bio@leftB
|
|
|
1627 \def\bio@rightx{}\def\bio@leftx{}%
|
|
|
1628 \let\bio@hX\bio@hB \bio@balance
|
|
|
1629 \let\bio@rightxB\bio@rightx \let\bio@leftxB\bio@leftx
|
|
|
1630 \ifbio@awful\advance\@tempcnta\@ne\fi
|
|
|
1631 \ifcase\@tempcnta
|
|
|
1632 \ifdim\bio@hA<\bio@hB \bio@balanceput\bio@leftxA\bio@rightxA
|
|
|
1633 \else \bio@balanceput\bio@leftxB\bio@rightxB\fi
|
|
|
1634 \or \bio@balanceput\bio@leftxA\bio@rightxA
|
|
|
1635 \or \bio@balanceput\bio@leftxB\bio@rightxB
|
|
|
1636 \else \bio@awfulput\fi
|
|
|
1637 \ifx\bio@deferred\empty\vskip-\baselineskip\let\next\relax
|
|
|
1638 \else\bio@nextpage\let\next\bio@trybalance\fi\next}
|
|
|
1639
|
|
|
1640 \def\bio@split{\def\bio@leftA{}\def\bio@leftB{}%
|
|
|
1641 \def\bio@rightA{}\def\bio@rightB{}%
|
|
|
1642 \bio@lhA\z@\@tempdimb\z@ \bio@isplit}
|
|
|
1643 \def\bio@isplit{\ifx\bio@list\empty\let\next\relax\else
|
|
|
1644 \bio@car\@tempdima\@currbox\bio@list
|
|
|
1645 \bio@lhA\@tempdimb\advance\@tempdimb\@tempdima
|
|
|
1646 \edef\bio@leftB{\bio@leftB\@elt\@currbox}%
|
|
|
1647 \ifdim\@tempdimb>\bio@splitheight
|
|
|
1648 \edef\bio@rightA{\@elt\@currbox\bio@list}%
|
|
|
1649 \let\bio@rightB\bio@list \let\next\relax
|
|
|
1650 \else\edef\bio@leftA{\bio@leftA\@elt\@currbox}\let\next\bio@isplit
|
|
|
1651 \fi\fi\next}
|
|
|
1652
|
|
|
1653 \def\bio@balanceput#1#2{{\let\@elt\bio@putelt\let\bio@vskip\bio@xvskip
|
|
|
1654 #1\bio@newpage#2}}
|
|
|
1655 \def\bio@normalawfulput{{\let\bio@vskip\@gobble \@tempcnta\z@
|
|
|
1656 \@tempdima\z@ \bio@addheight\@tempdima\bio@leftxB
|
|
|
1657 \ifdim\@tempdima<\bio@colht
|
|
|
1658 \@tempdima\z@ \bio@addheight\@tempdima\bio@rightxB
|
|
|
1659 \ifdim\@tempdima<\bio@colht \@tempcnta\@ne
|
|
|
1660 \let\@elt\bio@putelt
|
|
|
1661 \bio@leftxB\bio@newpage\bio@rightxB\fi\fi
|
|
|
1662 \ifnum\@tempcnta=\z@
|
|
|
1663 \@tempdima\z@ \bio@addheight\@tempdima\bio@leftxA
|
|
|
1664 \ifdim\@tempdima<\bio@colht
|
|
|
1665 \@tempdima\z@\bio@addheight\@tempdima\bio@rightxA
|
|
|
1666 \ifdim\@tempdima<\bio@colht \@tempcnta\@ne
|
|
|
1667 \let\@elt\bio@putelt
|
|
|
1668 \bio@leftxA\bio@newpage\bio@rightxA\fi\fi\fi
|
|
|
1669 % The following may be redundant.
|
|
|
1670 \ifnum\@tempcnta=\z@
|
|
|
1671 \let\@elt\bio@putelt\bio@listsave\fi}}
|
|
|
1672 \def\bio@specialawfulput{{\advance\bio@th-\dimen\bio@pbox
|
|
|
1673 \ifdim\bio@th<\bio@colht\bio@newpage
|
|
|
1674 \let\bio@newpage\relax\fi\bio@normalawfulput}}
|
|
|
1675
|
|
|
1676 \def\bio@putelt#1{\ifnum\count#1>\z@\else\box#1
|
|
|
1677 \nobreak\vskip-2\baselineskip\prevdepth\z@\hbox{}
|
|
|
1678 \vskip\baselineskip\fi}
|
|
|
1679 \def\bio@xvskip#1{\vskip#1\prevdepth\z@}
|
|
|
1680 \def\bio@newpage{\vskip-\baselineskip\newpage}
|
|
|
1681
|
|
|
1682 \def\bio@nextpage{\bio@newpage \let\bio@list\bio@deferred
|
|
|
1683 \bio@th\z@ \bio@addheight\bio@th\bio@list
|
|
|
1684 \bio@colht\@colht \advance\bio@colht-\topskip
|
|
|
1685 \advance\bio@colht\baselineskip
|
|
|
1686 \bio@splitheight\bio@colht \bio@splitpage
|
|
|
1687 \bio@splitheight.5\bio@th
|
|
|
1688 \let\bio@awfulput\bio@normalawfulput}
|
|
|
1689 \def\bio@splitpage{\let\bio@listsave\bio@list \bio@split
|
|
|
1690 \@tempdima\bio@th \advance\@tempdima-\bio@lhA
|
|
|
1691 \ifdim\@tempdima>\bio@colht
|
|
|
1692 \let\bio@leftAsave\bio@leftA \bio@th\bio@lhA
|
|
|
1693 \let\bio@list\bio@rightA \bio@splitheight\bio@colht
|
|
|
1694 \bio@split \edef\bio@list{\bio@leftAsave\bio@leftA}%
|
|
|
1695 \advance\bio@th\bio@lhA
|
|
|
1696 \let\bio@deferred\bio@rightA
|
|
|
1697 \else\def\bio@deferred{}\let\bio@list\bio@listsave\fi}
|
|
|
1698
|
|
|
1699 % \bio@tolerablegap: maximum tolerable gap between adjacent bio's.
|
|
|
1700 % \bio@tolerablestretch:maximum stretch of a column.
|
|
|
1701
|
|
|
1702 \@tempdima10\baselineskip % This might be changed
|
|
|
1703 \edef\bio@tolerablegap{\the\@tempdima}
|
|
|
1704 \@tempdima15\baselineskip
|
|
|
1705 \edef\bio@tolerablelastgap{\the\@tempdima}
|
|
|
1706 \def\bio@tolerablestretch{2} % This might be changed
|
|
|
1707
|
|
|
1708 \def\bio@balance{\let\@elt\relax \edef\bio@bstack{%
|
|
|
1709 \@elt{{\bio@left}{\bio@right}{}{}{0pt}}}
|
|
|
1710 \bio@xbalance}
|
|
|
1711 \def\bio@xbalance{%
|
|
|
1712 \expandafter\bio@popstack\bio@bstack\@nil
|
|
|
1713 \let\bio@nextA\bio@xbalance \@tempdima\z@
|
|
|
1714 \ifx\bio@left\empty \ifx\bio@right\empty
|
|
|
1715 \let\bio@nextA\bio@balanceend
|
|
|
1716 \else
|
|
|
1717 \bio@addheight\@tempdima\bio@right
|
|
|
1718 \edef\bio@leftx{\bio@leftx\bio@vskip{\the\@tempdima}}%
|
|
|
1719 \advance\bio@hX\@tempdima
|
|
|
1720 \edef\bio@rightx{\bio@rightx\bio@right}\def\bio@right{}%
|
|
|
1721 \bio@pushstack \fi\else
|
|
|
1722 \ifx\bio@right\empty
|
|
|
1723 \bio@addheight\@tempdima\bio@left
|
|
|
1724 \edef\bio@rightx{\bio@rightx\bio@vskip{\the\@tempdima}}%
|
|
|
1725 \advance\bio@hX\@tempdima
|
|
|
1726 \edef\bio@leftx{\bio@leftx\bio@left}\def\bio@left{}%
|
|
|
1727 \bio@pushstack \else
|
|
|
1728 \bio@car\@tempdima\bio@leftbox\bio@left
|
|
|
1729 \bio@car\@tempdimb\bio@rightbox\bio@right
|
|
|
1730 \edef\bio@leftx{\bio@leftx\@elt\bio@leftbox}%
|
|
|
1731 \edef\bio@rightx{\bio@rightx\@elt\bio@rightbox}%
|
|
|
1732 \ifdim\@tempdima>\@tempdimb
|
|
|
1733 \advance\bio@hX\@tempdima
|
|
|
1734 \let\bio@da\@tempdima\let\bio@db\@tempdimb
|
|
|
1735 \bio@ibalance\bio@left\bio@right\bio@leftx\bio@rightx
|
|
|
1736 \else \advance\bio@hX\@tempdimb
|
|
|
1737 \let\bio@da\@tempdimb\let\bio@db\@tempdima
|
|
|
1738 \bio@ibalance\bio@right\bio@left\bio@rightx\bio@leftx\fi
|
|
|
1739 \fi\fi\bio@nextA}
|
|
|
1740 \def\bio@ibalance#1#2#3#4{\let\bio@nextB\relax
|
|
|
1741 \ifx#2\empty
|
|
|
1742 \advance\bio@da-\bio@db
|
|
|
1743 \edef#4{#4\bio@vskip{\the\bio@da}}\bio@pushstack\else
|
|
|
1744 \bio@car\bio@tempdim\@currbox#2 \advance\bio@db\bio@tempdim
|
|
|
1745 \ifdim\bio@da<\bio@db
|
|
|
1746 \advance\bio@db-\bio@da
|
|
|
1747 \let\@tempa#3\edef#3{#3\bio@vskip{\the\bio@db}}%
|
|
|
1748 \let\@tempb#4\edef#4{#4\@elt\@currbox}%
|
|
|
1749 \advance\bio@hX\bio@db \bio@pushstack
|
|
|
1750 \advance\bio@hX-\bio@db
|
|
|
1751 \edef#2{\@elt\@currbox#2}%
|
|
|
1752 \advance\bio@tempdim-\bio@db
|
|
|
1753 \let#3\@tempa \edef#4{\@tempb\bio@vskip{\the\bio@tempdim}}%
|
|
|
1754 \bio@pushstack
|
|
|
1755 \else \edef#4{#4\@elt\@currbox}\def\bio@nextB{\bio@ibalance#1#2#3#4}%
|
|
|
1756 \fi\fi\bio@nextB}
|
|
|
1757 \def\bio@balanceend{\bio@awfulfalse \def\bio@bstack{}%
|
|
|
1758 \bio@maxgap\z@ \bio@lastgap\z@
|
|
|
1759 \bio@checkgap\bio@leftx \bio@checkgap\bio@rightx
|
|
|
1760 \ifdim\bio@maxgap>\bio@tolerablegap\relax\bio@awfultrue\fi
|
|
|
1761 \ifdim\bio@lastgap>\bio@tolerablelastgap\relax\bio@awfultrue\fi
|
|
|
1762 \ifdim\bio@hX>\bio@tolerablestretch\bio@splitheight\bio@awfultrue\fi
|
|
|
1763 \ifdim\bio@hX>\bio@colht\bio@awfultrue\fi}
|
|
|
1764 \def\bio@checkgap#1{{\@tempdima\z@ \@tempdimb\z@ \bio@tempdim\z@
|
|
|
1765 \let\@elt\bio@cgelt \let\bio@vskip\bio@cgvskip #1\relax
|
|
|
1766 \ifdim\@tempdima>\bio@maxgap \global\bio@maxgap\@tempdima \fi
|
|
|
1767 \ifdim\bio@tempdim>\bio@lastgap \global\bio@lastgap\bio@tempdim \fi}}
|
|
|
1768 \def\bio@cgvskip#1{\advance\bio@tempdim#1\relax
|
|
|
1769 \ifdim\bio@tempdim>\@tempdimb \@tempdimb\bio@tempdim\fi}
|
|
|
1770 \def\bio@cgelt#1{\@tempdima\@tempdimb \bio@tempdim\z@}
|
|
|
1771 \def\bio@popstack\@elt#1#2\@nil{\edef\bio@bstack{#2}\bio@ipopstack#1}
|
|
|
1772 \def\bio@ipopstack#1#2#3#4#5{\def\bio@left{#1}\def\bio@right{#2}%
|
|
|
1773 \def\bio@leftx{#3}\def\bio@rightx{#4}\bio@hX#5\relax}
|
|
|
1774 \def\bio@pushstack{\def\bio@bstackx{}%
|
|
|
1775 \expandafter\bio@ipushstack\bio@bstack\@elt\@nil}
|
|
|
1776 \def\bio@ipushstack\@elt#1{\def\@tempc{#1}%
|
|
|
1777 \ifx\@tempc\@nnil \edef\bio@bstack{\bio@bstackx\bio@stackelt}%
|
|
|
1778 \let\bio@nextC\relax \else
|
|
|
1779 \bio@iipushstack#1\fi\bio@nextC}
|
|
|
1780 \def\bio@iipushstack#1#2#3#4#5{\ifdim#5>\bio@hX
|
|
|
1781 \edef\bio@bstackx{\bio@bstackx\bio@stackelt
|
|
|
1782 \@elt{{#1}{#2}{#3}{#4}{#5}}}%
|
|
|
1783 \let\bio@nextC\bio@pushstackend\else
|
|
|
1784 \edef\bio@bstackx{\bio@bstackx
|
|
|
1785 \@elt{{#1}{#2}{#3}{#4}{#5}}}%
|
|
|
1786 \let\bio@nextC\bio@ipushstack\fi}
|
|
|
1787 \def\bio@pushstackend#1\@elt\@nil{\edef\bio@bstack{\bio@bstackx#1}}
|
|
|
1788 \def\bio@stackelt{\@elt{{\bio@left}{\bio@right}{\bio@leftx}{\bio@rightx}%
|
|
|
1789 {\the\bio@hX}}}
|
|
|
1790 \def\bio@addheight#1#2{\def\@elt##1{\advance#1\dimen##1}#2\let\@elt\relax}
|
|
|
1791 \def\bio@car#1#2#3{\expandafter\bio@icar#3\@nil#1#2#3}
|
|
|
1792 \def\bio@icar\@elt#1#2\@nil#3#4#5{#3=\dimen#1\relax\def#4{#1}\def#5{#2}}
|
|
|
1793
|
|
|
1794
|
|
|
1795 %%%%%% Miscellaneous %%%%%%
|
|
|
1796
|
|
|
1797 \flushbottom
|
|
|
1798
|
|
|
1799 \ifDS@english
|
|
|
1800 \hbadness9999 \tolerance9999
|
|
|
1801 \else
|
|
|
1802 \hbadness5000 \tolerance5000
|
|
|
1803 \pretolerance\m@ne
|
|
|
1804 \fi
|
|
|
1805
|
|
|
1806 \input{ipsjcommon.sty}
|
|
|
1807
|
|
|
1808 \twocolumn
|
|
|
1809
|
|
|
1810 \endinput
|
