Ciao, Opusmoders

All previous rewrite functions used in conjunction for transformations.

Ciao !

https://opusmodus.com/forums/topic/4097-rewrite-len-function/#comment-14209

(setf expressao-omn '((s eb4 d4 e a4 -s s eb4) (h eb4 a4 -s eb4 d4 -s)

(e. d4 a4 eb4 d4)

(-q e f4 s c5 qs fs4)))

(rewrite-pit

(rewrite-dyn

(rewrite-len expressao-omn

'(h -e s q -h q -q s s s))

'(pp< ff mf fff p < < fff ppp fff mf fff p))

'(c4 g5))

https://opusmodus.com/forums/topic/4097-rewrite-len-function/#comment-14209

Hi Julio. You could get the same results with omn-replace I think.

Jesper

;; Exemplo 1: Dinâmicas simples

(setf expressao-omn '((s eb4 d4 e a4 -s s eb4 tie) (h eb4 a4 -s eb4 d4 -s tie) (e. d4 a4 eb4 d4) (-q e f4 s c5 qs fs4)))

(rewrite-dyn expressao-omn '(p mf ff))

;;slightly different

(omn-replace :velocity '(p mf ff) expressao-omn)

;; with span the same

(omn-replace :velocity (span expressao-omn '(p mf ff)) expressao-omn)

(rewrite-dyn expressao-omn '(ff > p p< ff> pp ff p p< ff p mf ppp p < ff))

(omn-replace :velocity (span expressao-omn '(ff > p p< ff> pp ff p p< ff p mf ppp p < ff)) expressao-omn)

Thanks, Jesper
I did not remember that one. Mine have the advantage of having the embedded span, so we can have a more elegant code.

Best,

Julio