A = Intersect(xAxis, yAxis)
c = Circle(A, 1)
a = 5.7 (slider from 0 to 50, step 0.1)
B = Intersect(c, xAxis, 2)
B' = Rotate(B, a, A)
α = Angle(B, A, B')
f = OrthogonalLine(B', xAxis)
C = Intersect(f, xAxis)
L = Distance(A, C)
TextAC: Name[A] + (Name[C]) + " = " + L
d = Circle(A, a)
D = Intersect(d, xAxis, 2)
g = OrthogonalLine(D, xAxis)
e = Circle(D, L)
E, F = Intersect(e, g)
u = Vector(A, C)
G = (-3, 2)
G' = Translate(G, u)
v = Vector(G, G')
h = Circle(G, G')
G'' = Rotate(G', 90°, G)
β = Angle(G', G, G'')
w = Vector(G, G'')
D' = Translate(D, w)
b = Vector(D, D')
I = (3.6750932490649455, 1.1828074909739263)
H = Point(b)