anchor.diff:  
      (format t "Converting to greyscale~%")
      (greyscale-image img)
  -   ;(greyscale-image org)
  +   (greyscale-image org)
   
      (format t "Bluring image~%")
      (setf img (blur-image img))
  
positive.code: 
  (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")
     )
  
negative.code:    (format t "Applying edge detect~%")
     (setf img (discrete-convolve img *edge-kernel*))
  
     (format t "K-means clustering~%")
     (k-means img 2)
  
     (format t "Threashold the image~%")
     (threashold-image img 10)
  
     (format t "Edge thinning~%")
     (edge-thin img)
  
     (format t "overlaying image~%")
     (overlay img org)
  
     ;(format t "Dilate the image~%")
     ;(setf org (dilate (discrete-convolve org *edge-kernel*)
     ;   (make-8-bit-rgb-image 2 2 :initial-element 2)))
     ;(format t "labelling ~%")
     ;(setf img (colourise-components img))
     (format t "Bluring image~%")
     (setf org (blur-image org))
  
     (format t "K-means clustering~%")
     (k-means org 5)
  
     (format t "Writing to file~%")
     (write-image org output)) ; output the image for now
  