Re: 飾り罫で文章を囲みたいのですが

名前: misc
日時: 2004-02-08 01:40:19
IPアドレス: 210.230.18.*

>>25753
\leaders の類を使って次のようなことを行うことくらいはどうにかなりますが，
（TeX はお絵かきソフトではないので）このくらいでやめておきましょう…

\documentclass{article}
\makeatletter
\newbox\@deco@text
\newbox\@deco@pattarn
\def\@decobox@sidemargin{1em}
\def\@decobox@vmargin{2.5ex}
\def\decobox{%
   \ifhmode \par \fi
   \setbox\@deco@pattarn\hbox{\usefont{U}{pzd}{m}{n}\char"64}%
   % \usefont{U}{pzd}{m}{n}\char"64 のところは適宜変更してください．
   \dimen@\hsize \advance\dimen@-2\wd\@deco@pattarn
   \@tempdima\@decobox@sidemargin\relax
   \advance\dimen@-2\@tempdima
   \setbox\@deco@text\vbox\bgroup
      \hsize\dimen@ \@parboxrestore}
\def\enddecobox{%
      \egroup
   \dimen@\ht\@deco@text \advance\dimen@\dp\@deco@text
   \@tempdima\@decobox@vmargin\relax
   \advance\dimen@2\@tempdima
   \setbox\z@\vbox to\dimen@{\xleaders\copy\@deco@pattarn\vfil}%
   \setbox\tw@\hbox to\wd\@deco@text{%
      \hskip-\@decobox@sidemargin\relax
      \xleaders\copy\@deco@pattarn\hfil
      \hskip-\@decobox@sidemargin\relax}%
   \setbox\@deco@text\hbox to\hsize{%
      \copy\z@ \hfil
      \vbox to\dimen@{\copy\tw@\vss \box\@deco@text \vss\box\tw@}%
      \hfil \box\z@}%
   \noindent \box\@deco@text}
\makeatother
\begin{document}
\begin{decobox}
   This is a meaningless short sample text.
   This is a meaningless short sample text.
   This is a meaningless short sample text.
   This is a meaningless short sample text.
\end{decobox}

\noindent
\begin{minipage}{.5\columnwidth}
\begin{decobox}
   This is a meaningless short sample text.
   This is a meaningless short sample text.
   This is a meaningless short sample text.
   This is a meaningless short sample text.
\end{decobox}
\end{minipage}
\end{document}

# 繰り返しパターンどうしの間に空白を入れてはいけない場合には…
# 繰り返しパターンを適当な個数だけ並べたものを（\scalebox などで）
# 作成したい枠のサイズになるように変形すればよいでしょう．

# 現実には“枠だけ画像にして取り込む”のが最も手っ取り早かったりします…

この書き込みへの返事：