TO rain
reset
penup hideturtle
fullscreen
setbackgroundcolor blue setbackgroundshade 12
make "count 0
forever [
inc "count
setposition {-300 + random 600 300 -300 + random 600}
make "size 0.25 + ((1 + random 20) / 20)
begintag "teardrop
setfillcolor pick [2 3 6 7 14]
setfillshade -10 + random 20
up 90
cutsphere 10 * :size 20 20 1 13
lower 4.5 * :size
cone 8.9 * :size 18 * :size 20
down 90
;raindrop
endtag
newmodel :count "teardrop
clean
hatch [
setmodel :count
showturtle
make "speed (5 + random 10) / 10
while ypos > -300 [
back :speed rollright 0.25
]
]
wait 5 + random 25
]
END