opmo

Opusmodus for Monterey (macOS 12.0 Intel) ready for download.

OM will work on macOS Monterey Intel with the next update (next week).

CCL has started working on the port and if the port will not materialise at the beginning of the next year then we would need to consider other lisp program, and I agree LispWorks could be the system for future Opusmodus.

In the midi file there is no tempo set. We will add 120 as a default if midi without one. We are patching other apps bugs, there should be no midi files without a tempo parameters - no time no music This will be fixed in the next update.

Thanks for the files.

Please send me the midi file and I will have a look.

String Quartet VEMA (work in progress) with micro and spectral strategy. String Quartet VEMA I.mp3

Very good use and display (plot) of OM pcs and tropen functions.

Great compositions and performance, bravo. NVS lives on.

You should have received it by now. Thank you for your patience.

Done: (combination 3 '(0 1 2 3 4 5)) => ((0 1 2) (0 1 3) (0 1 4) (0 1 5) (0 2 3) (0 2 4) (0 2 5) (0 3 4) (0 3 5) (0 4 5) (1 2 3) (1 2 4) (1 2 5) (1 3 4) (1 3 5) (1 4 5) (2 3 4) (2 3 5) (2 4 5) (3 4 5)) (combination 3 '(0 1 2 3 4 5) :permute t) => ((0 1 2) (0 2 1) (1 0 2) (1 2 0) (2 0 1) (2 1 0) (0 1 3) (0 3 1) (1 0 3) (1 3 0) (3 0 1) (3 1 0) (0 1 4) (0 4 1) (1 0 4) (1 4 0) (4 0 1) (4 1 0) (0 1 5) (0 5 1) (1 0 5) (1 5 0) (5 0 1) (5 1 0) (0 2 3) (0 3 2) (2 0 3) (2 3 0) (3 0 2) (3 2 0) (0 2 4) (0 4 2) (2 0 4) (2 4 0) (4 0 2) (4 2 0) (0 2 5) (0 5 2) (2 0 5) (2 5 0) (5 0 2) (5 2 0) (0 3 4) (0 4 3) (3 0 4) (3 4 0) (4 0 3) (4 3 0) (0 3 5) (0 5 3) (3 0 5) (3 5 0) (5 0 3) (5 3 0) (0 4 5) (0 5 4) (4 0 5) (4 5 0) (5 0 4) (5 4 0) (1 2 3) (1 3 2) (2 1 3) (2 3 1) (3 1 2) (3 2 1) (1 2 4) (1 4 2) (2 1 4) (2 4 1) (4 1 2) (4 2 1) (1 2 5) (1 5 2) (2 1 5) (2 5 1) (5 1 2) (5 2 1) (1 3 4) (1 4 3) (3 1 4) (3 4 1) (4 1 3) (4 3 1) (1 3 5) (1 5 3) (3 1 5) (3 5 1) (5 1 3) (5 3 1) (1 4 5) (1 5 4) (4 1 5) (4 5 1) (5 1 4) (5 4 1) (2 3 4) (2 4 3) (3 2 4) (3 4 2) (4 2 3) (4 3 2) (2 3 5) (2 5 3) (3 2 5) (3 5 2) (5 2 3) (5 3 2) (2 4 5) (2 5 4) (4 2 5) (4 5 2) (5 2 4) (5 4 2) (3 4 5) (3 5 4) (4 3 5) (4 5 3) (5 3 4) (5 4 3))

I will change the combination to the definition and will add an additional function combination-permute which will return what you are looking for: ((0 1 2) (0 1 3) (0 1 4) (0 1 5) (0 2 1) (0 2 3) (0 2 4) (0 2 5) (0 3 1) (0 3 2) (0 3 4) (0 3 5) (0 4 1) (0 4 2) (0 4 3) (0 4 5) (0 5 1) (0 5 2) (0 5 3) (0 5 4 (1 0 2) (1 0 3) (1 0 4) (1 0 5) (1 2 0) (1 2 3) (1 2 4) (1 2 5) (1 3 0) (1 3 2) (1 3 4) (1 3 5) (1 4 0) (1 4 2) (1 4 3) (1 4 5) (1 5 0) (1 5 2) (1 5 3) (1 5 4) (2 0 1) (2 0 3) (2 0 4) (2 0 5) (2 1 0) (2 1 3) (2 1 4) (2 1 5) (2 3 0) (2 3 1) (2 3 4) (2 3 5) (2 4 0) (2 4 1) (2 4 3) (2 4 5) (2 5 0) (2 5 1) (2 5 3) (2 5 4) (3 0 1) (3 0 2) (3 0 4) (3 0 5) (3 1 0) (3 1 2) (3 1 4) (3 1 5) (3 2 0) (3 2 1) (3 2 4) (3 2 5) (3 4 0) (3 4 1) (3 4 2) (3 4 5) (3 5 0) (3 5 1) (3 5 2) (3 5 4) (4 0 1) (4 0 2) (4 0 3) (4 0 5) (4 1 0) (4 1 2) (4 1 3) (4 1 5) (4 2 0) (4 2 1) (4 2 3) (4 2 5) (4 3 0) (4 3 1) (4 3 2) (4 3 5) (4 5 0) (4 5 1) (4 5 2) (4 5 3) (5 0 1) (5 0 2) (5 0 3) (5 0 4) (5 1 0) (5 1 2) (5 1 3) (5 1 4) (5 2 0) (5 2 1) (5 2 3) (5 2 4) (5 3 0) (5 3 1) (5 3 2) (5 3 4) (5 4 0) (5 4 1) (5 4 2) (5 4 3)) The result of (combination 3 '(0 1 2 3 4 5)) will be: ((0 1 2) (0 1 3) (0 1 4) (0 1 5) (0 1 6) (0 2 3) (0 2 4) (0 2 5) (0 2 6) (0 3 4) (0 3 5) (0 3 6) (0 4 5) (0 4 6) (0 5 6) (1 2 3) (1 2 4) (1 2 5) (1 2 6) (1 3 4) (1 3 5) (1 3 6) (1 4 5) (1 4 6) (1 5 6) (2 3 4) (2 3 5) (2 3 6) (2 4 5) (2 4 6) (2 5 6) (3 4 5) (3 4 6) (3 5 6) (4 5 6))

The result is correct. The function returns unique combination. 512 can't be as well 521.

It is fixed already - next update.

Please check the documentation.

The result is correct. Possibly the transposition could be done before the make-omn: (setf rhy '(e e_3q 3q 3q_e e_3q_3q 3q)) (setf pit '((c4 d4 e4 f4) (g4 a4))) (setf pit2 (pitch-transpose 2 pit)) (setf omn (make-omn :length rhy :pitch pit2)) At any point (usually at the end of your work) you can run quantize function to make the result look good (tuplet grouping) in notation. (setf rhy '(1/8 5/24 1/12 5/24 7/24 1/12)) (setf pit '((c4 d4 e4 f4) (g4 a4))) (setf pit2 (pitch-transpose 2 pit)) (setf omn (make-omn :length rhy :pitch pit2)) (quantize omn '(1 2 3 4)) => (e d4 e_3q e4 3q fs4 3q_e g4 e_3h a4 3q b4)

Thank you for the report. It is a bug indeed.

with ratios: '(1/8 1/8_1/12 1/12 1/12_1/8 1/8_1/6 1/12)

tie is an attribute and not a length tie. The solution: '(e e 3q 3q 3q_e e)) (setf pitches '((c4 d4 e4 f4) (g4 a4))) (setf rhy '(e e_3q 3q 3q_e e_3q_3q 3q)) (make-omn :length rhy :pitch pitches)

with :set 'your-set-name (counterpoint patterns '(((- 2 3 -)) ((4 * * 6)) ((1 - - 2)) ((5 6 1 2))) :set 'your-set :index 'voice :global-polyphony '((1 p) (2 o) (10 o) (11 o)) :iterate t :global-methods '((fl) (cl) (hn) (vc)))

"Alt" on Mac is option key. I would say yes.

M = option key C = control key Example: M-n = option-n C-M-q = control-option-q

The Editor Command in Help menu are CCL (Emacs) shortcuts but they will work in OM. There is no possibility to customise the Opusmodus shortcuts (GUI) commands at present.