a flower for seymour

This logo flower is out of Seymour Papert's first book Mindstorms: Children, Computers and Powerful Ideas. I've sent it to the flowers for seymour flickr group and have also signed the MIT card.

I used George Mills MSWLogo to make it, which is built on top of Brian Harvey's Berkeley Logo.

How to make the flower using logo:
First make a quarter circle
to q_circle :size
repeat 90[fd :size rt 1]
end

Then use the quarter circle to make a petal
to petal :size
q_circle :size
rt 90
q_circle :size
rt 90
end

Then use the petal to make a flower with 10 petals
to flower :size
repeat 10[petal :size rt 360/10]
end

Then add a stem and an extra petal to make a plant
to plant :size
flower :size
bk 135 * :size
petal :size
bk 65 * :size
ht
end

Finally, save it as a gif
to saveplantgif :size
setactivearea[-100 -200 100 100]
plant :size
gifsave "flower.gif
end