anchor.diff:       -11 -8 -6 -11)))
   
   (defpattern chords-4C (:accompany ((bassline-4C)))
  -  (chord 24 7 -0.2 t  10 7 2 -5 -9)
  -  (rst (+ 8 32))
  -  (chord 32 7 -0.2 nil  4 0 -3)
  -  (chord 32 7 -0.2 nil  3 0 -3 -6)
  -  (chord 24 7 -0.2 t  2 -1 -3 -8)
  -  (rst 8)
  -  (chord 24 7 -0.2 t  7 2 -1 -3)
  -  (rst 8)
  -  (rst 8)
  -  (chord 14 7 -0.2 t  8 4 -1 -8 -11)
  -  (rst 10)
  -  (chord 32 7 -0.2 t  10 6 1 -2))
  +  (chord 18 7 -0.2 t  10 7 2 -5 -9)
  +  (rst (+ 6 24))
  +  (chord 24 7 -0.2 nil  4 0 -3)
  +  (chord 24 7 -0.2 nil  3 0 -3 -6)
  +  (chord 18 7 -0.2 t  2 -1 -3 -8)
  +  (rst 6)
  +  (chord 18 7 -0.2 t  7 2 -1 -3)
  +  (rst 6)
  +  (rst 6)
  +  (chord (+ 6 4) 7 -0.2 t  8 4 -1 -8 -11)
  +  (rst (- 12 4))
  +  (chord 24 7 -0.2 t  10 6 1 -2))
   
   (defpattern sax-4C (:accompany ((bassline-4C)))
  -  (note 0 16 (et 10) :cfg *sax-config*)
  +  (note 0 12 (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))
  +  (rst 6)
  +  (note 0 6 (et 9))
  +  (note 0 4 (et 12))
  +  (note 0 4 (et 16))
  +  (note 0 4 (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))
  +  (note 0 (+ 6 12) (et 22))
  +
  +  (note 0 36 (et 23) :vibrato-delay 15))
   
   (defpattern bassline-4D ()
     (walking-bassline
  
positive.code:             :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)
        (chord 32 6 -0.2 nil   7  2  0  -3  -7 -15)
        (chord 32 7 -0.2 nil   9  6  2  -1 -10 -17)
        (chord 24 6 -0.3 nil   7  2  0  -4 -14 -19)
        (chord 72 7 -0.2 nil   7  5  2  -2 -13)
        (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-1B)
                                            (bassline-1C)
                                            (bassline-1D))
                                         (sax-1BCD)))
    (chord 32 7 -0.2 nil   9  6  2  -3  -8 -17)
    (chord 32 6 -0.2 nil   7  2  0  -4 -10 -19)
    (chord 32 7 -0.2 nil   2 -2 -5 -14 -21)
    (chord 24 6 -0.3 nil   6  3 -2 -13 -23)
    (chord 72 7 -0.2 nil  10  6  3  -1 -18 -25)
    (chord 32 6 -0.2 nil   5  3  0  -4  -7)
    (chord 24 6 -0.3 nil  10  2  0  -7 -14)
    (chord 72 6 -0.2 nil   7  2 -2 -14 -21)
  
    (chord 32 7 -0.2 nil   4  0 -3 -8)
    (chord 24 6 -0.3 nil  14 10  5  0 -6 -10)
    (chord 72 7 -0.2 nil   9  6  2 -1 -8 -13)
  
    (chord 32 7 -0.2 nil   8  4  1 -1 -10 -11)
    (chord 24 6 -0.3 nil   6  4  1 -6 -14)
    (chord 72 7 -0.2 nil  13 10  6  3  -8 -13)
  
    (chord 32 7 -0.2 nil  12  8  5  3  -7)
    (chord 24 6 -0.3 nil  10  8  2 -4 -14)
    (chord 72 7 -0.2 nil  14 10  5  0  -5 -9)
  
    (chord 24 6 -0.3 nil  11  8  3  1 -11)
    (chord 24 7 -0.3 t    10  6  4  1  -6)
    (rst 16))
  
  (defpattern section-1 ()
    (para (bassline-1A)
  
negative.code: 
  ;;; ------------------------------------------------------------
  
  (defun walking-bassline (notes &key (note-length 12))
    (assert (not (zerop note-length)))
    (apply
     'seq
  