anchor.diff:  (load "Modulo7")
   
   ;---------------------------------------------------
  +;EVALUACIONES PARA CADA CIRCULO
  +(defun val-circulo (posx posy)
  +    (sqrt (+ (expt (- posx 60 ) 2 ) (expt (- posy 60) 2) ) )
  +  )
  +(defun val-circulo2 (posx posy)
  +    (sqrt (+ (expt (- posx 210 ) 2 ) (expt (- posy 60) 2) ) )
  +  )
  +(defun val-circulo3 (posx posy)
  +    (sqrt (+ (expt (- posx 360 ) 2 ) (expt (- posy 60) 2) ) )
  +  )
  +(defun val-circulo4 (posx posy)
  +    (sqrt (+ (expt (- posx 60 ) 2 ) (expt (- posy 210) 2) ) )
  +  )
  +(defun val-circulo5 (posx posy)
  +    (sqrt (+ (expt (- posx 210 ) 2 ) (expt (- posy 210) 2) ) )
  +  )
  +(defun val-circulo6 (posx posy)
  +    (sqrt (+ (expt (- posx 360 ) 2 ) (expt (- posy 210) 2) ) )
  +  )
  +(defun val-circulo7 (posx posy)
  +    (sqrt (+ (expt (- posx 60 ) 2 ) (expt (- posy 360) 2) ) )
  +  )
  +(defun val-circulo8 (posx posy)
  +    (sqrt (+ (expt (- posx 210 ) 2 ) (expt (- posy 360) 2) ) )
  +  )
  +(defun val-circulo9 (posx posy)
  +    (sqrt (+ (expt (- posx 360 ) 2 ) (expt (- posy 360) 2) ) )
  +  )
   
   ;---------------------------------------------------
   
  
positive.code: 	(place boton-ok 160 50))))
  
  (defun donde-estoy(evento)
    (let (
      (x-lienzo (event-x evento))
      (y-lienzo (event-y evento))
      (x1 NIL)
      (y1 NIL)
      (x2 NIL)
      (y2 NIL)
      (indice NIL) )
       (progn
        (loop
          for posicion in *Posiciones*
          for i from 0 to (length *Posiciones*)
          do(progn
            (setq x1 (caar posicion))
            (setq y1 (cadar posicion))
            (setq x2 (caadr posicion))
            (setq y2 (cadadr posicion))
            (cond 
              ( (and
                  (> x-lienzo x1)
                  (< x-lienzo x2)
                  (> y-lienzo y1)
                  (< y-lienzo y2) ) (return (setq indice i)) ) ) ) )
         indice ) ) )
  
  (defun tablero()
  	(with-ltk ()
  
negative.code: 		(wm-title *tk* "Morris de tres fichas")
  		(bind lienzo "<ButtonPress-1>" (lambda(evento)
  	      (setq indiceFicha (donde-estoy evento))
  	       (print indiceFicha);----
  	      (if (and (es-primera-fase-p) (numberp indiceFicha))
  	      	(progn
  		      	(print 'pintar-ficha);----
  		      	(print indiceFicha);----
  		        (print 'ya-pinto);----
  		      	 (print (coordenada-tablero indiceFicha));----
  			    (poner (coordenada-tablero indiceFicha) *Humano*)
  		      	(pintar-ficha indiceFicha *colorHumano*)
  		      	(format t "~%Tu jugada:")
  