NagyMusic Posted March 4, 2023 Share Posted March 4, 2023 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! Quote Link to comment Share on other sites More sharing options...
NagyMusic Posted March 4, 2023 Author Share Posted March 4, 2023 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! Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.