A = (-0.52256, 5.9821)
B = Point(Circle[A, 10])
a = Segment(A, B)
C = Midpoint(a)
c = Circle(C, Segment[A, B])
b = OrthogonalLine(A, a)
D = Intersect(c, b, 1)
d = OrthogonalLine(D, b)
e = OrthogonalLine(B, a)
E = Intersect(d, e)
F = Midpoint(C, A)
G = Midpoint(C, B)
f = Segment(A, D)
g = Segment(D, E)
h = Segment(E, B)
q = Circle(C, A)
H = (12.37604, -2.3427)
I = (17.43604, -2.3427)