Animate a pendulum: Difference between revisions
Content deleted Content added
Line 878: | Line 878: | ||
interp.blockAtTop()</lang> |
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}}== |
=={{header|Elm}}== |