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

ang = 45
on animate
   gclear
   gcircle 50 50 1
   x = 50 + 40 * sin ang
   y = 50 + 40 * cos ang
   gline 50 50 x y
   gcircle x y 6
   vel += sin ang / 5
   ang += vel
.
Initial data commit 2023-07-01 11:58:00 -04:00			`ang = 45`
			`on animate`
Data update 2025-06-11 20:16:52 -04:00			`gclear`
			`gcircle 50 50 1`
			`x = 50 + 40 * sin ang`
			`y = 50 + 40 * cos ang`
			`gline 50 50 x y`
			`gcircle x y 6`
			`vel += sin ang / 5`
			`ang += vel`
Initial data commit 2023-07-01 11:58:00 -04:00			`.`