cs.gentleknowledge rising/falling sin bouncy ball
| Run Settings | |
|---|---|
| Language | Mercury |
| Language Version | |
| Run Command |
| Snippet Metadata | |
|---|---|
| Owner | BlueCinderBox91 |
| Created | |
| Modified | |
| Visibility | Public |
reset
setxy 250 250
to magiball :g :a :g1
repeat 500[
make "g 0
make "g1 0
repeat 255[
color [0 :g 0]
circle :g1
make "g1 :g1 + 0.1
make "g :g + 1
]
sety 250 + 250 * sin :a
make "a :a + 1
clean
]
end
magiball 0 0 0
| Editor Settings | |
|---|---|
| Theme | |
| Key bindings | |
| Full width | |
| Lines |