anchor.diff:  
   (defgeneric generate/xy (gen x y))
   
  +(defgeneric trend (gen y))
  +
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   ;; method definition
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
positive.code:           (list (mapcar #'(lambda (x) (func/r x)) xfuncs)
                  (mapcar #'(lambda (x) (func/r x)) yfuncs))
          (plot+xy x y (theme gen) (aspect gen) (legend gen) (get-labels gen) (width gen) (filename gen) (get-format gen))))))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;; toplevel functions
  
negative.code:            :plot2d
             :plot/a
             :plot/xy
             :trend
             :polar-r
             :polar-ra
             :polar-xy
  