opmo

As I was making the last update I didn't make changes to one of the scores in the Examples folder in the Quick Start workspace. Please replace the Counterpoint.opmo file - which you find in the ~/Opusmodus/Quick Start/Examples directory - with this one: Counterpoint.opmo Best wishes, keep save, Janusz

For some recent is not working if in Extensions folder.

I will have a look what I can do.

Is this what you are looking for: (setf ph1 (ambitus '(g3 g6) (filter-tie (make-omn :pitch (gen-loop size (interval-ambitus 6 (rnd-sample 12 (make-scale 'd4 12 :alt '(2 1 3))))) :length (gen-loop size (length-legato (rnd-sample 4 '(s -s)))) :velocity (rnd-sample 12 '((pp)(p)(mp)(mf)(f))) :span :pitch )))) By default the span in length. If you wan't pitch to be the master then :span :pitch will do the trick.

Opusmodus for macOS 11.0 Big Sur ready for download.

The upcoming update will work with macOS Big Sur.

Send me some longer example with input and output and I will check if the output is correct.

The harmonic-path is not the function you are looking for. I will add the new option octave to the tonality-map function with the next release. Example: (setf voice '(q b4 c5 b5 ds4)) (setf scale '(c4 e4 f4 g4 a4)) (tonality-map '(scale :map octave) voice) => (q a4 c5 a5 e4)

(vector-map '(c4 d4 e4 c5 d5) (gen-gaussian-noise 10 :seed 89)) => (d5 d4 c4 e4 d4 e4 c4 d4 e4 d5)

(tonality-map '(major) (vector-to-pitch '(g3 g4) (gen-white-noise 10 :seed 89))) => (a3 g4 d4 a3 b3 d4 g4 g3 g4 e4) or (harmonic-path '(major) (vector-to-pitch '(g3 g4) (gen-white-noise 10 :seed 89))) => (c3 d4 e4 f3 g3 a4 b4 c3 d4 e4)

Two variations on Chopin 28-4 Janusz

I assume you need to evaluate the auto-explode4 function first.

Check the harmonic-path function.

In the future this will be fixed. For now the html links are removed because of Apple changes in macOS 10.15.