Tortue

 

David Cobac (19 déc 2004) : premier jour des vacances de noël 2004 et toujours cette idée de programmation pour les jeunes dans la tête [1]. J'ai quelque mal à m'enlever de la tête que la tortue LOGO c'est quand même simple et abordable. Alors hier j'ai réalisé un petit script. En regardant sur le wiki anglophone, on trouve mieux et il me semble plus simple mais bon je pourrais toujours facilement modifier mon code... mon essai de tortue reprend mon supercanvas [2].


Sur http://cobac.free.fr/tcl/tortue/ on trouvera la version 0.9 avec des scripts exemples, un exécutable windows et un starkit.


Interface

Sur la copie d'écran ci-dessus, on observe :

 tortue t -pose 1 -dim 520
 .c origine 103 510
 .c delete __axes__ __rep__

 pour pentagone :cote {
     repete 5 {
        avance t $cote
        tourne t 72
     }
 }

 pour dentellesS :prof :long {
     if {$prof>=1 && $long>=.2} {
        set p [expr {$prof-1}]
        set l [expr {$long*(3-sqrt(5))/2}]
        repete 5 {
            dentellesS $p $l
            pose t 0
            avance t $long
            pose t 1
            tourne t 72
        }
     } else {
        pentagone $long
     }
 }

 dentellesS 3 16

Les vacances de noël 2005 m'ont permis de travailler beaucoup sur le logiciel. À partir de la version 0.8.2, la fonction trace a été abandonnée (problème avec la commande Tcl interne du même nom). Chaque évaluation est maintenant liée à un interpréteur, ce qui permet de ne plus fermer le logiciel pour évaluer un autre script ou ouvrir l'interface graphique. C'est aussi à partir de cette version qu'est incluse la bibliothèque img [4] : les élèves travaillant sous windows n'arrivent pas à manipuler simplement les eps.

Pour aboutir à une version 1.0, j'aimerais :