
\filldraw [] (A) circle  (\r pt) node [below] {$~A$};
