Parábola dado el foco, un punto y una tangente

Mostrar la construcción

h = true
F = (6.68, 0.54)
A = (2.791300624403541, -1.1360532053337296)
B = (10.573473871935196, 9.640489923588047)
t = Line(A, B)
P = (6.04, 3.08)
S = Mirror(F, t)
c = Circle(P, F)
C = Midpoint(S, P)
d_1 = Circle(C, S)
D, E = Intersect(c, d_1)
d2 = Line(S, D)
d1 = Line(S, E)
C_p2 = Parabola(F, d2)
C_p1 = Parabola(F, d1)
a = OrthogonalLine(F, d2)
b = OrthogonalLine(F, d1)
f = Line(S, a)
H = Intersect(f, t)
e = Line(S, b)
G = Intersect(e, t)
g = Parabola(F, OrthogonalLine[S, Line[S, P]])
d = OrthogonalLine(S, Line[S, P])