anchor.diff:  
     (cairo:move-to cr 0.27 0.65)
     (cairo:text-path cr "void")
  -  (cairo:set-source-color cr 0.5 0.5 1)
  +  (cairo:set-source-color cr 0.5 0.5 1.0)
     (cairo:fill cr t)
   
  -  (cairo:set-source-color cr 0 0 0)
  +  (cairo:set-source-color cr 0.0 0.0 0.0)
     (setf (cairo:line-width cr) 0.01)
     (cairo:stroke cr)
   
     ;; draw helping lines
  -  (cairo:set-source-color cr 1 0.2 0.2  0.6)
  -  (cairo:arc cr 0.04 0.53 0.02 0 (deg-to-rad 360))
  -  (cairo:arc cr 0.27 0.65 0.02 0 (deg-to-rad 360))
  +  (cairo:set-source-color cr 1.0 0.2 0.2  0.6)
  +  (cairo:arc cr 0.04 0.53 0.02 0 (deg-to-rad 360.0))
  +  (cairo:arc cr 0.27 0.65 0.02 0 (deg-to-rad 360.0))
     (cairo:fill cr))
   
   
  
positive.code: 	 (pattern (cairo:pattern-create-for-surface image)))
      (setf (cairo:pattern-extend pattern) :repeat)    
      (cairo:translate cr 0.5 0.5)
      (cairo:rotate cr (deg-to-rad 45))
      (cairo:scale cr (/ 1.0 (sqrt 2)) (/ 1.0 (sqrt 2)))  
      (cairo:translate cr -0.5 -0.5)
      (let ((width (cairo:surface-width image))
  	  (height (cairo:surface-height image))
  
negative.code: 
  (declaim (inline deg-to-rad))
  (defun deg-to-rad (deg)
    (* deg (/ pi 180.0)))
  
  (declaim (inline rad-to-deg))
  (defun rad-to-deg (rad)
    (/ (* rad 180.0) pi))
  
  
  (defvar *snippets* ())
  