I want to translate
\pstVerb{/Dist {N-A.x N-A.y N-B.x N-B.y Pyth2} def}
from the following
\documentclass[pstricks,border=12pt]{standalone}
\usepackage{pst-eucl}
\addtopsstyle{gridstyle}{gridlabels=0pt,griddots=0}
\psset{saveNodeCoors}
\begin{document}
\begin{pspicture}[showgrid](-2,-2)(2,2)
\pstGeonode[PosAngle={180,45,-90}]
(-1.5,-1){A}
(1.5,1){B}
\pstVerb{/Dist {N-A.x N-A.y N-B.x N-B.y Pyth2} def}%
\pnode[A](!Dist 21 PtoC){D}\psdots(D)
\psarc[origin={A},arcsep=-1](A){!Dist}{(D)}{(B)}
\end{pspicture}
\end{document}
to
\pstVerb{%
tx@Dict begin
tx@NodeDict begin
/N@A load GetCenter
/N@B load GetCenter
end
Pyth2 \pst@number\psrunit\space div
/Dist ED
end}%
used in
\documentclass[pstricks,border={12pt 12pt 25cm 15cm}]{standalone}
\usepackage{pst-eucl}
\addtopsstyle{gridstyle}{gridlabels=0pt,griddots=0}
\makeatletter
\psset{runit=\psunit}
\begin{document}
\begin{pspicture}[showgrid](-2,-2)(2,2)
\pstGeonode[PosAngle={180,45,-90}]
(-1.5,-1){A}
(1.5,1){B}
\pstVerb{%
tx@Dict begin
tx@NodeDict begin
/N@A load GetCenter
/N@B load GetCenter
end
Pyth2 \pst@number\psrunit\space div
/Dist ED
end}%
\pnode[A](!Dist 21 PtoC){D}\psdots(D)
\psarc[origin={A},arcsep=-1](A){!Dist}{(D)}{(B)}
\end{pspicture}
\end{document}
What is my mistake caused the radius to be too long?
Edit: The problem solved when Pyth2 \pst@number\psrunit\space div
is replaced by Pyth2 236 div
. But it still leaves a question, why is it 236
?