Re: 縦組の \author 漢字が縦にならない (Re: Japanese パッケージの問題）

名前: トノ
日時: 2006-09-27 01:06:37
IPアドレス: 125.3.125.*

>>45087

array.sty と plext.sty の併用については、某所で拝見したコードを、私が
こちらの掲示板に転載していた旨、同所でご指摘いただきました。

それをさらに改良するコードも同所で示されていましたので、
マージしたものをこちらに記させていただきます。
※  問題を単純化するために、文書クラス jarticle で \tate を使った場合を
    出力例としていますが、#45054 のソースに応用した場合も
    大丈夫なようです。

なお、転載元の所在についてご質問いただいてもお答えできませんので
ご承知おきください。
※  某掲示板で私の書込みがもとになって危うい展開になっておりまして‥‥
    ああいう書き方をするんじゃなかったと悔やむことしきりです。


\documentclass{jarticle}\relax
\usepackage{plext}\relax
\usepackage{array}\relax

\makeatletter
\def\@startpbox#1{%
   \bgroup
      \box@dir\adjustbaseline%%% これを追加
      \setlength\hsize{#1}\@arrayparboxrestore
      \everypar{%
         \vrule \@height \ht\@arstrutbox \@width \z@
         \everypar{}}}
\def\@tabarray{\@ifnextchar<\p@tabarray{\p@tabarray<Z>}}
\def\p@tabarray<#1>{%
   \m@th
   \@ifnextchar[{\p@array<#1>}{\p@array<#1>[c]}}
\def\p@array<#1>[#2]#3{%
   \@tempdima \ht\strutbox
   \advance \@tempdima \extrarowheight
   \@tempdimb \ht\zstrutbox
   \advance \@tempdimb \extrarowheight
   \@tempdimc \ht\tstrutbox
   \advance \@tempdimc \extrarowheight
   \setbox\@arstrutbox\hbox{%
      \iftdir
         \if #1y\relax\yoko
            \vrule\@height\arraystretch\@tempdima
                   \@depth\arraystretch\dp\strutbox \@width\z@
         \else\if #1z\relax\@rotswtrue
             \vrule\@height\arraystretch\@tempdimb
                   \@depth\arraystretch\dp\zstrutbox \@width\z@
         \else
             \vrule\@height\arraystretch\@tempdimc
                   \@depth\arraystretch\dp\tstrutbox \@width\z@
         \fi\fi
      \else
         \if #1t\relax
            \hbox{\tate
               \vrule\@height\arraystretch\@tempdimc
                     \@depth\arraystretch\dp\tstrutbox \@width\z@}%
         \else
             \vrule\@height\arraystretch\@tempdima
                   \@depth\arraystretch\dp\strutbox \@width\z@
         \fi
      \fi}%
   \fork@array@option<#1>[#2]%
   \begingroup
   \@mkpream{#3}%
   \xdef\@preamble{\ialign \noexpand\@halignto
      \bgroup \tabskip\z@skip \@arstrut \@preamble \tabskip\z@skip \cr}%
   \endgroup
   \let\\\@arraycr
   \let\tabularnewline\\%
   \let\par\@empty
   \@begin@alignbox\bgroup\box@dir\adjustbaseline
      \let\par\@empty
      \let\@sharp##\let\protect\relax
      \lineskip\z@skip\baselineskip\z@skip\@preamble}
\def\endarray{\crcr\egroup\egroup\@end@alignbox}
\def\endtabular{\crcr\egroup\egroup\@end@alignbox $\egroup}
\expandafter \let \csname endtabular*\endcsname = \endtabular
\makeatother

\begin{document}
\tate

あいうえお
\begin{tabular}{lp{6zw}m{6zw}b{6zw}}
    かきくけこ  &   さしすせそたちつてと
                        &   なにぬねのはひふへほ
                                &   まみむめもやゆよ
\end{tabular}

いろはにほへとちりぬるをわかよたれそつねならむ
うゐのおくやまけふこえてあさきゆめみしゑひもせすん
\end{document}

この書き込みへの返事：