AM Posted January 25, 2022 Share Posted January 25, 2022 why does the MERGE-VOICES not work with this two voices? (voices are with MAKE-OMN, no problem to display as "single voices") thanx for help andré (setf voice1 '(-d_whs s f4 ppp g4 e4 fs4 e4 fs4 fs4 -d_whs s d4 eb4 -e s d4 - e4 -d_whs s d4 eb4 -e s d4 - e4 -d_whs s cs4 g4 - fs4 e4 d4 fs4 -d_whs s fs4 g4 e4 e4 fs4 e4 e4 -d_whs s eb4 eb4 cs4 cs4 eb4 cs4 f4 -d_whs s f4 f4 fs4 fs4 e4 e4 e4 -d_whs s d4 eb4 -e s d4 - e4 -d_whs s f4 f4 g4 g4 f4 f4 f4 -d_whs s d4 d4 -e s d4 - f4 -d_whs s e4 g4 fs4 fs4 fs4 fs4 e4 -d_whs s eb4 eb4 cs4 cs4 eb4 cs4 f4 -d_whs s d4 g4 - e4 fs4 - e4 -d_whs s f4 g4 fs4 fs4 fs4 fs4 e4 -d_whs s d4 eb4 -e s d4 - e4)) (setf voice2 '(-d_whs s fs3 ppp e3 g3 f3 g3 f3 f3 -d_whs s a3 gs3 -e s a3 - g3 -d_whs s a3 gs3 -e s a3 - g3 -d_whs s bb3 e3 - f3 g3 a3 f3 -d_whs s f3 e3 g3 g3 f3 g3 g3 -d_whs s gs3 gs3 bb3 bb3 gs3 bb3 fs3 -d_whs s fs3 fs3 f3 f3 g3 g3 g3 -d_whs s a3 gs3 -e s a3 - g3 -d_whs s fs3 fs3 e3 e3 fs3 fs3 fs3 -d_whs s a3 a3 -e s a3 - fs3 -d_whs s g3 e3 f3 f3 f3 f3 g3 -d_whs s gs3 gs3 bb3 bb3 gs3 bb3 fs3 -d_whs s a3 e3 - g3 f3 - g3 -d_whs s fs3 e3 f3 f3 f3 f3 g3 -d_whs s a3 gs3 -e s a3 - g3)) (merge-voices voice2 voice2) > Error: There is no applicable method for the generic function: > #<standard-generic-function omn-symbol #x3020009144EF> > when called with arguments: > (nil) > While executing: #<ccl::standard-kernel-method no-applicable-method (t)>, in process Listener-2(8). > Type cmd-/ to continue, cmd-. to abort, cmd-\ for a list of available restarts. > If continued: Try calling it again > Type :? for other options. Quote Link to comment Share on other sites More sharing options...
opmo Posted January 25, 2022 Share Posted January 25, 2022 No errors here: (merge-voices voice1 voice2) or (merge-voices voice2 voice2) The second expression is redundant Quote Link to comment Share on other sites More sharing options...
AM Posted January 25, 2022 Author Share Posted January 25, 2022 crazy Quote Link to comment Share on other sites More sharing options...
opmo Posted January 25, 2022 Share Posted January 25, 2022 (merge-voices voice1 voice2) Quote Link to comment Share on other sites More sharing options...
AM Posted January 25, 2022 Author Share Posted January 25, 2022 it's not working on my system Quote Link to comment Share on other sites More sharing options...
o_e Posted January 25, 2022 Share Posted January 25, 2022 I just tried it out of curiosity and get a strange result: voice1 voice2 (merge-voices voice1 voice2) Edit: ok, now I've used (also) (omn-to-time-signature voice1 '(4 4)) and it did work fine! Quote Link to comment Share on other sites More sharing options...
AM Posted January 26, 2022 Author Share Posted January 26, 2022 also this do not work (setf voice1 '(-d_whs s f4 ppp g4 e4 fs4 e4 fs4 fs4 -d_whs s d4 eb4 -e s d4 - e4 -d_whs s d4 eb4 -e s d4 - e4 -d_whs s cs4 g4 - fs4 e4 d4 fs4 -d_whs s fs4 g4 e4 e4 fs4 e4 e4 -d_whs s eb4 eb4 cs4 cs4 eb4 cs4 f4 -d_whs s f4 f4 fs4 fs4 e4 e4 e4 -d_whs s d4 eb4 -e s d4 - e4 -d_whs s f4 f4 g4 g4 f4 f4 f4 -d_whs s d4 d4 -e s d4 - f4 -d_whs s e4 g4 fs4 fs4 fs4 fs4 e4 -d_whs s eb4 eb4 cs4 cs4 eb4 cs4 f4 -d_whs s d4 g4 - e4 fs4 - e4 -d_whs s f4 g4 fs4 fs4 fs4 fs4 e4 -d_whs s d4 eb4 -e s d4 - e4)) (omn-to-time-signature voice1 '(4 4)) > Error: There is no applicable method for the generic function: > #<standard-generic-function omn-symbol #x3020009144EF> > when called with arguments: > (nil) > While executing: #<ccl::standard-kernel-method no-applicable-method (t)>, in process Listener-2(8). > Type cmd-/ to continue, cmd-. to abort, cmd-\ for a list of available restarts. > If continued: Try calling it again > Type :? for other options. Quote Link to comment Share on other sites More sharing options...
opmo Posted January 26, 2022 Share Posted January 26, 2022 Something wrong with the 'quote' (') possibly. Copy expressions (cod) from other text editor is using different quote symbol. As for the example from above you simply need to flatten the expression: (flatten-omn (merge-voices voice1 voice2)) No need to use omn-to-time-signature. I will fix this in the next update - lists with length 1 will be flatten automatically. Quote Link to comment Share on other sites More sharing options...
AM Posted January 26, 2022 Author Share Posted January 26, 2022 i restarted opusmodus and now it works Quote Link to comment Share on other sites More sharing options...
opmo Posted January 26, 2022 Share Posted January 26, 2022 I am pleased to hear Quote Link to comment Share on other sites More sharing options...
AM Posted January 26, 2022 Author Share Posted January 26, 2022 but happend again the solution is to quit/start OPMO - but not a big problem, i'm happy... 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.