david Posted April 22, 2023 Share Posted April 22, 2023 Hi, I would like to do for example (setf ry1 '((e))) (setf c7 (make-scale 'c4 24 :alt '(9 2 -9 9 1 -8 8 2 -9 9 2 -9 9 1 -8 8 2 -8 8 2 -9 9 2))) (setf rc7 (gen-retrograde c7)) (setf ass3 (assemble-seq c7 rc7)) (setf omn3 (pitch-transpose '(0 0 1 1 2 2 3 3 4 4 5 5 6 6 7 7 8 8 9 9 -2 -2 -1 -1 11 11) (gen-repeat 12 ass3))) (setf six+deux (omn-to-measure (make-omn :pitch omn3 :length ry1 :span :pitch) '(3/8))) (chordize six+deux) > Error: OMN Parse Error: fail > While executing: omn-to-ast, in process Listener-1(7). > Type cmd-. to abort, cmd-\ for a list of available restarts. > Type :? for other options. Quote Link to comment Share on other sites More sharing options...
opmo Posted April 22, 2023 Share Posted April 22, 2023 I would think about the chords before applying the make-omn function. (setf chords (chordize (gen-divide 3 (flatten omn3)))) (setf six+deux (omn-to-measure (make-omn :pitch chords :length ry1 :span :pitch) '(3/8))) Quote Link to comment Share on other sites More sharing options...
david Posted April 22, 2023 Author Share Posted April 22, 2023 ok i anderstand. Thank you very much 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.