お世話になっております．

あみだくじの図
http://www.math.sci.osaka-u.ac.jp/~wakui/tanoshimi04_12.pdf
をいくつも書く必要が出てきました．
マクロを作ったつもりなのですが，全く通りません．

原因はemathとは無関係かもしれませんが，
お知恵を貸していただけませんでしょうか．

\documentclass{jarticle}
\usepackage{emathPp}
% あみだくじの図
\def\amidaT[4]{\def\Ps{(#1.,0)} \def\Pn{(#1.,#2.)} \Drawline{\Ps\Pn} \Put\Pn[n]{#3} \Put\Ps[s]{#4}}
%
\def\amidaY[2]{\def\Pl{(#1,#2)} \calcval{#1+1.}\r \def\Pr{(\r,#2)} \Drawline{\Pl\Pr}}
\begin{document}
\begin{zahyou*}[ul=7mm](0,4)(0,6)
\amidaT{1}{5}{1}{1}
\amidaT{2}{5}{2}{2}
\amidaT{3}{5}{3}{3}
\amidaT{4}{5}{4}{4}
\amidaY{1}{4}
\amidaY{2}{3}
\amidaY{3}{2}
\end{zahyou*}
\end{document}

▼関連発言
│
└◆4516:あみだくじの図 [TaD] 03/30 18:30
　├◆4517:Re:あみだくじの図 [飯島　徹] 03/30 19:28
　│└◆4518:Re[2]:あみだくじの図 [TaD] 03/30 20:10
　└◆4520:emathAmida.sty [tDB] 03/31 13:00
　　└◆4521:Re:emathAmida.sty [TaD] 03/31 14:18
　　　└◆4522:emathAmida.sty v 0.01α [tDB] 03/31 17:32
　　　　└◆4523:Re:emathAmida.sty v 0.01α [TaD] 03/31 18:49<-last