anchor.diff:                     (1 0.7)
                      (1 0.3))
                    :border *relative-line-width*)
  -  (cairo:fill))
  +  (cairo:fill-path))
   
   (def-texture-method empty-health-element
       (set-source-color '(1 0 0 1))
  
positive.code:       (cairo:rectangle  0.0d0  0.0d0 (- width 0) height)
        (cairo:set-source glow-gradient)
  
        (cairo:fill)))
  
  
  (def-texture-method selection-indicator
  
negative.code:                                   *beam-gradient-table*)
        (cairo:rectangle  0.0d0  0.0d0 width height)
        (cairo:set-source beam-gradient)
        (cairo:fill-path)
        (cairo:rectangle  0.0d0  0.0d0 (/ width 2) height)
        (set-source-color '(0 0 0 1))
        (cairo:fill-path)))
  
  
  (def-texture-method visible-line
  