anchor.diff:  (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 -14) :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))
  +  (tri 24 (et  -1) :d 31 :vibrato-delay 12)
  +  (tri 24 (et  -3) :d 30)
  +
  +  (tri 24 (et  -5) :d 31 :vibrato-delay 8)
  +  (tri 18 (et  -7) :d 21)
  +  (tri 18 (et  -9) :d 23)
  +  (tri 12 (et -10) :d 13)
  +  (tri 12 (et -12) :d 13)
  +  (tri 12 (et -14) :d 13)
  +
  +  (tri 12 (et  -3) :d 13)
  +  (tri 12 (et  -5) :d 15)
  +  (tri 12 (et  -6) :d 13)
  +  (tri 12 (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))
  +  (tri 24 (et  -5) :d 30 :vibrato-delay 12)
  +  (tri 24 (et  -7) :d 30)
  +
  +  (tri 24 (et  -9) :d 30 :vibrato-delay 8)
  +  (tri 18 (et -11) :d 21)
  +  (tri 18 (et -13) :d 21)
  +  (tri 12 (et  -6) :d 12)
  +  (tri 12 (et  -2) :d 12)
  +  (tri 12 (et  -6) :d 14)
  +
  +  (tri 12 (et  -7) :d 12)
  +  (tri 12 (et  -5) :d 12)
  +  (tri 12 (et  -4) :d 12)
  +  (tri 12 (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 14  11 11 11 14  11 11 11 14  11 11 11 15))))
  +  (apply
  +   'seq
  +   (mapcar
  +    (lambda (pitch duration) (tri 12 (et pitch) :d duration))
  +    '(-9  -2 -5  -9
  +      -3 -10 -8  -7
  +      -5  -3 -1  -5
  +      -8 -11 -6 -14)
  +    '(9 8 8 10  9 8 8 10  9 8 8 10  9 8 8 12))))
   
   (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 14  11 11 11 12  11 11 11 14  11 11 11 11))))
  +  (apply
  +   'seq
  +   (mapcar
  +    (lambda (pitch duration) (tri 12 (et pitch) :d duration))
  +    '(-13 -6 -1 -6
  +      -7 -5 -3 -2
  +      -9 -2 -5 -8
  +      -11 -8 -6 -14)
  +    '(8 8 8 11  8 8 8 9  8 8 8 11  9 9 11 9))))
   
   (defpattern bassline-seq-1 ()
     (bassline-1A)
  
positive.code:       (etypecase pitch
          (integer (note 0 length (et pitch) :cfg (list :env nil :loop nil :duty (random 3) :vol 7)))
          (null (rst length))))
      '#1=(9 7 . #1#)
      notes)))
  
  (defpattern sax-3A (:accompany ((bassline-3A)))
  
negative.code:   (fast-line
     '(11 14 19 23 14 17 20 24
       15 17 19 22 16 20 23 25))
    (bup 22 12)
    (note 0 6 (et 20))
    (note 0 18 (et 18) :vibrato-delay 4)
    (rst 12))
  
  (defpattern sax-3C (:accompany ((bassline-3C)))
    (fast-line
  