anchor.diff:                                         (bassline-1D))))
     (bup 14 24)
     (note 0 24 (et 11) :vibrato-delay 8)
  -  (bup 7 24 :vibrato-delay 24)
  -  (note 0 16 (et 3))
  -  (note 0 (+ 48 6) (et 6) :d 64 :vibrato-delay 24)
  +  (bup 7 24 :vibrato-delay 16)
  +  (note 0 18 (et 3))
  +  (note 0 (+ 48 6) (et 6) :d 48 :vibrato-delay 20)
     (bup 7 24)
     (note 0 18 (et 5) :vibrato-delay 0)
     (note 0 (+ 48 6) (et 10) :vibrato-delay 24)
  
positive.code:                      (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)
                     -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
                     (-11 :d 10) -8 (-6 :d 10 :vibrato-delay 4) -14))))
  
  (defpattern sax-2A (:accompany ((bassline-2A)))
  
negative.code:   (note 0 24 (et 14) :vibrato-delay 0)
    (bup 11 24)
    (note 0 18 (et  7))
    (note 0 (+ 48 6) (et 10) :d 48 :vibrato-delay 12)
    (bup 11 18)
    (note 0 (+ 6 24) (et 9) :vibrato-delay 8))
  
  