Animatsioon tuulevurr

Muutes r väärtust, muutub tuulevurri tuulikute suurus

r = 1.95 (slider from 0 to 5, step 0.01)
A = Intersect(xAxis, yAxis)
c = Circle(A, r)
B = Intersect(c, xAxis, 2)
α = 4.258603374866164 rad (slider from 0 to 6.283185307179586, step 0.017453292519943295)
B' = Rotate(B, α, A)
β = Angle(B, A, B')
B'' = Rotate(B', 90°, A)
γ = Angle(B', A, B'')
B''' = Rotate(B'', 90°, A)
δ = Angle(B'', A, B''')
C = Rotate(B''', 90°, A)
ε = Angle(B''', A, C)
f = Segment(B'', C)
g = Segment(B''', B')
d = Semicircle(B'', A)
e = Semicircle(C, A)
h = Semicircle(B', A)
k = Semicircle(B''', A)
D = Point(yAxis)
i = Segment(A, D)