EAIP

Thanks for a great presentation Stéphane, looking forward to the next livestream.
 
Erik

Here's the file from today.
 
Happy Opusmodusing !!
 
Stéphane
 
Zoom300520-Soundsets1.opmo

This short example demonstrates how powerful and flexible the UNFOLD function is, especially when working with short patterns.
The entire process is very compact and requires only a few lines of code.
 
Source:
(progn   (setf    mat1 '((h. eb4 pp q g3 -e q gs4 mf -s a5 p tie)           (e. a5 -e q bb4 mf -s q cs5 p -s q. e5 mf -e.)           (q cs5 p h. d5 mf -q c5 pp tie)           (h c5 pp h. gs3 -e a4 p<)           (h. fs5 mp q bb3 c5 p e4 mf tie)           (h e4 -e q cs4 mp h d5 p e f4))        mat2 '((q d4 pp s eb4 < leg g4 < leg bb4 < leg a4 q. cs5 mf -e                3q gs5 > leg fs5 > leg c5 > b4 > leg f4 leg e4)           (t d4 < leg eb4 < leg g4 < leg bb4 q. a4 marc              t fs4 mf leg gs4 leg e. c5 e b4 t f5 leg e5 leg d5 leg eb5              3q bb5 > a4 > bb5 > e a4 pp stacc -e))        p01 (unfold 'eg '(t7 dyn) mat1)    p02 (unfold 'eg '(t7 v? dyn ob) mat1)    p03 (unfold 'eg '(v? ra dyn) mat1)    p04 (unfold 'eg '(t-12 t-5 dyn v? raf hn) p03)    p05 (unfold 'eg '(t-12 t-5 ld ra dyn bn) p02)        p11 (assemble-seq (unfold 'eg '(t7 dyn) mat1) (unfold 'eg '(t7 dyn) mat2))    p12 (assemble-seq (unfold 'eg '(t-12 v? dyn ob) mat1)                      (unfold 'eg '(t-12 v? dyn ob) mat2))    p13 (assemble-seq (unfold 'eg '(v? raf dyn) mat1) (unfold 'eg '(v? dyn)  mat2))    p14 (unfold 'eg '(t-12 t-5 dyn v? raf dyn hn) p13)    p15 (unfold 'eg '(t-12 t-5 ld ra dyn bn) p12))      (ps 'gm :w5 (list                (assemble-seq p01 p11)                (assemble-seq p02 p12)                (assemble-seq p03 p13)                (assemble-seq p04 p14)                (assemble-seq p05 p15))))  
Output:

 
Best, JP

Thanks Stéphane, I'll join the session tonight. 🙂
 
I don't really understand why the original values were changed, did they somehow interfere with key-switching in sample libraries?
Maybe a solution for different workflows could be a setting in the preferences:
"Articulations: Keyswitch / Original" or perhaps "Articulations: Sound-set / MIDI" (or something similar).

This was the original values but it was changed after some comments/discussion on our Forum.
I agree, I will set the stacc back to 50% of the original value.
With marc I will see what I can do.

Of course you could use a list of program changes:
:program '(1 2 3 4 5 6 7 8 9 10 11)  
Here each pitch will be played by a different program.

Sorry, I must have misunderstood something fundamental about OM.
I just assumed that the "stacc" attribute was operating on the duration of the underlying midi note event (50% of notated value or similar) and that "marc" was adding an offset to the velocity value, as is the case in for example Sibelius.
What am I missing here?
Is it not possible to have staccato or accent playback using the default GM sounds?
 
 
 

MICROPOLYPHONY is a polyphonic musical texture developed by György Ligeti which consists of many lines of dense canons moving at different tempos or rhythms, thus resulting in tone clusters vertically. According to David Cope, "micropolyphony resembles cluster chords, but differs in its use of moving rather than static lines"; it is "a simultaneity of different lines, rhythms, and timbres".
 
Example with two choirs:
 

   

Here it is:
(chord-progression '(g2g3 a2a4 a2a3 g2d4 g2g4 a2e4)) => (g2g3 g2d4 g2g4 a2a3 a2e4 a2a4) (chord-progression '(g2g3 a2a4 a2a3 g2d4 g2g4 a2e4) :sort 'high) => (g2g3 a2a3 g2d4 a2e4 g2g4 a2a4)  
The CHORD-PROGRESSION function will be part of the next release.

Thx a lot. Great feature.
Is it possible to implement the same when doing audition-omn-snippet?

I think it will help us to work even more freely and this is what we expect from Opusmodus :-) Thank you for the suggestion.

I found a way to display an internal seed if seed is nil (random process).
 
Example without a seed (each time different result):
(rnd-number 12 1 10) ? rnd-number :seed 678732 => (10 6 10 6 1 9 5 6 10 2 4 2)  
Now the same function with a manually "lock" using the :seed
(rnd-number 12 1 10 :seed 678732) ? rnd-number :seed 678732 => (10 6 10 6 1 9 5 6 10 2 4 2)  
(rnd-pick '((q c4 p d4 ff s a4 stacc) (s e4 app q c5 d5 pp))) ? rnd-pick :seed 598336 => (q c4 p d4 ff s a4 stacc)  

 
I hope everybody will be happy with the solution  :-)
To add this functionality to all the functions using random seed will take some time to do.
Hopefully tomorrow :-)
 
Best,
Janusz

Done in 1.2.23157

If we use random function without a seed then there is nothing to retrieve because there is no seed of any kind in random pick at any stage. 

(defun doseed (&key seed) (setf seed (init-seed (rnd-range 1 999999))) (print seed)) (rnd-sample 5 '(c4 e4 g4 b4) :seed (doseed)) This works for me.
 
/Lasse

I will see what I can do, I think we can add this to the system.

New:
INFINITY-SERIES
MESSIAEN-PERMUTATION
STRAWINSKI-ROTATION
Thanks to Jesper Elen
Midi conversions:
MIDI-TO-PITCH
MIDI-TO-INTEGER
MIDI-TO-INTERVAL
Fix to ambitus system with midi rage 0-127
Change to System Functions structure.
Fix to ttrem notation display and Grand Staff layout.

I just want to thank you all for you hard work.
I have lived and breath Opusmodus for a long time now. It is a wonderful music tool in more or less every aspect.
Regards
Lasse

I think this is good idea and we will add this functionality with time.