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.

 

No errors here:

 

(merge-voices voice1 voice2)

or

(merge-voices voice2 voice2)

 

The second expression is redundant 🙂

crazy

(merge-voices voice1 voice2)

 

it's not working on my system

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!

 

 

 

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.

 

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.

i restarted opusmodus and now it works 👌

I am pleased to hear 🙂

but happend again 😄  the solution is to quit/start OPMO - but not a big problem, i'm happy...