o_e Posted September 25, 2021 Share Posted September 25, 2021 Hi, What I want is the first pict: What I get, when I use this: (setf rhy '(e e 3q = = tie e e)) is seen in the second pict, what am I missing? Ok, I found the solution, writing 3q 3q 3q instead of 3q = = But then I stumbeled over the next problem, how can I use span with such tied rhymths? What I want is this: what I get with span is this: (setf line '(( c4 d4 e4 f4)( g4 a4))) (setf rhy '(e e tie 3q 3q 3q tie e e tie 3q tie 3q 3q)) (setf pit (span rhy line)) (make-omn :length rhy :pitch pit) Quote Link to comment Share on other sites More sharing options...
opmo Posted September 25, 2021 Share Posted September 25, 2021 tie is an attribute and not a length tie. The solution: '(e e 3q 3q 3q_e e)) (setf pitches '((c4 d4 e4 f4) (g4 a4))) (setf rhy '(e e_3q 3q 3q_e e_3q_3q 3q)) (make-omn :length rhy :pitch pitches) Quote Link to comment Share on other sites More sharing options...
o_e Posted September 25, 2021 Author Share Posted September 25, 2021 Superb! Thanks a lot!! Quote Link to comment Share on other sites More sharing options...
opmo Posted September 25, 2021 Share Posted September 25, 2021 with ratios: '(1/8 1/8_1/12 1/12 1/12_1/8 1/8_1/6 1/12) Quote Link to comment Share on other sites More sharing options...
o_e Posted September 25, 2021 Author Share Posted September 25, 2021 Thanks! There is one more thing I don't get, pitch-transpose seems to change the rhytm somehow or do I miss again something : (setf rhy '(e e_3q 3q 3q_e e_3q_3q 3q)) ;also tried ratios- same result (setf pit (span rhy line2)) (setf pit2 (make-omn :length rhy :pitch pit)) (setf pit2a (pitch-transpose 2 pit2)) Quote Link to comment Share on other sites More sharing options...
opmo Posted September 28, 2021 Share Posted September 28, 2021 The result is correct. Possibly the transposition could be done before the make-omn: (setf rhy '(e e_3q 3q 3q_e e_3q_3q 3q)) (setf pit '((c4 d4 e4 f4) (g4 a4))) (setf pit2 (pitch-transpose 2 pit)) (setf omn (make-omn :length rhy :pitch pit2)) At any point (usually at the end of your work) you can run quantize function to make the result look good (tuplet grouping) in notation. (setf rhy '(1/8 5/24 1/12 5/24 7/24 1/12)) (setf pit '((c4 d4 e4 f4) (g4 a4))) (setf pit2 (pitch-transpose 2 pit)) (setf omn (make-omn :length rhy :pitch pit2)) (quantize omn '(1 2 3 4)) => (e d4 e_3q e4 3q fs4 3q_e g4 e_3h a4 3q b4) 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.