anchor.diff:                    (fill-circle img x y ss r g b))))))
   
   (defun stroke (source reference stroke-size)
  -   ;(setf canvas (copy-image source))
  -   ;(greyscale-image canvas)
  -   ;(format t ".")
  -   ;(if (< stroke-size 255)
  -   ;   (setf canvas (dilate (discrete-convolve canvas *dilate*)
  -   ;		(make-8-bit-rgb-image stroke-size stroke-size :initial-element stroke-size)))
  -   ;   (threashold-image-colour canvas (ceiling (/ stroke-size 255))))
  -   ;(format t ".")
  -   ;(threashold-image canvas 90)
  -   ;(format t ".")
  -
  -
  -   ;(format t ".")
  -   ;(if (> stroke-size 255)
  -   ;   (loop for i below (ceiling (/ stroke-size 255)) do
  -   ;      (setf reference (blur-image reference)))
  -   ;   (diff-stroke reference canvas))
      (typecase source
         (8-bit-rgb-image
            (locally (declare (type 8-bit-rgb-image source))
  
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"))
  
  