anchor.diff:         (bup 11 24)
          (note 0 (+ 8 32) (et 9) :vibrato-delay 8)))
   
  -(defpattern sax-1BCD (:accompany ((seq (bassline-2)
  -                                      (bassline-3)
  -                                      (bassline-4))))
  +(defpattern sax-1BCD (:accompany ((seq (bassline-1B)
  +                                      (bassline-1C)
  +                                      (bassline-1D))))
     (seq (bup 14 32)
          (note 0 32 (et 11) :vibrato-delay 8)
          (bup 7 32 :vibrato-delay 24)
  
positive.code:       (chord 24 6 -0.3 nil   4  0 -5  -8 -15)
        (chord 24 7 -0.3 t     6  2 -3 -10))))
  
  (defpattern chords-1BCD (:accompany ((seq (bassline-2)
                                            (bassline-3)
                                            (bassline-4))
                                         (sax-234)))
    (seq
     (chord 32 7 -0.2 nil   9  6  2  -3  -8 -17)
     (chord 32 6 -0.2 nil   7  2  0  -4 -10 -19)
  
negative.code:               nil
                (list (register 1 0))))))
  
  (defpattern sax-1A (:accompany ((bassline-1A)))
    (seq (bup 18 32 :vibrato-delay 24)
         (note 0 32 (et 14) :vibrato-delay 0)
         (bup 11 32)
  