anchor.diff:    (bassline-1D))
   
   (defparameter *sax-config* '(:env nil :loop nil :duty 1 :vol 7))
  +(defparameter *sax-long* '(:env nil :loop t :duty 1 :vol 7))
   
   (defun bup (note length &key (d (1- length)) vibrato-delay)
     (para
  
positive.code:   (chord 22 7 -0.2 t  10 6 4 -6 -12)
    (rst 10))
  
  (defpattern section-4 ()
    (para (bassline-4A)
          (chords-4A))
    (para (bassline-4B)
          (chords-4B))
    (para (bassline-4C)
          (chords-4C))
    (para (bassline-4D)
          (chords-4D)))
  
  ;;; ------------------------------------------------------------
  
  
negative.code:   (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
  