anchor.diff:  		  (when pix-av
   		    (incf soma pix-av)
   		    (incf numero))))
  -	    (when (= ipix 9) (format t "a-volta:~a soma:~a~%" a-volta soma))
  +
   	      (when (and (not (= numero 0)) (>= (round (round soma numero) a-volta-len) 1))
   ;		(setf (aref pix-hv ipix) 1)
   		))
  
positive.code: 
  	      (fapix-remove-atribuicao! f ipix)
  	      (push ipix (fapix-natribuidos f))
  ;;	      (push ipix (aref (fapix-dominio-len f) (length d)))
  	      (nconc (aref (fapix-dominio-len f) (length d)) (list ipix)) ; TODO:
  
  ;	      (print "Removendo a atribuicao:")
  ;	      (desenha-fill-a-pix (fapix->fill-a-pix f))
  
negative.code:       (delete-duplicates (aref pix-relacionados i)))
  ;    (nreverse pix-natribuidos)
  
  ;    (desenha-fill-a-pix (array->fill-a-pix pix-hv linhas colunas))
  ;    (format t "Percorri o tab todo~%")
      (make-fapix :linhas linhas
  		:colunas colunas
  