in an OMN-stream i have (because of a special generating-algorithm) "always the same expressions" ...

for example:

(s a4 p ord -h s bb4 ord t cs5 f ord -w_e. s c5 mf ord t b4 p ord -q_t s d5 mf ponte cs5 ponte gs4 ffff pizz a4 mf ponte bb4 ponte f4 ponte h_e e4 ppp tasto) 

 

is there a function who reduces it at a minimum... one time ord then next ponte etc... (like length-rest-merge, but for the expressions)

 

thanxs

a.

 

This will be fixed in the next release, soon.

but is it possible to fix it, when i make a disassemble-omn and delete all "immediate repetitions" of the articulations?

 

that seems to be a solution -> (clear-articulations omn-list), it works works correct for my code.

 

regards

andré

 

(defun clear-articulations (omn-list)
  (make-omn :pitch (omn :pitch omn-list)
            :length (omn :length omn-list)
            :velocity (omn :velocity omn-list)
            :articulation (append (list '-) (loop repeat (length (omn :articulation omn-list))
                                              with cnt = 0
                                              with art = (omn :articulation omn-list)
                                              when (not (equal (nth cnt art) (nth (+ cnt 1) art)))
                                              collect (nth (+ cnt 1) art)
                                              else collect '-
                                              do (incf cnt)))))
  

 

NEXT RELEASE:

articulation merge fix

 

'(e a4 p ord - s bb4 ord e cs5 f ord -e s c5 mf ord
  e b4 p ord - d5 mf ponte cs5 ponte gs4 ffff pizz
  a4 mf ponte bb4 ponte f4 ponte e4 ppp tasto)