JulioHerrlein

Also happens in the old Musescore 3... In Finale it opens correctly...

Definitely, there is something wrong... Janusz ? But at least in Dorico there is 2 triplet groupings... In musescore it appears to be worse. Something wrong in the XML codification.

Hi, all THis snippet apears as sextuplets in the notation viewer but opens as triplets in Musescore, after open in external editor ((6q gs3 cs4 eb4 b3 cs4 gs3 cs4 b3 gs4 e4 b3 cs4) (6q f3 bb3 cs4 g3 bb3 f3 bb3 gs3 f4 b3 bb3 f3) (6q eb4 e3 bb3 eb4 fs4 b3 f4 fs3 g3 f4 gs4 e4)) something strange... Im in the version 4.0.31480

Pitch-demix works with many voices at the same time now ! Thanks, Janusz

Dear Cliff, I did this one. Check it and see if it´s good for you. Best, Julio

Interesting, Stephane. In Musescore 4, in order to work, you must choose the "outdated" format. It brings all. The other brings an error Undefined function om-capi::assistant-view-quickview-pane called with arguments (#<om-capi::assistant-view "Assistant: gen-rotate.pdf" 4150774DE3>).

Hello, I´d like to create an easier shortcut for midi input, with less keytrokes, because for typing "ctr+shift + m" I need my 2 hands. If I could make an easier shortcut, like shift + m, I could be with one hand at the midi keyboard and other at the computer keyboard. Please, any help ? Best, Julio

Thank you !! Below is a much better version. In the new version, the function rounds the notes selectively, according to the spelling and there is no need to rewrite-acidentals. If the referential collection have more sharps the function rounds up and vice-versa for the flats. Also, it preserve the spelling of the referential collections (i.e. tonalities). Best ! Julio (defun set-transpose (n omn-sequence sets &key (round 'up)) "Transposição diatônica paramétrica com arredondamento seletivo: 'up' para sets com mais sustenidos e 'down' para sets com mais bemóis." (let* ((dis (disassemble-omn omn-sequence)) (pitches (getf dis :pitch)) (num-bars (length pitches)) (n-list (gen-trim num-bars (if (listp n) n (list n)))) (set-list (gen-trim num-bars sets))) (labels ((process-pitch (p val-n collection local-round) (let* ((p-int (pitch-to-integer p)) (coll-ints (pitch-to-integer (flatten collection))) (coll-pcs (sort (remove-duplicates (mapcar (lambda (x) (mod x 12)) coll-ints)) #'<)) (len-coll (length coll-pcs))) (flet ((transpose-single (single-p) (let* ((pc (mod single-p 12)) (oct (floor single-p 12)) ;; 1. Arredondamento seletivo detectado para este bar (r-info (get-rounded-info pc coll-pcs local-round)) (rounded-pc (car r-info)) (r-oct-shift (cdr r-info)) ;; 2. Transposição diatônica por índices (curr-idx (position rounded-pc coll-pcs)) (new-idx (+ curr-idx val-n)) ;; 3. Ajuste de oitava final (modular) (final-oct-shift (+ r-oct-shift (floor new-idx len-coll))) (final-pc (nth (mod new-idx len-coll) coll-pcs))) (+ (* (+ oct final-oct-shift) 12) final-pc)))) (if (listp p-int) (mapcar #'transpose-single p-int) (transpose-single p-int))))) (get-rounded-info (pc coll direction) (if (member pc coll) (cons pc 0) (case direction (up (let ((higher (find pc coll :test #'<))) (if higher (cons higher 0) (cons (first coll) 1)))) (down (let ((lower (find pc coll :from-end t :test #'>))) (if lower (cons lower 0) (cons (car (last coll)) -1))))))) (spell-note (int-val bar-set) "Reconstrói o símbolo OMN com oitava correta (c4=0) e spelling do set." (let* ((pc (mod int-val 12)) (oct-suffix (+ 4 (floor int-val 12))) (ref-note (find pc (flatten (pitch-to-integer bar-set)) :test (lambda (x y) (= x (mod y 12)))))) (if ref-note (let* ((all-notes (flatten bar-set)) (orig-sym (nth (position ref-note (pitch-to-integer all-notes)) all-notes)) (pure-name (string-right-trim "0123456789" (symbol-name orig-sym)))) (intern (format nil "~a~d" pure-name oct-suffix))) (car (integer-to-pitch (list int-val))))))) ;; --- PROCESSAMENTO BAR-A-BAR COM ARREDONDAMENTO SELETIVO --- (let ((final-pitches (mapcar (lambda (bar bar-n bar-set) (let* ((set-syms (flatten (list! bar-set))) ;; A. Conta sustenidos (s) e bemóis (b) no set (sharps (count-if (lambda (s) (search "s" (symbol-name s) :test #'char-equal)) set-syms)) (flats (count-if (lambda (s) (search "b" (symbol-name s) :test #'char-equal)) set-syms)) ;; B. Define a direção de arredondamento local (local-round (cond ((> sharps flats) 'up) ((> flats sharps) 'down) (t round))) ;; Mantém o default se empatar ;; C. Processa as notas com o arredondamento calculado (trans-ints (mapcar (lambda (p) (process-pitch p bar-n bar-set local-round)) bar))) (mapcar (lambda (item) (if (listp item) (intern (format nil "~{~a~}" (mapcar (lambda (sub) (spell-note sub bar-set)) item))) (spell-note item bar-set))) trans-ints))) pitches n-list set-list))) (make-omn :pitch final-pitches :length (getf dis :length) :velocity (getf dis :velocity) :articulation (getf dis :articulation)))))) EXAMPLE (setf temav1 (gen-repeat 3 '((e. c4 mf s d4 -e e4 e. f4 s g4 - a4) (q b4 mf -e c4 e. d4 s e4 - f4) (q g4 mf -e a4 e. b4 s c4 - d4)))) (setf sets (expand-tonality '((e4 major) (ab4 major) (c4 major) (c4 diminished1)))) (set-transpose 0 temav1 sets) ((e. cs4 mf s ds4 -e e4 e. fs4 s gs4 - a4) (q bb4 mf -e c4 e. db4 s eb4 - f4) (q g4 mf -e a4 e. b4 s c4 - d4) (e. c4 mf s ds4 -e e4 e. fs4 s g4 - a4) (q b4 mf -e cs4 e. ds4 s e4 - fs4) (q g4 mf -e ab4 e. bb4 s c4 - db4) (e. c4 mf s d4 -e e4 e. f4 s g4 - a4) (q c5 mf -e c4 e. ds4 s e4 - fs4) (q gs4 mf -e a4 e. b4 s cs4 - ds4)) (set-transpose -3 temav1 sets) ((e. gs3 mf s a3 -e b3 e. cs4 s ds4 - e4) (q f4 mf -e g3 e. ab3 s bb3 - c4) (q d4 mf -e e4 e. f4 s g3 - a3) (e. g3 mf s as3 -e c4 e. cs4 s ds4 - e4) (q fs4 mf -e gs3 e. a3 s b3 - cs4) (q db4 mf -e eb4 e. f4 s g3 - ab3) (e. g3 mf s a3 -e b3 e. c4 s d4 - e4) (q g4 mf -e g3 e. as3 s c4 - cs4) (q ds4 mf -e e4 e. fs4 s gs3 - a3))

Dear All, Here are a version for a diatonic (or all purpose set-transpose) function that rounds material around a collection used as reference). Please, Let me know if you find bugs. Best, Julio (defun set-transpose (n omn-sequence sets &key (round 'up)) "Realiza transposição diatônica por N passos em coleções de referência. Arredonda notas fora do set para cima ou para baixo conforme :round." (let* ((dis (disassemble-omn omn-sequence)) (pitches (getf dis :pitch)) (num-bars (length pitches)) ;; Alinha N e os Sets ao número de sublistas (compassos) (n-list (gen-trim num-bars (if (listp n) n (list n)))) (set-list (gen-trim num-bars sets))) (labels ((process-pitch (p val-n collection) (let* ((p-int (pitch-to-integer p)) ;; Normaliza a coleção para pitch-classes (0-11) ordenadas (coll-pcs (sort (remove-duplicates (mapcar (lambda (x) (mod x 12)) (flatten (pitch-to-integer collection)))) #'<)) (len-coll (length coll-pcs))) (flet ((transpose-single (single-p) (let* ((pc (mod single-p 12)) (oct (floor single-p 12)) ;; 1. Arredondamento com info de oitava (r-info (get-rounded-info pc coll-pcs round)) (rounded-pc (car r-info)) (r-oct-shift (cdr r-info)) ;; 2. Localiza índice e aplica N passos diatônicos (curr-idx (position rounded-pc coll-pcs)) (new-idx (+ curr-idx val-n)) ;; 3. Calcula deslocamento de oitava final (wrap-around) (final-oct-shift (+ r-oct-shift (floor new-idx len-coll))) (final-pc (nth (mod new-idx len-coll) coll-pcs))) ;; 4. Reconstrói o pitch mantendo o registro original (+ (* (+ oct final-oct-shift) 12) final-pc)))) ;; Suporte para notas individuais ou acordes (if (listp p-int) (mapcar #'transpose-single p-int) (transpose-single p-int))))) (get-rounded-info (pc coll direction) ;; Retorna (rounded-pc . octave-shift) (if (member pc coll) (cons pc 0) (case direction (up (let ((higher (find pc coll :test #'<))) (if higher (cons higher 0) (cons (first coll) 1)))) ;; Wrap up: vai p/ próx oitava (down (let ((lower (find pc coll :from-end t :test #'>))) (if lower (cons lower 0) (cons (car (last coll)) -1)))))))) ;; Wrap down: oitava anterior ;; Mapeamento bar-a-bar (let ((new-pitches (mapcar (lambda (bar bar-n bar-set) (mapcar (lambda (p) (process-pitch p bar-n bar-set)) bar)) pitches n-list set-list))) ;; Remontagem OMN final preservando os outros parâmetros (make-omn :pitch (integer-to-pitch new-pitches) :length (getf dis :length) :velocity (getf dis :velocity) :articulation (getf dis :articulation)))))) EXAMPLE (setf temav1 '((e. a4 mf s -e c5 e. f4 s g4 - a4) (q c5 mf -e bb4 e. eb5 s ab4 - eb5) (q cs5 mf -e e5 e. as4 s b4 - cs5))) (setf sets (expand-tonality '((ab4 major) (c4 major)))) (set-transpose -4 temav1 sets :round 'down) ((e. cs4 mf s -e f4 e. bb3 s c4 - cs4) (q f4 mf -e d4 e. g4 s c4 - g4) (q g4 mf -e gs4 e. eb4 s - g4)) (set-transpose -4 temav1 sets :round 'up) ((e. eb4 mf s -e f4 e. bb3 s c4 - eb4) (q f4 mf -e e4 e. a4 s d4 - a4) (q g4 mf -e bb4 e. eb4 s f4 - g4)) (setf sets (expand-tonality '((ab4 messiaen-mode2) (c4 major)))) (set-transpose -4 temav1 sets :round 'up)

Dear All, An useful function do make various pitch-demix operations at once. (defun poly-demix (n-list mat-omn) "Extrai as vozes especificadas em N-LIST de uma sequência OMN e as combina em um único fluxo polifônico." (let* (;; 1. Garante que n-list seja uma lista e extrai cada voz (extracted-voices (mapcar #'(lambda (n) (pitch-demix n mat-omn)) (list! n-list)))) ;; 2. Aplica merge-voices sobre a lista de vozes extraídas (apply #'merge-voices extracted-voices))) (setf mat-omn '((e. g2bb3d4f4a4 mf s -e e c4c5c5 e. g2bb3c4d4f4 s g3g4g4 -s s g2bb3d4f4a4) (q bb2db4f4ab4c5 mf -e e bb3bb4bb4 e. eb4eb5eb5 s ab3ab4ab4 -s s bb2db4ab4c5eb5))) (poly-demix '(1 2 5) mat-omn) ((e. g2f4a4 s -e c5 e. g2d4f4 s g4 - g2f4a4) (q bb2ab4c5 -e bb4 e. eb5 s ab4 - bb2c5eb5)) Best, Julio

Dear Opusmodus Windows Users I can´t use here the CLM functions (with audio instrumentos and functions). Are you having trouble with this in Windows 11 ? I can run sound samples like in the post below, buto no success with CLM. Any help or comments ? Thanks !

Dear Windows Users, After the Windows 11 26200.7840 Security Update (February 11th 2026), the virtual ports are not showing in windows, only the hardware ones. At first I though it was related to Opusmodus update, but it´s a windows update BUG. Here is the solution. Close all MIDI apps Open Windows Terminal as an Administrator (“run as administrator”) Type "net stop midisrv" After that completes, type "net start midisrv" Start up the app you want to use with MIDI Here is a video: Best, Julio

Thanks, Jesper I did not remember that one. Mine have the advantage of having the embedded span, so we can have a more elegant code. Best, Julio

Ciao, Opusmoders All previous rewrite functions used in conjunction for transformations. Ciao ! https://opusmodus.com/forums/topic/4097-rewrite-len-function/#comment-14209 (setf expressao-omn '((s eb4 d4 e a4 -s s eb4) (h eb4 a4 -s eb4 d4 -s) (e. d4 a4 eb4 d4) (-q e f4 s c5 qs fs4))) (rewrite-pit (rewrite-dyn (rewrite-len expressao-omn '(h -e s q -h q -q s s s)) '(pp< ff mf fff p < < fff ppp fff mf fff p)) '(c4 g5)) https://opusmodus.com/forums/topic/4097-rewrite-len-function/#comment-14209

Last one... Time to go to bed in Brasil Function to rewrite lengths BEst, Julio (defun rewrite-len (expressao-omn new-lengths-list) "Substitui os comprimentos (lengths) de uma expressão OMN por uma lista fornecida, repetindo-a ciclicamente e mantendo a estrutura de sublistas original." (let* ((dis (disassemble-omn expressao-omn)) ;; Desmonta a expressão original [2] (old-pit (getf dis :pitch)) ;; Extrai as alturas [4] (old-vel (getf dis :velocity)) ;; Extrai as velocidades [4] (old-art (getf dis :articulation)) ;; Extrai as articulações [4] ;; 1. Mapeia a estrutura original (quantidade de eventos por sublista) ;; Captura o número de elementos rítmicos em cada compasso [3, 5] (structure (mapcar #'length (getf dis :length))) (total-events (apply #'+ structure)) ;; Soma total de eventos [6] ;; 2. Gera a sequência rítmica cíclica com base no total de eventos ;; gen-trim estende a lista do usuário para preencher todos os espaços [3, 7] (new-flat-lengths (gen-trim total-events new-lengths-list)) ;; 3. Re-organiza os novos ritmos na estrutura de sublistas original [3, 8] (new-structured-lengths (gen-divide structure new-flat-lengths))) ;; 4. Remonta o objeto OMN completo com os parâmetros preservados [3, 4] (make-omn :pitch old-pit :length new-structured-lengths :velocity old-vel :articulation old-art))) ;;USE (setf expressao-omn '((s eb4 d4 e a4 -s s eb4) (h eb4 a4 -s eb4 d4 -s) (e. d4 a4 eb4 d4) (-q e f4 s c5 qs fs4))) (omn-to-time-signature (rewrite-len expressao-omn '(h -e s q -h q -q s s s)) '(3 4)) ;;RESULT ((h eb4 mf -e s d4 a4 tie) (e. a4 -h s eb4 mf tie) (e. eb4 mf -q s a4 eb4 d4 e eb4 tie) (q. eb4 -e s d4 mf e. a4 tie) (s a4 -h e. f4 mf tie) (s f4 mf -q s c5 fs4))