Fedor's design:

to kite :size
lt 22.5
fd :size * 1.85
rt 67.50
fd :size
rt 90
fd :size
rt 67.5
fd :size * 1.85
rt 157.5
pu
fd 10
fill
bk 10
pd
end

 

to design
setfillcolor 7
kite 55 rt 45
setfillcolor 1
kite 55 rt 45
setfillcolor 7
kite 55 rt 45
setfillcolor 1
kite 55 rt 45
setfillcolor 7
kite 55 rt 45
setfillcolor 0
kite 55 rt 45
setfillcolor 7
kite 55 rt 45
setfillcolor 0
kite 55 rt 45
setfillcolor 10
repeat 8 [kite 35 rt 45]
end