anchor.diff:     ;(setf blobs '(8 4))
      (format t "Painting photo~%")
      (setf painting (paint input blobs))
  -   ;(format t "Determining the average colour~%")
  -   ;(setf col (k-means-cluster-image-pixels (load-painting input) 2))
  -   ;(format t "~S~%" col)
  -   ;(format t "filling image~%")
  -   ;(fill-image bg (aref col 0 0 0) (aref col 0 0 1) (aref col 0 0 2))
  -   ;(format t "overlaying image~%")
  -   ;(overlay-bg painting bg)
      (format t "writing image~%")
      (write-image painting output))
   
  
positive.code:                (format t "." stroke-size)
                 (loop for i below (/ (+ width height) 2) do
                    (circle-stroke source reference stroke-size (random height) (random width))))))))
  
     ;(format t ".")
     ;(setf reference (blur-image reference))
  
     ;(format t ".")
     ;(overlay-stroke source reference) source)
  
  (defun paint (source r)
     (format t "Painting ~S~%" source)
     (format t "~S layers to paint~%" (length r))
  
negative.code: 	)
  
  (defun f ()
     (filter-image "output/odetojoy_edge.png" "images/palm_beach.png" "output/palm_beach_odetojoy.png"))
     ;(filter "output/scream.png" "images/lenna.png" "output/lenna_painting_scream.png"))
  
  