Casse-Tête
Glissant: Truc LogoToutes 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.
|