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:   (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:   (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))
  
  