%First command for calculating rolling point
%Store in coorediante ()
\newcommand{\CalcRolling}[1]
{
   %Rolling center
   \pgfmathparse{\r*#1} \let\xR\pgfmathresult
   \pgfmathparse{\r}    \let\yR\pgfmathresult
   \coordinate (Rolling) at (\xR,\yR);
   \coordinate (Rolling0) at (0,\yR);
}

\newcommand{\CalcdRolling}[1]
{
   \coordinate (dRolling) at (\r,0);
}
\newcommand{\CalcddRolling}[1]
{
   \coordinate (ddRolling) at (0,0);
}

\newcommand{\CalcdRollingHat}[1]
{
   \coordinate (dRollingHat) at (0,\r);
}
