XLogo

Pour tracer cette courbe, la tortue se déplace sur un sol qui est divisé en 9 carrés.

Elle part du coin inférieur gauche, tourne tout d'abord à gauche, puis à droite 3 fois de suite, à gauche 3 fais et un dernier virage à droite. La tortue sort au coin supérieur droit et a traversé chacune des diagonales des 9 carrés.

Par récursivité, chaque carré peut être divisé à son tour en 9 plus petits carrés. Quand l'ordre devient grand, La tortue finit par passer par chaque point du sol.

# 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 :level donne "cellsize (puissance 2 0.5)*(120/(puissance 3 :level)) levecrayon fpos [-180 -180] fixecap 45 baissecrayon fin pour curve :level si :level < 0 [avance :cellsize stop] curve :level-1 tournegauche 90 curve :level-1 repete 3 [tournedroite 90 curve :level-1] repete 3 [tournegauche 90 curve :level-1] tournedroite 90 curve :level-1 fin pour demarrer :level new fcc vert initialise :level curve :level fin