\doublebox{Animatsiooni \; katsetus}

eq1: x^(2) + y^(2) = 16
A = Intersect(xAxis, yAxis)
B = Point(eq1)
α = 5.689773361501515 rad (slider from 0 to 6.283185307179586, step 2°)
B' = Rotate(B, α, A)
B'_{1} = Rotate(B, (α * 2), A)
f = Segment(B', B'_{1})
C = Midpoint(B', B'_{1})
c = Circle(C, B'_{1})
g = OrthogonalLine(C, f)
D = Intersect(c, g, 1)
E = Intersect(c, g, 2)
q1, d, b'_{1}, e, b' = Polygon(D, B'_{1}, E, B')