anchor.diff:    (rst 10)
     (chord 32 7 -0.2 t  10 5 2 0 -2))
   
  +(defpattern sax-4B (:accompany ((bassline-4B)))
  +  (fast-line '(nil 14 19 23 14 17 20 24))
  +  (fast-line '(15 17 19 22 16 18 20 23))
  +  (note 0 24 (et 18))
  +  (fast-line '(15 13 12 11 7))
  +  (fast-line '(12 14 15 12 19 17 14 12)))
  +
   (defpattern bassline-4C ()
     (walking-bassline
      '(-9 -2 -5 -8
  
positive.code:   (bassline-1D))
  
  (defparameter *sax-config* '(:env nil :loop nil :duty 1 :vol 7))
  
  (defun bup (note length &key (d (1- length)) vibrato-delay)
    (para
  
negative.code:   (rst 10)
    (chord 32 7 -0.2 t  10 6 1 -2))
  
  (defpattern sax-4C (:accompany ((bassline-4C)))
    (note 0 16 (et 10) :cfg *sax-config*)
    (fast-line '(nil 20 19 15 nil nil))
  
    (rst 8)
    (note 0 8 (et 9))
    (note 0 6 (et 12))
    (note 0 5 (et 16))
    (note 0 5 (et 19))
    (fast-line '(23 21 18 16))
  
    (fast-line '(14 16 18 21 19 21 23))
    (note 0 (+ 8 16) (et 22))
  
    (note 0 48 (et 23) :vibrato-delay 15))
  
  (defpattern bassline-4D ()
    (walking-bassline
     '(-13 -6 -2 -1
  