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:   (format *trace-output* "That was just a test~%")
    (finish-output *trace-output*))
  
  (defmethod enable-frame :after ((frame gadget-test))
    (clim-internals::schedule-timer-event
     (find-pane-named frame 'radar) 'radiate 0.1))
  
  (defclass radar-pane (basic-gadget)
    ((points :initform (list (list 0.01 0.01 0.10 0.10)
                             (list 0.10 0.02 0.70 0.40)
  
negative.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))
  