\draw ($(A)!\t!(B)$) -- ($(B)!\t!(A)$);

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