opmo

OSC & Threads Trigger - without documented functionality. To experiment with the files you will need Reaktor 6.

Live Coding Instrument improvisation by Janusz Podrazik, for FM8, Reaktor, Absynth, Vienna Imperial and Prepared Pianos with five workspaces.

Make sure there are no errors in the library otherwise you can't start the app - the library files are loaded at start.

There is no bug in the function. In the current version the tie quantum is fixed to the minimum-quantum value (smallest tuplet value). I will make a possible to control the tie quantum with an additional keyword. Example: (setf rhy '(0.375 -0.625 0.25 0.375 0.125 0.125 -0.25 0.625 0.125 -0.625 0.125 0.125 -0.625 0.375 0.25 -0.25 0.625 -0.125 0.125 -0.125 0.125 0.375 0.375 0.125 0.125 0.375 0.125 -0.25 0.125 0.25 -0.25 0.625 0.125 0.375 0.375 0.375 0.375 0.125 -0.25 0.625 0.125 -0.25 0.125 0.125 -0.375 0.125 0.25 -0.375 0.25 -0.375 0.125 -0.125 0.125 -0.25 0.625 -0.5 0.25 0.375 -0.125 0.375 0.25 -0.25 0.625 0.25 -0.125 0.125 0.125 0.125 0.125 0.125 0.375 -0.125 0.125 0.125 1.25 0.375 0.25 -0.125 0.125 0.25 -2.5 0.25 0.375 3.75 0.125 0.125 -0.375 0.375 0.125 0.625 0.25 2.5 0.125 0.125 2.5 -0.125 3.75 -0.375 1.25 -0.125 0.125 0.125 0.125 0.125 0.25 0.625 0.25 -0.375)) (setf l1 (quantize rhy '(1 2 4 8))) => (s. -et s s. t t -t -t et t -t -e t t -s -s. s. s -s et -t t -t t s. s. t t s. t -t -t t s -s et t s. s. s. s. t -s et t -s t t -s. t s -s. s -s. t -t t -s et -s. -t s s. -t s. s -s et s -t t t t t t s. -t t t qs s. s -t t s -e -q -q s s. h... t t -s. s. t et s he t t he -t h... -s. qs -t t t t t s et s -t -q) (get-count l1 :length :note) => 80 (setf l2 (quantize (x+b rhy 0.02) '(1 2 4 8) :tie 0.5)) => (s. -et e e q -et t t -t -e s. t t -s et -t t -t t s. t e e t -s t s -s q e e s. t -s s s. t -s t t -e e -s s -s. t q -e s s s e s -s et t t -t t t t t s s. -t t t s q e s s s -e. -q -e. s s. h..t t t t -s. s q s he t t he e h. e -e q t -t t t t t s e. s -q) (get-count l2 :length :note) => 80 (setf l3 (quantize (x+b rhy 0.02) '(1 2 3 4 5 6 7 8) :tie 0.06)) => (s. -et 7h 7h. 7q 7q -3e 3h 3e -et t t -t -e s. s -s et -t t -t t s t_7h 7q 7q 7h. t -s t s -s 7wq 7q 7q_5q 5h 5h s. t -s et t -s t t -3q 3e 3q -3e -s s -s. t 7q -7h 7w -e s e e s -s et t_7q -7q 7q 7q 7q 7q 7q s. -t t t qs 7h. 7h -7q 7q 5q -5w -q -e. s s. h... t t -s. s_3e 3e 3h s he t t he -3e 3q_h.. -3q 3e_qt -t t t t t s 7wq 7h -q) (get-count l3 :length :note) => 80

"you have to "convert" to FLOAT (you did not in YOUR example)" you don't need to do that, the quantize can deal with ratios, floats or both.

You can control the output with the two keywords: speed and trust: #| (setf rhy (gen-length '(1 1 3 -2 5 7 3 -2 1 5 8 -7 3 1 2) 32)) (setf float-rhy+fuzziness (loop for i in rhy when (> i 0) collect (+ i (rnd-pick '(0.05 0.1 0.15))) else collect i)) |# (setf float-rhy+fuzziness '(0.13125 0.08125 0.24375 -1/16 0.20625 0.26875 0.19375 -1/16 0.08125 0.30625 0.35 -7/32 0.14375 0.18125 0.1625)) (setf rhy+fuzziness (quantize float-rhy+fuzziness '(1 2 3 4 5 6 7 8) :speed -.2)) (setf pitches '(fs3 bb3 c4 d4 eb4 e4 g4 gs4 a4 b4 cs5 f5)) (setf mat (make-omn :length rhy+fuzziness :pitch pitches)) => (3e fs3 bb3 -3q 3e c4 d4 t eb4 s e4 - t g4 s gs4 s. a4 -et -s t b4 cs5 f5 -s.) However, if the input list smallest value is smaller then the minimum quantum value then you end up with less length-notes values.

I will check the tie system in the quantise 🙂

Show me short example what you are trying to do, with input and output.