to flower
repeat 9 [
  rt 30 forward 30 left 40 forward 20
  left 130 forward 30 left 40 forward 20
  left 20 forward 10 left 120 forward 10
]
end
to demo
while (1=1) [
  home
  cs
  flower
  penup
  fd 50
  pendown
  pause 4000
]
end
demo