cs.gentleknowledge rising/falling sin bouncy ball
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 0INFO