anchor.diff:    (cairo:rel-line-to cr -0.2 -0.2)
     (cairo:close-path cr)
   
  -  (cairo:set-source-color cr 0 0 1)
  +  (cairo:set-source-color cr 0.0 0.0 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)
     (cairo:stroke cr))
   
   
   (define-snippet fill-and-stroke (cr)
     (fill-and-stroke-common cr)
   
  -  (cairo:set-source-color cr 0 0 1)
  +  (cairo:set-source-color cr 0.0 0.0 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)
     (cairo:stroke cr))
   
   
   (define-snippet gradient (cr)
     (let ((pattern (cairo:pattern-create-linear 0.0 0.0 0.0 1.0)))
  -    (cairo:pattern-add-color-stop pattern 1 0 0 0 1)
  -    (cairo:pattern-add-color-stop pattern 0 1 1 1 1)
  -    (cairo:rectangle cr 0 0 1 1)
  +    (cairo:pattern-add-color-stop pattern 1.0 0.0 0.0 0.0 1.0)
  +    (cairo:pattern-add-color-stop pattern 0.0 1.0 1.0 1.0 1.0)
  +    (cairo:rectangle cr 0.0 0.0 1.0 1.0)
       (setf (cairo:source cr) pattern)
       (cairo:fill cr))
     (let ((pattern (cairo:pattern-create-radial 0.45 0.4 0.1 0.4 0.4 0.5)))
  -    (cairo:pattern-add-color-stop pattern 0 1 1 1 1)
  -    (cairo:pattern-add-color-stop pattern 1 0 0 0 1)
  +    (cairo:pattern-add-color-stop pattern 0.0 1.0 1.0 1.0 1.0)
  +    (cairo:pattern-add-color-stop pattern 1.0 0.0 0.0 0.0 1.0)
       (setf (cairo:source cr) pattern)
       (cairo:circle cr 0.5 0.5 0.3)
       (cairo:fill cr)))
  
positive.code: 
    (cairo:clip cr)
  
    (cairo:move-to cr 0 0)
    (cairo:line-to cr 1 1)
    (cairo:stroke cr))
  
  
  
negative.code: 
    (cairo:move-to cr 0.27 0.65)
    (cairo:text-path cr "void")
    (cairo:set-source-color cr 0.5 0.5 1.0)
    (cairo:fill cr t)
  
    (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 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))
  
  
  