to wheel2
repeat 12 [
   repeat 3 [
      fd 30
      rt 120
   ]
   rt 30
]
end
to demo
while (1=1) [
  home
  cs
  wheel2
  penup
  fd 50
  pendown
  pause 4000
]
end
demo