A = Intersect(xAxis, yAxis)
B = Point(xAxis)
C = Point(xAxis)
c = Circle(A, B)
d: abs(B - C) / 2
α = 6.283185307179586 rad (slider from 0 to 6.283185307179586, step 0.017453292519943295)
D = Rotate(B, α, A)
E = Rotate(C, (-α), A)
f = Segment(E, D)
F = Midpoint(f)
e: abs(x(B) + x(C)) / 2
eq1: x^(2) / e^(2) + y^(2) / d^(2) = 1
G = Midpoint(F, D)
H = Midpoint(D, G)
g = Circle(A, E)