anchor.diff:     (chord 24 7 -0.3 t    10  6  4  1  -6)
      (rst 16)))
   
  -(defpattern song ()
  -  (seq (para (bassline-1)
  -             (sax-1)
  -             (chords-1))
  -       (para (sax-234)
  -             (seq (bassline-2)
  -                  (bassline-3)
  -                  (bassline-4))
  -             (chords-234))))
  +(defpattern section-1 ()
  +  (seq (para (bassline-1A)
  +             (sax-1A)
  +             (chords-1A))
  +       (para (sax-1BCD)
  +             (seq (bassline-1B)
  +                  (bassline-1C)
  +                  (bassline-1D))
  +             (chords-1BCD))))
  +
  +
  +;;; ------------------------------------------------------------
  +
  
positive.code:       (chord 24 6 -0.3 nil   4  0 -5  -8 -15)
        (chord 24 7 -0.3 t     6  2 -3 -10))))
  
  (defpattern chords-234 (:accompany ((seq (bassline-2)
                                           (bassline-3)
                                           (bassline-4))
                                      (sax-234)))
    (seq
     (chord 32 7 -0.2 nil   9  6  2  -3  -8 -17)
     (chord 32 6 -0.2 nil   7  2  0  -4 -10 -19)
  
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
  