to petale
Repeat 60 [forward 1 right 1]
right 120
Repeat 60 [forward 1 right 1]
right 120
end

to fleur
forward 120
repeat 8 [petale right 45]
back 100
right 20
petale
left 20
back 30
end

to dessin
clearscreen
fleur
penup
left 90
forward 60
right 90
forward 30
end