Figuur I

A = (-6, -14)
H = Point(Segment[A, (x(A) + 7, y(A))])
c = Circle(A, H)
B = PointIn((x - x(A))^(2) + (y - y(A))^(2) > Distance[A, H]^(2))
f, g = Tangent(B, c)
C = Intersect(c, f)
h = Segment(C, A)
i = Line(B, A)
D, E = Intersect(c, i)
j = Segment(B, D)
m = Segment(B, C)
k = Segment(D, A)
l = Segment(A, E)
F = (-14.353704840981536, -18.296950110524353)