LCSI
 
Biblioteca de Proyectos
Rompecabezas m�vil: Consejo Logo

Todas las tortugas de este rompecabezas han sido programadas con el siguiente procedimiento:

para desplazar
si (distancia "t1) > 40 [alto]
cambiar qui�n "t1
fin

La primitiva qui�n es un reportero que informa el nombre de la tortuga sobre la cual Ud. ha hecho clic. El procedimiento desplazar verifica si esa tortuga est� lo suficientemente cerca del cuadrado azul para realizar el cambio (el cuadrado azul es un tortuga cuyo nombre es t1).

para cambiar :yo :t�
asigna [mi-pos pide :yo [pos]
tu-pos pide :t� [pos]]
pide :yo [fpos :tu-pos]
pide :t� [fpos :mi-pos]
fin

Este procedimiento guarda las posiciones de las tortugas en variables locales y luego realiza el cambio.