Jump to content

JulioHerrlein

Members
  • Posts

    806
  • Joined

  • Last visited

Reputation Activity

  1. Like
    JulioHerrlein reacted to loopyc in Inspiring Idea For Rhythm (with Nested Tuplets)   
    Thanks Julio, LOVE realtime tuplets 🙂
  2. Like
    JulioHerrlein got a reaction from loopyc in Inspiring Idea For Rhythm (with Nested Tuplets)   
    INSPIRING IDEA FOR RHYTHM (Nested Tuplets)
     
    Nestup [[]_[]]
    NESTUP.CUTELAB.NYC Nestup, a Language for Musical Rhythms  
     
     
  3. Like
    JulioHerrlein got a reaction from opmo in Any templates for Garritan Jazz and Big band 3 ?   
    Yes, I will. Just checking if somebody already did.
    Thanks !
  4. Like
    JulioHerrlein reacted to opmo in Any templates for Garritan Jazz and Big band 3 ?   
    You most create you own def-sound-set for it.
  5. Like
    JulioHerrlein got a reaction from hujairi in Inspiring Idea For Rhythm (with Nested Tuplets)   
    INSPIRING IDEA FOR RHYTHM (Nested Tuplets)
     
    Nestup [[]_[]]
    NESTUP.CUTELAB.NYC Nestup, a Language for Musical Rhythms  
     
     
  6. Like
    JulioHerrlein reacted to DanielLumertz in gen-steps strange behaviour   
    So I was using gen-steps in this simple code, somehow it is lagging all opusmodus, that I need to close or break it. I don't know what it can be, I haven't got much time to explore what it can be, if is a bug or I messed up....

     
    (setf size 13) ;; talea size in rythm cells  (setf cell_size 1/16) (setf min 3) ;; min beats in the talea (setf max 7) ;; max beats in the talea (setf n_beat(car (rnd-number 1 min max)))  (setf beat_places (subseq (rnd-order (gen-integer-step 0 size 1)) 0 (- n_beat 1))) (setf talea_bin(gen-binary-row size beat_places)) (setf talea_1 (binary-map talea_bin cell_size)) (setf var_t1 (gen-steps 4 talea_bin)) ;; This line seems to be the problem. (setf talea_1_var (binary-map var_t1 cell_size))
     
     
    thanks people!
  7. Like
    JulioHerrlein reacted to opmo in gen-steps strange behaviour   
    Well spotted. Yes it is a bug. A predict omn-formp was missing.
    Fixed already.
     
  8. Thanks
    JulioHerrlein reacted to born in Inspiring Idea For Rhythm (with Nested Tuplets)   
    see: 
    OpenMusic Documentation - Rhythm Trees Structure
    SUPPORT.IRCAM.FR Best, Achim
  9. Thanks
    JulioHerrlein reacted to opmo in Automatic opening last MIDI file files in Musescore (or Sibelius, etc)   
    Instrument means track.
  10. Like
    JulioHerrlein got a reaction from DanielLumertz in Reaper and Opusmodus Script   
    Very nice idea, Daniel !!
    Nice to see more people from Brasil, here ! (specially a student from our University !! )
    All the best !
    Julio
  11. Like
    JulioHerrlein reacted to DanielLumertz in Reaper and Opusmodus Script   
    Hey ppl, I made a script to use other softwares as midi editors for reaper. I tested with Opusmodus and Reaper, they make a good pair of softwares. 🙂 I recently made a video in how to use it with musecore but the concept is the same 

    I also made a really small screen cap to show with Opusmodus (my macbook is not that fast)
    In the video I am using to export midi: 
    compile-score *last-score* :output :midi :file "path/filename"  

    (hope I posted in the right subforum here)
  12. Like
    JulioHerrlein reacted to opmo in Different seeds in a loop expression   
    (let ((seed '(1 23 467 11)))   (loop for i in seed     collect (rnd-unique 5 '(1 2 3 4 5) :seed i))   )  
  13. Thanks
  14. Thanks
  15. Thanks
    JulioHerrlein reacted to AM in Interval distance of a list (integers or pitches) in relation to a chosen note   
    (defun interval-distance (alist n) (let ((alist (if (pitchp (car alist)) (pitch-to-midi alist) alist)) (n (if (pitchp n) (pitch-to-midi n) n))) (loop for i in alist collect (- i n)))) (interval-distance '(c4 d4 b2 e7) 'c4) => (0 2 -13 40) (interval-distance '(c4 d4) 'c4) => (0 2) (interval-distance '(43 44) '41) => (2 3) (interval-distance '(56 48 11) 'c4) => (-4 -12 -49)  
  16. Like
    JulioHerrlein reacted to Rene in chord-filter-tie, organ   
    Dear Julio
     
    Thank you very much. I also worked with pitch-demix. With pitch-demix I've got single voices. With single voices filter-tie works, but not with chords (e.g. two chords for piano with common tones).
     
    Best,
    René
  17. Like
    JulioHerrlein reacted to AM in Rhythmic Resultants   
    is  this a solution? ...or some ideas to it...
    greetings
    andré
     
     
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defun gen-resultant (r1 r2 &key (rhy 1/4)) (gen-length (difference (remove-duplicates (sort-asc (flatten (append (cons 0 (gen-accumulate r1)) (cons 0 (gen-accumulate r2))))))) rhy)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; example.... correct? (gen-resultant (primes-to 7) (reverse (primes-to 7))) ;;; another example (gen-resultant '(9) '(3 1 4)) (gen-resultant '(9) '(3 1 4) :rhy 1/16) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  
     
    n-version... 
     
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; for several layers (defun gen-resultant* (r &key (rhy 1/4)) (gen-length (difference (remove-duplicates (sort-asc (flatten (loop for i in r append (cons 0 (gen-accumulate i))))))) rhy)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; correct? (gen-resultant* '((16) (9) (3 1 4) (7))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  
    a version with length-input - but test it, correct...?
     
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; for several layers / with direct rhythm-input (defun gen-resultant** (r) (difference (remove-duplicates (sort-asc (flatten (loop for i in r append (cons 0 (gen-accumulate i)))))))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; correct? (gen-resultant** '((2/4 1/4 3/4) (1/16 3/16 2/12 1/12) (3/4 3/20 2/20))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  
  18. Thanks
    JulioHerrlein reacted to AndreOktave in Rhythmic Resultants   
    Hi André,
     
    thank you very much for your help, your codes are working very good and it is exactly what I was looking for... 
     
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    ;;; example.... correct? 
    ;; Yes
    ;(gen-resultant  (primes-to 19) (reverse (primes-to 19)))
    ;; =================
    ;;;exactly what I was looking for, thanks alot!!!
    (progn
    (defun gen-resultant (r1 r2 &key (rhy 1/4))
      (gen-length (difference (remove-duplicates 
                               (sort-asc (flatten (append (cons 0 (gen-accumulate r1)) 
                                                          (cons 0 (gen-accumulate r2))))))) rhy))
    (setf r1a (primes-to 19))
    (setf r2a (reverse (primes-to 19)))
    ;; Resultant from r1a r2a
    (setf rr (gen-resultant r1a r2a :rhy 1/16))
    (setf r1b (gen-length r1a '16))
    (setf r2b (gen-length r2a '16))

    (ps 'gm
        :rhy (list  r1b)
        :rhy (list  r2b)
        :rhy (list rr)
        :time-signature '(4 4 1)
    )
     
    ....as long as there are no rests involved, rests are interpreted as attacks:
     
    (progn
    (defun gen-resultant* (r &key (rhy 1/4))
      (gen-length (difference (remove-duplicates 
                               (sort-asc (flatten (loop for i in r
                                                            append (cons 0 (gen-accumulate i)))))))
                  rhy))
    (setf r1c (gen-length '(16) '4))
    (setf r2c (gen-length '(9) '4))
    (setf r3c (gen-length '((3 1 4)) '4))
    (setf r4c (gen-length '(7) '4))
    ;; Resultant from r1c r2c r3c r4c
    (setf rrc (gen-resultant* '((16) 
                      (9) 
                      (3 1 4)
                      (7))))
    (ps 'gm
        :rhy (list  r1c)
        :rhy (list  r2c)
        :rhy (list  r3c)
        :rhy (list  r4c)
        :rhy (list rrc)
        :time-signature '(4 4 1)
    )
    )
     
     
    ... or:
     
    (progn
    (defun gen-resultant** (r)
      (difference (remove-duplicates 
                   (sort-asc (flatten (loop for i in r
                                        append (cons 0 (gen-accumulate i))))))))
    (setf rha '(2/4 1/4 3/4))
    (setf rhb '(1/16 3/16 2/12 1/12))
    (setf rhc '(3/4 3/20 2/20))
    (setf rr2 (gen-resultant** (list rha rhb rhc)))
    (ps 'gm
        :rhy (list  rha)
        :rhy (list  rhb)
        :rhy (list  rhc)
        :rhy (list rr2)
        :time-signature '(4 4 1)
    )
    )
     
    Thank you very much!
     
    best
    Stefan
     
  19. Thanks
  20. Thanks
    JulioHerrlein got a reaction from opmo in Automatic opening last MIDI file files in Musescore (or Sibelius, etc)   
    This is amazing, Janusz !!
    Many thanks !
    Looking forward to this update !
    Best !
    Julio
  21. Thanks
    JulioHerrlein reacted to opmo in Automatic opening last MIDI file files in Musescore (or Sibelius, etc)   
    In the next update:

    MUSICXML-TO-EDITOR
     
    The MUSICXML-TO-EDITOR function opens a MusicXML file or the last compiled score (DEF-SCORE, PS or snippet) in any notation editor like Sibelius, Dorico, MuseScore etc...
     
    In Opusmodus the default editor is set to Sibelius:
     
    (defparameter *default-notation-editor* "Sibelius.app")
     
    To change the default editor you need to replace the  "Sibelius.app" string with the name of your own editor and paste the expression into the ‘User Source.lisp’ file which you will find in the ~/Opusmodus/Extensions directory.
     
    For example:
     
    (defparameter *default-notation-editor* "Dorico 3.5.app")
    (defparameter *default-notation-editor* "MuseScore 3.app")
     
    Examples:
     
    To open the last compiled score (DEF-SCORE, PS or snippet) in the notation editor:
     
    (musicxml-to-editor)
     
    To open the 2nd instrument from the last compiled score (DEF-SCORE, PS or snippet) in the notation editor:
     
    (musicxml-to-editor :instrument 2)
     
    To open a MusicXML file in the notation editor:
     
    (musicxml-to-editor "file-name")
     
    To open the file in Finale:
     
    (midi-to-editor "file-name" :application "Finale")
     
    Should the application not open you can use the identifier keyword with the bundle-identifier.
    For example the Sibelius 7.5 version identifier is "com.avid.Sibelius75"
     
    (musicxml-to-editor "file-name" :identifier "com.avid.Sibelius75")
     

    MIDI-TO-EDITOR
     
    The MIDI-TO-EDITOR function opens a MIDI file or the last compiled score (DEF-SCORE, PS or snippet) in any notation editor like Sibelius, Dorico, MuseScore etc...
     
    In Opusmodus the default editor is set to Sibelius:
     
    (defparameter *default-notation-editor* "Sibelius.app")
     
    To change the default editor you need to replace the  "Sibelius.app" string with the name of your own editor and paste the expression into the ‘User Source.lisp’ file which you will find in the ~/Opusmodus/Extensions directory.
     
    For example:
     
    (defparameter *default-notation-editor* "Dorico 3.5.app")
    (defparameter *default-notation-editor* "MuseScore 3.app")
     
    Examples:
     
    To open the last compiled score (DEF-SCORE, PS or snippet) in the notation editor:
     
    (midi-to-editor)
     
    To open the 2nd instrument from the last compiled score (DEF-SCORE, PS or snippet) in the notation editor:
     
    (midi-to-editor :instrument 2)
     
    To open MIDI file in the notation editor:
     
    (midi-to-editor "file-name")
     
    To open the file in Finale:
     
    (midi-to-editor "file-name" :application "Finale")
     
    Should the application not open you can use the identifier keyword with the bundle-identifier.
    For example the Sibelius 7.5 version identifier is "com.avid.Sibelius75"
     
    (midi-to-editor "file-name" :identifier "com.avid.Sibelius75")
     
  22. Thanks
  23. Thanks
    JulioHerrlein reacted to opmo in Automatic opening last MIDI file files in Musescore (or Sibelius, etc)   
    This you will need to do before.
     
    (midi-to-editor) ;is using the default editor
    (midi-to-editor "filename") ;specific midifile (not *last-score*)
    (midi-to-editor :application Musescore) ;*last-score* midi will open in Musescore

    the default will be:
     
    (defparameter *default-notation-editor* "Sibelius")  
    which you can changed to your editor application.

    The same I will do to the musicxml:
    (musicxml-to-editor)
  24. Thanks
    JulioHerrlein reacted to opmo in Automatic opening last MIDI file files in Musescore (or Sibelius, etc)   
    I will make a function for it.
    (midi-to-editor)  
  25. Like
    JulioHerrlein reacted to opmo in Automatic opening last MIDI file files in Musescore (or Sibelius, etc)   
    *last-score* is snippet therefore you should be able to open the it in any publishing app.
×
×
  • Create New...

Important Information

Terms of Use Privacy Policy