Newsgroups: fj.comp.texhax
Path: galaxy.trc.rwcp.or.jp!coconuts.jaist!wnoc-tyo-news!news.u-tokyo.ac.jp!t-server!keisu3!keisu3!mura
From: mura@sat.t.u-tokyo.ac.jp (Noboru Murata)
Subject: Re: Q: macros for pTeX
In-Reply-To: mura@sat.t.u-tokyo.ac.jp's message of Tue, 5 Jul 1994 03:23:01 GMT
Message-ID: <MURA.94Jul7142512@elf.sat.t.u-tokyo.ac.jp>
Sender: news@keisu-s.t.u-tokyo.ac.jp
Nntp-Posting-Host: elf
Organization: Mathematical Engineering, Univ. of Tokyo, Japan
References: <MURA.94Jul5122301@elf.sat.t.u-tokyo.ac.jp>
Distribution: fj
Date: Thu, 7 Jul 1994 05:25:12 GMT
Lines: 181
Xref: galaxy.trc.rwcp.or.jp fj.comp.texhax:5032
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.comp.texhax&nb=5032&hd=a
X-reformat-date: Mon, 18 Oct 2004 15:18:22 +0900
X-reformat-comment: Tabs were expanded into 4 column tabstops by the Galaxy's archiver. See http://katsu.watanabe.name/ancientfj/galaxy-format.html for more info.


$B$`$i$?(B@$BElBg7W?t$H?=$7$^$9!#(B

In article <MURA.94Jul5122301@elf.sat.t.u-tokyo.ac.jp> 
mura@sat.t.u-tokyo.ac.jp (Noboru Murata) writes:

mura> $BD>$7$?$b$N$,I,MW$@$H$$$&MWK>$,B?$1$l$P8x3+$7$^$9!#(B

$B2??M$+$NJ}$+$iMW@A$,$"$C$?$N$G!"Ej9F$7$^$9!#(B
$BJQ99$O0J2<$NDL$j$G$9!#(B

$B!&(B minipage $B4D6-$G(B c $B$r;XDj$9$k$H%U%)%s%H$,$:$l$kIT6q9g$r=$@5$7$?!#(B
$B!&(B parbox $B$G$bF1MM$J=$@5$r9T$J$C$?!#(B

$B!t$3$l$O(B vcenter $B$,(B direction $B$,(B tate $B$G$"$k$K$b$+$+$o$i$:(B
$B!t2#=qMQ$N4A;z%U%)%s%H$rJB$Y$k$?$a$G$7$?!#(Bbug $B$H;W$C$F$$$^$7$?$,!"(B
$B!tJ?>>$5$s$N5-;v(B <KAKU.94Jul5185656@black03.educ.info.kanagawa-u.ac.jp> 
$B!t$K$h$l$P!"$3$l$O$I$&$d$i;EMM$N$h$&$G$9!#$G$b2#=q%U%)%s%H$r=D$K$J$i$Y$k(B
$B!t$H$$$&@_7W;WA[$O$h$/$o$+$j$^$;$s!#(B

$B!&(B \strut $B$d(B tabular $B$G$N(B format p $B$,;H$($J$$$H$+$NIT6q9g$r=$@5$7$?!#(B

$B!t$3$l$O(B startpbox $BFb$N(B vcenter $B$^$o$j$N=$@5$H(B \strut $B$N:FDj5A$G(B
$B!t2sHr$7$F$"$j$^$9!#(B

$B0J>eD>$7$?$D$b$j$G$9$,!"IT6q9g$,$"$C$?$i;d$^$G%a!<%k$r2<$5$$!#(B
$B0J2<$O0JA0N.$7$?$b$N$N$&$A(B tjarticle.sty $B$N$_$N=$@5$G$9!#(B

---
% tjarticle.sty 7 Jul 94
\typeout{Document Style `tjarticle' including tjlfonts2.tex and jarticle.sty}

\input tjlfonts2.tex\relax
\input jarticle.sty\relax



% MODIFY citations % original definitions in latex.tex
\def\@cite#1#2{\iftdir\$BO"?t;z(B{[{#1\if@tempswa , #2\fi}]}%
  \else[{#1\if@tempswa , #2\fi}]\fi}
\def\@biblabel#1{\iftdir[\$BO"?t;z(B{#1}]\else[#1]\fi\hfill}

% MODIFY bibliography % original definitions in jarticle.sty
\def\abstract{\if@twocolumn
\section*{$B35(B $BMW(B}
\else \small 
\begin{center}
{\bf $B35(B $BMW(B\vspace{-.5em}\vspace{0pt}} 
\end{center}
\quotation 
\fi}
\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
 {\iftdir\$BO"?t;z(B{[\arabic{enumi}]}\else[\arabic{enumi}]\fi}
 {\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

% MODIFY section numbers % original definitions in jarticle.sty
\def\thesubsection {\thesection\iftdir\$BO"?t;z(B{.}\else . \fi%
  \arabic{subsection}}
\def\thesubsubsection {\thesubsection\iftdir\$BO"?t;z(B{.}\else . \fi%
  \arabic{subsubsection}}
\def\theparagraph {\thesubsubsection\iftdir\$BO"?t;z(B{.}\else . \fi%
  \arabic{paragraph}}
\def\thesubparagraph {\theparagraph\iftdir\$BO"?t;z(B{.}\else . \fi%
  \arabic{subparagraph}}

% MODIFY minipage environment % original definitions in latex.tex
% Maybe the vcenter primitive has some BUGS.
\def\@iminipage[#1]#2{\leavevmode \@pboxswfalse
   \if #1b\vbox 
     \else \if #1t\vtop 
              \else \ifmmode \vcenter
                        \else \@pboxswtrue $\vcenter
                     \fi
           \fi
    \fi\bgroup\iftdir\tate\fi % added by mura@sat.t.u-tokyo.ac.jp
    \hsize #2\textwidth\hsize \columnwidth\hsize
    \@parboxrestore 
    \def\@mpfn{mpfootnote}\def\thempfn{\thempfootnote}\c@mpfootnote\z@
    \let\@footnotetext\@mpfootnotetext
    \let\@listdepth\@mplistdepth \@mplistdepth\z@
    \@minipagerestore\global\@minipagetrue %% \global added 24 May 89
    \everypar{\global\@minipagefalse\everypar{}}}

% MODIFY parbox environment % original definitions in latex.tex
% Maybe the vcenter primitive has some BUGS.
\long\def\@iparbox[#1]#2#3{\leavevmode \@pboxswfalse
   \if #1b\vbox 
     \else \if #1t\vtop 
              \else \ifmmode \vcenter 
                        \else \@pboxswtrue $\vcf #1t\vtop 
              \else \ifmmode \vcenter 
                        \else \@pboxswtrue $\vcenter
                     \fi
           \fi
    \fi{\iftdir\tate\fi% added by mura@sat.t.u-tokyo.ac.jp
      \hsize #2\@parboxrestore #3}\if@pboxsw $\fi}

% MODIFY array environment for tabular % original definitions in latex.tex
% Maybe the vcenter primitive has some BUGS.
\def\@array[#1]#2{\setbox\@arstrutbox=\hbox{\vrule 
     height\arraystretch \ht\strutbox
     depth\arraystretch \dp\strutbox
     width\z@}\@mkpream{#2}\edef\@preamble{\halign \noexpand\@halignto
\bgroup \tabskip\z@ \@arstrut \@preamble \tabskip\z@ \cr}%
\let\@startpbox\@@startpbox \let\@endpbox\@@endpbox
  \if #1t\vtop \else \if#1b\vbox \else \vcenter \fi\fi
  \bgroup\iftdir\tate\fi
  \let\par\relax
  \let\@sharp##\let\protect\relax \lineskip\z@\baselineskip\z@\@preamble}

% DEFINITION of tate strutbox and REDEFINITION of strut
\newbox\tstrutbox
{\tate\setbox\tstrutbox=\hbox{\vrule height8.5pt depth3.5pt width\z@}}
\def\strut{\relax\iftdir\unhcopy\tstrutbox\else
  \ifmmode\copy\strutbox\else\unhcopy\strutbox\fi\fi}



% In the following, the output routine is modified.
% TOUCH CAREFULLY!
\def\document{\endgroup
  \@tempdima\textheight \textheight\textwidth %% 10 Jun 92
  \textwidth\@tempdima %% 10 Jun 92
  \@colht\textheight  \@colroom\textheight \vsize\textheight
   \columnwidth\textwidth \@clubpenalty\clubpenalty
   \if@twocolumn \advance\columnwidth -\columnsep 
      \divide\columnwidth\tw@ \hsize\columnwidth \@firstcolumntrue 
   \fi
  \hsize\columnwidth \linewidth\hsize
  \begingroup\@floatplacement\@dblfloatplacement
   \makeatletter\let\@writefile\@gobbletwo
   \@input{\jobname.aux}\endgroup 
  \if@filesw \immediate\openout\@mainaux=\jobname.aux
    \immediate\write\@mainaux{\relax}\fi
  \def\do##1{\let ##1\@notprerr}%
  \@preamblecmds
  \let\do\noexpand  
  \@normalsize\everypar{}\tate\tm} %% 10 Jun 92

\def\@outputpage{\begingroup\catcode`\ =10 
     \let\-\@dischyph \let\'\@acci \let\`\@accii \let\=\@acciii
    \if@specialpage 
     \global\@specialpagefalse\@nameuse{ps@\@specialstyle}\fi
     \if@twoside 
       \ifodd\count\z@ \let\@thehead\@oddhead \let\@thefoot\@oddfoot
            \let\@themargin\oddsidemargin
          \else \let\@thehead\@evenhead
          \let\@thefoot\@evenfoot \let\@themargin\evensidemargin
     \fi\fi
     \shipout
     \vbox{\yoko %% 10 Jun 92
        \@tempdima\textheight \textheight\textwidth %% 10 Jun 92
        \textwidth\@tempdima %% 10 Jun 92
           \normalsize \baselineskip\z@ \lineskip\z@ 
           \let\par\@@par %% 15 Sep 87
           \vskip \topmargin \moveright\@themargin
           \vbox{\setbox\@tempboxa
                   \vbox to\headheight{\vfil \hbox to\textwidth
                                       {\let\label\@gobble \let\index\@gobble
                                         \@thehead}} %% 22 Feb 87
                 \dp\@tempboxa\z@
                 \box\@tempboxa
                 \vskip \headsep
                 \box\@outputbox
                 \baselineskip\footskip
                 \hbox to\textwidth{\let\label\@gobble 
                           \let\index\@gobble  %% 22 Feb 87
                           \@thefoot}}}\global\@colht\textheight
           \endgroup\stepcounter{page}\let\firstmark\botmark}

% end of tjarticle.sty

--
"(;_;) (;_;)"
