rainbow snail's shell

reset
cleartext
penwidth 10
make "s 1
repeat 10000[
  color[rand 256 rand 256 rand 256]
  fw :s
  rt 2
  ;print:s
  make "x getx
  print :x
  gety
  make "s :s +0.025
  ]