tortue-logo
Logique et géométrie en s'amusant

Carrés gigognes

pour carre :x
repete 4 [av :x td 90]
fin

pour gigogne :y
carre :y
si :y>5 [gigogne :y-5]
fin

gigogne 200

Etoile

repete 6 [av 100 td 144]

Rosace

repete 18 [td 20 repete 18 [td 20 av 20]]

Polygone

pour forme :nb :long
repete :nb [av :long tg 360/:nb]
fin

pour dessine :nb :long
forme :nb :long
si :nb<12 [dessine :nb+1 :long]
fin

dessine 3 100