anchor.diff:                            (setf (fourth point) (random 1.0))
                             0.01)))
                 (setf (first point) radius)
  -              ; v- fix with a transform?
  +              ;; v- fix with a transform?
                 (let ((x (+ x1 (* x xf)))
                       (y (+ y1 (* y yf)))
                       (rx (* radius xf))
  
positive.code:                            (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 handle-event ((pane radar-pane) (event timer-event))
    (with-slots (points) pane
  
negative.code:   (format *trace-output* "That was just a test~%")
    (finish-output *trace-output*))
  
  (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)
  