% "tarticle" style file for tate gumi.
%
% Copyright (C) by 1993, ASCII Corporation & Impress Corporation.

\typeout{Document Style `tarticle' <24 Dec 93>.}

\def\@ptsize{0} \@namedef{ds@11pt}{\def\@ptsize{1}}
\@namedef{ds@12pt}{\def\@ptsize{2}} 
\def\ds@twoside{\@twosidetrue \@mparswitchtrue} \def\ds@draft{\overfullrule
5pt} 
\@options

\tate
\input tart1\@ptsize.sty\relax


\def\labelenumi{\theenumi} 
\def\theenumi{\Rensuji{\arabic{enumi}}}
\def\labelenumii{\theenumii}
\def\theenumii{\Rensuji{(\alph{enumii})}}
\def\p@enumii{\theenumi}
\def\labelenumiii{\theenumiii}
\def\theenumiii{\Rensuji{\roman{enumiii}}}
\def\p@enumiii{\theenumi(\theenumii)}
\def\labelenumiv{\theenumiv}
\def\theenumiv{\Rensuji{\Alph{enumiv}}}
\def\p@enumiv{\p@enumiii\theenumiii}

\def\labelitemi{$\bullet$}
\def\labelitemii{$\circ$}
\def\labelitemiii{$\ast$}
\def\labelitemiv{$\cdot$}

\def\enumerate{%
  \ifnum \@enumdepth >3\relax
    \@toodeep
  \else
    \advance\@enumdepth\@ne
    \ifnum\@enumdepth=\@ne  
      \vskip.5\normalbaselineskip
    \fi
    \edef\@enumctr{enum\romannumeral\the\@enumdepth}%
    \list{\csname label\@enumctr\endcsname}{%
      \topsep\z@
      \parskip\z@
      \itemsep\z@
      \parsep\z@
      \listparindent\z@
      \itemindent\listparindent
      \labelwidth1zw
      \labelsep\z@
      \ifnum\@enumdepth=\@ne
        \leftmargin1zw
      \else
        \leftmargin\leftskip
      \fi
      \advance\leftmargin by 1zw
      \usecounter{\@enumctr}
      \def\makelabel##1{\hss\llap{##1}}}
    \fi}

\let\endenumerate =\endlist

\def\itemize{%
  \ifnum \@itemdepth >3\relax
    \@toodeep
  \else
    \advance\@itemdepth\@ne
    \ifnum\@itemdepth=\@ne  
      \vskip.5\normalbaselineskip
    \fi
    \edef\@itemitem{%
      labelitem\romannumeral\the\@itemdepth}%
    \list{\csname\@itemitem\endcsname}{%
      \topsep\z@
      \parskip\z@
      \itemsep\z@
      \parsep\z@
      \listparindent\z@
      \itemindent\listparindent
      \labelwidth1zw
      \labelsep\z@
      \ifnum\@itemdepth=\@ne
        \leftmargin1zw
      \else
        \leftmargin\leftskip
      \fi
      \advance\leftmargin by 1zw
    \def\makelabel##1{\hss\llap{##1}}}
  \fi}

\let\enditemize=\endlist

\def\verse{\let\\=\@centercr 
 \list{}{\itemsep\z@ \itemindent -1.5em\listparindent \itemindent 
 \rightmargin\leftmargin\advance\leftmargin 1.5em}\item[]}
\let\endverse\endlist
\def\quotation{\list{}{\listparindent 1zw
 \itemindent\listparindent
 \rightmargin\leftmargin \parsep 0pt plus 1pt}\item[]}
\let\endquotation=\endlist
\def\quote{\list{}{\rightmargin\leftmargin}\item[]}
\let\endquote=\endlist

\def\descriptionlabel#1{\hspace\labelsep \bf #1}
\def\description{%
  \list{}{%
  \leftmargin=\leftskip
  \advance\leftmargin by 3\cwd
  \rightmargin=\rightskip
  \labelwidth\z@
  \labelsep=\cwd
  \itemindent-\leftmargin
  \listparindent\z@
  \topsep\z@
  \parskip\z@
  \partopsep\z@
  \itemsep\z@
  \let\makelabel\descriptionlabel}}

\let\enddescription\endlist


\def\theequation{\arabic{equation}}


\def\titlepage{\@restonecolfalse\if@twocolumn\@restonecoltrue\onecolumn
 \else \newpage \fi \thispagestyle{empty}\c@page\z@}
\def\endtitlepage{\if@restonecol\twocolumn \else \newpage \fi}

\arraycolsep 5pt \tabcolsep 6pt \arrayrulewidth .4pt \doublerulesep 2pt 
\tabbingsep \labelsep 

\skip\@mpfootins = \skip\footins
\fboxsep = 3pt \fboxrule = .4pt 

\newcounter{part}
\newcounter {section}
\newcounter {subsection}[section]
\newcounter {subsubsection}[subsection]
\newcounter {paragraph}[subsubsection]
\newcounter {subparagraph}[paragraph]

\def\thepart{\Rensuji{\Roman{part}}}
\def\thesection {\Rensuji{\arabic{section}}}
\def\thesubsection {\thesection$B!&(B\Rensuji{\arabic{subsection}}}
\def\thesubsubsection {\thesubsection$B!&(B\Rensuji{\arabic{subsubsection}}}
\def\theparagraph {\thesubsubsection$B!&(B\Rensuji{\arabic{paragraph}}}
\def\thesubparagraph {\theparagraph$B!&(B\Rensuji{\arabic{subparagraph}}}

\def\@pnumwidth{1.55em}
\def\@tocrmarg {2.55em}
\def\@dotsep{4.5}
\setcounter{tocdepth}{3}

\def\tableofcontents{\section*{$BL\(B $B<!(B\markboth{$BL\(B $B<!(B}{$BL\(B $B<!(B}}
 \@starttoc{toc}}
\def\l@part#1#2{%
  \addpenalty{\@secpenalty}\addvspace{2.25em plus 1pt}
  \begingroup
    \@tempdima3em\parindent\z@\rightskip\@pnumwidth\parfillskip-\@pnumwidth 
    {\large \bf \leavevmode #1\hfil #2}\par
  \nobreak\endgroup}

\def\l@section#1#2{%
  \addpenalty{\@secpenalty} \addvspace{1.0em plus 1pt}\@tempdima 1.5em
  \begingroup
    \parindent \z@ \rightskip \@pnumwidth 
    \parfillskip -\@pnumwidth 
    \bf\leavevmode\advance\leftskip\@tempdima
    % \hskip -\leftskip #1\nobreak\hfil\nobreak\hbox to\@pnumwidth{\hss #2}\par
    \hskip -\leftskip #1\nobreak\hfil\nobreak #2\par
 \endgroup}
\def\l@subsection{\@dottedtocline{2}{1zw}{4zw}}
\def\l@subsubsection{\@dottedtocline{3}{2zw}{6zw}}
\def\l@paragraph{\@dottedtocline{4}{3zw}{8zw}}
\def\l@subparagraph{\@dottedtocline{5}{4zw}{9zw}}

\def\l@figure{\@dottedtocline{1}{1zw}{2zw}}
\def\l@table{\@dottedtocline{1}{1zw}{2zw}}

\def\listoffigures{\section*{$B?^(B $BL\(B $B<!(B\markboth
 {$B?^(B $BL\(B $B<!(B}{$B?^(B $BL\(B $B<!(B}}\@starttoc{lof}}
\def\listoftables{\section*{$BI=(B $BL\(B $B<!(B\markboth
 {$BI=(B $BL\(B $B<!(B}{$BI=(B $BL\(B $B<!(B}}\@starttoc{lot}}


\def\thebibliography#1{\section*{$B;29MJ88%(B\markboth
 {$B;2(B $B9M(B $BJ8(B $B8%(B}{$B;2(B $B9M(B $BJ8(B $B8%(B}}\list
 {[\arabic{enumi}]}{\settowidth\labelwidth{[#1]}\leftmargin\labelwidth
 \advance\leftmargin\labelsep
 \usecounter{enumi}}
 \def\newblock{\hskip .11em plus .33em minus .07em}
 \sloppy
 \sfcode`\.=1000\relax}
\let\endthebibliography=\endlist
 

\newif\if@restonecol
\def\theindex{\@restonecoltrue\if@twocolumn\@restonecolfalse\fi
\columnseprule \z@
\columnsep 35pt\twocolumn[\section*{$B:w(B $B0z(B}]
 \markboth{$B:w(B $B0z(B}{$B:w(B $B0z(B}\thispagestyle{plain}\parindent\z@
 \parskip\z@ plus .3pt\relax\let\item\@idxitem}
\def\@idxitem{\par\hangindent 40pt}
\def\subitem{\par\hangindent 40pt \hspace*{20pt}}
\def\subsubitem{\par\hangindent 40pt \hspace*{30pt}}
\def\endtheindex{\if@restonecol\onecolumn\else\clearpage\fi}
\def\indexspace{\par \vskip 10pt plus 5pt minus 3pt\relax}

\def\footnoterule{\kern-3\p@ 
 \hrule width .4\columnwidth 
 \kern 2.6\p@} 

\long\def\@makefntext#1{\parindent 1em\noindent
  \hbox to 1.8em{\hss$
    \iftdir\raise.25zh\hbox{\@thefnmark}\else^{\@thefnmark}\fi $\hss}#1}


\setcounter{topnumber}{2}
\def\topfraction{.7}
\setcounter{bottomnumber}{1}
\def\bottomfraction{.3}
\setcounter{totalnumber}{3}
\def\textfraction{.2}
\def\floatpagefraction{.5}
\setcounter{dbltopnumber}{2}
\def\dbltopfraction{.7}
\def\dblfloatpagefraction{.5}

\long\def\@makecaption#1#2{
 \vskip 10pt 
 \setbox\@tempboxa\hbox{#1\hskip1\cwd #2}
 \ifdim \wd\@tempboxa >\hsize \unhbox\@tempboxa\par \else \hbox
to\hsize{\hfil\box\@tempboxa\hfil} 
 \fi}

\newcounter{figure}
\def\thefigure{\Rensuji{\@arabic\c@figure}}
\def\fps@figure{tbp}
\def\ftype@figure{1}
\def\ext@figure{lof}
\def\fnum@figure{$B?^(B\thefigure}
\def\figure{\@float{figure}}
\let\endfigure\end@float
\@namedef{figure*}{\@dblfloat{figure}}
\@namedef{endfigure*}{\end@dblfloat}
\newcounter{table}
\def\thetable{\Rensuji{\@arabic\c@table}}
\def\fps@table{tbp}
\def\ftype@table{2}
\def\ext@table{lot}
\def\fnum@table{$BI=(B\thetable}
\def\table{\@float{table}}
\let\endtable\end@float
\@namedef{table*}{\@dblfloat{table}}
\@namedef{endtable*}{\end@dblfloat}


\def\maketitle{\par
 \begingroup
 \def\thefootnote{\fnsymbol{footnote}}
 \def\@makefnmark{\hbox 
 to 0pt{$^{\@thefnmark}$\hss}} 
 \if@twocolumn 
 \twocolumn[\@maketitle] 
 \else \newpage
 \global\@topnum\z@ \@maketitle \fi\thispagestyle{plain}\@thanks
 \endgroup
 \setcounter{footnote}{0}
 \let\maketitle\relax
 \let\@maketitle\relax
 \gdef\@thanks{}\gdef\@author{}\gdef\@title{}\let\thanks\relax}
\def\@maketitle{\newpage
 \null
 \vskip 2em \begin{center}
 {\LARGE \@title \par} \vskip 1.5em {\large \lineskip .5em
\begin{tabular}[t]{c}\@author 
 \end{tabular}\par} 
 \vskip 1em {\large \@date} \end{center}
 \par
 \vskip 1.5em} 
\def\abstract{\if@twocolumn
\section*{Abstract}
\else \small 
\begin{center}
{\bf $B35MW(B\vspace{-.5em}\vspace{0pt}} 
\end{center}
\quotation 
\fi}
\def\endabstract{\if@twocolumn\else\endquotation\fi}

\mark{{}{}} 

\if@twoside
\def\ps@headings{%
  \def\@oddfoot{}\def\@evenfoot{}%
  \def\@evenhead{\hbox{}\sl\rightmark\hfil\rm\thepage}%
  \def\@oddhead{\rm\thepage\hfil\sl\leftmark}%
  \def\sectionmark##1{%
    \markboth{%
      \ifnum \c@secnumdepth >\z@%
        \arabic{section}\hskip1zw\relax \fi ##1}{}%
  }%
  \def\subsectionmark##1{%
    \markright{%
      \ifnum \c@secnumdepth >\@ne%
        \arabic{section}.\arabic{subsection}\hskip1zw\relax \fi ##1}%
  }%
}
\else
\def\ps@headings{%
  \def\@oddfoot{}\def\@evenfoot{}
  \def\@oddhead{\hbox{}\sl\rightmark\hfil\rm\thepage}%
  \def\sectionmark##1{%
    \markright{%
      \ifnum \c@secnumdepth >\z@
        \arabic{section}\hskip1zw\relax \fi ##1}}}
\fi

\def\ps@myheadings{%
  \def\@oddhead{\rm\thepage\hfil\sl\leftmark}
  \def\@oddfoot{}
  \def\@evenhead{\hbox{}\sl\rightmark\hfil\rm\thepage}
  \def\@evenfoot{}
  \def\sectionmark##1{}
  \def\subsectionmark##1{}}


\newif\if$B@>Nq(B\let\if$B@>Nq(B=\iffalse \def\$B@>Nq(B{\let\if$B@>Nq(B=\iftrue}
\newcount\ye@r

\def\today{%
  \if$B@>Nq(B
    \ye@r=\year
  \else%
    \ye@r=\year\advance\ye@r-1988 $BJ?@.(B
  \fi%
  \ifnum\ye@r=1 $B85(B\else\iftdir\Rensuji{\number\ye@r}\else\number\ye@r\fi\fi%
  \iftdir
    $BG/(B\Rensuji{\number\month}$B7n(B\Rensuji{\number\day}$BF|(B
  \else
    $BG/(B\number\month $B7n(B\number\day $BF|(B
  \fi}


\ps@plain \pagenumbering{arabic} \onecolumn \if@twoside\else\raggedbottom\fi 
\raggedbottom
\endinput
