All Activity

Any progress related to this Stemlets in XML ? All the best ! Julio

really not

Genius !

simple brain gym

Great, André !! Thanks a lot ! Best ! Julio

(defun interval-distance (alist n) (let ((alist (if (pitchp (car alist)) (pitch-to-midi alist) alist)) (n (if (pitchp n) (pitch-to-midi n) n))) (loop for i in alist collect (- i n)))) (interval-distance '(c4 d4 b2 e7) 'c4) => (0 2 -13 40) (interval-distance '(c4 d4) 'c4) => (0 2) (interval-distance '(43 44) '41) => (2 3) (interval-distance '(56 48 11) 'c4) => (-4 -12 -49)

Dear All, Is there a function for get all intervals of a row (or any list of integers or pitches) in relation to one note ? For example, given this 12 tone row: (a3 gs4 c4 d4 bb3 b3 fs4 f4 cs4 g4 ds4 e4) Get all intervals related to a4 ? The result should be: (-12 -1 -9 -7 -11 -10 -3 -4 -8 -2 -6 -5) This is for getting a resultant set of numbers related to a chromatic octave-module. Each order of the set result in a different set. Maybe can be a mapping function.

Dear Julio Thank you very much. I also worked with pitch-demix. With pitch-demix I've got single voices. With single voices filter-tie works, but not with chords (e.g. two chords for piano with common tones). Best, René

Thank you for the link, will check your ideas! best wishes Stefan

Dear René, Maybe something like this. This works for de-mixing a texture onto 4 voices, each with differen rhythms. Hope it can help. Best, Julio (setf klang-chorale '(e c4fs4e4a4 cs4fs4e4a4 cs4fs4e4bb4 cs4gs4e4bb4 cs4gs4eb4bb4 cs4gs4eb4b4 cs4gs4f4b4 cs4gs4f4a4 d4gs4f4a4 d4gs4e4a4 d4g4e4a4 d4fs4e4a4)) ;;; (setf v1 (filter-tie (flatten (pitch-demix 1 klang-chorale)))) (setf v2 (filter-tie (flatten (pitch-demix 2 klang-chorale)))) (setf v3 (filter-tie (flatten (pitch-demix 3 klang-chorale)))) (setf v4 (filter-tie (flatten (pitch-demix 4 klang-chorale

Hi there, I have two questions: 1) Does somebody know, if there exists a function, that connects the common notes of two chords? For me, the function "filter-tie" only works with individual voices, but not with chords. 2) I didn't find the organ in the GM Instrument Set.lisp Did anyone else wrote a piece for organ? Thank you and best wishes, René

Thank you ! Very nice ! In relation of counting the rests as items attacks, I suggested this to Janusz (probably in the next update). Best ! Julio

you're welcome....

Thanks a lot !

Possibly next week.

Hi André, thank you very much for your help, your codes are working very good and it is exactly what I was looking for... ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; example.... correct? ;; Yes ;(gen-resultant (primes-to 19) (reverse (primes-to 19))) ;; ================= ;;;exactly what I was looking for, thanks alot!!! (progn (defun gen-resultant (r1 r2 &key (rhy 1/4)) (gen-length (differenc

Any release date for the update ? Best ! Julio

is this a solution? ...or some ideas to it... greetings andré ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defun gen-resultant (r1 r2 &key (rhy 1/4)) (gen-length (difference (remove-duplicates (sort-asc (flatten (append (cons 0 (gen-accumulate r1)) (cons 0 (gen-accumulate r2))))))) rhy)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

I am searching for a function in Opusmodus, witch makes it possible to add the attacks of two (more) rhythms, does anybody have a solution for this? Short example: (setf pr (primes-to 7)) (setf r1 (gen-length pr '4)) (setf r2 (gen-retrograde (gen-length pr '4))) ; function like:: ; (gen-resultants r1 r2) (see Score example) best Stefan

The narrator is IBM AI " Watson". Best Stéphane

Great video, Stephane ! Who is the narrator ? Best ! Julio

Opusmodus file used for this video attached here. Enjoy. SB. LiveCodingDemo0521.opmo

This is amazing, Janusz !! Many thanks ! Looking forward to this update ! Best ! Julio

In the next update: MUSICXML-TO-EDITOR The MUSICXML-TO-EDITOR function opens a MusicXML file or the last compiled score (DEF-SCORE, PS or snippet) in any notation editor like Sibelius, Dorico, MuseScore etc... In Opusmodus the default editor is set to Sibelius: (defparameter *default-notation-editor* "Sibelius.app") To change the default editor you need to replace the "Sibelius.app" string with the name of your own editor and paste the expression into the ‘User Source.lisp’ file which you will find in the ~/Opusmodus/Extensions directory.

I tried using the musicxml-to-editor (defun last-midi-to-musescore () (compile-score *last-score* :output :midi :file "temp-last-midi") (musicxml-to-editor "temp-last-midi" :application "/Applications/MuseScore3.app")) Like above, but the musicxml gives an error with midi files... How about to create a generic-file-to-editor choice, to send any type of file to other auxiliary apps ? Best ! Julio