anchor.diff:                 (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))
  
positive.code:    ;(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))
  
  
negative.code:                   (fill-circle img x y ss r g b))))))
  
  (defun stroke (source reference stroke-size)
     (typecase source
        (8-bit-rgb-image
           (locally (declare (type 8-bit-rgb-image source))
  