anchor.diff:                                            (bassline-1C)
                                             (bassline-1D))
                                          (sax-1BCD)))
  -  (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)
  -   (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)))
  +  (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 ()
  -  (seq (para (bassline-1A)
  -             (sax-1A)
  -             (chords-1A))
  -       (para (sax-1BCD)
  -             (seq (bassline-1B)
  -                  (bassline-1C)
  -                  (bassline-1D))
  -             (chords-1BCD))))
  -
  +  (para (bassline-1A)
  +        (sax-1A)
  +        (chords-1A))
  +  (para (sax-1BCD)
  +        (seq (bassline-1B)
  +             (bassline-1C)
  +             (bassline-1D))
  +        (chords-1BCD)))
   
   ;;; ------------------------------------------------------------
   
  +(defpattern bassline-2A ()
  +  (tri 32 (et  -1) :d 31 :vibrato-delay 12)
  +  (tri 32 (et  -3) :d 31)
  +  (tri 32 (et  -5) :d 29 :vibrato-delay 6)
  +  (tri 24 (et  -7) :d 23)
  +  (tri 24 (et -14) :d 22 :vibrato-delay 12)
  +  (tri 16 (et  -9) :d 11)
  +  (tri 16 (et  -5) :d 11)
  +  (tri 16 (et  -2) :d 11)
  +  (tri 16 (et  -3) :d 11)
  +  (tri 16 (et  -5) :d 11)
  +  (tri 16 (et  -6) :d 11)
  +  (tri 16 (et  -8) :d 14 :vibrato-delay 4))
  +
  +(defpattern bassline-2B ()
  +  (tri 32 (et  -5) :d 31 :vibrato-delay 12)
  +  (tri 32 (et  -7) :d 31)
  +  (tri 32 (et  -9) :d 29 :vibrato-delay 6)
  +  (tri 24 (et -11) :d 23)
  +  (tri 24 (et -13) :d 22 :vibrato-delay 12)
  +  (tri 16 (et  -6) :d 11)
  +  (tri 16 (et  -2) :d 11)
  +  (tri 16 (et  -1) :d 11)
  +  (tri 16 (et  -7) :d 11)
  +  (tri 16 (et  -5) :d 11)
  +  (tri 16 (et  -4) :d 11)
  +  (tri 16 (et  -2) :d 11))
  +
  +(defpattern bassline-2CD ()
  +  (apply 'seq
  +         (mapcar (lambda (pitch-or-whatevs)
  +                   (etypecase pitch-or-whatevs
  +                     (integer (tri 16 (et pitch-or-whatevs) :d 11))
  +                     (list (apply 'tri 16 (et (first pitch-or-whatevs)) (rest pitch-or-whatevs)))))
  +
  +                 '(-9 -2 -5 (-8 :d 14)
  +                   -3 (-3 :d 14 :vibrato-delay 0) -10 (-10 :d 14 :vibrato-delay 0)
  +                   -5 -3 -1 -5
  +                   (-8 :d 14 :vibrato-delay 0) -11 (-6 :d 15 :vibrato-delay 0) -14
  +
  +                   -13 -6 -3 (-1 :d 13 :vibrato-delay 4)
  +                   (-7 :d 13) -5 (-4 :d 13) -2
  +                   -9 -10 (-12 :d 13 :vibrato-delay 4) -14
  +                   (-11 :d 13) -8 (-6 :d 13 :vibrato-delay 4) -14))))
  +
  +(defpattern sax-2A (:accompany ((bassline-2A)))
  +  (bup 18 32)
  +  (note 0 32 (et 14) :vibrato-delay 12)
  +  (note 0 32 (et 11) :vibrato-delay 12)
  +  (note 0 24 (et  7))
  +  (note 0 72 (et 10) :vibrato-delay 24)
  +  (bup 11 24)
  +  (note 0 40 (et 9) :d 36 :vibrato-delay 8))
  +
  +(defpattern sax-2B (:accompany ((bassline-2B)))
  +  (note 0 32 (et 14) :vibrato-delay 12 :d 28 :cfg *sax-config*)
  +  (note 0 32 (et 11) :vibrato-delay 12 :d 28)
  +  (bup 7 32)
  +  (note 0 24 (et 3))
  +  (note 0 72 (et 6) :vibrato-delay 24 :d 64))
  +
  +(defpattern sax-2C ()
  +  (bup 7 32)
  +  (note 0 24 (et 5) :d 20)
  +  (note 0 72 (et 10) :d 64 :vibrato-delay 24)
  +  (bup 11 32)
  +  (note 0 24 (et 9) :d 20)
  +  (note 0 72 (et 14) :d 64 :vibrato-delay 12)
  +  (note 0 32 (et 15) :d 23)
  +  (note 0 24 (et 15) :d 23 :vibrato-delay 0)
  +  (note 0 72 (et 18) :d 64 :vibrato-delay 24)
  +  (note 0 32 (et 19) :d 24 :vibrato-delay 6)
  +  (note 0 24 (et 19) :d 22 :vibrato-delay 12)
  +  (note 0 72 (et 22) :d 64 :vibrato-delay 24))
  +
  +(defpattern sax-2D ()
  +  (note 0  8 (et 13) :cfg *sax-config*)
  +  (note 0  8 (et 16))
  +  (note 0  8 (et 20))
  +  (note 0  8 (et 23))
  +  (note 0 24 (et 23) :vibrato-delay 5)
  +  (note 0  8 (et 19)))
  +
  +(defpattern chords-2A (#|:accompany ((bassline-2A) (sax-2A))|#)
  +  (chord 32 7 -0.2 nil  13 -13)
  +  (chord 32 6 -0.2 nil  11   6  5   0  -6 -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   2  -2 -5 -13 -21)
  +  (chord 24 6 -0.3 nil   4   0 -5  -8 -15)
  +  (chord 40 7 -0.3   t  14  10  5   0  -6 -10))
  +
  +(defpattern chords-2B ()
  +  (chord 32 7 -0.2 nil   9   6   2  -1  -8 -17)
  +  (chord 32 6 -0.2 nil   7   2   0  -3 -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  -3 -18 -25))
  +
  +(defpattern chords-2C ()
  +  (rst 32)
  +  (chord 24 7 -0.2 nil   7   2   0  -2 -10 -16)
  +  (chord 72 7 -0.2 nil   2  -2  -5 -14 -21)
  +  (chord 32 7 -0.2 nil   4   0  -3  -8)
  +  (chord 24 6 -0.2 nil  14  10   5   0  -6 -10)
  +  (chord 72 7 -0.2 nil   9   6   2  -1  -8 -13))
  +
  +(defpattern chords-2D ()
  +  (chord 32 7 -0.2 nil   8   4   1  -1  -8 -11)
  +  (chord 24 6 -0.2 nil   6   4   1  -6 -14)
  +  (chord 72 7 -0.2 nil  13  10   5   3  -6 -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 32 7 -0.2 nil  11   8   4  -1 -11)
  +  (chord 16 8 -0.3   t  13  10   6   4 -10  -6)
  +  (rst 16))
  +
  +(defpattern section-2 ()
  +  (para
  +   (seq (bassline-2A)
  +        (bassline-2B)
  +        (bassline-2CD))
  +   (seq (sax-2A)
  +        (sax-2B)
  +        (sax-2C)
  +        (sax-2D))
  +   (seq (chords-2A)
  +        (chords-2B)
  +        (chords-2C)
  +        (chords-2D))))
  +
  +;;; ------------------------------------------------------------
  +
  +(defpattern song ()
  +  (section-1)
  +  (section-2))
  
positive.code:                         -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))
  
negative.code: (nesmus:define-song "Steps" ())
  
  (defpattern bassline-1A ()
    (tri 32 (et  -1) :d 31 :vibrato-delay 12)
    (tri 32 (et  -3) :d 30)
  
    (tri 32 (et  -5) :d 31 :vibrato-delay 8)
    (tri 24 (et  -7) :d 21)
    (tri 24 (et  -9) :d 23)
    (tri 16 (et -10) :d 13)
    (tri 16 (et -12) :d 13)
    (tri 16 (et -13) :d 13)
  
    (tri 16 (et  -3) :d 13)
    (tri 16 (et  -5) :d 15)
    (tri 16 (et  -6) :d 13)
    (tri 16 (et  -3) :d 15))
  
  (defpattern bassline-1B ()
    (tri 32 (et  -5) :d 30 :vibrato-delay 12)
    (tri 32 (et  -7) :d 30)
  
    (tri 32 (et  -9) :d 30 :vibrato-delay 8)
    (tri 24 (et -11) :d 21)
    (tri 24 (et -13) :d 21)
    (tri 16 (et  -6) :d 12)
    (tri 16 (et  -2) :d 12)
    (tri 16 (et  -6) :d 14)
  
    (tri 16 (et  -7) :d 12)
    (tri 16 (et  -5) :d 12)
    (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))
  