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: 
  ;; Edge detect
  ; http://academypublisher.com/ijrte/vol01/no02/ijrte0102250254.pdf
  (defun edge-detect (img output)
     (format t "Converting to greyscale~%")
     (greyscale-image img)
  
     (format t "Bluring image~%")
     (setf img (blur-image img))
  
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")
     )
  