merge lengths with same pitches

[born]

Does anybody know how to merge lengths with same pitches?

 

(e c4 c4 e. c4 q c4 s c4 e eb4 e. eb4 h eb4 e. eb4 q eb4) => (h. c4 wq eb4)

 

Thanks for help,

Achim

[Stephane Boussuge]

(filter-tie '(e c4 c4 e. c4 q c4 s c4 e eb4 e. eb4 h eb4 e. eb4 q eb4))
=> (h. c4 mf wq eb4)

 

 

also this could be useful as well but Janusz probably can program it much better:

 

(defun filter-change (omn-lst)
  (make-omn
   :pitch (omn :pitch omn-lst)
   :length (binary-map (gen-binary-change (omn :pitch omn-lst)) (omn :length omn-lst))
   :velocity (omn :velocity omn-lst)
   :articulation (omn :articulation omn-lst)
   :swallow t
   ))

(filter-change '(e c4 c4 e. c4 q c4 s c4 e eb4 e. eb4 h eb4 e. eb4 q eb4))
=> (e c4 - -e. -q -s e eb4 -e. -h -e. -q)

 

[born]

Thanks a lot Stephane, that helps. Achim