// SEASHELL2 demo

logo backcolor = "black"
pu
lt 90
fd 200
rt 90
set size = 20
repeat 65 [ 
  fd 20 
  rt 5
  logo circrotate turtledir
  pd
  ellipse :size random 30
  logo fillcolor = randomcolor
  fillshape
  pu
  wait 2
  incr size by 3
  ]
