発言者: 飯島 徹
発言日: 2006 07/23 11:54
発言元: 221.29.28.14
たけさん,みなさん,こん○○は(^^♪飯島です.
\reverse なるマクロを作ってみました.
\reverse\oresenB\revoresenB で
反時計回りの \oresenB の中身を
時計回りにして \revoresenB に格納するものです.
# 私の勉強不足ですでに emath には
# このようなマクロがあるのかもしれませんが^_^;
\documentclass{jarticle}
\usepackage{emathPh}
\makeatletter
\def\reverse#1#2{%
\edef\@Body{#1}%
\def#2{}%
\expandafter\@reverse\@Body\@empty\@nil#2
}%
\def\@reverse(#1)#2\@nil#3{%
\edef#3{(#1)#3}%
\ifx#2\@empty\relax
\else
\def\@Next{\@reverse#2\@nil#3}%
\expandafter\@Next
\fi
}%
\makeatother
\begin{document}
\begin{zahyou*}[ul=5mm,haiti=t](0,10)(0,8)%
\tenretu*{A(3,4);B(6.5,4)}%
\def\HankeiA{2}\def\HankeiB{3}%
\CandC\A\HankeiA\B\HankeiB\Q\P
\Nuritubusi*{\RT\LT\LB\RB\RT}%
\KinziEnko{\A}{\HankeiA}{hazimeten=\P}{owariten=\Q}\oresenA
\KinziEnko{\B}{\HankeiB}{hazimeten=\P}{owariten=\Q}\oresenB
\reverse\oresenB\revoresenB
\Nuritubusi[0]{\oresenA\revoresenB}%
\En\A\HankeiA
\En\B\HankeiB
\fboxsep=1pt\relax
\Put\A[r](\HankeiA\unitlength,135){\colorbox{white}{$A$}}%
\Put\B[r](\HankeiB\unitlength,45){\colorbox{white}{$B$}}%
\end{zahyou*}
\end{document}
▼関連発言
│
└◆4979:\KinziEnkoの角の向き指定 [たけ] 07/23 09:46
└◆4980:Re:\KinziEnkoの角の向き指定 [飯島 徹] 07/23 11:54
├◆4982:【解決】\KinziEnkoの角の向き指定 [たけ] 07/23 15:11
└◆4986:Re[2]:\KinziEnkoの角の向き指定 [tDB] 07/23 21:05
└◆4991:Re[3]:\KinziEnkoの角の向き指定 [飯島 徹] 07/24 02:30<-last