reset
cleartext
to setfunction :i :l
output item :i :l
end
make "rainDrops []
make "currentDrop 99999999999999
repeat 80 [
make "currentDrop 0
make "rainDrops lput random 500 :rainDrops
make "rainDrops lput 0 :rainDrops
repeat 5 [
penwidth 1000
color [255 255 255]
fw 1
bw 1
penwidth 5
make "index 0
repeat size :rainDrops [
setx setfunction :index :rainDrops
sety setfunction :index + 1 :rainDrops
setheading 180
color [0 0 255]
fw 25
make "rainDrops setitem :index + 1 (item :index + 1 :rainDrops) :rainDrops
]
]
]