anchor.diff:                nil
                 (list (register 1 0))))))
   
  -(defpattern sax-1A (:accompany ((bassline-1)))
  +(defpattern sax-1A (:accompany ((bassline-1A)))
     (seq (bup 18 32 :vibrato-delay 24)
          (note 0 32 (et 14) :vibrato-delay 0)
          (bup 11 32)
  
positive.code:        (bup 11 24)
         (note 0 (+ 8 32) (et 9) :vibrato-delay 8)))
  
  (defpattern sax-1BCD (:accompany ((seq (bassline-2)
                                        (bassline-3)
                                        (bassline-4))))
    (seq (bup 14 32)
         (note 0 32 (et 11) :vibrato-delay 8)
         (bup 7 32 :vibrato-delay 24)
  
negative.code:             :volume (volramp volume decay)
              :mute mute))
  
  (defpattern chords-1A (:accompany ((bassline-1A) (sax-1A)))
    (segment 256
      (seq
        (chord 32 7 -0.2 nil  10  6  3  -1  -6 -13)
  