Re:楕円で２文字

名前: 萩平 哲
日時: 2001-06-16 23:51:40
IPアドレス: 133.1.67.*

遅いresですが，科研費マクロの中に以下のような\nagamaruマクロがありました． 
これを使うのはいかがでしょうか... 
科研費マクロからTeikeiマクロを作成する時に見つけたものです． 
--- cut --- 
% \nagamaru{xyz} : encircled string 'xyz'.  'xyz' can be a 'tabular' 
%                  July 2, 1992 
\newdimen\@nagax 
\newdimen\@nagaxx 
\newdimen\@nagay 
\newdimen\@nagayy 
\newbox\@nagabox 
\def\nagamaru#1{{% 
\setlength{\unitlength}{1sp}% 
\setbox\@nagabox=\hbox{#1}% 
\@nagax=\ht\@nagabox\advance\@nagax by 0.7zw% 
\@nagay=\dp\@nagabox\advance\@nagay by 0.7zh% 
\@nagayy=\dp\@nagabox\advance\@nagayy by 0.5zh%  
\raisebox{-1\@nagayy}[\@nagax][\@nagay]{% 
\@nagax=\wd\@nagabox\advance\@nagax by 1zw% 
\@nagay=\ht\@nagabox\advance\@nagay by \dp\@nagabox\advance\@nagay by 1zh% 
\begin{picture}(\number\@nagax,\number\@nagay)(0,0) 
\thicklines% 
\@nagaxx=\@nagax\divide\@nagaxx by 2% 
\@nagayy=\@nagay\divide\@nagayy by 2% 
\divide\@nagay by 131072 \multiply\@nagay by 131071 % omajinai 
\put(\number\@nagaxx,\number\@nagayy){\oval(\number\@nagax,\number\@nagay)} 
\put(\number\@nagaxx,\number\@nagayy){\makebox(0,0){#1}} 
\end{picture}}% 
}} 
--- cut ---

この書き込みへの返事：