%
\ProvidesPackage{ERD}[2009/06/26 $Id$ for pLaTeX]
\typeout{$Id$}

\AtBeginDvi{\special{pdf:tounicode EUC-UCS2}}
%\AtBeginDvi{\special{pdf:tounicode 90ms-RKSJ-UCS2}}

\definecolor{gray}{rgb}{.3,.3,.3}
\definecolor{format}{rgb}{.2,.7,.0}
\def\BLACK#1{\textcolor{black}{#1}}

\def\@RBOX#1[#2]#3{%
\@tempdima=#1\relax%
\setbox\@tempboxa=\hbox{#3}%
\ifdim\wd\@tempboxa<\@tempdima%
	\makebox[#1][#2]{\usebox{\@tempboxa}}%
\else%
	\resizebox{\@tempdima}{\height}{\usebox{\@tempboxa}}%
\fi%
}
\def\RBOX#1{\@ifnextchar[{\@RBOX{#1}}{\@RBOX{#1}[c]}}

\def\@RVBOX#1#2[#3]#4{%
\@tempdima=#1\relax%
\setbox\@tempboxa=\hbox{#4}%
\@tempdimb=\ht\@tempboxa\relax\advance\@tempdimb1mm\relax\ht\@tempboxa=\@tempdimb\relax%
\@tempdimb=\dp\@tempboxa\relax\advance\@tempdimb1mm\relax\dp\@tempboxa=\@tempdimb\relax%
\@tempdimb=\ht\@tempboxa\relax\advance\@tempdimb\dp\@tempboxa\relax%
\ifdim\wd\@tempboxa<\@tempdima%
	\ifdim\@tempdimb<#2%
		\makebox[#1][#3]{\usebox{\@tempboxa}}%
	\else%
		\resizebox*{\width}{#2}{\usebox{\@tempboxa}}%
	\fi%
\else%
	\ifdim\@tempdimb<#2%
		\resizebox{\@tempdima}{\height}{\usebox{\@tempboxa}}%
	\else%
		\resizebox*{\@tempdima}{#2}{\usebox{\@tempboxa}}%
	\fi%
\fi%
}
\def\RVBOX#1#2{\@ifnextchar[{\@RVBOX{#1}{#2}}{\@RVBOX{#1}{#2}[c]}}

\def\@RBOXP#1[#2]#3#4{%
\@tempdima=#1\relax%
\setbox\@tempboxa=\hbox{\parbox{#3}{#4}}%
\@tempdimb=\ht\@tempboxa\relax\advance\@tempdimb1mm\relax\ht\@tempboxa=\@tempdimb\relax%
\@tempdimb=\dp\@tempboxa\relax\advance\@tempdimb1mm\relax\dp\@tempboxa=\@tempdimb\relax%
\ifdim\wd\@tempboxa<\@tempdima%
	\makebox[#1][#2]{\usebox{\@tempboxa}}%
\else%
	\resizebox{\@tempdima}{\height}{\usebox{\@tempboxa}}%
\fi%
}
\def\RBOXP#1{\@ifnextchar[{\@RBOXP{#1}}{\@RBOXP{#1}[c]}}

\def\@RVBOXP#1#2[#3]#4#5{%
\@tempdima=#1\relax%
\setbox\@tempboxa=\hbox{\parbox{#4}{#5}}%
\@tempdimb=\ht\@tempboxa\relax\advance\@tempdimb1mm\relax\ht\@tempboxa=\@tempdimb\relax%
\@tempdimb=\dp\@tempboxa\relax\advance\@tempdimb1mm\relax\dp\@tempboxa=\@tempdimb\relax%
\@tempdimb=\ht\@tempboxa\relax\advance\@tempdimb\dp\@tempboxa\relax%
\ifdim\wd\@tempboxa<\@tempdima%
	\ifdim\@tempdimb<#2%
		\makebox[#1][#3]{\usebox{\@tempboxa}}%
	\else%
		\resizebox*{\width}{#2}{\usebox{\@tempboxa}}%
	\fi%
\else%
	\ifdim\@tempdimb<#2%
		\resizebox{\@tempdima}{\height}{\usebox{\@tempboxa}}%
	\else%
		\resizebox*{\@tempdima}{#2}{\usebox{\@tempboxa}}%
	\fi%
\fi%
}
\def\RVBOXP#1#2{\@ifnextchar[{\@RVBOXP{#1}{#2}}{\@RVBOXP{#1}{#2}[c]}}

\long\def\@RBOXTP#1[#2]#3#4{%
\@tempdima=#1\relax%
\setbox\@tempboxa=\hbox{\parbox[t]{#3}{#4}}%
\@tempdimb=\ht\@tempboxa\relax\advance\@tempdimb.5mm\relax\ht\@tempboxa=\@tempdimb\relax%
\@tempdimb=\dp\@tempboxa\relax\advance\@tempdimb.5mm\relax\dp\@tempboxa=\@tempdimb\relax%
\ifdim\wd\@tempboxa<\@tempdima%
	\makebox[#1][#2]{\usebox{\@tempboxa}}%
\else%
	\resizebox{\@tempdima}{\height}{\usebox{\@tempboxa}}%
\fi%
}
\long\def\RBOXTP#1{\@ifnextchar[{\@RBOXTP{#1}}{\@RBOXTP{#1}[c]}}

\def\@RVBOXTP#1#2[#3]#4#5{%
\@tempdima=#1\relax%
\setbox\@tempboxa=\hbox{\parbox[t]{#4}{#5}}%
\@tempdimb=\ht\@tempboxa\relax\advance\@tempdimb.5mm\relax\ht\@tempboxa=\@tempdimb\relax%
\@tempdimb=\dp\@tempboxa\relax\advance\@tempdimb.5mm\relax\dp\@tempboxa=\@tempdimb\relax%
\@tempdimb=\ht\@tempboxa\relax\advance\@tempdimb\dp\@tempboxa\relax%
\ifdim\wd\@tempboxa<\@tempdima%
	\ifdim\@tempdimb<#2%
		\makebox[#1][#3]{\usebox{\@tempboxa}}%
	\else%
		\resizebox*{\width}{#2}{\usebox{\@tempboxa}}%
	\fi%
\else%
	\ifdim\@tempdimb<#2%
		\resizebox{\@tempdima}{\height}{\usebox{\@tempboxa}}%
	\else%
		\resizebox*{\@tempdima}{#2}{\usebox{\@tempboxa}}%
	\fi%
\fi%
}
\def\RVBOXTP#1#2{\@ifnextchar[{\@RVBOXTP{#1}{#2}}{\@RVBOXTP{#1}{#2}[c]}}

\def\IfxEmpty#1#2#3{\def\XXX@XXX{#1}\ifx\XXX@XXX\@empty#2\else#3\fi}

\def\EdbRef#1#2{\href{https://web.db.tokushima-u.ac.jp/cgi-bin/edb_browse?EID=#1}{#2}}%
\def\EdbEMAIL#1#2{\href{mailto:#1}{#2}}%
%\def\EdbURL#1#2{\href{#1}{#2}}%
\let\EdbDate=\EdbDateYM@E

\def\EdbAlert#1{\RED{#1}}

\def\EMPHASIS#1{\RED{\bfseries#1}}
\def\○#1{{\ooalign{\hfill#1\hfill\crcr{◯}}}}

\def\COMMENT#1{}

\definecolor{w}{rgb}{1.0, 1.0, 1.0}
\def\WHITE#1{\textcolor{w}{#1}}

\definecolor{R}{rgb}{.8, .0, .0}
\def\RED#1{\textcolor{R}{#1}}
\definecolor{r}{rgb}{.4, .0, .0}
\def\red#1{\textcolor{r}{#1}}

\definecolor{O}{rgb}{.8, .6, .0}
\def\ORANGE#1{\textcolor{O}{#1}}
\definecolor{o}{rgb}{.4, .3, .0}
\def\orange#1{\textcolor{o}{#1}}

\definecolor{g}{rgb}{.0, .6, .0}
\def\GREEN#1{\textcolor{g}{#1}}
\definecolor{b}{rgb}{.0, .0, .6}
\def\BLUE#1{\textcolor{b}{#1}}
\definecolor{c}{rgb}{.3, .3, .8}
\def\CYAN#1{\textcolor{c}{#1}}
\definecolor{black}{rgb}{.0, .0, .0}
\def\BLACK#1{\textcolor{black}{#1}}
\definecolor{gray}{rgb}{.4, .4, .4}

\def\WebRefer[#1]#2#3{%
	\href{#2}{#3}%
	\def\@YYY{#1}%
	\ifx\@YYY\@empty
		\footnote{\sffamily#2}
	\else
		\footnote{\sffamily#1}
	\fi
}
\def\WebRef{\@ifnextchar[{\WebRefer}{\WebRefer[]}}

\def\EdbBrowseRefer[#1]#2{%
	[\href{https://web.db.tokushima-u.ac.jp/cgi-bin/edb_browse?#2}{EDB}]%
	\def\@YYY{#1}%
	\ifx\@YYY\@empty
		\footnote{\sffamily https://web.db.tokushima-u.ac.jp/cgi-bin/edb\_browse?#2}
	\else
		\footnote{\sffamily https://web.db.tokushima-u.ac.jp/cgi-bin/edb\_browse?#1}
	\fi
}
\def\EdbBrowseRef{\@ifnextchar[{\EdbBrowseRefer}{\EdbBrowseRefer[]}}

\def\EdbClientRefer[#1]#2{%
	[\href{https://web.db.tokushima-u.ac.jp/cgi-bin/edbclient?#2}{EdbClient}]%
	\def\@YYY{#1}%
	\ifx\@YYY\@empty
		\footnote{\sffamily https://web.db.tokushima-u.ac.jp/cgi-bin/edbclient?#2}
	\else
		\footnote{\sffamily https://web.db.tokushima-u.ac.jp/cgi-bin/edbclient?#1}
	\fi
}
\def\EdbClientRef{\@ifnextchar[{\EdbClientRefer}{\EdbClientRefer[]}}

\def\thefootnote{\arabic{footnote})}

\@addtoreset{chapter}{part}

\spaceskip.5ex plus1ex minus.2ex

\setcounter{tocdepth}{2}

\gdef\脚記{}

%  \def\ps@bothstyle{\let\ps@jpl@in\ps@footnombre
%    \def\@evenhead{\leftmark\hfil}% right page
%    \def\@evenhead{\hfil\rightmark}% right page
%    \def\@oddhead{\hfil\rightmark}% left page
%    \def\@evenfoot{{\footnotesize\脚記}\hfil\thepage}% right page
%    \def\@oddfoot{{\footnotesize\脚記}\hfil\thepage}% left page
%  \let\@mkboth\markboth
%\def\chaptermark##1{\markboth{%
%     \ifnum \c@secnumdepth >\m@ne
%         \if@mainmatter
%         \@chapapp\thechapter\@chappos\hskip1zw
%         \fi
%     \fi
%     ##1}{}}%
%  \def\sectionmark##1{\markright{%
%     \ifnum \c@secnumdepth >\z@ \thesection.\hskip1zw\fi
%     ##1}}%
%  }

\def\HZSp[#1]{\hskip0pt plus#1pt}
\def\HZS{\@ifnextchar[{\HZSp}{\hskip0pt}}
\def\EdbZSp{\HZSp[1]}

