pour depart
vg lc fy 280 bc ct 
donne "c 0
coloris1
fin

pour coloris1
repete 140
[fcouleur :c 
av 300 dr 90 av 1 dr 90 
av 300 ga 90 av 1 ga 90 donne "c :c + 1]
fin