\filldraw (A) circle(1pt) node[A] {$A$};


\draw [name path=r] ($(R1)!\t!(R3)$) -- ($(R3)!\t!(R1)$);



\draw ($(R3)!\t-0.1!(R1)$) node [] {$r$};
