anchor.diff:  
   (defpattern bassline-1 ()
     (seq
  -   (tri 32 (et  -1) :d 31)
  +   (tri 32 (et  -1) :d 31 :vibrato-delay 12)
      (tri 32 (et  -3) :d 31)
   
  -   (tri 32 (et  -5) :d 31)
  +   (tri 32 (et  -5) :d 31 :vibrato-delay 8)
      (tri 24 (et  -7) :d 23)
      (tri 24 (et  -9) :d 23)
      (tri 16 (et -10) :d 13)
  
positive.code:    (tri 16 (et  -7) :d 12)
     (tri 16 (et  -5) :d 12)
     (tri 16 (et  -4) :d 12)
     (tri 16 (et  -2) :d 14)))
  
  (defpattern bassline-3 ()
    (apply 'seq (mapcar (lambda (pitch duration) (tri 16 (et pitch) :d duration))
  
negative.code: 
  (defpattern bassline-2 ()
    (seq
     (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)
  