fn perp_line(l: Line, length: Distance) -> Line