\draw [name path=t] (TX)  -- (TS);
\path [name intersections={of=t and r,by=C}];

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