Lülita liiguril animeerimine sisse

A: (0, 0)
B: (4, 0)
c = Circle(A, B)
α = 0 rad (slider from 0 to 6.283185307179586, step 2°)
B' = Rotate(B, α, A)
B'_{1} = Rotate(B, (α * 2), A)
f = Segment(B'_{1}, B')
C = Midpoint(f)
g = OrthogonalLine(C, f)
e = Circle(C, B'_{1})
D = Intersect(e, g, 2)
E = Intersect(e, g, 1)
q1, b'_{1}, d, b', e_1 = Polygon(B'_{1}, D, B', E)