% てふてふ君用マクロ
% Ver 0.01 by Zepyhr 2008-07-15

\newcommand{\hvcenter}[1]{\newcount\cntA
  \cntA=\textheight
  \divide\cntA by 65536
  \divide\cntA by 3
  \vspace*{\cntA}%
  \centerline{#1}}

%\newcommand{\vcenter}[1]{\newcount\cntA
%  \cntA=\textwidth
%  \divide\cntA by 65536
%  \divide\cntA by 3
%  \vspace*{\cntA}%
%  #1}

\newcommand{\LRkanjiTate}[2]{%
  \scalebox{1}[0.5]{\makebox[2zw]{\rensuji{#1\hspace{-0.1zw}#2}}}}

\newcommand{\LRkanji}[2]{%
  \scalebox{0.5}[1]{\makebox[2zw]{\rensuji{#1\hspace{-0.1zw}#2}}}}

\newcommand{\LRkanjiTateA}[2]{%
  \scalebox{1}[0.5]{\makebox[2zw]%
  {\rensuji{#1\hspace{-0.4zw}#2}}}}
  
\def\rnum#1{\expandafter{%
\romannumeral #1}}
\def\Rnum#1{\uppercase\expandafter{%
\romannumeral #1}}

\newcommand{\dakuten}[1]{%
\leavevmode\rensuji{\hbox to 1zw{#1\hspace*{-0.25zw}゛}}}

\newcommand{\shirogomaDokuten}{%
\scalebox{0.5}[0.5]{\makebox[1zw]{%
\rensuji{\CID{00001}\ajWhiteSesame}}}%
\hspace{0.6zw}}

\newcommand{\kogaki}[1]{\hspace{-0.3zw}
\raisebox{0.15zh}{\scalebox{0.7}[0.7]{#1}}\hspace{0.2zw}}