RosettaCodeData/Task/Animate-a-pendulum/EasyLang/animate-a-pendulum.easy
2023-07-01 13:44:08 -04:00

12 lines
158 B
Text

ang = 45
on animate
clear
move 50 50
circle 1
x = 50 + 40 * sin ang
y = 50 + 40 * cos ang
line x y
circle 6
vel += sin ang / 5
ang += vel
.