% uchikeshisen.sty
%  Style file for 'uchikeshi-sen'
%  version 1.0  1999.2.3 
%           by Nakata Yoshinori white@d51.net
%
% Usage: \uchikeshi{word}
% Usage: \dbluchikeshi{word}

\typeout{`uchikeshi-sen' Ver1.0 <3 Feb 99> by Nakata Yoshinori}

\def\uchikeshi#1{\leavevmode{\setbox1=\hbox{#1}\copy1%
\raise .48\ht1 \vbox{\moveleft \wd1\vbox{\hrule width \wd1 height .5pt depth 0pt}}%
}}

\def\dbluchikeshi#1{\leavevmode{\setbox1=\hbox{#1}\copy1%
\raise .53\ht1 \vbox{\moveleft \wd1\vbox{\hrule width \wd1 height .5pt depth 0pt}}%
\raise .28\ht1 \vbox{\moveleft \wd1\vbox{\hrule width \wd1 height .5pt depth 0pt}}%
}}