Re: 網掛けの枠で囲む

名前: 双子山
日時: 2006-01-10 22:24:45
IPアドレス: 58.87.160.*

>>40544
必要なところを抜き出し，
\color[gray]{0.5}をかぶせて試行錯誤をしましたが，
反映されません．本文なら{\color[gray]{0.5}本文}で
変わるのですが，{\color[gray]{0.5}\@hleader}では変わりません．
難しいですね．よろしければご指導ください．

\documentclass[fleqn,a4paper]{jsarticle}
\usepackage{amsmath}
\usepackage[dvips]{graphicx,color}
\makeatletter
\newdimen\@savetbaselineshift
\newdimen\@saveybaselineshift
%% boxnote environment
\newbox\scb@x \newbox\scscb@x
\newdimen\@bw\newbox\@nbox\newbox\@nbody
\def\boxnote{\par\vspace{\baselineskip}
\@savetbaselineshift\tbaselineshift\tbaselineshift\z@
\setbox\@nbox=\hbox{\@ascgrp\vrule width1.08pt depth35pt b\hss a\hss b}
\@whiledim \wd\@nbox<\hsize \do{
\setbox\@nbox=\hbox{\@ascgrp\unhbox\@nbox \hss a\hss b}}
\setbox\@nbox=\hbox to\hsize{\@ascgrp\unhbox\@nbox \hss a\hss b%
\vrule width1.08pt depth35pt}
\@bw=\wd\@nbox\advance\@bw -40pt
\savebox{\@nbody}\bgroup\begin{minipage}{\@bw\tbaselineshift\@savetbaselineshift}}%
\def\endboxnote{\end{minipage}\egroup
\vbox{\parindent=0pt\offinterlineskip\copy\@nbox
\hbox to\wd\@nbox{\vrule width1.08pt\hfil\box\@nbody\hfil\vrule width1.08pt}
\hbox to\wd\@nbox{\vrule width1.08pt height15pt\hfil
\vrule width1.08pt height15pt}\hrule height1.08pt}}
%% screen environment
\newdimen\@scw
\def\@hobox#1#2#3{\hbox to\@scw{\@oval(#3,#3)[#1]\hfil\@oval(#3,#3)[#2]}}
\def\@vrf@#1#2{\vskip#1\leaders\vrule width#2\vfil\vskip#1}
\def\screen{%
\@savetbaselineshift\tbaselineshift \tbaselineshift\z@
\@ifnextchar[{\@screen}{\@screen[0]}}
\def\@screen[#1]{\ifcase#1\def\@r{20}\def\@s{9.8pt}\def\@sx{10pt}\or
\def\@r{18}\def\@s{8.8pt}\def\@sx{9pt}\or
\def\@r{16}\def\@s{7.8pt}\def\@sx{8pt}\or
\def\@r{14}\def\@s{6.8pt}\def\@sx{7pt}\or
\def\@r{12}\def\@s{5.8pt}\def\@sx{6pt}\or
\def\@r{10}\def\@s{4.8pt}\def\@sx{5pt}\or
\def\@r{8}\def\@s{3.8pt}\def\@sx{4pt}\or
\def\@r{6}\def\@s{2.8pt}\def\@sx{3pt}\else
\def\@r{4}\def\@s{1.8pt}\def\@sx{2pt}\fi
\par\vspace{.3\baselineskip}\@scw\linewidth \advance\@scw -\@r pt
\setbox\scb@x=\hbox\bgroup\begin{minipage}{\@scw\tbaselineshift\@savetbaselineshift}}%
\def\endscreen{\end{minipage}\egroup%
\setbox\scscb@x=\hbox to\linewidth{\hfil\vbox{\offinterlineskip%
\thinlines\setlength{\unitlength}{1pt}\hrule\kern\@s%
\@hobox{tl}{tr}{\@r}\kern-\@sx\box\scb@x\@hobox{bl}{br}{\@r}%
\kern-.4pt\hrule}\hfil}\dimen0=\ht\scscb@x%
\noindent\hbox to\linewidth{\hbox to.2pt{\vbox to\dimen0{\@vrf@{\@sx}{.4pt}}%
\hss}\box\scscb@x\hbox to.25pt{\hss\vbox to\dimen0{\@vrf@{\@sx}{.4pt}}}\hss}}%

%% itembox environment
\newdimen\@itemh\newtoks\@iboxstr\newtoks\@iboxpos
\def\@hleader{\leaders\hrule height .8pt\hfil}
\def\itembox{\@ifnextchar[{\@itembox}{\@itembox[c]}}
\def\@itembox[#1]#2{\@savetbaselineshift\tbaselineshift\tbaselineshift\z@
\par\vspace{.3\baselineskip}{\setbox0=\hbox{#2}%
\global\@itemh\ht0\global\advance\@itemh\dp0}%
\vspace{.5\@itemh}\bgroup\@scw\linewidth
\advance\@scw -20pt\@iboxpos={#1}\@iboxstr={#2}%
\setbox\scb@x=\hbox\bgroup\begin{minipage}{\@scw
\tbaselineshift\@savetbaselineshift}\vspace*{.5\@itemh}}%
\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
\ \vbox to.8pt{\vss\hbox{\the\@iboxstr}\vss}\ \if r\the\@iboxpos\else
\@hleader\fi}\kern9.6pt
\@hobox{tl}{tr}{20}\kern-10pt\box\scb@x\@hobox{bl}{br}{20}%
\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}\makeatother
\begin{document}
\begin{itembox}[l]{見出し}
本文\\
本文
\end{itembox}
\end{document}

この書き込みへの返事：