Sequence 4 - Correction des fleurs issues d'octogones

Par FABIEN CABANEL, publié le samedi 19 novembre 2011 14:35 - Mis à jour le samedi 26 novembre 2011 14:41

pour octogone
repete 8 [av 50 td 45]
fin

pour fleur
#efface l'écran et fixe la taille (épaisseur) du crayon à 3
ve ftc 3

#initialise la couleur du crayon à 0
donne "i 0

repete 8 [
      fcc :i
      octogone tg 45
      donne "i :i+1
      si :i=7 [donne "i :i+1]
      ]

#tige
fcc 9 td 180 av 300 tg 135 av 50
fin

pour octogone
repete 8 [av 50 td 45]
fin

pour fleur2
#efface l'écran et fixe la taille (épaisseur) du crayon à 3
ve ftc 3

#initialise la couleur du crayon à 0
donne "i 0

repete 8 [
       fcc :i octogone
       repete 4 [av 50 td 45] td 135
       donne "i :i+1
       si :i=7 [donne "i 8]
]

#tige
fcc 9 td 180 av 300 tg 135 av 50
fin

Espaces Pédagogiques

Sequence 4 - Correction des fleurs issues d'octogones