Peace Garden

reset
st
color[0 191 255]
penwidth 500
fw 250
color[0 191 255]
penwidth 500
home
bw 250
setxy 1 1
penwidth 100
color[255 255 0]
circle 50
penwidth 1
repeat 10000[
  setxy rand 150 rand 150
  fw 1
  ]
setxy 0 500

to curl
repeat 100[
  make "b rand 2
  make "r random 200
  if :r = 5 [
  	color[random 255 random 255 rand 255]
 penwidth 10  
circle rand 7
  ]  penwidth 1
  if :b = 0[
  lt 1
  ]
if :b = 1[
  rt 2
  ]
fw 1
]
setheading 0
end
make "x 0
repeat rand 500[
  color[rand 255 rand 255 rand 255]
setxy :x 500
curl
make "x :x+rand 11
]