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:   (cairo:new-path cr) ; current path is not consumed by cairo:clip
    (cairo:rectangle cr 0 0 1 1)
    (cairo:fill cr)
    (cairo:set-source-color cr 0 1 0)
    (cairo:move-to cr 0 0)
    (cairo:line-to cr 1 1)
    (cairo:move-to cr 1 0)
    (cairo:line-to cr 0 1)
    (cairo:stroke cr))
  
  
  
negative.code:   (let ((image (cairo:image-surface-create-from-png 
  		#p"clg:examples;romedalen.png")))
      (cairo:translate cr 0.5 0.5)
      (cairo:rotate cr (deg-to-rad 45.0))
      (let ((width (cairo:surface-width image))
  	  (height (cairo:surface-height image)))
        (cairo:scale cr (/ 1.0 width) (/ 1.0 height))  
  