anchor.diff:                          -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))))
  +                      '(11 11 11 14  11 11 11 14  11 11 11 14  11 11 11 15))))
   
   (defpattern bassline-1D ()
     (apply 'seq (mapcar (lambda (pitch duration) (tri 16 (et pitch) :d duration))
  
positive.code:               (list (register 1 0))))))
  
  (defpattern sax-1A (:accompany ((bassline-1A)))
    (seq (bup 18 32 :vibrato-delay 24)
         (note 0 32 (et 14) :vibrato-delay 0)
         (bup 11 32)
         (note 0 24 (et  7))
         (note 0 72 (et 10) :d 64 :vibrato-delay 12)
         (bup 11 24)
         (note 0 (+ 8 32) (et 9) :vibrato-delay 8)))
  
  (defpattern sax-1BCD (:accompany ((seq (bassline-1B)
                                        (bassline-1C)
                                        (bassline-1D))))
    (seq (bup 14 32)
         (note 0 32 (et 11) :vibrato-delay 8)
         (bup 7 32 :vibrato-delay 24)
         (note 0 24 (et 3))
         (note 0 72 (et 6) :d 64 :vibrato-delay 24)
         (bup 7 32)
         (note 0 24 (et 5) :vibrato-delay 0)
         (note 0 72 (et 10) :vibrato-delay 24)
         (note 0 32 (et 11) :d 30 :vibrato-delay 8)
         (note 0 24 (et  9) :d 23)
         (note 0 (+ 8 64) (et 14) :vibrato-delay 8)
  
         (bup 15 32)
         (note 0 24 (et 15) :d 20)
         (note 0 (+ 8 64) (et 18) :d 64 :vibrato-delay 24)
         (note 0 32 (et 19) :vibrato-delay 8)
         (note 0 24 (et 19) :d 20)
         (note 0 (+ 8 64) (et 22) :d 64 :vibrato-delay 24)
  
         (note 0 24 (et 18) :vibrato-delay 0)
         (note 0 12 (et 18) :vibrato-delay 0)
         (rst 24)))
  
  (defun chord (length volume decay mute &rest notes)
    (arpeggio 1 length (mapcar (lambda (x) (et (+ x 12))) notes)
              :rate 1
              :duty (constantly 2)
              :volume (volramp volume decay)
              :mute mute))
  
negative.code:                         -7 -5 -3 -2
                          -9 -2 -5 -8
                          -11 -8 -6 -14)
                        '(11 11 11 14  11 11 11 12  11 11 11 14  11 11 11 11))))
  
  (defpattern bassline-seq-1 ()
    (bassline-1A)
    (bassline-1B)
    (bassline-1C)
    (bassline-1D))
  
  (defparameter *sax-config* '(:env nil :loop nil :duty 1 :vol 7))
  
  (defun bup (note length &key (d (1- length)) vibrato-delay)
    (para
     ;;(note 1 length (et note) :d d :cfg '(:env nil :loop nil :duty 0 :vol 6))
     (note 0 length (* (et (+ note -1.6 ))) :d d :cfg *sax-config* :vibrato-delay vibrato-delay)
     (seq (list (list (register 1 #x8F))
                nil
                nil
  