名前: みなも 日時: 2005-10-19 21:22:01 IPアドレス: 220.209.241.*
>>38687 ＞ と、英文の二箇所に下線を引いて、一方から他方に向かって ＞ 矢印を描く方法はないでしょうか？ 昔，同じようなことを考えて作ったマクロがありますので，よろしかったらどうぞ。 \makeatletter \def\lshushoku{\@ifnextchar[{\@shushoku[l]}{\@shushoku[l][]}}% 修飾関係 \def\rshushoku{\@ifnextchar[{\@shushoku[r]}{\@shushoku[r][]}} \def\lrshushoku{\@ifnextchar[{\@shushoku[b]}{\@shushoku[b][]}} \def\@shushoku[#1][#2]#3#4#5{% \setbox\z@=\hbox{\underline{#3}#4\underline{#5}}% \leavevmode\vtop{\hsize=\wd\z@ \noindent\box\z@\par\nointerlineskip\kern-0.5\p@ \setbox\z@=\hbox{#3}\@tempdima=0.5\wd\z@ \setbox\z@=\hbox{#5}\@tempdimb=0.5\wd\z@ \noindent\hskip\@tempdima \if#1r\relax \kern-1.5\p@\raise1mm\hbox{$|$}\kern-1.5\p@ \else \kern-3\p@\raise0.8mm\hbox{$\uparrow$}\kern-3\p@ \fi \hrulefill \if#1l\relax \kern-1.5\p@\raise1mm\hbox{$|$}\kern-1.5\p@ \else \kern-3\p@\raise0.8mm\hbox{$\uparrow$}\kern-3\p@ \fi \hskip\@tempdimb\null\par \def\@tmpcs{#2}% \ifx\@empty\@tmpcs\else \nointerlineskip\kern-0.5pt \noindent\hskip\@tempdima\hfill$\|$\hfill\hskip\@tempdimb\null\par \nointerlineskip\kern-0.5pt \noindent\hskip\@tempdima\hfill\hb@xt@\z@{\hss#2\hss}\hfill \hskip\@tempdimb\null\par \fi }} \makeatother 使い方の例 \lshushoku[修飾]{It}{ is natural }{that she should think so}. \rshushoku[修飾]{It}{ is natural }{that she should think so}. \lrshushoku[修飾]{It}{ is natural }{that she should think so}. [ ] の部分は省略可
この書き込みへの返事：