LCSI
 
Bibliothèque de projets
Casse-Tête Glissant: Truc Logo

Toutes les tortues du casse-tête ont été programmées pour suivre la procédure suivante:

pour ajuste
si (distance "t1) > 40 [stop]
change qui "t1
fin

La primitive qui est un rapporteur. Elle rapporte le nom de la tortue sur laquelle vous aviez cliquée. La procédure ajuste vérifie sans arrêt si la tortue est assez proche pour être échangée avec la boîte bleue (tortue t1).

pour échange :moi :toi
soit [moi-pos demande :moi [pos]
toi-pos demande :toi [pos]]
demande :moi [fixepos :toi-pos]
demande :toi [fixepos :moi-pos]
fin

La procédure échange garde la position de chacune des tortues dans des variables locales et fait aussi l'échange de place.