Hipérbola: dado un foco, una asíntota y una tangente

Mostar la construcción

e = true
F = (6.18, 4.42)
A = (-2.22, -1.1)
B = (5.22, 5.48)
h = Line(A, B)
C = (-4.12, 6.16)
D = (7.02, 0.72)
t = Line(C, D)
S_h = Mirror(F, h)
S_t = Mirror(F, t)
a = LineBisector(S_h, S_t)
h' = Dilate(h, 2, F)
F' = Intersect(a, h')
S'_t = Mirror(F', t)
b = Line(F', S_t)
P = Intersect(t, b)
c = Hyperbola(F', F, P)
O = Midpoint(F', F)
d = Segment(F', F)
h'_1 = Mirror(h, d)