\path [name intersections={of=r and u,by=E}];

%%why do we need to translate (E)??
\filldraw ($(E)+(Delta)$) circle(1pt) node[E] {$E$};