Fractales.
Le flocon de Koch. Cette courbe peut se construire à l'intérieur ou à l'extérieur du triangle. Cette courbe obtenue en coupant systématiquement en 3 chacun des côtés du triangle et en réitérant le procédé.
Pour obtenir la courbe à l'intérieur:
Enfin, pour obtenir les deux courbes simultanément en rouge et bleu,
taper demarrer 3 2
|
# Commande principale: demarrer 3
pour new # set defaults, screen, pen et tortue init ftd [400 400] fcfg noir fcc vert levecrayon cachetortue fin pour initialise levecrayon fpos [-160 -90] baissecrayon fin pour kout :level :side fixecap 30 repete 3 [koch :level :side tournedroite 120] fin pour koch :level :side si :level < 1 [ avance :side stop] koch :level-1 :side/3 tournegauche 60 koch :level-1 :side/3 tournedroite 120 koch :level-1 :side/3 tournegauche 60 koch :level-1 :side/3 fin pour demarrer :level new fcc 7 initialise kout :level 320 fin |
Pour obtenir la courbe à l'intérieur:
|
pour kin :level :side fixecap 90 repete 3 [koch :level :side tournegauche 120] fin pour demarrer :level new initialise kin :level 320 fin |
Enfin, pour obtenir les deux courbes simultanément en rouge et bleu,
|
pour demarrer :levelin :levelout new initialise fcc gris kin 0 320 fcc rouge kin :levelin 320 fcc vert kout :levelout 320 fin |
demarrer 3
