Pedal Selected Notes

[NagyMusic]

I have two brief examples taken from a piano piece.

 

In the first one, I'd like to attach the piano pedal marking on every octave, hold it and reattach at the next octave.

 

(setf ex1 '((-q a2a1 a2a1) (-q a3a2) (-wq q b2b1) (-wq q b2b1) (-q a2a1 - g3g2) (-q f3f2 a2a1) (q f3f2) (q f2f1) (-wq q f3f2) (-q g2g1) (-q g2g1 - g2g1) (-q f2f1 e3e2) (-q f2f1 d3d2) (-w q d3d2)))

 

In the second, I'd like to attach the piano pedal on every octave - not single pitches - and hold it until the next octave appears, and reattach it again.

 

(setf ex2 '((-q) (q g4 mp -) (q a4 mp - a4a3) (q cs4 mp - cs4cs3 -) (q f4 mp - f4f3) (q f4 mp - f4f3 -) (q e4 mp - e4 - e4) (-q) (q d4 mp - d4 -) (q e4 mp - e4e3) (q fs4 mp -) (q b4 mp - b4b3) (q b4 mp - b4 -) (q g4 mp - g4g3)))

 

Would anyone be willing to show me how to do that? Many thanks!

[NagyMusic]

I was able to attach the pedal to every measure:

 

(setf mat '((q c4 e3e4) (q g3 c3c4 h e4) (q c4 g4 e4e5)))
(setf counts-notes (get-count (omn :pitch mat)))
(setf att (gen-repeat (length counts-notes) '(ped)))
(setf ped-series (mclist att counts-notes))
(setf mat-ped (attribute-series ped-series mat))

 

I still can't figure out how to filter the particular notes (only two-note octaves - chords?) I want to attach the attribute too. Thanks again!