P = (7, -7, 4)
g = OrthogonalLine(P, e)
D = Intersect(g, e)
d = Segment(P, D)