opmo

You need to search and study more the documents. 🙂

(setf omn-ls (length-staccato '((q e3) (q. e3) (q g3) (q d3) (q. a3)) :value 1/8)) => ((e e3 -) (e e3 -q) (e g3 -) (e d3 -) (e a3 -q))  
(loop for i in omn-ls collect (fit-to-span 3/8 i)) => ((e e3 -q) (e e3 -q) (e g3 -q) (e d3 -q) (e a3 -q))  

(setf omn-ls (length-staccato '((q e3) (q. e3) (q g3) (q d3) (q. a3)) :value 1/8)) => ((e e3 -) (e e3 -q) (e g3 -) (e d3 -) (e a3 -q))  
(loop for i in omn-ls collect (fit-to-span 3/8 i)) => ((e e3 -q) (e e3 -q) (e g3 -q) (e d3 -q) (e a3 -q))  

(loop for seq in '((q e3) (q. e3) (q g3) (q d3) (q. a3))   for span in '(3/8 1/4 3/8 1/2)   collect (fit-to-span span seq)) => ((q e3 -e) (q e3) (q g3 -e) (q d3 -))  

(loop for seq in '((q e3) (q. e3) (q g3) (q d3) (q. a3))   for span in '(3/8 1/4 3/8 1/2)   collect (fit-to-span span seq)) => ((q e3 -e) (q e3) (q g3 -e) (q d3 -))  

(loop for seq in '((q e3) (q. e3) (q g3) (q d3) (q. a3))   for span in '(3/8 1/4 3/8 1/2)   collect (fit-to-span span seq)) => ((q e3 -e) (q e3) (q g3 -e) (q d3 -))  

You should generate the sequence correctly in the first place and not make correction to an existing sequence.
 
(loop for i in '((q e3) (q e3) (q g3) (q d3) (q a3))   collect (fit-to-span 3/8 i)) => ((q e3 -e) (q e3 -e) (q g3 -e) (q d3 -e) (q a3 -e))  

To run OM on Big Sur you need 2.2 version.

While complaining about the state/progress on ARM M1 upgrade, Heres a honest Happy Customer statement on OM language:
 
Everytime I learn a new function, I grow in understanding that OM is super powerful while still the language and syntax (once getting used to parathesis) is simple enough to not get distracted. More and more I feel to understand the intention why certain functions have been designed and how to apply them. A huge support is the good website and inline docu (probably the best I have ever seen).
 
It dawns me that people who created the OM language and drive its evolution so long do really understand whats necessary for algorithmic composition.
 
I feel privileged to participate to have daily insights while learning all these music-related concepts and enjoy it a lot.
 
In my dayjob I am a Data-Scientist so maybe I will contribute some day with ideas not covered yet, not shure if they are musical as I am just hobbyist.
 
Excellent, Thanks a lot.
Keep the good work.
 
Regards
Cliff

(filter-tie '(e c4 c4 e. c4 q c4 s c4 e eb4 e. eb4 h eb4 e. eb4 q eb4)) => (h. c4 mf wq eb4)  
 
also this could be useful as well but Janusz probably can program it much better:
 
(defun filter-change (omn-lst) (make-omn :pitch (omn :pitch omn-lst) :length (binary-map (gen-binary-change (omn :pitch omn-lst)) (omn :length omn-lst)) :velocity (omn :velocity omn-lst) :articulation (omn :articulation omn-lst) :swallow t )) (filter-change '(e c4 c4 e. c4 q c4 s c4 e eb4 e. eb4 h eb4 e. eb4 q eb4)) => (e c4 - -e. -q -s e eb4 -e. -h -e. -q)  

I'm working on a series of piano pieces. Here're two of the movements. Special thanks to Janusz and Stéphane for their invaluable feedback and ideas! Thanks for listening - comments welcome!
 
1.mp3
3.mp3
 
- Zvony

(defun comb-to-sum (n)   (let ((nums (gen-integer 1 n))         (x 0))     (find-unique      (sort-asc       (flatten-sublist        (loop repeat n          for i = (combination2 (incf x) nums)          collect (loop for c in i                    if (= (sum c) n)                    collect c))))))) (comb-to-sum 3) => ((3) (1 2) (1 1 1)) (comb-to-sum 5) => ((5) (1 4) (2 3) (1 1 3) (1 2 2) (1 1 1 2) (1 1 1 1 1))  
If you need the function in the OM system I could add it with the next update.
In what context you are using this combination?

(defun comb-to-sum (n)   (let ((nums (gen-integer 1 n))         (x 0))     (find-unique      (sort-asc       (flatten-sublist        (loop repeat n          for i = (combination2 (incf x) nums)          collect (loop for c in i                    if (= (sum c) n)                    collect c))))))) (comb-to-sum 3) => ((3) (1 2) (1 1 1)) (comb-to-sum 5) => ((5) (1 4) (2 3) (1 1 3) (1 2 2) (1 1 1 2) (1 1 1 1 1))  
If you need the function in the OM system I could add it with the next update.
In what context you are using this combination?

2.2.26891

– New Functions:
PITCH-PROGRESSION RND-BEAT-ORDER RECONSTRUCT-OMN
– Fixed:
RND-ORDER init seed bug  
Downloads

2.2.26891

– New Functions:
PITCH-PROGRESSION RND-BEAT-ORDER RECONSTRUCT-OMN
– Fixed:
RND-ORDER init seed bug  
Downloads

(mclist '(0 1 2 3) '(a b c d)) => ((0 a) (1 b) (2 c) (3 d))  

(mclist '(0 1 2 3) '(a b c d)) => ((0 a) (1 b) (2 c) (3 d))  

Short variation for piano.
Best wishes,
Janusz
 
Vienna Variations.mp3

Code possibly with next update.

Code possibly with next update.

Short variation for piano.
Best wishes,
Janusz
 
Vienna Variations.mp3

Short variation for piano.
Best wishes,
Janusz
 
Vienna Variations.mp3

i am very thankful for the HACK. lisp is not a language for real-time things, but for me it suits the approximate simulation perfectly!! thanx janusz!! 🙂
 
but: you can try out how it is not to evaluate everything at once, step by step, maybe then there will be less LATENCY?

I did the SCORE-PLAYER for Andre. I will make a documentation for it soon.

I made a simple example to show how it works.
You have to set the port and the midi channels to your needs.
What I don't get is why the two voices of different length, any explanation is welcome..
The OM MIDI-Export function does not work here, so you have to record the MIDI-Stream in your DAW.
Enjoy!
 
(setf pattern (gen-repeat 50 '(s e4 fs4 b4 cs5 d5 fs4 e4 cs5 b4 fs4 d5 cs5))) (defun play-tempo-stream (&key (inst1 nil) (inst2 nil) (port "OM-VE1") (tempo-curve 60)) (def-score stream (:key-signature 'chromatic :time-signature '(3 4) :tempo tempo-curve :layout (list (bracket-group (treble-layout 'inst1) (treble-layout 'inst2)))) (inst1 :omn inst1 :port port :channel 1 :pan 20) (inst2 :omn inst2 :port port :channel 7 :pan 20)) (score-player 'stream)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (progn (play-tempo-stream :inst1 pattern :tempo-curve (mapcar 'list (gen-integer 110 60)(gen-repeat 50 '1)) :port 0) (play-tempo-stream :inst2 pattern :tempo-curve (mapcar 'list (gen-integer 61 111)(gen-repeat 50 '1)) :port 0))  
Flextempo.mp3 flextempo.mid