d: y = 0
F = (1.512798052896989, 2.5107173632768847)
c = Parabola(F, d)
K = Midpoint(F, Mirror[F, d])
p = Segment(F, K)
fy = OrthogonalLine(F, d)
P = Point(fy)
u = Vector(F, K)
P' = Translate(P, u)
pA' = OrthogonalLine(P', fy)
P_2, P_1 = Intersect(c, pA')
f = Tangent(P_1, c)
g = Tangent(P_2, c)
T = Intersect(g, f)
h = OrthogonalLine(P_1, f)
i = OrthogonalLine(P_2, g)
v = Vector(P, P')