発言者: tommy_minor
発言日: 2007 10/13 08:41
発言元: 210.167.86.150
\documentclass[fleqn]{jarticle}
\pagestyle{empty}
\usepackage{emathBk}
\makeatletter
\newdimen\y@sagehaba
\newdimen\ch@sagehaba
\newdimen\ch@@sagehaba
\def\chuu{\@ifnextchar[{\@chuu}{\@chuu[\z@]}}%
\def\@chuu[#1]{\@ifnextchar<{\@@chuu[#1]}{\@@chuu[#1]<\z@>}}%
\def\@@chuu[#1]<#2>{%
\y@sagehaba=0pt%
\ch@sagehaba=0pt%
\advance\y@sagehaba#1%
\advance\ch@sagehaba#2%
\ifdim\ch@sagehaba<\z@%注釈文が矢印よりも上(#2<0)
\def\chuum@rk{%
{%
\raisebox{\ch@sagehaba}{$\leftarrow$} %
\kern-.45zw \rule[.52ex+\ch@sagehaba]{.36pt}{-\ch@sagehaba} %縦線
\kern-.41zw \rule[.52ex]{.6zw}{.36pt} %注釈文直前の横線
}%
}%
\else%注釈文が矢印よりも下or同じ(#2≧0)
\def\chuum@rk{%
{%
\raisebox{\ch@sagehaba}{$\leftarrow$} %
\kern-.45zw \rule[.52ex]{.36pt}{\ch@sagehaba} %縦線
\kern-.41zw \rule[.52ex]{.6zw}{.36pt} %注釈文直前の横線
}%
}%
\fi%
\ch@@sagehaba=\ch@sagehaba%
\advance\ch@@sagehaba\y@sagehaba%
\tyuu<\ch@@sagehaba>[\chuum@rk]%
}%
\makeatother
\begin{document}
\begin{tyuukai}%
取り敢えずできましたので報告します.
\verb/\tyuu/のようなオプションはありませんが,今の私ではこれで精一杯です.
\chuu[-.5\baselineskip]<-2.5\baselineskip>{%
これでも随分苦労しました.
膨大なマクロを整備されたtDBさんにはまったく頭が下がります.}
\chuu[2.3\baselineskip]<-2\baselineskip>{%
「咲いたコスモスコスモス咲いた」と覚えます.
このように注釈が混み合ってもなんとかなります.
数式環境の中には入れられないので,外から狙って下さい.}
\begin{align*}
\sin(\alpha+\beta)&=\sin\alpha\cos\beta+\cos\alpha\sin\beta,\\
\cos(\alpha+\beta)&=\cos\alpha\cos\beta-\sin\alpha\sin\beta.
\end{align*}
\chuu[-1.7\baselineskip]<1.6\baselineskip>{%
乱用すると却って見苦しいので,ワンポイントで使うのがよいでしょう.}
$a^3+b^3+c^3-3abc\\
\quad=(a+b+c)(a^2+b^2+c^2-ab-bc-ca).$
\chuu[-1.2\baselineskip]<1.5\baselineskip>{
どなたかうまい覚え方をご存じないでしょうか.}
\end{tyuukai}
\end{document}
▼関連発言
│
└◆6548:注釈文の頭まで線を引っ張りたい [tommy_minor] 10/11 20:47
├◆6551:Re:注釈文の頭まで線を引っ張りたい [田中徹] 10/11 22:01
│└◆6552:Re[2]:注釈文の頭まで線を引っ張りたい [tommy_minor] 10/12 00:48
├◆6571:--- [---] 10/13 08:36
└◆6572:Re:注釈文の頭まで線を引っ張りたい [tommy_minor] 10/13 08:41
└◆6583:Re[2]:注釈文の頭まで線を引っ張りたい [tDB] 10/14 13:11
└◆6592:Re[3]:注釈文の頭まで線を引っ張りたい [tommy_minor] 10/14 21:43<-last