anchor.diff:  (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))
  
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:                                  (pixel img (first f) (second f))
                                   (declare (type (unsigned-byte 8) r1 g1 b1))
                                      ;((and (eq _r 0) (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)
  