Re: 罫線付の文書を出力したい。

名前: しっぽ愛好家
日時: 2003-04-07 16:14:36
IPアドレス: 211.4.118.*

>>18029
以前に話題になった，``段落の解体'' の話を用いたものですね．
一方，\vsplit を用いる場合は，次のような感じでしょうか．
%%% これは，あまりチューンアップしていません．

\long\def\addrules#1#2{%
   \begingroup
   \dimen0=#1\relax
   \setbox0\vbox{%
      \advance\dimen0 by-1zw \hsize\dimen0
      #2}%
   \dimen2=\baselineskip
   \vbadness=10000 \vfuzz=\maxdimen \offinterlineskip
   \addrulesloop
   \endgroup}
\def\addrulesloop{%
   \ifvoid0\relax \else
      \setbox2=\vsplit0 to 0pt
      \setbox2=\vbox{\unvbox2}%
      \vbox{%
         \hrule
         \hbox to\dimen0{%
            \vrule\kern-.4pt\kern.5zw
            \dimen4=\ht2 \advance\dimen4 by 3pt
            \ifdim\dimen4<.7\dimen2 \dimen4=.7\dimen2 \fi
            \dimen6=\dp2 \advance\dimen6 by 3pt
            \ifdim\dimen6<.3\dimen2 \dimen6=.3\dimen2 \fi
            \vrule width0pt height\dimen4 depth\dimen6
            \box2 \hss
            \kern.5zw\kern-.4pt\vrule}%
         \hrule}%
      \expandafter\addrulesloop
   \fi}

この書き込みへの返事：