Animate a pendulum: Difference between revisions
Content deleted Content added
Line 878:
interp.blockAtTop()</lang>
=={{header|Easyprog.online}}==
[https://easyprog.online/ide/run.html?code=floatvars%0Aang%20%3D%205%0Aon%20animate%0A%20%20color%20999%0A%20%20move%200%200%0A%20%20rect%20100%20100%0A%20%20color%20444%0A%20%20bx%20%3D%2050%20%2B%2040%20%2A%20sin%20ang%0A%20%20by%20%3D%2050%20-%2040%20%2A%20cos%20ang%0A%20%20move%2050%2050%0A%20%20line%20bx%20by%0A%20%20circle%205%0A%20%20acc%20%3D%209.81%20%2A%20sin%20ang%20/%205%0A%20%20vel%20%2B%3D%20acc%20/%2010%0A%20%20ang%20%2B%3D%20vel%0A. Run it]
<lang>floatvars
ang = 5
on animate
color 999
move 0 0
rect 100 100
color 444
bx = 50 + 40 * sin ang
by = 50 - 40 * cos ang
move 50 50
line bx by
circle 5
acc = 9.81 * sin ang / 5
vel += acc / 10
ang += vel
.</lang>
=={{header|Elm}}==
| |||