Rene Posted April 7, 2021 Share Posted April 7, 2021 If I don't want to have octaves, what shall I do? If I evaluate that code, I still get an octave. (setf v1 '(h c5)) (setf v2 '(-q c4)) (polyphony '((12 11)) (list v1 v2) :index 'out) (ps 'gm :p (list out1 out2)) Thank you. René Wohlhauser Quote Link to comment Share on other sites More sharing options...
opmo Posted April 8, 2021 Share Posted April 8, 2021 The c4 is not in sync with c5 therefore polyphony process is not applied. Quote Link to comment Share on other sites More sharing options...
Rene Posted April 8, 2021 Author Share Posted April 8, 2021 Thank you for your answer. I understand very well, what you write. Now it is the case that for a large part of contemporary (modern classical) composers (referring e.g. to Boulez or Nono) it is an important rule, that no octaves (and also the double octave etc. and depending to the context also no tonal triads) should occur in their compositions, regardless of whether this interval occurs at the same time (in sync) or not at the same time. For these composers it would be very helpful, if a composition aid program like opusmodus also could make this control function available. Do you think, this could be possible? It would be good, if in this function one could choose, depending on the situation, whether the octave should be replaced by one or more specific intervals ((12) (11 13)) or whether the octave is simply entered as a prohibition and the program itself can choose, which other interval will replace the octave. (Perhaps in such a way that the neighboring intervals are checked out first as a possibility, and if that does not work, the program goes to more distant intervals). Stephane Boussuge 1 Quote Link to comment Share on other sites More sharing options...
opmo Posted April 10, 2021 Share Posted April 10, 2021 The overlapping of pitches (voices) could be fixed. I will have a look. Stephane Boussuge 1 Quote Link to comment Share on other sites More sharing options...
Rene Posted April 10, 2021 Author Share Posted April 10, 2021 Thank you. I'm looking forward to it. Quote Link to comment Share on other sites More sharing options...
opmo Posted April 11, 2021 Share Posted April 11, 2021 Done. (setf v1 '(h c5)) (setf v2 '(-q c4)) (polyphony '((12 11)) (list v1 v2) :index 'out) (ps 'gm :p (list out1 out2)) (setf v1 '(h c4 h d4 q e4 -h.)) (setf v2 '(-q c5 -q d5 q d5 q e5 h f5)) (polyphony '((12 11)) (list v1 v2) :index 'out) (ps 'gm :p (list out1 out2)) (polyphony '((12 11)) (list v1 v2) :index 'out :leading 2) (ps 'gm :p (list out1 out2)) Rene, AM, Stephane Boussuge and 1 other 4 Quote Link to comment Share on other sites More sharing options...
Rene Posted April 11, 2021 Author Share Posted April 11, 2021 Fantastic! Thank you very much for the quick solution. 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.