AM Posted January 25, 2022 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
opmo Posted January 25, 2022 Posted January 25, 2022 No errors here: (merge-voices voice1 voice2) or (merge-voices voice2 voice2) The second expression is redundant Quote
o_e Posted January 25, 2022 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
AM Posted January 26, 2022 Author 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
opmo Posted January 26, 2022 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
AM Posted January 26, 2022 Author Posted January 26, 2022 i restarted opusmodus and now it works Quote
AM Posted January 26, 2022 Author Posted January 26, 2022 but happend again the solution is to quit/start OPMO - but not a big problem, i'm happy... Quote
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.