JulioHerrlein

(pitch-rotate -2 '(b3c4e4g4))  

(defparameter *default-notation-editor* "MuseScore 3.app")  
You find the instruction in the musicxml-to-editor doc.

Dear David,
 
Now Opusmodus have a function called drop-voicing that do all the stuff described here. Yes, my book can be very useful for jazz. Here is a testimonial by one of my favorite artists, Ben Monder. Ben played with Paul Motian, David Bowie, Maria Schneider Jazz Orchestra and also The Bad Plus.
 
https://youtu.be/ojWF0B15NmM

Yes , Janusz and Jon !
 
Looking forward to see the new books !
 
All the best !
 
Julio 

Perfect time for it 🙂

Dear Cliff, 
 
Some time ago (round about  22 June 2021), Janusz was developing a chord variation function that was very interesting. I was helping him to adapt it to the drop-voicing function. The drop-voicing function process existent chords while the original Janusz function prototype was more in the generation of chords. 
Let´s see if Janusz chime in here and see if he remember that.
 
The function was doing something like this (I don´t have the actual code).
 
The interesting point related to your post goes like the following.
 
It could be interesting to have a function similar to the function Janusz was doing below and also a function to
 process chords, doing it´s inversions and also normalizing the inversions putting all of the inversions starting in the same note, like the example in the video called:
"chords in the inversions transposed on the same bass note" (more or less at 5´40 of the video).
This can be really useful in the context of Messiaen-like music, especially to generate colorful chords of 5, 6 or 7 notes, to spread it. This full chords are used by Messiaen in orchestrations.
 
In relation to the colors, if we provide a color for each pitch-class, maybe it´s possible to create a function to generate and calculate an RGB or CMYK code for the chord resultant, like mixing the color of the notes to generate a color code result for pitch classes / chords.
 
RGB Color Codes Chart 🎨
WWW.RAPIDTABLES.COM RGB color codes chart, RGB color picker, RGB color table.  
 
All the best !
Julio
 
(chord-drop '(c5 m/maj9)) ;(0 3 7 11 14) => (d6b5g5eb5c5 d6g5eb5c5b4 d6b5eb5c5g4 d6eb5c5b4g4 d6eb5c5g4b3 d6b5g5c5eb4 d6g5c5b4eb4 d6g5c5eb4b3 d6b5c5g4eb4 d6b5c5eb4g3 d6g5eb5b4c4 d6b5eb5g4c4 d6eb5b4g4c4 d6eb5g4c4b3 d6eb5b4c4g3 d6g5b4eb4c4 d6g5b4c4eb3 d6eb5g4b3c3) (chord-drop '(c5 maj9/s11)) => (get-count '(fs6d6b5g5e5c5 fs6b5g5e5d5c5 fs6b5g5e5c5d4 fs6d6g5e5c5b4 fs6g5e5d5c5b4 fs6g5e5c5b4d4 fs6g5e5c5d4b3 fs6d6b5e5c5g4 fs6b5e5d5c5g4 fs6b5e5c5g4d4 fs6d6e5c5b4g4 fs6d6e5c5g4b3 fs6b5e5c5d4g3 fs6d6b5g5c5e4 fs6b5g5d5c5e4 fs6b5g5c5e4d4 fs6d6g5c5b4e4 fs6g5d5c5b4e4 fs6g5c5b4e4d4 fs6d6g5c5e4b3 fs6g5d5c5e4b3 fs6g5c5e4d4b3 fs6d6b5c5g4e4 fs6b5d5c5g4e4 fs6b5c5g4e4d4 fs6d6b5c5e4g3 fs6b5d5c5e4g3 fs6b5c5e4d4g3 fs6b5g5c5d4e3 fs6g5c5b4d4e3 fs6g5c5d4b3e3 fs6b5c5g4d4e3 fs6b5c5d4g3e3 fs6d6g5e5b4c4 fs6g5e5d5b4c4 fs6g5e5b4d4c4 fs6d6b5e5g4c4 fs6b5e5d5g4c4 fs6b5e5g4d4c4 fs6d6e5b4g4c4 fs6d6e5g4c4b3 fs6d6e5b4c4g3 fs6b5g5d5e4c4 fs6d6g5b4e4c4 fs6g5d5b4e4c4 fs6g5b4e4d4c4 fs6g5d5e4c4b3 fs6b5d5g4e4c4 fs6b5d5e4c4g3 fs6d6g5b4c4e3 fs6g5d5b4c4e3 fs6g5b4d4c4e3 fs6b5d5g4c4e3 fs6d6e5g4b3c3 fs6g5d5e4b3c3 fs6b5d5e4g3c3 fs6g5b4d4e3c3)) (chord-variant '(d4 maj7)) => (d4fs4a4cs5 d4fs4a4cs4 d4fs4a3cs5 d4fs4a3cs4 d4fs3a4cs5 d4fs3a4cs4 d4fs3a3cs5 d4fs3a3cs4) (chord-variant '(d4 maj7) :root :top) => (d4fs4a4cs5 d4fs4a3cs5 d4fs3a4cs5 d4fs3a3cs5 d3fs4a4cs5 d3fs4a3cs5 d3fs3a4cs5 d3fs3a3cs5) (chord-variant '(d4 maj7) :transpose -1) => (d4fs4a4cs5 d4fs4a4c5 d4fs4gs4cs5 d4fs4gs4c5 d4f4a4cs5 d4f4a4c5 d4f4gs4cs5 d4f4gs4c5) (chord-variant '(d4 maj7) :transpose -1 :root :top) => (d4fs4a4cs5 d4fs4gs4cs5 d4f4a4cs5 d4f4gs4cs5 cs4fs4a4cs5 cs4fs4gs4cs5 cs4f4a4cs5 cs4f4gs4cs5) (chord-variant '(d4 maj7) :root :top) => (d4fs4a4cs5 d4fs4a3cs5 d4fs3a4cs5 d4fs3a3cs5 d3fs4a4cs5 d3fs4a3cs5 d3fs3a4cs5 d3fs3a3cs5)  

Dear Stéphane and Tom
 
I did some edits in the Stéphane´s code. Some functions had names changed.
 
Hope it can help.
Best,
Julio
 
;;;--------------------------------------------------------- ;;; Parameters ;;;--------------------------------------------------------- (setf size 8) (setf bars (gen-repeat size '(4/4))) (setf pause (length-span bars '(-q))) (setf ph1.size 8) (setf bars (gen-repeat size '(4/4))) (setf pause (length-span bars '(-q))) (setf mode1 '(dorian :root d4)) (setf ph1.pitch (filter-repeat 1 (tonality-map mode1 (integer-to-pitch (vector-round 0 16 (vector-smooth 0.36 (gen-white-noise 256 :seed 772))))))) (setf ph1.len (euclidean-rhythm (gen-repeat ph1.size '(9)) 1 5 1/8 :seed 93)) ; :binary-to-length t) ; :len-val 'e ; )) ;; Antécédent (setf ph1.omn (make-omn :pitch ph1.pitch :length ph1.len )) ;; Conséquent (setf ph1b.omn (ambitus '(0 16) (tonality-map mode1 (pitch-variant ph1.omn :variant 'i)))) (setf ph1 (assemble-seq ph1.omn ph1b.omn)) ;; Tintinabuli ;; V1 (setf tint1a.pitchlist '(c4 e4 g4)) (setf tint1a.pitch (rnd-sample (* ph1.size 4) tint1a.pitchlist)) (setf tint1a.len (euclidean-rhythm (gen-repeat (length ph1) '(9)) 1 2 1/8 :seed 103)) ; :binary-to-length t ; :len-val 'e ; )) (setf tint1a.omn (filter-tie (tonality-map mode1 (make-omn :pitch tint1a.pitch :length tint1a.len )))) (setf tint1a tint1a.omn) ;; V2 (setf tint1b.pitchlist '(c3 e3 g3)) (setf tint1b.pitch (rnd-sample (* ph1.size 4) tint1b.pitchlist)) (setf tint1b.len (euclidean-rhythm (gen-repeat (length ph1) '(9)) 1 2 1/8 :seed 19)) ; 1/8)) ; :binary-to-length t ; :len-val 'e ; )) (setf tint1b.omn (filter-tie (tonality-map mode1 (make-omn :pitch tint1b.pitch :length tint1b.len )))) (setf tint1b tint1b.omn) ;; V3 (setf tint1c.pitchlist '(c2 e2 g2 c3)) (setf tint1c.pitch (rnd-sample (* ph1.size 4) tint1c.pitchlist)) (setf tint1c.len (euclidean-rhythm (gen-repeat (length ph1) '(9)) 1 2 1/8 :seed 17662)) ; :binary-to-length t ; :len-val 'e ; )) (setf tint1c.omn (filter-tie (tonality-map mode1 (make-omn :pitch tint1c.pitch :length tint1c.len )))) (setf tint1c tint1c.omn) (setf v1 ph1) (setf v2 tint1a) (setf v3 tint1b) (setf v4 tint1c) ;;;--------------------------------------------------------- ;;; Score and Layout ;;;--------------------------------------------------------- (ps 'gm :sq (list (pitch-transpose 0 (ambitus 'violin v1)) (pitch-transpose 0 (ambitus 'violin v2)) (pitch-transpose 0 (ambitus 'viola v3)) (pitch-transpose 0 (ambitus 'cello v4)) ) :key-signature 'atonal :tempo 90 :flexible-clef nil :rewrite-lengths nil :accidentals :cautionary :merge-rests nil )  

Just to add an info, if it could help, you can force any chord to start on a pitch by using the function pitch-transpose-start…
 
S.

I am a OM newbee, so forgive if this already implemented or done before.
I understood from the video linked below, that Austbo did compile the colors percieved by Messiaen in a catalogue.
He used colors to backtransform them into musical dimensions.
I guess this is an obvious usecase for parametric composition, so I am pretty sure someone in the OM community tried this or was inspired by it already.
Wanna share your explorations?
 
 
 

Hi folks,
 
I'm very happy to announce the release of the first video pack lesson "Introduction to Opusmodus" on composerworkshop.com.
 
Composer Workshop
WWW.COMPOSERWORKSHOP.COM  
This introduction start with a quick "Crash course" to dive quickly into the software to get fun rapidly.
The second and third parts of this course goes more deeper into the exploration of the basics of Opusmodus like pitch generation, length generation, using MAKE-OMN, etc... This is an introductory course to our beloved software. I'm working now on future courses  packs on a bunch of different subject.
 
Naturally, the free Zoom into Opusmodus series continue with a weekly video release.
 
Happy Opusmodusing !
 
SB.

Hi Julio, I think you have to refresh the page because I've changed the YouTube link, normally, now it works.
 
Here's the Opmo score.
 
SB.
Flixbus-V1-1.opmo

Sorry, the function euclidean-rhythms was one of my personal functions.
Attached, you will find the function definition file.
 
SB.
 
euclidean-rhythms.lisp

Dear Stéphane and Tom
 
I did some edits in the Stéphane´s code. Some functions had names changed.
 
Hope it can help.
Best,
Julio
 
;;;--------------------------------------------------------- ;;; Parameters ;;;--------------------------------------------------------- (setf size 8) (setf bars (gen-repeat size '(4/4))) (setf pause (length-span bars '(-q))) (setf ph1.size 8) (setf bars (gen-repeat size '(4/4))) (setf pause (length-span bars '(-q))) (setf mode1 '(dorian :root d4)) (setf ph1.pitch (filter-repeat 1 (tonality-map mode1 (integer-to-pitch (vector-round 0 16 (vector-smooth 0.36 (gen-white-noise 256 :seed 772))))))) (setf ph1.len (euclidean-rhythm (gen-repeat ph1.size '(9)) 1 5 1/8 :seed 93)) ; :binary-to-length t) ; :len-val 'e ; )) ;; Antécédent (setf ph1.omn (make-omn :pitch ph1.pitch :length ph1.len )) ;; Conséquent (setf ph1b.omn (ambitus '(0 16) (tonality-map mode1 (pitch-variant ph1.omn :variant 'i)))) (setf ph1 (assemble-seq ph1.omn ph1b.omn)) ;; Tintinabuli ;; V1 (setf tint1a.pitchlist '(c4 e4 g4)) (setf tint1a.pitch (rnd-sample (* ph1.size 4) tint1a.pitchlist)) (setf tint1a.len (euclidean-rhythm (gen-repeat (length ph1) '(9)) 1 2 1/8 :seed 103)) ; :binary-to-length t ; :len-val 'e ; )) (setf tint1a.omn (filter-tie (tonality-map mode1 (make-omn :pitch tint1a.pitch :length tint1a.len )))) (setf tint1a tint1a.omn) ;; V2 (setf tint1b.pitchlist '(c3 e3 g3)) (setf tint1b.pitch (rnd-sample (* ph1.size 4) tint1b.pitchlist)) (setf tint1b.len (euclidean-rhythm (gen-repeat (length ph1) '(9)) 1 2 1/8 :seed 19)) ; 1/8)) ; :binary-to-length t ; :len-val 'e ; )) (setf tint1b.omn (filter-tie (tonality-map mode1 (make-omn :pitch tint1b.pitch :length tint1b.len )))) (setf tint1b tint1b.omn) ;; V3 (setf tint1c.pitchlist '(c2 e2 g2 c3)) (setf tint1c.pitch (rnd-sample (* ph1.size 4) tint1c.pitchlist)) (setf tint1c.len (euclidean-rhythm (gen-repeat (length ph1) '(9)) 1 2 1/8 :seed 17662)) ; :binary-to-length t ; :len-val 'e ; )) (setf tint1c.omn (filter-tie (tonality-map mode1 (make-omn :pitch tint1c.pitch :length tint1c.len )))) (setf tint1c tint1c.omn) (setf v1 ph1) (setf v2 tint1a) (setf v3 tint1b) (setf v4 tint1c) ;;;--------------------------------------------------------- ;;; Score and Layout ;;;--------------------------------------------------------- (ps 'gm :sq (list (pitch-transpose 0 (ambitus 'violin v1)) (pitch-transpose 0 (ambitus 'violin v2)) (pitch-transpose 0 (ambitus 'viola v3)) (pitch-transpose 0 (ambitus 'cello v4)) ) :key-signature 'atonal :tempo 90 :flexible-clef nil :rewrite-lengths nil :accidentals :cautionary :merge-rests nil )  

row is from 0 to 11 with 12 intervals.
what is the reason to do this:
 
(twelve-tonep (pitch-transpose -12 '(c4 eb4 d4 f4 e4 g4 fs4 a4 gs4 b4 bb4 cs4)))  

Dear Stéphane and Tom
 
I did some edits in the Stéphane´s code. Some functions had names changed.
 
Hope it can help.
Best,
Julio
 
;;;--------------------------------------------------------- ;;; Parameters ;;;--------------------------------------------------------- (setf size 8) (setf bars (gen-repeat size '(4/4))) (setf pause (length-span bars '(-q))) (setf ph1.size 8) (setf bars (gen-repeat size '(4/4))) (setf pause (length-span bars '(-q))) (setf mode1 '(dorian :root d4)) (setf ph1.pitch (filter-repeat 1 (tonality-map mode1 (integer-to-pitch (vector-round 0 16 (vector-smooth 0.36 (gen-white-noise 256 :seed 772))))))) (setf ph1.len (euclidean-rhythm (gen-repeat ph1.size '(9)) 1 5 1/8 :seed 93)) ; :binary-to-length t) ; :len-val 'e ; )) ;; Antécédent (setf ph1.omn (make-omn :pitch ph1.pitch :length ph1.len )) ;; Conséquent (setf ph1b.omn (ambitus '(0 16) (tonality-map mode1 (pitch-variant ph1.omn :variant 'i)))) (setf ph1 (assemble-seq ph1.omn ph1b.omn)) ;; Tintinabuli ;; V1 (setf tint1a.pitchlist '(c4 e4 g4)) (setf tint1a.pitch (rnd-sample (* ph1.size 4) tint1a.pitchlist)) (setf tint1a.len (euclidean-rhythm (gen-repeat (length ph1) '(9)) 1 2 1/8 :seed 103)) ; :binary-to-length t ; :len-val 'e ; )) (setf tint1a.omn (filter-tie (tonality-map mode1 (make-omn :pitch tint1a.pitch :length tint1a.len )))) (setf tint1a tint1a.omn) ;; V2 (setf tint1b.pitchlist '(c3 e3 g3)) (setf tint1b.pitch (rnd-sample (* ph1.size 4) tint1b.pitchlist)) (setf tint1b.len (euclidean-rhythm (gen-repeat (length ph1) '(9)) 1 2 1/8 :seed 19)) ; 1/8)) ; :binary-to-length t ; :len-val 'e ; )) (setf tint1b.omn (filter-tie (tonality-map mode1 (make-omn :pitch tint1b.pitch :length tint1b.len )))) (setf tint1b tint1b.omn) ;; V3 (setf tint1c.pitchlist '(c2 e2 g2 c3)) (setf tint1c.pitch (rnd-sample (* ph1.size 4) tint1c.pitchlist)) (setf tint1c.len (euclidean-rhythm (gen-repeat (length ph1) '(9)) 1 2 1/8 :seed 17662)) ; :binary-to-length t ; :len-val 'e ; )) (setf tint1c.omn (filter-tie (tonality-map mode1 (make-omn :pitch tint1c.pitch :length tint1c.len )))) (setf tint1c tint1c.omn) (setf v1 ph1) (setf v2 tint1a) (setf v3 tint1b) (setf v4 tint1c) ;;;--------------------------------------------------------- ;;; Score and Layout ;;;--------------------------------------------------------- (ps 'gm :sq (list (pitch-transpose 0 (ambitus 'violin v1)) (pitch-transpose 0 (ambitus 'violin v2)) (pitch-transpose 0 (ambitus 'viola v3)) (pitch-transpose 0 (ambitus 'cello v4)) ) :key-signature 'atonal :tempo 90 :flexible-clef nil :rewrite-lengths nil :accidentals :cautionary :merge-rests nil )  

Hi,
 
Yes I'm working on future "Zoom into Opusmodus" and a full website dedicated to OM and will start in January.
 
Best
 
SB.

Despite the documentation says Return true if sequence is a twelve-tone row, from what I observed it seems the algorithm used is:
 
(defun twleve-tone-p (omn) (equal (sort (pitch-to-integer omn) #'<) (range 0 11)))  

(defparameter b-val (matrix-transpose '(((1 1) (1 2) (1 3) (1 4) (1 5)) ((1 2) (1 2 3 4 5 6 7 8) (1 2) (1 2 3 4 5 6 7 8) (1 2))))) (loop for i in b-val for j = (first i) collect (list (first j) (second j) (second i))) => ((1 1 (1 2)) (1 2 (1 2 3 4 5 6 7 8)) (1 3 (1 2)) (1 4 (1 2 3 4 5 6 7 8)) (1 5 (1 2)))  

(get-beats  (list (list 1 1 bts) '(1 2 (1 2 4 4 4 7 6 3)))  omn-forum)  

3.0.28470
 
– Fixed :
Save As... in Notation, MIDI and Graphs panels in older macOS versions.  

If the file or folder is an alias than only the alias is deleted from the Workspace directory and not the original.

If you want  an alias instead of moving the file you should use alias shortcuts cmd-opt - like in the finder.
The navigator behaves the same way as the Finder. Delete mean delete the file.

It is not a OM problem, all depends on how the pdf file is written.

3.0.28462
 
– Fixed :
Application crash when #| comment was used.  

This is not an error. The documents (pdf) are not really for text copy/past. You never know how pdf behaves. 
And if you copy you need to take some care of the code.