tB: PerpendicularLine[B, Line[Center[pAB], B]]