O = Intersect(xAxis, yAxis)
c = Circle(O, 4)
A = Point(c)
B = Point(c)
f = Segment(A, B)
C = Point(c)
D_1 = Point(c)
g = Segment(C, D_1)
α = 6.283185307179586 rad (slider from 0 to 6.283185307179586, step 0.5°)
M = Rotate(B, α, O)
β = Angle(B, O, M)
h = Segment(O, M)
i = OrthogonalLine(M, f)
D = Intersect(i, f)
j = OrthogonalLine(M, g)
E = Intersect(j, g)
k = Segment(E, D)
l = OrthogonalLine(M, k)
F = Intersect(l, k)
G = (-5.376505862002686, 3.2935268114549316)
H = (-3.5160407457236174, 3.2935268114549316)