Re: タイトル付きの枠で囲む

名前: しっぽ愛好家
日時: 2002-12-24 17:03:48
IPアドレス: 210.230.97.*

>>14294
＞とがった普通の長方形型の枠にすることもできるのでしょうか？
itembox 環境の定義における ``枠の四隅'' に相当する部分を
適宜変更すれば，そのような枠を作成することができます．

例えば，次のように定義することができます．
%%% 定義を変更しているので，環境名を Itembox に変更しています．
%%% 必要に応じて，\makeatletter，\makeatother で囲んでください．
%%% %%% なお，(t)ascmac パッケージを読み込んだ後に，
%%% %%% 下記の定義を入れてください．

\let\Itembox\itembox%%% オリジナルの \itembox のコピー
\def\endItembox{\end{minipage}\egroup%
  \setbox\scscb@x=\hbox to\linewidth{\hfil\vbox{\offinterlineskip%
  \thicklines\setlength{\unitlength}{1pt}%
  \hbox to\@scw{\if l\the\@iboxpos\else\@hleader\fi
    \space\vbox to.8pt{\vss\hbox{\box\@iboxstr}\vss}%
    \space\if r\the\@iboxpos\else \@hleader\fi}\kern-.8\p@
    %%% 直前の行の \kern-.8\p@ のところは，オリジナルでは \kern9.6pt です．
%%%  \@hobox{tl}{tr}{20}\kern-10pt\box\scb@x\@hobox{bl}{br}{20}%%% original
  \hbox to\@scw{%
      \kern-10.6\p@ \vrule\@height20\p@\@depth-10\p@\@width.8\p@
      \kern-.8\p@ \vrule\@height20\p@\@depth-19.2\p@\@width10.8\p@
      \hfil
      \vrule\@height20\p@\@depth-19.2\p@\@width10.8\p@ \kern-.8\p@
      \vrule\@height20\p@\@depth-10\p@\@width.8\p@ \kern-10.6\p@}%
  \kern-10pt\box\scb@x
  \hbox to\@scw{%
      \kern-10.6\p@ \vrule\@height10\p@\@width.8\p@
      \kern-.8\p@ \vrule\@height.8\p@\@width10.8\p@
      \hfil
      \vrule\@height.8\p@\@width10.8\p@ \kern-.8\p@
      \vrule\@height10\p@\@width.8\p@ \kern-10.6\p@}%
%%% 変更部分終わり
  \kern-.8pt\hrule height.8pt}\hfil}\dimen0=\ht\scscb@x%
  \noindent\hbox to\linewidth{\hbox to.6pt{\vbox to\dimen0{\@vrf@{10pt}{.8pt}}%
  \hss}\box\scscb@x\hbox to.6pt{\hss\vbox to\dimen0{\@vrf@{10pt}{.9pt}}}%%% (*)
  \hss}\egroup}

%%% [余談] (*) の行での \@vrf@ の第 2 引数が .9pt になっているのは
%%%  オリジナルの定義のままです．しかし，``.8pt'' でよさそうなのですが…

この書き込みへの返事：