
\draw [name path=t] ($(T1)!\t!(T3)$) -- ($(T3)!\t!(T1)$);

\draw ($(T3)!\t-0.05!(T1)$) node [] {$t$};

\path [name intersections={of=t and r,by=C}];
