t3b: PerpendicularLine[B, Line[(0, 0), B]]