P

g_1

g_2

h

E_1

E_2

E_2

Q

w

A = (-4, -2, 0)
B = (5.089782773131574, -1.6115962495870448, 0)
C = (0.5432070230829815, 6.831189356908077, 0)
D = (0.3848794519180352, 1.8912001996784582, 2.5721527198832312)
p = Plane(A, D, C)
q = Plane(A, C, B)
E = PointIn(q)
f = OrthogonalLine(E, q)
F = Point(f)
g = OrthogonalLine(F, p)
G = Intersect(g, p)
h = IntersectPath(p, q)
i = OrthogonalLine(E, h, space)
H = Intersect(h, i)
j = OrthogonalLine(G, h, space)
I = Point(h)
k = Segment(G, I)
l = Line(F, i)
m = Line(G, h)
n = Line(H, k)
J = Intersect(m, n)
r = Segment(J, F)
K = Intersect(n, h)
s = Ray(K, F)