raindrops in logo

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
	]
  
  ]
]