anchor.diff:     (tri 16 (et  -6) :d 13)
      (tri 16 (et  -3) :d 13)))
   
  -(defpattern bassline-2 ()
  +(defpattern bassline-1B ()
     (seq
      (tri 32 (et  -5) :d 30 :vibrato-delay 12)
      (tri 32 (et  -7) :d 30)
  
positive.code:             :volume (volramp volume decay)
              :mute mute))
  
  (defpattern chords-1 (:accompany ((bassline-1) (sax-1)))
    (segment 256
      (seq
        (chord 32 7 -0.2 nil  10  6  3  -1  -6 -13)
  
negative.code:    (tri 16 (et  -4) :d 12)
     (tri 16 (et  -2) :d 14 :vibrato-delay 0)))
  
  (defpattern bassline-1C ()
    (apply 'seq (mapcar (lambda (pitch duration) (tri 16 (et pitch) :d duration))
                        '(-9  -2 -5  -9
                          -3 -10 -8  -7
                          -5  -3 -1  -5
                          -8 -11 -6 -14)
                        '(11 11 11 12  11 11 11 12  11 11 11 12  11 11 11 13))))
  
  (defpattern bassline-1D ()
    (apply 'seq (mapcar (lambda (pitch duration) (tri 16 (et pitch) :d duration))
                        '(-13 -6 -1 -6
                          -7 -5 -3 -2
                          -9 -2 -5 -8
                          -11 -8 -6 -14)
                        '(11 11 11 12  11 11 11 12  11 11 11 12  11 11 11 13))))
  
  (defpattern bassline-seq-1 ()
    (seq
     (bassline-1A)
     (bassline-1B)
     (bassline-1C)
     (bassline-1D)))
  
  (defun bup (note length &key (d (1- length)) vibrato-delay)
    (para
  