anchor.diff:                                   (pixel img (first f) (second f))
                                    (declare (type (unsigned-byte 8) r1 g1 b1))
                                       ;((and (eq _r 0) (eq r1 255)) (setf empty nil))
  -                                    ;((and (eq _r 255) (eq r1 255)) (setf empty nil))
  +                                    (if (and (eq _r 255) (eq r1 255)) (setf w (+ w 1)))
                                       (if (and (eq _r 255) (eq r1 0)) (setf c (+ c 1)))
  +                                    (if (and (eq _r 0) (eq r1 255)) (setf l (+ l 1)))
  +                                    ;(if (and (eq _r 0) (eq r1 255)) (setf w (+ w 1)))
                                       ;(setf c 6)
                                    )))
                        (multiple-value-bind (r g b)
  
positive.code:                         (declare (type (unsigned-byte 8) r g b))
                             (setf v r)
                             (if (eq c 8) (setf v 0))
                             (setf (pixel img i j)
                                (values v v v))))))))))
  
  
negative.code: (use-package 'opticl)
  
  (defparameter *edge-kernel* #2A((0 1 0) (1 -4 1) (0 1 0)))
  (defparameter *dilate-map* #3A(((-1 -1) (0 -1) (1 -1)) ((-1 0) (0 0) (1 0)) ((-1 1) (0 1) (1 1))))
  ;; Convert an image into RGB pixels
  (defun load-painting (name)
     (let ((img (read-png-file name))) img))
  