anchor.diff:                       (list (apply 'tri 12 (et (first pitch-or-whatevs)) (rest pitch-or-whatevs)))))
   
                    '(-9 -2 -5 (-8 :d 10)
  -                   -3 (-3 :d 10 :vibrato-delay 0) -10 (-10 :d 10 :vibrato-delay 0)
  +                   -3 (-3 :vibrato-delay 0) -10 (-10 :vibrato-delay 0)
                      -5 -3 -1 -5
                      (-8 :d 10 :vibrato-delay 0) -11 (-6 :d 12 :vibrato-delay 0) -14
   
                      -13 -6 -3 (-1 :d 10 :vibrato-delay 4)
                      (-7 :d 10) -5 (-4 :d 10) -2
  -                   -9 -10 (-12 :d 13 :vibrato-delay 4) -14
  +                   -9 -10 (-12 :vibrato-delay 4) -14
                      (-11 :d 10) -8 (-6 :d 10 :vibrato-delay 4) -14))))
   
   (defpattern sax-2A (:accompany ((bassline-2A)))
  
positive.code:   (chord 24 7 -0.2 t  14 9 6 4 2 0 -6))
  
  (defpattern sax-4A (:accompany ((bassline-4A) (chords-4A)))
    (note 0 42 (et 26) :vibrato-delay 20 :cfg *sax-long*)
    (note 0  3 (et 25) :cfg *sax-config*)
    (note 0  3 (et 24))
  
  
negative.code:   (fast-line '(14 16 18 21 19 21 23))
    (note 0 (+ 6 12) (et 22))
  
    (note 0 1 (et 22.5) :cfg *sax-long*)
    (note 0 (- 36 1) (et 23) :vibrato-delay 10))
  
  (defpattern bassline-4D ()
    (walking-bassline
  