Animate a pendulum: Difference between revisions
m
→{{header|Easyprog.online}}
m (→{{header|E}}) |
|||
Line 884:
<lang>floatvars
ang = 5▼
on animate
color 999
Line 890 ⟶ 889:
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
.
▲ang = 5</lang>
=={{header|Elm}}==
| |||