Français   Spirographes
Expérimenter ce programme pour paramétrer différents types de spirographes.

# Commande principale: demarrer
pour new
# set defaults, screen, pen et tortue
init ftd [400 400]
fcfg noir fcc vert levecrayon cachetortue
fin

pour spir :r :rang :s :sang :t :tang
levecrayon origine fcc blanc baissecrayon cercle 2
tournegauche :rang avance :r cercle 2
tournegauche :sang avance :s cercle 2
tournegauche :tang avance :t
fin

pour initialise
fixetortue 1 #follow tortue
origine fcc 5
levecrayon fpos [0 190]
fixetortue 0 baissecrayon
fin

pour demarrer
new initialise ic #inverted paint pen
#make "r 90 donne "s 60 donne "t 40
#make "r 108 donne "s 54 donne "t 27
donne "r 90 donne "s 60 donne "t 40
repetepour [q 0 360 4] [
donne "rang :q donne "sang 3*:q + 90 donne "tang moins 2*:q -90
spir :r :rang :s :sang :t :tang
fcc 1 cercle 2
donne "a pos
fixetortue 1 fcc 11 fpos :a baissecrayon fixetortue 0
si :q=360 [fcc 1 cercle 1 stop] attends 10
spir :r :rang :s :sang :t :tang]
fin



Tester le programme maintenant

Procédure à exécuter:
demarrer