Stephane Boussuge

Hi folks,
 
I'm very happy to announce the release of the first video pack lesson "Introduction to Opusmodus" on composerworkshop.com.
 
Composer Workshop
WWW.COMPOSERWORKSHOP.COM  
This introduction start with a quick "Crash course" to dive quickly into the software to get fun rapidly.
The second and third parts of this course goes more deeper into the exploration of the basics of Opusmodus like pitch generation, length generation, using MAKE-OMN, etc... This is an introductory course to our beloved software. I'm working now on future courses  packs on a bunch of different subject.
 
Naturally, the free Zoom into Opusmodus series continue with a weekly video release.
 
Happy Opusmodusing !
 
SB.

Hi folks,
 
I'm very happy to announce the release of the first video pack lesson "Introduction to Opusmodus" on composerworkshop.com.
 
Composer Workshop
WWW.COMPOSERWORKSHOP.COM  
This introduction start with a quick "Crash course" to dive quickly into the software to get fun rapidly.
The second and third parts of this course goes more deeper into the exploration of the basics of Opusmodus like pitch generation, length generation, using MAKE-OMN, etc... This is an introductory course to our beloved software. I'm working now on future courses  packs on a bunch of different subject.
 
Naturally, the free Zoom into Opusmodus series continue with a weekly video release.
 
Happy Opusmodusing !
 
SB.

Dear all,
 
the video of the fist Zoom into OM is now online.
 
 
In future, the Zoom into OM will be only in video format delivered every weekend.
 
Best
 
Stéphane
 
 

Thank you for your support,
 
The video of the session will be soon available.
 
In future, the Zoom into Opusmodus sessions will be released only in video format, I think live is not mandatory and videos are more easy to do and to control regarding the quality.
But I will keep the 1 Zoom every weekend release rhythm 🙂
Happy Opusmodusing !
 
Stéphane
 
 

Hi folks,
 
I'm very happy to announce the release of the first video pack lesson "Introduction to Opusmodus" on composerworkshop.com.
 
Composer Workshop
WWW.COMPOSERWORKSHOP.COM  
This introduction start with a quick "Crash course" to dive quickly into the software to get fun rapidly.
The second and third parts of this course goes more deeper into the exploration of the basics of Opusmodus like pitch generation, length generation, using MAKE-OMN, etc... This is an introductory course to our beloved software. I'm working now on future courses  packs on a bunch of different subject.
 
Naturally, the free Zoom into Opusmodus series continue with a weekly video release.
 
Happy Opusmodusing !
 
SB.

Thank you for your support,
 
The video of the session will be soon available.
 
In future, the Zoom into Opusmodus sessions will be released only in video format, I think live is not mandatory and videos are more easy to do and to control regarding the quality.
But I will keep the 1 Zoom every weekend release rhythm 🙂
Happy Opusmodusing !
 
Stéphane
 
 

Thank you for your support,
 
The video of the session will be soon available.
 
In future, the Zoom into Opusmodus sessions will be released only in video format, I think live is not mandatory and videos are more easy to do and to control regarding the quality.
But I will keep the 1 Zoom every weekend release rhythm 🙂
Happy Opusmodusing !
 
Stéphane
 
 

Thank you for doing this first session today 😀! It was very useful and inspiring for me as a begining user, to see OM being used practically and explained.

On Saturday, January 14, I start a new free Zoom into Opusmodus series on composerworkshop.com
This course is an every week zoom into Opusmodus, focusing on a specific point or technique each week, providing to audience a better understanding and practical view of using Opusmodus for music composition.
 
Composer Workshop
WWW.COMPOSERWORKSHOP.COM  
Best wishes,
Stephane Boussuge 

On Saturday, January 14, I start a new free Zoom into Opusmodus series on composerworkshop.com
This course is an every week zoom into Opusmodus, focusing on a specific point or technique each week, providing to audience a better understanding and practical view of using Opusmodus for music composition.
 
Composer Workshop
WWW.COMPOSERWORKSHOP.COM  
Best wishes,
Stephane Boussuge 

Hi Julio, I think you have to refresh the page because I've changed the YouTube link, normally, now it works.
 
Here's the Opmo score.
 
SB.
Flixbus-V1-1.opmo

On Saturday, January 14, I start a new free Zoom into Opusmodus series on composerworkshop.com
This course is an every week zoom into Opusmodus, focusing on a specific point or technique each week, providing to audience a better understanding and practical view of using Opusmodus for music composition.
 
Composer Workshop
WWW.COMPOSERWORKSHOP.COM  
Best wishes,
Stephane Boussuge 

Hi Julio, I think you have to refresh the page because I've changed the YouTube link, normally, now it works.
 
Here's the Opmo score.
 
SB.
Flixbus-V1-1.opmo

Hi,
 
here's a new piece composed during a (long) travel by Bus.
 
It's made basically from 11 cells assembled and varied with the help of OM counterpoint function.
 
SB.
 
 

On Saturday, January 14, I start a new free Zoom into Opusmodus series on composerworkshop.com
This course is an every week zoom into Opusmodus, focusing on a specific point or technique each week, providing to audience a better understanding and practical view of using Opusmodus for music composition.
 
Composer Workshop
WWW.COMPOSERWORKSHOP.COM  
Best wishes,
Stephane Boussuge 

Sorry, the function euclidean-rhythms was one of my personal functions.
Attached, you will find the function definition file.
 
SB.
 
euclidean-rhythms.lisp

Dear Stéphane and Tom
 
I did some edits in the Stéphane´s code. Some functions had names changed.
 
Hope it can help.
Best,
Julio
 
;;;--------------------------------------------------------- ;;; Parameters ;;;--------------------------------------------------------- (setf size 8) (setf bars (gen-repeat size '(4/4))) (setf pause (length-span bars '(-q))) (setf ph1.size 8) (setf bars (gen-repeat size '(4/4))) (setf pause (length-span bars '(-q))) (setf mode1 '(dorian :root d4)) (setf ph1.pitch (filter-repeat 1 (tonality-map mode1 (integer-to-pitch (vector-round 0 16 (vector-smooth 0.36 (gen-white-noise 256 :seed 772))))))) (setf ph1.len (euclidean-rhythm (gen-repeat ph1.size '(9)) 1 5 1/8 :seed 93)) ; :binary-to-length t) ; :len-val 'e ; )) ;; Antécédent (setf ph1.omn (make-omn :pitch ph1.pitch :length ph1.len )) ;; Conséquent (setf ph1b.omn (ambitus '(0 16) (tonality-map mode1 (pitch-variant ph1.omn :variant 'i)))) (setf ph1 (assemble-seq ph1.omn ph1b.omn)) ;; Tintinabuli ;; V1 (setf tint1a.pitchlist '(c4 e4 g4)) (setf tint1a.pitch (rnd-sample (* ph1.size 4) tint1a.pitchlist)) (setf tint1a.len (euclidean-rhythm (gen-repeat (length ph1) '(9)) 1 2 1/8 :seed 103)) ; :binary-to-length t ; :len-val 'e ; )) (setf tint1a.omn (filter-tie (tonality-map mode1 (make-omn :pitch tint1a.pitch :length tint1a.len )))) (setf tint1a tint1a.omn) ;; V2 (setf tint1b.pitchlist '(c3 e3 g3)) (setf tint1b.pitch (rnd-sample (* ph1.size 4) tint1b.pitchlist)) (setf tint1b.len (euclidean-rhythm (gen-repeat (length ph1) '(9)) 1 2 1/8 :seed 19)) ; 1/8)) ; :binary-to-length t ; :len-val 'e ; )) (setf tint1b.omn (filter-tie (tonality-map mode1 (make-omn :pitch tint1b.pitch :length tint1b.len )))) (setf tint1b tint1b.omn) ;; V3 (setf tint1c.pitchlist '(c2 e2 g2 c3)) (setf tint1c.pitch (rnd-sample (* ph1.size 4) tint1c.pitchlist)) (setf tint1c.len (euclidean-rhythm (gen-repeat (length ph1) '(9)) 1 2 1/8 :seed 17662)) ; :binary-to-length t ; :len-val 'e ; )) (setf tint1c.omn (filter-tie (tonality-map mode1 (make-omn :pitch tint1c.pitch :length tint1c.len )))) (setf tint1c tint1c.omn) (setf v1 ph1) (setf v2 tint1a) (setf v3 tint1b) (setf v4 tint1c) ;;;--------------------------------------------------------- ;;; Score and Layout ;;;--------------------------------------------------------- (ps 'gm :sq (list (pitch-transpose 0 (ambitus 'violin v1)) (pitch-transpose 0 (ambitus 'violin v2)) (pitch-transpose 0 (ambitus 'viola v3)) (pitch-transpose 0 (ambitus 'cello v4)) ) :key-signature 'atonal :tempo 90 :flexible-clef nil :rewrite-lengths nil :accidentals :cautionary :merge-rests nil )  

Hi,
 
Yes I'm working on future "Zoom into Opusmodus" and a full website dedicated to OM and will start in January.
 
Best
 
SB.

Hi,
 
I've made some Tintinabuli test long time ago in Opusmodus but don't remember if it was correctly implemented or not....
Also all of this tests are broken because using a very old version of Opusmodus.
I don't have time to fix them all now but I quick fixed the first one I found with actual Opusmodus correct functions.
 
Don't know if that one is correct regarding the "rules" but may be it could help you a bit.
 
This subject interest me as well and if I find a bit of time, I will explore it deeper this year.
 
Best
 
SB.
 
;;;--------------------------------------------------------- ;;; Parameters ;;;--------------------------------------------------------- (setf size 8) (setf bars (gen-repeat size '(4/4))) (setf pause (length-span bars '(-q))) (setf ph1.size 8) (setf bars (gen-repeat size '(4/4))) (setf pause (length-span bars '(-q))) (setf mode1 '(dorian :root d4)) (setf ph1.pitch (filter-repeat 1 (tonality-map mode1 (integer-to-pitch (vector-round 0 16 (vector-smooth 0.36 (gen-white-noise 256 :seed 772))))))) (setf ph1.len (euclidean-rhythms (gen-repeat ph1.size '(9)) '(1) '(5) :seed 93 :binary-to-length t :len-val 'e )) ;; Antécédent (setf ph1.omn (make-omn :pitch ph1.pitch :length ph1.len )) ;; Conséquent (setf ph1b.omn (ambitus '(0 16) (tonality-map mode1 (pitch-variant ph1.omn :variant 'i)))) (setf ph1 (assemble-seq ph1.omn ph1b.omn)) ;; Tintinabuli ;; V1 (setf tint1a.pitchlist '(c4 e4 g4)) (setf tint1a.pitch (rnd-sample (* ph1.size 4) tint1a.pitchlist)) (setf tint1a.len (euclidean-rhythms (gen-repeat (length ph1) '(9)) '(1) '(2) :seed 103 :binary-to-length t :len-val 'e )) (setf tint1a.omn (filter-tie (tonality-map mode1 (make-omn :pitch tint1a.pitch :length tint1a.len )))) (setf tint1a tint1a.omn) ;; V2 (setf tint1b.pitchlist '(c3 e3 g3)) (setf tint1b.pitch (rnd-sample (* ph1.size 4) tint1b.pitchlist)) (setf tint1b.len (euclidean-rhythms (gen-repeat (length ph1) '(9)) '(1) '(2) :seed 19 :binary-to-length t :len-val 'e )) (setf tint1b.omn (filter-tie (tonality-map mode1 (make-omn :pitch tint1b.pitch :length tint1b.len )))) (setf tint1b tint1b.omn) ;; V3 (setf tint1c.pitchlist '(c2 e2 g2 c3)) (setf tint1c.pitch (rnd-sample (* ph1.size 4) tint1c.pitchlist)) (setf tint1c.len (euclidean-rhythms (gen-repeat (length ph1) '(9)) '(1) '(2) :seed 17662 :binary-to-length t :len-val 'e )) (setf tint1c.omn (filter-tie (tonality-map mode1 (make-omn :pitch tint1c.pitch :length tint1c.len )))) (setf tint1c tint1c.omn) (setf soprano ph1) (setf alto tint1a) (setf tenor tint1b) (setf bass tint1c) ;;;--------------------------------------------------------- ;;; Score and Layout ;;;--------------------------------------------------------- (def-score choir-satb (:title "Title" :composer "Composer" :copyright "Copyright © " :key-signature 'chromatic :time-signature '((1 1 1 1) 4) :tempo 100 :layout (choir-satb-layout 'soprano 'alto 'tenor 'bass)) (soprano :omn soprano :channel 1 :sound 'gm :program 'choir-aahs :volume 100 :pan 16 :controllers (91 '(48)) ) (alto :omn alto :channel 2 :sound 'gm :program 'choir-aahs :volume 100 :pan 41 :controllers (91 '(48)) ) (tenor :omn tenor :channel 3 :sound 'gm :program 'choir-aahs :volume 100 :pan 86 :controllers (91 '(48)) ) (bass :omn bass :channel 4 :sound 'gm :program 'choir-aahs :volume 100 :pan 111 :controllers (91 '(48)) ) )  

Dear Torsten, about Cluster Engine, have you got some plans to implement this wonderful tool into the new Opusmodus V3 ? as well as your great others libraries like Fenv and others ?
 
Best
 
Stéphane

Dear Torsten, about Cluster Engine, have you got some plans to implement this wonderful tool into the new Opusmodus V3 ? as well as your great others libraries like Fenv and others ?
 
Best
 
Stéphane

Thanks. I am kitted up with a Mac and bought a OM3 licence, this is great! and will keep me busy for a while 😀

It works with or without SSD. The proper installation, RAM and Virtualization settings are very important.

 
I sent my letter to Santa now !

Update for Opusmodus 3.0
3.0.28450
 
– Additions:
Notation Print - Copyright input added.  
– Fixed :
Cursor (hide) when copying notation.

(setf *audition-ignore-ports* nil) should do the trick
 
However, let me make a further modification so you can set it as an argument to the call to play lists.
 
(defun run-playlist (&key (timeout 5) (ignore-ports nil)) (mp:process-run-function "Playing..." () (lambda () (loop (let ((current (mp:mailbox-read *playlist* "Wait for feed tracks" timeout))) (if current (mp:process-join (start-midi current :ignore-ports ignore-ports)) (return))))))) ;; example call (run-playlist :timeout 2 :ignore-ports t) (run-playlist) ; won't ignore port settings now  
 
If you have more ideas one how this should be improved please let me know.