anchor.diff:       
   
   (defun arc-helper-lines (cr xc yc radius angle1 angle2)
  -  (cairo:set-source-color cr 1 0.2 0.2 0.6)
  -  (cairo:arc cr xc yc 0.05 0 (deg-to-rad 360))
  +  (cairo:set-source-color cr 1.0 0.2 0.2 0.6)
  +  (cairo:arc cr xc yc 0.05 0 (deg-to-rad 360.0))
     (cairo:fill cr)
     (setf (cairo:line-width cr) 0.03)
     (cairo:move-to cr xc yc)
  
positive.code: 
    (cairo:move-to cr 0.27 0.65)
    (cairo:text-path cr "void")
    (cairo:set-source-color cr 0.5 0.5 1)
    (cairo:fill cr t)
  
    (cairo:set-source-color cr 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:fill cr))
  
  
  
negative.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.0 1.0 0.0)
    (cairo:move-to cr 0.0 0.0)
    (cairo:line-to cr 1.0 1.0)
    (cairo:move-to cr 1.0 0.0)
    (cairo:line-to cr 0.0 1.0)
    (cairo:stroke cr))
  
  
  