Sun, earth and moon

Change tMax!

mozgatás

R = 5 (slider from 0 to 5, step 0.1)
r = 5 (slider from 0 to 7, step 0.1)
O = Intersect(xAxis, yAxis)
tMax = 0 (slider from 0 to 6.283185307179586, step 0.01)
A: ((R * tMax), R)
d = Circle(A, R)
B: ((R * tMax) - (r * sin(tMax)), R - (r * cos(tMax)))
k = CurveCartesian(B, t, 0, tMax)