Jump to content

opmo

Administrators
  • Posts

    2,901
  • Joined

  • Last visited

Reputation Activity

  1. Like
    opmo reacted to AM in merge several rhythms into one   
    great!
     
    (progn (setf r1 (gen-length '(11 13 7 17 13 11 17 23 19 2 17 5) 1/20)) (setf r2 (gen-length '(11 13 7 17 13 11) 1/8)) (unify-rhythms r1 r2))  

  2. Like
    opmo got a reaction from JulioHerrlein in merge several rhythms into one   
    The new function UNIFY-RHYTHMS will solve your problem - 3.0.28916
     
    Examples:
     
    (setf l1 '(q e e 3q 3q 3q -e. s)) (setf l2 '(e e e. s -e e s -s s -s))  
    (list l1 l2) ; select and press cmd-2  
     
    (unify-rhythms l1 l2)
     
    (setf r1 (rhythm-series 6 5 3/8 :length '(q. e. e s 3q))) (setf r2 (rhythm-series 6 4 1/2 :length '(q. e. e s 3q))) (setf r3 (rhythm-series 6 3 1/2 :length '(q. e. e s 3q)))  
    (list r1 r2 r3) ; select and press cmd-2  

     
    Now we merge all three voices to form a single entity:
     
    (unify-rhythms r1 r2 r3)  

     
     
     
  3. Like
    opmo reacted to Cliff in Auto Harmonizer Function   
    Thanks Stephane, the possibilities with OM seems infinite, and it shows me I need to study the documentation even more 🙂
  4. Thanks
    opmo reacted to Stephane Boussuge in Auto Harmonizer Function   
    I'm in travel actually and very busy but i wrote two short example for you to explore, not exactly what you ask for but I hope interesting to study for you and hopefully inspiring for further exploration.
    Happy study 🙂
     
    ;;; EXAMPLE 1 ;;; =================== (progn ; basic version (setf melo.pch (vector-to-pitch '(c4 e5) (gen-noise 64))) (setf melo.len (flatten (rnd-sample 64 '(h. h q (e e)(s s s s) -q)))) (setf melo (make-omn :pitch melo.pch :length melo.len )) (setf chords-types '((-4 -6 -9 -16)(-7 -9 -12 -15)(-2 -8 -12 -17))) (setf base-acc (gen-chord3 melo.pch chords-types :cycle nil :relative t)) (setf acc (chord-interval-replace '(1 2 3 4) '(-11 -10 -9 -8) (ambitus '(c3 g5) (length-legato (length-weight (make-omn :pitch base-acc :length melo.len )))))) (ps 'gm :vn* (list melo) :pg (list acc) :time-signature '(4 4) ) ) ;;; EXAMPLE 2 ;;; ========================= (progn ; modal version (setf melo.pch (vector-to-pitch '(c4 e5) (gen-noise 64))) (setf melo.len (flatten (rnd-sample 64 '(h. h q (e e)(s s s s) -q)))) (setf melo (make-omn :pitch melo.pch :length melo.len )) (setf chords-types '((-4 -6 -9 -16)(-7 -9 -12 -15)(-2 -8 -12 -17))) (setf base-acc (gen-chord3 melo.pch chords-types :cycle nil :relative t)) (setf acc (chord-interval-replace '(1 2 3 4) '(-11 -10 -9 -8) (ambitus '(c3 g5) (length-legato (length-weight (make-omn :pitch base-acc :length melo.len )))))) (setf path (tonality-series '(lydian) :root '(d4 bb4 fs3 c4 a3) :map '(octave))) (setf melo.map (tonality-map path (omn-to-time-signature melo '(4 4)))) (setf acc.map (tonality-map path (omn-to-time-signature acc '(4 4)))) (ps 'gm :vn* (list melo.map) :pg (list acc.map) ) ) SB.
     
    Modal-Example-For-Cliff.mp3
     
  5. Thanks
    opmo got a reaction from Cliff in Auto Harmonizer Function   
    It is not very complex to do that but at the moment I don't have the time to do that, maybe in the future.
  6. Like
    opmo reacted to JulioHerrlein in Auto Harmonizer Function   
    Maybe this could be better addressed with AI. Actually, tonality is a very complex endeavour, a very idiomatic system.
     
    A melody can assume multiple functions. I like to think it as a system of scales with 9 different degrees or modal stations. Transposing this stations through the 12 keys is enough to get all the progressions of the common practice and jazz,  a sort of George Russell stuff.
     
    Some time ago I build an Opusmodus library with chords, but after I realised that would be easier to just midi input the chords I like and process the voicings with the drop-voicing function I helped Janusz to create.
     
    Each composition have some unique and handmade stuff. For me, that part is the choice of pitches and underlying harmony. I have my sensibility based in years of hearing and playing.
     
    Probably the AI will bring some ease to the process, but as humans, we need time to grasp and really internalize the material. The same occur with Opusmodus output, that sometimes brings more material than we can deal with, in the process of building a piece. Part of the problem is also dealing with form and the cognitive aspect of the information flow.
     
    Best,
    Julio
  7. Thanks
    opmo reacted to estevancarlos in I've been waiting for the Windows port for a few years   
    This seems like an amazing tool and I'm excited to get a lot out of this. I'm glad to see the Windows version has come into existence. Thank you to everyone for putting in all of that hard work.
  8. Thanks
    opmo got a reaction from JimmyTheSaint in How to get time signature to repeat for each list in dictum?   
    No error here. Just use eval. You don't use cmd-1 with PS function.
    It is better for all scores to use def-score instance.
  9. Like
    opmo got a reaction from Pli in Opusmodus 3.0.28902 Update   
    New function in 3.0.28902
     
    rhythm-series num number-of-notes span &key length prob seed
     
    This function returns a list of successive rhythmic series derived from a span (overall duration), length values, and a number of length-notes per bar. The length- notes within each bar are positioned at random.
     
    Simple examples:
     
    (rhythm-series 4 3 3/8) => ((-1/16 1/8 -1/16 1/16 1/16) (1/16 3/16 1/8) (1/8 3/16 1/16) (3/16 1/16 1/8)) (rhythm-series 4 5 3/8) => ((1/16 1/16 1/16 1/8 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/16) (1/16 1/16 1/16 1/16 -1/16 1/16)) (rhythm-series 4 3 1/4) => ((1/16 1/8 1/16) (1/16 1/16 1/8) (1/16 1/8 1/16) (1/16 1/8 1/16))  
    Examples with given length values:
     
    (rhythm-series 4 3 1 :length '(q. e. s)) => ((-1/4 1/16 1/16 1/16 -9/16) (1/8 3/16 -5/16 3/8) (1/16 3/16 -3/8 3/8) (3/16 -1/16 3/8 3/8)) (rhythm-series 6 5 3/8 :length '(q. e. e s 3q) :prob 0.1) => ((1/16 1/16 1/16 1/16 1/8) (1/8 1/16 1/16 1/16 1/16) (1/16 1/8 1/16 1/16 1/16) (1/16 1/8 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/8 1/16)) (rhythm-series 6 5 3/8 :length '(q. e. e s 3q) :prob 0.9) => ((1/12 1/12 1/12 1/12 1/24) (1/24 1/12 1/12 1/12 1/12) (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/16 1/16 1/16 -1/16 1/16 1/16) (1/16 1/16 1/16 1/16 -1/16 1/16))  
    Example with list of unique values for each generated series:
     
    (rhythm-series '(1 4 3 2) '(7 5 7 7) '(3/8 3/8 1/2 3/4) :prob '(.4 .6 .7 .1) :length '(q. e. e s 5q 3q) :seed 34) => ((1/20 1/20 1/20 1/20 1/20 1/20 1/40 -1/20) (1/24 1/12 1/12 1/12 1/12) (1/20 -1/20 1/20 -1/20 1/20 1/20 1/40 -1/20) (1/16 1/16 1/16 1/16 1/8) (1/16 1/16 1/8 1/16 1/16) (1/20 1/20 1/20 1/20 1/20 -1/20 1/20 -1/20 1/20 -1/20) (-1/20 -1/20 1/20 1/20 -1/20 1/20 1/20 1/20 1/20 1/20) (-1/20 1/20 -1/20 1/20 1/20 1/20 1/20 1/20 -1/20 1/20) (-1/16 1/16 1/16 1/16 -1/8 1/16 -1/16 1/16 1/16 1/16 -1/16) (1/12 -1/12 -1/12 1/12 1/12 1/12 1/12 1/12 1/12))  
    OMN example:
     
    (make-omn :length (rhythm-series '(1 4 3 2) '(7 5 7 7) 1/2 :prob '(.4 .6 .7 .1) :length '(q. e. e s) :seed 34) :pitch (gen-chord3 '((cs4 g4 a5) (c4 gs3 a4) (b5 f5 gs5) (b4 fs4 bb5) (cs5 c6 gs4) (e5 g3 a5)) '((6 8 11) (3 5 13) (2 7 11)))) Best wishes, Janusz
  10. Thanks
    opmo got a reaction from JimmyTheSaint in Opusmodus 3.0.28902 Update   
    New function in 3.0.28902
     
    rhythm-series num number-of-notes span &key length prob seed
     
    This function returns a list of successive rhythmic series derived from a span (overall duration), length values, and a number of length-notes per bar. The length- notes within each bar are positioned at random.
     
    Simple examples:
     
    (rhythm-series 4 3 3/8) => ((-1/16 1/8 -1/16 1/16 1/16) (1/16 3/16 1/8) (1/8 3/16 1/16) (3/16 1/16 1/8)) (rhythm-series 4 5 3/8) => ((1/16 1/16 1/16 1/8 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/16) (1/16 1/16 1/16 1/16 -1/16 1/16)) (rhythm-series 4 3 1/4) => ((1/16 1/8 1/16) (1/16 1/16 1/8) (1/16 1/8 1/16) (1/16 1/8 1/16))  
    Examples with given length values:
     
    (rhythm-series 4 3 1 :length '(q. e. s)) => ((-1/4 1/16 1/16 1/16 -9/16) (1/8 3/16 -5/16 3/8) (1/16 3/16 -3/8 3/8) (3/16 -1/16 3/8 3/8)) (rhythm-series 6 5 3/8 :length '(q. e. e s 3q) :prob 0.1) => ((1/16 1/16 1/16 1/16 1/8) (1/8 1/16 1/16 1/16 1/16) (1/16 1/8 1/16 1/16 1/16) (1/16 1/8 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/8 1/16)) (rhythm-series 6 5 3/8 :length '(q. e. e s 3q) :prob 0.9) => ((1/12 1/12 1/12 1/12 1/24) (1/24 1/12 1/12 1/12 1/12) (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/16 1/16 1/16 -1/16 1/16 1/16) (1/16 1/16 1/16 1/16 -1/16 1/16))  
    Example with list of unique values for each generated series:
     
    (rhythm-series '(1 4 3 2) '(7 5 7 7) '(3/8 3/8 1/2 3/4) :prob '(.4 .6 .7 .1) :length '(q. e. e s 5q 3q) :seed 34) => ((1/20 1/20 1/20 1/20 1/20 1/20 1/40 -1/20) (1/24 1/12 1/12 1/12 1/12) (1/20 -1/20 1/20 -1/20 1/20 1/20 1/40 -1/20) (1/16 1/16 1/16 1/16 1/8) (1/16 1/16 1/8 1/16 1/16) (1/20 1/20 1/20 1/20 1/20 -1/20 1/20 -1/20 1/20 -1/20) (-1/20 -1/20 1/20 1/20 -1/20 1/20 1/20 1/20 1/20 1/20) (-1/20 1/20 -1/20 1/20 1/20 1/20 1/20 1/20 -1/20 1/20) (-1/16 1/16 1/16 1/16 -1/8 1/16 -1/16 1/16 1/16 1/16 -1/16) (1/12 -1/12 -1/12 1/12 1/12 1/12 1/12 1/12 1/12))  
    OMN example:
     
    (make-omn :length (rhythm-series '(1 4 3 2) '(7 5 7 7) 1/2 :prob '(.4 .6 .7 .1) :length '(q. e. e s) :seed 34) :pitch (gen-chord3 '((cs4 g4 a5) (c4 gs3 a4) (b5 f5 gs5) (b4 fs4 bb5) (cs5 c6 gs4) (e5 g3 a5)) '((6 8 11) (3 5 13) (2 7 11)))) Best wishes, Janusz
  11. Like
    opmo got a reaction from AM in Opusmodus 3.0.28902 Update   
    New function in 3.0.28902
     
    rhythm-series num number-of-notes span &key length prob seed
     
    This function returns a list of successive rhythmic series derived from a span (overall duration), length values, and a number of length-notes per bar. The length- notes within each bar are positioned at random.
     
    Simple examples:
     
    (rhythm-series 4 3 3/8) => ((-1/16 1/8 -1/16 1/16 1/16) (1/16 3/16 1/8) (1/8 3/16 1/16) (3/16 1/16 1/8)) (rhythm-series 4 5 3/8) => ((1/16 1/16 1/16 1/8 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/16) (1/16 1/16 1/16 1/16 -1/16 1/16)) (rhythm-series 4 3 1/4) => ((1/16 1/8 1/16) (1/16 1/16 1/8) (1/16 1/8 1/16) (1/16 1/8 1/16))  
    Examples with given length values:
     
    (rhythm-series 4 3 1 :length '(q. e. s)) => ((-1/4 1/16 1/16 1/16 -9/16) (1/8 3/16 -5/16 3/8) (1/16 3/16 -3/8 3/8) (3/16 -1/16 3/8 3/8)) (rhythm-series 6 5 3/8 :length '(q. e. e s 3q) :prob 0.1) => ((1/16 1/16 1/16 1/16 1/8) (1/8 1/16 1/16 1/16 1/16) (1/16 1/8 1/16 1/16 1/16) (1/16 1/8 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/8 1/16)) (rhythm-series 6 5 3/8 :length '(q. e. e s 3q) :prob 0.9) => ((1/12 1/12 1/12 1/12 1/24) (1/24 1/12 1/12 1/12 1/12) (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/16 1/16 1/16 -1/16 1/16 1/16) (1/16 1/16 1/16 1/16 -1/16 1/16))  
    Example with list of unique values for each generated series:
     
    (rhythm-series '(1 4 3 2) '(7 5 7 7) '(3/8 3/8 1/2 3/4) :prob '(.4 .6 .7 .1) :length '(q. e. e s 5q 3q) :seed 34) => ((1/20 1/20 1/20 1/20 1/20 1/20 1/40 -1/20) (1/24 1/12 1/12 1/12 1/12) (1/20 -1/20 1/20 -1/20 1/20 1/20 1/40 -1/20) (1/16 1/16 1/16 1/16 1/8) (1/16 1/16 1/8 1/16 1/16) (1/20 1/20 1/20 1/20 1/20 -1/20 1/20 -1/20 1/20 -1/20) (-1/20 -1/20 1/20 1/20 -1/20 1/20 1/20 1/20 1/20 1/20) (-1/20 1/20 -1/20 1/20 1/20 1/20 1/20 1/20 -1/20 1/20) (-1/16 1/16 1/16 1/16 -1/8 1/16 -1/16 1/16 1/16 1/16 -1/16) (1/12 -1/12 -1/12 1/12 1/12 1/12 1/12 1/12 1/12))  
    OMN example:
     
    (make-omn :length (rhythm-series '(1 4 3 2) '(7 5 7 7) 1/2 :prob '(.4 .6 .7 .1) :length '(q. e. e s) :seed 34) :pitch (gen-chord3 '((cs4 g4 a5) (c4 gs3 a4) (b5 f5 gs5) (b4 fs4 bb5) (cs5 c6 gs4) (e5 g3 a5)) '((6 8 11) (3 5 13) (2 7 11)))) Best wishes, Janusz
  12. Thanks
    opmo got a reaction from Stephane Boussuge in Opusmodus 3.0.28902 Update   
    New function in 3.0.28902
     
    rhythm-series num number-of-notes span &key length prob seed
     
    This function returns a list of successive rhythmic series derived from a span (overall duration), length values, and a number of length-notes per bar. The length- notes within each bar are positioned at random.
     
    Simple examples:
     
    (rhythm-series 4 3 3/8) => ((-1/16 1/8 -1/16 1/16 1/16) (1/16 3/16 1/8) (1/8 3/16 1/16) (3/16 1/16 1/8)) (rhythm-series 4 5 3/8) => ((1/16 1/16 1/16 1/8 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/16) (1/16 1/16 1/16 1/16 -1/16 1/16)) (rhythm-series 4 3 1/4) => ((1/16 1/8 1/16) (1/16 1/16 1/8) (1/16 1/8 1/16) (1/16 1/8 1/16))  
    Examples with given length values:
     
    (rhythm-series 4 3 1 :length '(q. e. s)) => ((-1/4 1/16 1/16 1/16 -9/16) (1/8 3/16 -5/16 3/8) (1/16 3/16 -3/8 3/8) (3/16 -1/16 3/8 3/8)) (rhythm-series 6 5 3/8 :length '(q. e. e s 3q) :prob 0.1) => ((1/16 1/16 1/16 1/16 1/8) (1/8 1/16 1/16 1/16 1/16) (1/16 1/8 1/16 1/16 1/16) (1/16 1/8 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/8 1/16)) (rhythm-series 6 5 3/8 :length '(q. e. e s 3q) :prob 0.9) => ((1/12 1/12 1/12 1/12 1/24) (1/24 1/12 1/12 1/12 1/12) (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/16 1/16 1/16 -1/16 1/16 1/16) (1/16 1/16 1/16 1/16 -1/16 1/16))  
    Example with list of unique values for each generated series:
     
    (rhythm-series '(1 4 3 2) '(7 5 7 7) '(3/8 3/8 1/2 3/4) :prob '(.4 .6 .7 .1) :length '(q. e. e s 5q 3q) :seed 34) => ((1/20 1/20 1/20 1/20 1/20 1/20 1/40 -1/20) (1/24 1/12 1/12 1/12 1/12) (1/20 -1/20 1/20 -1/20 1/20 1/20 1/40 -1/20) (1/16 1/16 1/16 1/16 1/8) (1/16 1/16 1/8 1/16 1/16) (1/20 1/20 1/20 1/20 1/20 -1/20 1/20 -1/20 1/20 -1/20) (-1/20 -1/20 1/20 1/20 -1/20 1/20 1/20 1/20 1/20 1/20) (-1/20 1/20 -1/20 1/20 1/20 1/20 1/20 1/20 -1/20 1/20) (-1/16 1/16 1/16 1/16 -1/8 1/16 -1/16 1/16 1/16 1/16 -1/16) (1/12 -1/12 -1/12 1/12 1/12 1/12 1/12 1/12 1/12))  
    OMN example:
     
    (make-omn :length (rhythm-series '(1 4 3 2) '(7 5 7 7) 1/2 :prob '(.4 .6 .7 .1) :length '(q. e. e s) :seed 34) :pitch (gen-chord3 '((cs4 g4 a5) (c4 gs3 a4) (b5 f5 gs5) (b4 fs4 bb5) (cs5 c6 gs4) (e5 g3 a5)) '((6 8 11) (3 5 13) (2 7 11)))) Best wishes, Janusz
  13. Like
    opmo got a reaction from JulioHerrlein in Opusmodus 3.0.28902 Update   
    New function in 3.0.28902
     
    rhythm-series num number-of-notes span &key length prob seed
     
    This function returns a list of successive rhythmic series derived from a span (overall duration), length values, and a number of length-notes per bar. The length- notes within each bar are positioned at random.
     
    Simple examples:
     
    (rhythm-series 4 3 3/8) => ((-1/16 1/8 -1/16 1/16 1/16) (1/16 3/16 1/8) (1/8 3/16 1/16) (3/16 1/16 1/8)) (rhythm-series 4 5 3/8) => ((1/16 1/16 1/16 1/8 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/16) (1/16 1/16 1/16 1/16 -1/16 1/16)) (rhythm-series 4 3 1/4) => ((1/16 1/8 1/16) (1/16 1/16 1/8) (1/16 1/8 1/16) (1/16 1/8 1/16))  
    Examples with given length values:
     
    (rhythm-series 4 3 1 :length '(q. e. s)) => ((-1/4 1/16 1/16 1/16 -9/16) (1/8 3/16 -5/16 3/8) (1/16 3/16 -3/8 3/8) (3/16 -1/16 3/8 3/8)) (rhythm-series 6 5 3/8 :length '(q. e. e s 3q) :prob 0.1) => ((1/16 1/16 1/16 1/16 1/8) (1/8 1/16 1/16 1/16 1/16) (1/16 1/8 1/16 1/16 1/16) (1/16 1/8 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/8 1/16)) (rhythm-series 6 5 3/8 :length '(q. e. e s 3q) :prob 0.9) => ((1/12 1/12 1/12 1/12 1/24) (1/24 1/12 1/12 1/12 1/12) (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/16 1/16 1/16 -1/16 1/16 1/16) (1/16 1/16 1/16 1/16 -1/16 1/16))  
    Example with list of unique values for each generated series:
     
    (rhythm-series '(1 4 3 2) '(7 5 7 7) '(3/8 3/8 1/2 3/4) :prob '(.4 .6 .7 .1) :length '(q. e. e s 5q 3q) :seed 34) => ((1/20 1/20 1/20 1/20 1/20 1/20 1/40 -1/20) (1/24 1/12 1/12 1/12 1/12) (1/20 -1/20 1/20 -1/20 1/20 1/20 1/40 -1/20) (1/16 1/16 1/16 1/16 1/8) (1/16 1/16 1/8 1/16 1/16) (1/20 1/20 1/20 1/20 1/20 -1/20 1/20 -1/20 1/20 -1/20) (-1/20 -1/20 1/20 1/20 -1/20 1/20 1/20 1/20 1/20 1/20) (-1/20 1/20 -1/20 1/20 1/20 1/20 1/20 1/20 -1/20 1/20) (-1/16 1/16 1/16 1/16 -1/8 1/16 -1/16 1/16 1/16 1/16 -1/16) (1/12 -1/12 -1/12 1/12 1/12 1/12 1/12 1/12 1/12))  
    OMN example:
     
    (make-omn :length (rhythm-series '(1 4 3 2) '(7 5 7 7) 1/2 :prob '(.4 .6 .7 .1) :length '(q. e. e s) :seed 34) :pitch (gen-chord3 '((cs4 g4 a5) (c4 gs3 a4) (b5 f5 gs5) (b4 fs4 bb5) (cs5 c6 gs4) (e5 g3 a5)) '((6 8 11) (3 5 13) (2 7 11)))) Best wishes, Janusz
  14. Like
    opmo reacted to Stephane Boussuge in Etude pour Orchestre du 4.5.2023   
    I’m always amazed by the incredible power of Opusmodus and the inspiration it give to me to compose and explore new possibilities .
    Actually, I'm playing and experimenting a bit with OM and orchestra,
    preparing my next package of video lessons for ComposerWorkshop.com.
    Today, I've made this output from my experiences, nothing extraordinary but I wanted to share it as an example of what we can make with Opusmodus in about 1h.
    It's basically only Slonimsky patterns distributed to the orchestra on an heterophonic way with transpositions from Opusmodus bind-to-interval function (set to "0")
    Stéphane
     
    Etude pour Orchestre 040523.wav
  15. Like
    opmo reacted to Stephane Boussuge in Why I love OM - Part 1 - Orchestral sections generation   
    I truly love Opusmodus. In this new series of videos, I'm trying to show why.
    This (basic) example show how Opusmodus could be used to generate and experiment with orchestral sections.
     
     
  16. Thanks
    opmo got a reaction from JimmyTheSaint in How to share stuff generated by rnd-sample to other parts of the code?   
    There is no need to use gen-loop function here:
     
    (setf my-lengths (rnd-sample 100 '((q s) (q q))))  
     
  17. Thanks
    opmo got a reaction from JimmyTheSaint in How to share stuff generated by rnd-sample to other parts of the code?   
    One possibility:
    (setf times 100) (setf my-root -24) (setf my-intervals '(0 1 4 7)) (setf my-pitches (pitch-transpose my-root (integer-to-pitch my-intervals))) (setf my-lengths (gen-loop times (rnd-pick '((q s) (q q))))) (setf my-sequence (make-omn :length my-lengths :pitch my-pitches)) (setf gts (get-time-signature my-sequence)) (def-score my-score (:title "my-score" :key-signature 'chromatic :time-signature gts :tempo 161) (instrument-1 :omn my-sequence :port 0 :channel 1 :volume 100 ) (instrument-2 :omn my-sequence :port 0 :channel 2 :volume 60) )  
    With rnd-sample:
     
    (setf my-lengths (gen-loop times (first (rnd-sample 1 '((q s) (q q))))))  
  18. Thanks
    opmo got a reaction from JulioHerrlein in Midi Player hanging notes   
    The hanging notes should be fixed in 3.0.28886.
  19. Like
    opmo got a reaction from Stephane Boussuge in sysex to re-tune MTS synth for full microtonality   
    Example with cents attributes:
     
    '(e c4 1c - 12c - 23c - 34c - 45c - 56c - 67c - 78c)  

  20. Thanks
  21. Thanks
    opmo reacted to JulioHerrlein in Opsumodus for Windows Tutorial   
    Opusmodus 3.0 for Windows ( Basic Install and Workflow Setup )
    In this video there is a tutorial for the installation and setup of Opusmodus 3.0 for Windows computers. 
    It also shows the Loop Midi Setup and integration with Reaper, Musescore and Libre Office.
     
    LINKS
    OPUSMODUS 3.0 - Windows
    https://opusmodus.com/forums/downloads/
     
    LOOP MIDI - Virtual Midi ports - Tobias Erichsen
    https://www.tobias-erichsen.de/software/loopmidi.html
     
    REAPER
    https://www.reaper.fm/
     
    MUSESCORE
    https://musescore.org
     
    LIBRE OFFICE
    https://www.libreoffice.org/
     
    CHAPTERS
    00:00 - Intro
    00:59 - Install Opusmodus
    02:41 - First Look at Opusmodus Standalone
    04:25 - Midi Setup
    05:23 - Loop Midi Install
    05:53 - Virtual Ports Setup 
    06:30 - Selecting Midi Inputs and Midi Entry
    07:00 - DAW Midi Loop Setup (Reaper)
    09:19 - Def-Instrument-set creation and setup midi
    11:42 - Preview Score with def-instrument-set using VST and Reaper
    12:20 - OMN for creating musical ideas
    12:44 - Using the Preview Score with VST sounds in Reaper
    14:36 - Opusmodus and Notation Software - Musescore
    15:21 - Opusmodus and word processor software - Libre Office
  22. Thanks
    opmo reacted to Deb76 in OPUSMODUS 3 WINDOWS - MIDI SETUP ABLETON   
    Hello RevJames, 
    I use Ableton Live 11 suite with OPMO to send the different midi parts into Live. It works very well and allows you to use all of Live's tools, native synthesizers, third-party virtuals, hardware synths, etc.
    LoopMidi works great for creating the virtual ports needed in Windows to play midi parts on a Daw/Stan. Once open, just click + to add a port.
    In Ableton Live or other Daw, check in Preferences if the ports are active. Then, just assign them in the instruments/midi track.
    Be careful, do not forget in Opusmodus to check their assignments with (midi-destinations)_CTRL E.
    I made a small PDF to summarize this topic. And since you work with Ableton Live, I'm interested in sharing.
    LoopPortsOpmo.pdf
  23. Thanks
    opmo got a reaction from vicenteby in Opusmodus 3.0 Windows   
    OM v.3.0 Windows ready for download:
    https://opusmodus.com/forums/downloads
     
    LoopMIDI is a third-party application that allows you to create virtual MIDI ports on your Windows system:
     
    loopMIDI | Tobias Erichsen
    WWW.TOBIAS-ERICHSEN.DE  
  24. Like
    opmo got a reaction from Deb76 in Opusmodus 3.0 Windows   
    OM v.3.0 Windows ready for download:
    https://opusmodus.com/forums/downloads
     
    LoopMIDI is a third-party application that allows you to create virtual MIDI ports on your Windows system:
     
    loopMIDI | Tobias Erichsen
    WWW.TOBIAS-ERICHSEN.DE  
  25. Thanks
    opmo got a reaction from JulioHerrlein in Windows Port?   
    OUT NOW!
×
×
  • Create New...

Important Information

Terms of Use Privacy Policy