anchor.diff:  
         (relative-path width height cairo:*context* path)
         (set-source-color (mix-colors '(0 0 0 0.5 0.5) color))
  -      (cairo:fill)
  +      (cairo:fill-path)
         (relative-path width height cairo:*context* path)
         (set-source-color color)
         (cairo:stroke)))
  
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 height)
        (cairo:set-source beam-gradient)
  
        (cairo:fill-path)))
  
  (def-texture-method laser-beam-cap
      (with-gradient (beam-gradient :radial ((/ width 2) (/ height 2)
  