anchor.diff:  	(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 ) ) )
  +  
  +  (let ((indice NIL) )
  +     
  +     (if( < (val-circulo (event-x evento) (event-y evento) ) 50 )
  +                  (setq indice 0)
  +                  ;circulo 2
  +                  (if( < (val-circulo2 (event-x evento) (event-y evento) ) 50 )
  +                      (setq indice 1)
  +                     ;circulo 3
  +                     (if( < (val-circulo3 (event-x evento) (event-y evento) ) 50 )
  +                         (setq indice 2)
  +                        ;circulo 4
  +                        (if( < (val-circulo4 (event-x evento) (event-y evento) ) 50 )
  +                            (setq indice 3)
  +                           ;circulo 5
  +                           (if( < (val-circulo5 (event-x evento) (event-y evento) ) 50 )
  +                               (setq indice 4)
  +                              ;circulo 6
  +                              (if( < (val-circulo6 (event-x evento) (event-y evento) ) 50 )
  +                                  (setq indice 5)
  +                                 ;circulo 7 
  +                                 (if( < (val-circulo7 (event-x evento) (event-y evento) ) 50 )
  +                                     (setq indice 6)
  +                                    ;circulo 8
  +                                    (if( < (val-circulo8 (event-x evento) (event-y evento) ) 50 )
  +                                        (setq indice 7)
  +                                       ;circulo 9
  +                                       (if( < (val-circulo9 (event-x evento) (event-y evento) ) 50 )
  +                                           (setq indice 8)
  +                                           (setq indice nil)
  +                                       )  
  +                                    ) 
  +                                 ) 
  +                              ) 
  +                           ) 
  +                        ) 
  +                     ) 
  +                  )
  +                )
  +
  +     indice
  +     ) 
  +
  +
  + )
   
   (defun tablero()
   	(with-ltk ()
  
positive.code: (load "Modulo7")
  
  ;---------------------------------------------------
  
  ;---------------------------------------------------
  
  
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:")
  