replace length/pitch by a omn-seq

[AM]

i woud like to replace a pitch by a new omn-sequence. so i have to match/eliminate the length too... is there a function anywhere?

 

for example -> the "h gs5"

'(e fs4 c5 -w h gs5 -w e. d5 h cs5)

replace this values with another omn-seq, but how?

 

i could do something like this (in ord. lisp),

but then i get in trouble with the lengths

(loop for i in '(e fs4 c5 -w h gs5 -w e. d5 h cs5)
  when (equal i 'gs5)
  collect '(e. gs5 ppp g5 e_t f5 d5) 
  else collect i)

-> '(e fs4 c5 -w h (e. gs5 ppp g5 e_t f5 d5) -w e. d5 h cs5)

...so the last length-val before the insert has to be eliminated too (here: h (e. gs5 ...)) ... otherwise is gonna be wrong.

thanx for help

a.

 

[Stephane Boussuge]

may be this:

(setf phrase '(e fs4 c5 -w h gs5 -w e. d5 h cs5))
(motif-map '(((h gs5) (q fs4 gs5))) phrase)

SB.

[AM]

thanx, stephane!