pour colorier :c
lc
bidon.fcouleur [255 0 0]
repete 4[av :c+2 peins re :c+2 dr 90]
dr 45
bidon.fcouleur [0 255 0]
repete 4[av :c+2 peins re :c+2 dr 90]
dr 22.5
bidon.fcouleur [0 255 255]
repete 4[av 4 peins re 4 dr 90]
dr 45
bidon.fcouleur [127 127 255]
repete 4[av 4 peins re 4 dr 90]
bidon.fcouleur [180 0 180]
repete 4[av 2*:c peins re 2*:c dr 90]
dr 45
bidon.fcouleur [250 0 250]
repete 4[av 2*:c peins re 2*:c dr 90]
endpour rosace_1 :c
ct bc
repete 8 [octogone :c dr 45]
colorier :c
end