anchor.diff:     (format t "Edge thinning (long process)~%")
      (edge-thin img)
   
  -   (format t "labelling ~%")
  -   (setf img (colourise-components img))
  -   ;(format t "K-means clustering~%")
  -   ;(format t "~S~%" (k-means-cluster-image-pixels img 2))
  +   (format t "overlaying image~%")
  +   (overlay img org)
  +   ;(format t "labelling ~%")
  +   ;(setf img (colourise-components img))
  +   (format t "K-means clustering~%")
  +   (format t "~S" (k-means-cluster-image-pixels org 3))
   
      (format t "Writing to file~%")
  -   (write-image img output)) ; output the image for now
  +   (write-image org output)) ; output the image for now
   
   ;; Shorthand function to run the noise estimation
   (defun noise (input output)
  
positive.code:                               (multiple-value-bind (r1 g1 b1)
                                   (pixel img (first f) (second f))
                                   (declare (type (unsigned-byte 8) r1 g1 b1))
                                      (if (and (eq _r 255) (eq r1 0)) (setf c (+ c 1))))))
                       (multiple-value-bind (r g b)
                          (pixel img i j)
                          (declare (type (unsigned-byte 8) r g b))
                             (setf v r)
                             (if (eq c 8) (setf v 0))
                             (setf (pixel img i j)
                                (values v v v))))))))))
  
  
negative.code: 
  ;; Shorthand function to run the edge detection
  (defun edge (input output)
     (edge-detect input output))
  
  (defun e ()
     (load 'fa.lisp)
     ;(edge "images/odetojoy.png" "output/odetojoy_edge.png")
     (edge "images/the_scream.png" "output/scream_edge.png")
     ;(edge "images/odetojoy.png" "output/odetojoy_edge.png")
     ;(edge "images/im_blauen.png" "output/im_blauen_edge.png")
     ;(edge "images/pacman_game.png" "output/pacman_game_edge.png")
     ;(edge "images/stardust.png" "output/stardust_edge.png")
     ;(edge "images/starry_night.png" "output/starry_night_edge.png")
     )
  