opmo

On Saturday, January 14, I start a new free Zoom into Opusmodus series on composerworkshop.com
This course is an every week zoom into Opusmodus, focusing on a specific point or technique each week, providing to audience a better understanding and practical view of using Opusmodus for music composition.
 
Composer Workshop
WWW.COMPOSERWORKSHOP.COM  
Best wishes,
Stephane Boussuge 

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 )  

Possibly we need to make changes to the send-osc-data function.
You might need come to Venice in order to find the solution. 🙂

(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.  

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

Same licence for mac and windows, no mater which OS you are using.

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.  

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

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.

Update for Opusmodus 3.0
3.0.28450
 
– Additions:
Notation Print - Copyright input added.  
– Fixed :
Cursor (hide) when copying notation.

It works with or without SSD. The proper installation, RAM and Virtualization settings are very important.

 
I sent my letter to Santa now !

You will need to create your own def-unfold-set file and add the function there.
Just copy the unfold-set om code from the library, create a new file and add all the function there you would like to access in counterpoint methods function.
Then save the file into the 'Extensions' folder - make sure the code is working.
The best way to learn all this is to contact Stephane and apply for an hour tutorial.
 
https://opusmodus.com/forums/lessons/
 

(setf chord 'c4e4g4) (chord-inversion 1 chord) => (e4g4c5)
Root position and 1st inversion together:
(chord-inversion 1 chord :root t) => (c4e4g4 e4g4c5)  
However, requesting the third inversion with option :series T and :root T, will give us four chords, and so on.
(chord-inversion 3 chord :root t :series t) => (c4e4g4 e4g4c5 g4c5e5 c5e5g5)  
We can also rotate the chords downwards in pitch, for example the rotation of the third order below:
(chord-inversion -3 chord :root t :series t) => (c4e4g4 g3c4e4 e3g3c4 c3e3g3)  

(setf chord 'c4e4g4) (chord-inversion 1 chord) => (e4g4c5)
Root position and 1st inversion together:
(chord-inversion 1 chord :root t) => (c4e4g4 e4g4c5)  
However, requesting the third inversion with option :series T and :root T, will give us four chords, and so on.
(chord-inversion 3 chord :root t :series t) => (c4e4g4 e4g4c5 g4c5e5 c5e5g5)  
We can also rotate the chords downwards in pitch, for example the rotation of the third order below:
(chord-inversion -3 chord :root t :series t) => (c4e4g4 g3c4e4 e3g3c4 c3e3g3)  

Update for Opusmodus 3.0
3.0.28450
 
– Additions:
Notation Print - Copyright input added.  
– Fixed :
Cursor (hide) when copying notation.

The new keys are cmd-= which are working on all keyboards.

The new keys are cmd-= which are working on all keyboards.

The new keys are cmd-= which are working on all keyboards.