anchor.diff:  
   	      (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:
  +	      (push ipix (aref (fapix-dominio-len f) (length d)))
   
   ;	      (print "Removendo a atribuicao:")
   ;	      (desenha-fill-a-pix (fapix->fill-a-pix f))
  
positive.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
  
negative.code: 		  (when pix-av
  		    (incf soma pix-av)
  		    (incf numero))))
  
  	      (when (and (not (= numero 0)) (>= (round (round soma numero) a-volta-len) 1))
  ;		(setf (aref pix-hv ipix) 1)
  		))
  