V = (-1, -3)
k = OrthogonalLine(V, yAxis)
F = Point(k)
B = Mirror(F, V)
DIRECTRIZ = OrthogonalLine(B, k)
c = Parabola(F, DIRECTRIZ)
g = OrthogonalLine(F, k)
A, C_1 = Intersect(c, g)
LR = Segment(A, C_1)
P = Point(c)
i = OrthogonalLine(P, DIRECTRIZ)
E = Intersect(DIRECTRIZ, i)
d1 = Segment(E, P)
d2 = Segment(P, F)
p = Segment(V, F)
h = OrthogonalLine(V, xAxis)