anchor.diff:                             (list 0.20 0.07 0.60 0.90)
                              (list 0.20 0.08 0.80 0.30)
                              (list 0.20 0.09 0.60 0.20)))))
  +
  +(defmethod note-sheet-grafted ((sheet radar-pane))
  +  (clim-internals::schedule-timer-event sheet 'radiate 0.1))
   
   (defmethod handle-event ((pane radar-pane) (event timer-event))
     (with-slots (points) pane
  
positive.code:                           (setf (fourth point) (random 1.0))
                            0.01)))
                (setf (first point) radius)
                ; v- fix with a transform?
                (let ((x (+ x1 (* x xf)))
                      (y (+ y1 (* y yf)))
                      (rx (* radius xf))
  
negative.code:                     (orx (* old-radius xf))
                      (ory (* old-radius yf)))
                  (draw-ellipse* pane x y
                                 0 ory
                                 orx 0
                                 :ink +background-ink+ :filled nil)
                  (when (> radius 0.01)
                    (draw-ellipse* pane x y
                                   0 ry
                                   rx 0
                                   :ink +black+ :filled nil)))))))))
    (when (sheet-grafted-p pane)
      (clim-internals::schedule-timer-event pane 'radiate 0.1)))
  