Stephane Boussuge

New function rnd-rest in version 3.0.29077
 
(setf lengths (gen-repeat 8 1/16)) => (1/16 1/16 1/16 1/16 1/16 1/16 1/16 1/16) (rnd-rest 2 lengths) => (1/16 1/16 1/16 -1/16 1/16 -1/16 1/16 1/16) (rnd-rest 5 lengths) => (-1/16 -1/16 1/16 -1/16 -1/16 -1/16 1/16 1/16) (rnd-rest '(2 3 1 2 1 3 2 1) '((1/10 1/10 1/10 1/10 1/10) (1/6 1/6 1/6) (1/16 1/16 1/16 1/16 1/16 1/16 1/16 1/16) (1/16 1/16 1/16 1/16) (1/20 1/20 1/20 1/20 1/20) (1/6 1/6 1/6) (1/10 1/10 1/10 1/10 1/10) (1/10 1/10 1/10 1/10 1/10) (1/6 1/6 1/6) (1/6 1/6 1/6) (1/10 1/10 1/10 1/10 1/10) (1/16 1/16 1/16 1/16) (1/16 1/16 1/16 1/16) (1/6 1/6 1/6) (1/6 1/6 1/6) (1/10 1/10 1/10 1/10 1/10) (1/10 1/10 1/10 1/10 1/10)) :omn t) => ((-5h - = = =) (-3h - -) (s - = = = = = =) (-s = - =) (5q - = = =) (-3h - -) (-5h = = = -) (5h - = = =) (-3h = -) (-3h - -) (5h - = = =) (s - = -) (s = - =) (-3h - -) (-3h = -) (-5h = = = =) (5h - = - =)) (setf omn '((q c5gs4f4 e f5c5gs4 e gs5f5c5 s c6gs5f5) (e c6eb5 c5eb4 e eb4c4 eb5c5) (q b4g4d4 e g4d4b3 s d4b3g3 b3g3d3 q g3d3b2))) (rnd-rest 2 omn :seed 11) => ((-q -e gs5f5c5 mf s c6gs5f5) (-e - eb4c4 mf eb5c5) (q b4g4d4 mf e g4d4b3 s d4b3g3 - -q))  

just a snippet... how i/you can use OPMO for some other things (TIME LAPS test mode, just to see if my code is working correctly). 
i like the openness of the system.
 

Bildschirmaufnahme 2023-08-30 um 23.09.15.mov    

May be:
 
(setf transp (gen-transition 0 7 7 1 :rounded t)) (setf set '(g4a4)) (setf out (pitch-transpose-n transp (gen-trim (length transp) set))) SB.

Practical Common Lisp
GIGAMONKEYS.COM

Of course, I will put the function back into the system with the next update.

Great example.

Here's a good example of manual writing combining the use of piano-grand-layout and OM voices system to get a decent draft score.
 
S.
Instant 7 render1.mp3
Instant No7 - OM-Print.pdf
Instant 7 pour Piano.opmo

The bug is fixed in ver. 3.0.29059
Thank you for the report.

Hi,
a new piece for String quartet.

 
SB.

That’s amazing - love both the work and rendition ! 

I've updated the render on Soundcloud, now rendered with Noteperformer4 and CSSS.
 
Best !
 
SB.

Thank you Janusz and Stephane. I learned a lot. 
Janusz I can see the chaos with the durations. Therefore I added a :withdurs option. The default ignores :durations.
here another try:
 
(defun rk_rnd-order-omn (omn &key omit seed flatten withdurs)
"To omit randomization use l for :length, p for :pitch, v for :velocity; a for :articulation in the omit-list, i.e :omit '(p arti).
  :articulation includes leg and ped.
  To be even more random flatten the omn with :flatten t.
  To be more chaotic use withdurs t."
  (let (state)
    (setf state *init-seed*)
    (setf seed (rnd-seed seed))
    (do-verbose ("rk-rnd-order-omn ~s" seed)
      (let* ((omnl (if flatten (flatten omn) omn))
             (len (if (member 'l omit) (omn :length omnl) (rnd-order (omn :length omnl) :seed (seed))))
             (pit (if (member 'p omit) (omn :pitch omnl) (rnd-order (omn :pitch omnl) :seed (seed))))
             (vel (if (member 'v omit) (omn :velocity omnl) (rnd-order (omn :velocity omnl) :seed (seed))))
             (dur (rnd-order (omn :duration omnl) :seed  (seed)) )
             (arti (if (member 'a omit) (get-articulation omnl) (rnd-order (get-articulation omnl) :seed (seed))))
             (out (if withdurs (make-omn :length len :pitch pit :velocity vel :duration dur :articulation arti )
                   (make-omn :length len :pitch pit :velocity vel :articulation arti ))))
        (init-state state)
        out))))

You should omit the use of 'flat' or 'exclude', the keywords are often used with a different functionality in OM.
 
Here is the correct use of seed in a function:
(defun rk-rnd-order-omn (omn &key omit flatten seed)   (let (state)     (setf state *init-seed*)     (setf seed (rnd-seed seed))     (do-verbose ("rk-rnd-order-omn ~s" seed)       (let* ((omnl (if flatten (flatten omn) omn))              (len (if (member 'l omit) (omn :length omnl) (rnd-order (omn :length omnl) :seed (seed))))              (pit (if (member 'p omit) (omn :pitch omnl) (rnd-order (omn :pitch omnl) :seed (seed))))              (vel (if (member 'v omit) (omn :velocity omnl) (rnd-order (omn :velocity omnl) :seed (seed))))              (dur (if (member 'd omit) (omn :duration omnl) (rnd-order (omn :duration omnl) :seed (seed))))              (arti (if (member 'a omit) (get-articulation omnl) (rnd-order (get-articulation omnl) :seed (seed))))              (out (make-omn :length len :pitch pit :velocity vel :duration dur :articulation arti)))         (init-state state)         out))))
 Examples:
(setf mat2 '((q e5 leg e fs5 leg gs5 q a5 ten cs6 ten)              (h cs6 leg q b5 e d6 leg cs6 leg)              (q a5 cs6 marc+leg gs5 cs6 leg)              (h. fs5))) (gen-loop 10 (rk-rnd-order-omn mat2 :seed 10)) (gen-loop 10 (rk-rnd-order-omn mat2 :flatten t :seed 10)) (gen-loop 10 (rk-rnd-order-omn mat2 :omit '(p) :flatten t :seed 10)) (gen-loop 10 (rk-rnd-order-omn mat2)) (gen-loop 10 (rk-rnd-order-omn mat2 :omit '(p))) (gen-loop 10 (rk-rnd-order-omn mat2 :omit '(l a leg) :seed 60)) (gen-loop 10 (rk-rnd-order-omn mat2 :flatten t))  
This is how the function could be written. Playing with duration will destroy the original events - as you can see in the result of your function.

Interesting but your :seed init/programming seems not really made in correct Opusmodus way.
You can have a look to the documentation for rnd-seed
 
S.

;; Some suggestion of possible path to explore to create rhythmic progressions ;; Example1 (setf vector (list-plot (half-sine 24 1) :join-points t)) (setf len1 (vector-to-length '1/32 8 1 vector)) ;; Example 2 (setf size 4) (setf len2 (gen-length-density size :density '(10 50 100 20) :level 16)) ;;or (setf len3 (gen-length-density size :density '(10 50 100 20) :level 16 :type 2)) ;; Example 3 (setf vector2 (list-plot (half-sine 24 1) :join-points t)) (setf divlist (vector-round 1 8 vector2)) (setf len4 (gen-tuplet 1 1 'd 'n 'q divlist)) (setf len5 (gen-tuplet 1 1 'd '? 'q divlist)) ;; Example 4 (setf len6 (rhythm-series 1 '(4 8 12 16 32 16 8 4) 4/4)) Etc, etc...
There is infinite possibilities in Opusmodus, your imagination is the limit.

That's great! Thanks, Stephane. Having reviewed other options such as MusicXML to Musescore and then Musescore to Cubase I'm finding that much of the articulations and dynamics (e.g. expressions) don't quite translate 1:1 which makes sense and makes me wonder why I was thinking that it would.

Looking at the range of complex sound design capabilities in Albion Neo, I will likely just compose in Opusmodus and then work with the Spitfire tools hands on for the best effect.
 
Thanks!
THT

The new version works with :duration in omn-replace.
:duration values are ratios and must be positive.

(progn ;; DEFSYNTH (sc:defsynth sine4 ((freq 200) (dur 2.0) (vel 1.0) (pan 0) (times 0.3) (pm 12)) (let* ((env (* 0.3 (sc:env-gen.kr (sc:perc .0 (* 4.0 dur)) :act :free) vel)) (out (* times (sc:sin-osc.ar freq 0 (max 0 (sc:lf-noise1.kr pm))))) (out (sc:pan2.ar out pan))) (sc:out.ar 0 out))) ;; OMN-SCORE (setf size 200) (setf vector (list-plot (add-triangle-waves 4 size 1 0.6 :modulation (gen-triangle size 1 '(0.5 0.4 0.3 0.6) :modulation (gen-triangle size 1 0.3 :phase 180))) :point-radius 2)) (setf pitches (gen-divide 4 (vector-to-pitch '(g2 g6) vector :quantize 1/4))) (setf transpose (pitch-transpose -12 pitches)) (setf variants (pitch-variant transpose :variant '?)) (setf length1 (rnd-sample 120 '(s e s -s))) (setf length2 (rnd-sample 120 '(s e s -s))) (setf time1 (span pitches length1)) (setf time2 (span variants length2)) (setf dynamics '(p mf ff)) (setf omn1 (make-omn :length time1 :pitch (pitch-transpose 12 pitches) :velocity (rnd-sample size dynamics))) (setf omn2 (make-omn :length time2 :pitch variants :velocity (rnd-sample size dynamics))) ;; CONVERSION (setf len1 (omn-to-sc :length omn1)) (setf len2 (omn-to-sc :length omn2)) (setf freq1 (omn-to-sc :hertz omn1)) (setf freq2 (omn-to-sc :hertz omn2)) (setf vel1 (omn-to-sc :velocity omn1)) (setf vel2 (omn-to-sc :velocity omn2)) ;; SC-SCORE (def-sc-score add-triangle (:tempo 128 :layout ((in1 . len1) (in2 . len2)) ;:output "add-triangle" ) (in1 :synth sine4 :freq freq1 :dur len1 :times (rnd size :low 0.1 :high 0.3) :vel vel1 :pan (rnd size :low -1.0 :high 1.0) :pm (rnd-sample size (gen-integer 6 30)) ) (in2 :synth sine4 :freq freq2 :dur len2 :times (rnd size :low 0.1 :high 0.3) :vel vel2 :pan (rnd size :low -1.0 :high 1.0) :pm (rnd-sample size (gen-integer 6 30)) ) ) )  

 
add-triangle (Snippet).mp3  
 
 

Thanks to Sungmin's support and the introduction of the new DEF-SC-SCORE macro, Opusmodus users can now create a series of instruments similar to those created with the DEF-SCORE macro for traditional instrument scores.
 
The primary objective of the DEF-SC-SCORE was to enable users to take Opusmodus scores (whether in omn-form or single-element omn forms) and convert them to the CL-Collider (SuperCollider) input format. To achieve this, we introduced the OMN-TO-SC function specifically for this task.
 
Below are a few examples that illustrate the conversion process and the use of the DEF-SC-SCORE macro:
 
Example 1:

DEFSYNTH:
(sc:defsynth snd2 ((dur 2.0) (vel 1.0) (left 10) (right 10) (index-low 4) (index-high 12)) (let* ((trigger (sc:impulse.kr (list left right))) (pitch (round (sc:t-rand.kr 36 72 trigger) 1)) (timbre (sc:lf-noise0.kr 1/20 0.2 2)) (env (* 1.0 (sc:env-gen.kr (sc:perc .0 (* 2.0 dur)) :act :free) (sc:linen.kr trigger 0.0 vel (/ 1 (list left right))))) (index (+ (* env index-high) index-low)) (pitch (sc:midicps pitch)) (out (sc:pm-osc.ar pitch (* pitch timbre) index 0 env))) (sc:out.ar 0 out))) (sc:defsynth pm-crotale ((note 60) (dur 2.0) (vel 1.0) (pan 0)) (declare (ignore amp)) (let* ((freq (sc:midicps (+ 0 note))) (envl (sc:perc 0 (* 4.0 dur))) (mod! (+ 5 (/ 1 (sc:i-rand.ir 2 6)))) (out (sc:pm-osc.ar freq (* mod! freq) (sc:env-gen.kr envl :time-scale (* 4.0 dur) :level-scale vel) 0 (sc:env-gen.kr envl :time-scale (* 4.0 dur) :level-scale 0.3))) (out (sc:pan2.ar out pan)) (out (* out (sc:env-gen.kr envl :time-scale (* 1.3 (* 4.0 dur)) :level-scale (sc:rand.ir 0.1 0.4) :act :free)))) (sc:out.ar 0 out)))
OMN Score:
(setf size 120) (setf vector       (list-plot        (gen-sine         size 1 '(0.5 0.4 0.3 0.6)         :modulation (gen-sine size 1 0.3 :phase 180))))          (setf pitch (vector-to-pitch '(g1 g6) vector)) (setf pitch1 (gen-divide 4 pitch)) (setf pitch-transp (pitch-transpose -12 pitch1)) (setf section (rnd-unique 15 (gen-integer 0 27))) (setf pitch2 (pitch-variant pitch-transp :variant '? :section section)) (setf length1 (rnd-sample size '(s e s s))) (setf span (get-span length1)) (setf length2 (length-span span (rnd-sample size '(s e s s)))) (setf len-sum (list (sum (abs! length1)))) (setf dynamic1 (rnd-sample size '(p mp mf f ff))) (setf dynamic2 (rnd-sample size '(p mp mf f ff))) (setf omn1 (make-omn :length length1 :pitch pitch1 :velocity dynamic1)) (setf omn2 (make-omn :length length2 :pitch pitch2 :velocity dynamic2))  
DEF-SC-SCORE:
(def-sc-score example1     (:tempo 120      :layout ((in1 . len1) (in2 . len2) (in3 . len-sum)))   (in1 :synth pm-crotale        :note midi1        :dur len1        :vel vel1        :pan (gen-loop size (rnd1)))   (in2 :synth pm-crotale        :note midi2        :dur len2        :vel vel2        :pan (gen-loop size (rnd1)))   (in3 :synth snd2        :note '(60)        :dur length-sum        :vel '(0.1))   )  
 
Example 2:
 
DEFSYNTH:
(sc:defsynth pm-crotale ((note 60) (dur 2.0) (vel 1.0) (pan 0))   (declare (ignore amp))   (let* ((freq (sc:midicps (+ 0 note)))          (envl (sc:perc 0 (* 4.0 dur)))          (mod! (+ 5 (/ 1 (sc:i-rand.ir 2 6))))          (out (sc:pm-osc.ar freq                             (* mod! freq)                             (sc:env-gen.kr envl                                            :time-scale (* 4.0 dur)                                            :level-scale vel)                             0                             (sc:env-gen.kr envl                                            :time-scale (* 4.0 dur)                                            :level-scale 0.3)))          (out (sc:pan2.ar out pan))          (out (* out                  (sc:env-gen.kr envl                                 :time-scale (* 1.3 (* 4.0 dur))                                 :level-scale (sc:rand.ir 0.1 0.4)                                 :act :free))))     (sc:out.ar 0 out)))  
OMN Score:
(setf chrom '(c4 cs4 d4 ds4 e4 f4 fs4 g4 gs4 a4 bb4 b4)) (setf chords (gen-chord-series chrom chrom :method 1 :type '? :segment '?)) (setf size (length chords)) (setf length (rnd-sample size '(w h q -q)))  
DEF-SC-SCORE:
(def-sc-score example2 (:tempo 102 :layout ((ins . length))) (ins :synth pm-crotale :note (omn-to-sc :midi chords) :dur length :vel (gen-loop size (rnd1))) )  
To see more CL-Collider (SuperCollider) examples and understand the usage of the DEF- SC-SCORE macro, please follow these steps:
 
Navigate to the Assistant navigator.
Press the (D) icon.
Look for the 'CL-Collider Examples' folder. Open the 'CL-Collider.opmo' file.
 
Happy coding,
Janusz

I don't think it is possible  to change the midi-channel in the instrument this way.
But what you can do is influence what events from the omn-list gets played on the instrument channel.
There are probably better ways and this can be improved.
 
;; evaluate all ;; evaluate pattern you want to use ;; cmd-1 def-score ;; for external midi comment rk_evpos-gm and uncomment rk_evpos-extern ;; function for :omn in :instrument in def-score (defun events-to-ch (ch poslist omnl) (let* ( (somnl (single-events (flatten omnl))) (chplist (position-item ch poslist))) (loop for n from 0 to (length somnl) for i in somnl collect (if ( equal n (car (member n chplist))) i (if (event-restp i) i (length-invert i)))) )) (setf mat '((5q c4 p cs5 pp d4 p ds5 pp e4 p) (s f5 pp fs4 mf g4 pp gs5 mf) (5q a4 p as5 mf b4 mp c4 pp cs5 d4 p ds5 mf e4 mp f5 pp fs4) (e g4 gs5 s a4 pp e as5 mf s b4 e c4 pp s cs5 mf e d4 -q) (s ds5 pp e4 p f5 mp fs4 pp 3q g4 p gs5 mp a4 pp q as5 p 5q b4 mp c4 pp cs5 p d4 mp ds5 pp) (s e4 p f5 pp fs4 p g4 pp))) ;;pattern-examples for the function events-to-ch called in :omn of instrument ;; the numbers e.g. '(1 2 3 4) are the midi-channels (setf patt1 (gen-repeat 100 '(1 4))) (setf patt1 (gen-repeat 100 (gi '(4 1..4 2 4..1)))) (setf patt1 (gen-repeat 100 '(2 4 3 2))) (setf patt1 (gen-repeat 100 (rp '((1 1) (1 2) (1 3) (1 4))))) (setf patt1 (gen-repeat 100 (rp '((4 1) (3 2) (1 3) (2 4))))) (setf patt1 (gen-repeat 100 (rp '((4 1) (4 2) (3 3) (1 12) (1 13) (1 14))))) (setf patt1 (rnd-sample 500 '(1 2 3 4) :seed 300)) (setf patt1 (rnd-sample 500 '(1 2) :seed 300)) (setf patt1 (gen-repeat 100 '(1 2 3 4))) (def-score rk_evpos-gm (:title "rk_evpos_gm" :key-signature 'chromatic :time-signature '(4 4) :tempo 120) (instrument1 :omn (events-to-ch 1 patt1 mat) :channel 1 :sound 'gm :program 'Lead-2-Sawtooth) (instrument2 :omn (events-to-ch 2 patt1 mat) :channel 2 :sound 'gm :program 'Violin) (instrument3 :omn (events-to-ch 3 patt1 mat) :channel 3 :sound 'gm :program 'Trumpet) (instrument4 :omn (events-to-ch 4 patt1 mat) :channel 4 :sound 'gm :program 'Marimba) ) #| (def-score rk_evpos-extern (:title "rk_evpos_extern" :key-signature 'chromatic :time-signature '(4 4) :tempo 120) (instrument1 :omn (events-to-ch 1 patt1 mat) :port 0 :channel 1) (instrument2 :omn (events-to-ch 2 patt1 mat) :port 0 :channel 2) (instrument3 :omn (events-to-ch 3 patt1 mat) :port 0 :channel 3) (instrument4 :omn (events-to-ch 4 patt1 mat) :port 0 :channel 4) ) |# (midi-destinations)  

Hi Jon,
 
indeed the tonality-map behaviour is changed recently for very good reasons and now you can do extraordinary things with tonality-map like mapping a full orchestra with a pitch remapping by register according to each playing register for the instruments.
This is the default now for tonality-map (:map nil), it means tonality-map remap always to the closest pitch according to the register, so if you provide some chords, it is necessary to extend the register of this chords before the mapping using the keyword :map '(octave). There is also another possibility: :map '(extend) and :map '(step).
 
To get your intended output, you have to use :map '(octave) like this:
 
(setf progression (harmonic-progression '(1 6 4 2 5 1 2 4 5) '(c4 natural-minor) :size 7 :step 1 :base 1 )) (setf progression-list (mclist progression)) (setf accomp-shell '((q c3 p g3e4 c4e4 e3c4))) (setf accomp-phrase (gen-repeat 8 accomp-shell)) ;;; Here i'm preparing the harmonic path with the keyword :map '(octave) (setf path (tonality-series progression-list :map '(octave))) (setf accomp-map (tonality-map path accomp-phrase)) Best !
 
Stéphane
 

Hi Jon,
 
indeed the tonality-map behaviour is changed recently for very good reasons and now you can do extraordinary things with tonality-map like mapping a full orchestra with a pitch remapping by register according to each playing register for the instruments.
This is the default now for tonality-map (:map nil), it means tonality-map remap always to the closest pitch according to the register, so if you provide some chords, it is necessary to extend the register of this chords before the mapping using the keyword :map '(octave). There is also another possibility: :map '(extend) and :map '(step).
 
To get your intended output, you have to use :map '(octave) like this:
 
(setf progression (harmonic-progression '(1 6 4 2 5 1 2 4 5) '(c4 natural-minor) :size 7 :step 1 :base 1 )) (setf progression-list (mclist progression)) (setf accomp-shell '((q c3 p g3e4 c4e4 e3c4))) (setf accomp-phrase (gen-repeat 8 accomp-shell)) ;;; Here i'm preparing the harmonic path with the keyword :map '(octave) (setf path (tonality-series progression-list :map '(octave))) (setf accomp-map (tonality-map path accomp-phrase)) Best !
 
Stéphane
 

Hi folks,
 
here's a short piece for piano as an example of various practices.
 
Best
 
Stéphane
 
 
ApparitionDAWEdit1.wav Apparition pour Piano.opmo

it sounds great!

Honestly, I don't know how you do this with OM 😉
well done!