anchor.diff:                     (1 0.7)
                      (1 0.3))
                    :border *relative-line-width*)
  -  (cairo:fill))
  +  (cairo:fill-path))
   
   
   
  
positive.code: 
          (cairo:set-source ground-unit-gradient)
  
          (cairo:fill))
  
        (cairo:translate 0.0d0 (* height  -0.5)); (/ exhaust-scale))))
        (cairo:scale (/ 1.0d0) (/ exhaust-scale)))
  
negative.code:       (cairo:rectangle  0.0d0  0.0d0 (- width 0) height)
        (cairo:set-source glow-gradient)
  
        (cairo:fill-path)))
  
  
  (def-texture-method selection-indicator
  