  

%Draw rolling circle 
\newcommand{\DrawRolling}[1]
{
   \CalcRolling{#1}
   \CalcdRolling{#1}
      
   \filldraw[rolling] (Rolling) circle(1pt);
   \draw[rolling] (Rolling) circle(\r);
   \draw[rolling,very thin,dashed] (Rolling0) -- (Rolling);
   \draw[rolling,very thin,-latex] (Rolling) -- +(dRolling);
}
