RosettaCodeData/Task/Animate-a-pendulum/EasyLang/animate-a-pendulum.easy

13 lines
158 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
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
.