AM

Soon I will release the documentation for the SCORE-PLAYER and STOP-SCORE-PLAYER function.

dear torsten,
that works perfect!
so i can display what my algo is doing in each loop...
thx
 

 
 

the LOOP-cycles produces data-sequences with lengths about 5 to 20 sec 
for this... stop and wait via SLEEP is oaky....
 
inside the loop: i send the datas (the sequences) to screens (generative score + conducting for the musicians / polytempo) and MAXMSP (sound/modsynth) ... this is via OSC for accuracy/coordination
 
so it works fine like that... but: LISP is not exactly suitable for REALTIME processing 😄 

Anyway, thanks to Janusz again for adding that after such a feature request! 

Actually, it is possible to leave out those logging messages. Execute the following. (Unfortunately, this does not work when defined in an ~/Opusmodus/Extensions/*.lisp file. My guess is that it is overwritten by the system afterwards. However, you can execute it after the  startup, e.g., by hand, and it cleans up your listener.)
 
(defparameter *do-verbose* nil   "Enable or disable traces printed by do-verbose.")  
For details see
Best,
Torsten

It is certainly an iconoclastic analysis, but André's script to generate Jean Barraqué's proliferating series made me want to test several Anton Webern series in his script and see how they were modified, in particular at level of their intervallic structures. It is also an opportunity to test the graphical analysis tools offered by Opusmodus. And in particular in the various circular representations for the pitches. For the interval classes, I used the circle-rythm-plot function but that would deserve, in my opinion, a specific circular representation.
Sorry for my bad English.
Didier
ActuelJeanBarraqueExport.pdf

The 'Announcements' forum is a one-way communication about updates, upgrades and new features in our software. Participants cannot leave replies to posts. If you do wish to reply to any of the news here, you need to create a new post (topic) in one of the Support Forum sections.
 

All fine Julio, thanks, no worries !
It's finish now.
Best
 
Stéphane
 
 

Nothing to do during my Covid period and a bit of fever, so...
 

stephaneboussuge · Covid - For - String - Quartet  
 
Covid-forStringQuartet.opmo

Opusmodus version 2.2
Language: English, French, Italian and German
 
Opusmodus 2.2 requires a new serial number to run. When purchasing the upgrade the current user will need to provide an Opusmodus 1.0 - 2.1 serial number.
 
To purchase version 2.2 please go to Upgrade Now page.
 

– New Functions:
OMN-ANALYSIS STATISTIC-ANALYSIS CHORD-DISSOLVE SCORE-INSTRUMENT-EVENTS REWRITE-ACCIDENTALS  
– Fixed:
POLYPHONY OMN-DICTUM GEN-STEPS CLM French version and minor bugs
– Enhancement:
MIDI-TO-EDITOR COUNTERPOINT GEN-DIVIDE MUSICXML-TO-EDITOR Musicxml – notation display Documents format.  
New Documentation:
Quick Guide, Nigel Morgan Tutorials, OMN The Language and How-to Score are now in English, French, Italian and German language. The System Function library documents in German will be released in the coming weeks and months (1000 pages :-).

really not 🤣

simple brain gym 😄 

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

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

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)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; example.... correct? (gen-resultant (primes-to 7) (reverse (primes-to 7))) ;;; another example (gen-resultant '(9) '(3 1 4)) (gen-resultant '(9) '(3 1 4) :rhy 1/16) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  
 
n-version... 
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; for several layers (defun gen-resultant* (r &key (rhy 1/4)) (gen-length (difference (remove-duplicates (sort-asc (flatten (loop for i in r append (cons 0 (gen-accumulate i))))))) rhy)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; correct? (gen-resultant* '((16) (9) (3 1 4) (7))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  
a version with length-input - but test it, correct...?
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; for several layers / with direct rhythm-input (defun gen-resultant** (r) (difference (remove-duplicates (sort-asc (flatten (loop for i in r append (cons 0 (gen-accumulate i)))))))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; correct? (gen-resultant** '((2/4 1/4 3/4) (1/16 3/16 2/12 1/12) (3/4 3/20 2/20))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  

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 (difference (remove-duplicates 
                           (sort-asc (flatten (append (cons 0 (gen-accumulate r1)) 
                                                      (cons 0 (gen-accumulate r2))))))) rhy))
(setf r1a (primes-to 19))
(setf r2a (reverse (primes-to 19)))
;; Resultant from r1a r2a
(setf rr (gen-resultant r1a r2a :rhy 1/16))
(setf r1b (gen-length r1a '16))
(setf r2b (gen-length r2a '16))

(ps 'gm
    :rhy (list  r1b)
    :rhy (list  r2b)
    :rhy (list rr)
    :time-signature '(4 4 1)
)
 
....as long as there are no rests involved, rests are interpreted as attacks:
 
(progn
(defun gen-resultant* (r &key (rhy 1/4))
  (gen-length (difference (remove-duplicates 
                           (sort-asc (flatten (loop for i in r
                                                        append (cons 0 (gen-accumulate i)))))))
              rhy))
(setf r1c (gen-length '(16) '4))
(setf r2c (gen-length '(9) '4))
(setf r3c (gen-length '((3 1 4)) '4))
(setf r4c (gen-length '(7) '4))
;; Resultant from r1c r2c r3c r4c
(setf rrc (gen-resultant* '((16) 
                  (9) 
                  (3 1 4)
                  (7))))
(ps 'gm
    :rhy (list  r1c)
    :rhy (list  r2c)
    :rhy (list  r3c)
    :rhy (list  r4c)
    :rhy (list rrc)
    :time-signature '(4 4 1)
)
)
 
 
... or:
 
(progn
(defun gen-resultant** (r)
  (difference (remove-duplicates 
               (sort-asc (flatten (loop for i in r
                                    append (cons 0 (gen-accumulate i))))))))
(setf rha '(2/4 1/4 3/4))
(setf rhb '(1/16 3/16 2/12 1/12))
(setf rhc '(3/4 3/20 2/20))
(setf rr2 (gen-resultant** (list rha rhb rhc)))
(ps 'gm
    :rhy (list  rha)
    :rhy (list  rhb)
    :rhy (list  rhc)
    :rhy (list rr2)
    :time-signature '(4 4 1)
)
)
 
Thank you very much!
 
best
Stefan
 

New piece made with OM:

stephaneboussuge · Traces For Ensemble  
 
 
 
SB.

Done.
 
(setf v1 '(h c5)) (setf v2 '(-q c4)) (polyphony '((12 11)) (list v1 v2) :index 'out) (ps 'gm :p (list out1 out2))
(setf v1 '(h c4 h d4 q e4 -h.)) (setf v2 '(-q c5 -q d5 q d5 q e5 h f5)) (polyphony '((12 11)) (list v1 v2) :index 'out) (ps 'gm :p (list out1 out2))
 
(polyphony '((12 11)) (list v1 v2) :index 'out :leading 2) (ps 'gm :p (list out1 out2))

listen to the processes...
 
(make-omn :pitch (integer-to-pitch (pascal-triangle 50 :johnson-modulo (1+ (random 23)))) :length '(t) :span :pitch)  
an example with parallel processes (chordized)..
(setf chordlist (loop for i in (flatten (integer-to-pitch (pascal-triangle 20 :johnson-modulo (1+ (random 23))))) for j in (flatten (integer-to-pitch (pascal-triangle 20 :johnson-modulo (1+ (random 23))))) for k in (flatten (integer-to-pitch (pascal-triangle 20 :johnson-modulo (1+ (random 23))))) append (chordize (list i j k)))) (make-omn :pitch chordlist :length '(t) :span :pitch)  

here is a short program (based on JOHNSON's writing... pascal-code found in www and modified) to generate TOM JOHNSON's series of numbers for "pascal's triangle ...".
 
maybe interesting to play with the MODULO like JOHNSON did (mod 7)... try it!
 
greetings
andré
 
;;; SUB (defun pascal-next-row (a &key (johnson-modulo nil)) (loop :for q :in a :and p = 0 :then q :as s = (if (null johnson-modulo) (list (+ p q)) (list (mod (+ p q) johnson-modulo))) :nconc s :into a :finally (rplacd s (list 1)) (return a))) ;;; MAIN (defun pascal-triangle (n &key (johnson-modulo nil)) (loop :for a = (list 1) :then (pascal-next-row a :johnson-modulo johnson-modulo) :repeat n :collect a)) ;;; => pascal-triangle (pascal-triangle 7) => ((1) (1 1) (1 2 1) (1 3 3 1) (1 4 6 4 1) (1 5 10 10 5 1) (1 6 15 20 15 6 1)) ;;; => pascal-triangle with MODULO like tom johnson in PASCAL'S TRIANGLE MODULO SEVEN (pascal-triangle 21 :johnson-modulo 7) => ((1) (1 1) (1 2 1) (1 3 3 1) (1 4 6 4 1) (1 5 3 3 5 1) (1 6 1 6 1 6 1) (1 0 0 0 0 0 0 1) (1 1 0 0 0 0 0 1 1) (1 2 1 0 0 0 0 1 2 1) (1 3 3 1 0 0 0 1 3 3 1) (1 4 6 4 1 0 0 1 4 6 4 1) (1 5 3 3 5 1 0 1 5 3 3 5 1) (1 6 1 6 1 6 1 1 6 1 6 1 6 1) (1 0 0 0 0 0 0 2 0 0 0 0 0 0 1) (1 1 0 0 0 0 0 2 2 0 0 0 0 0 1 1) (1 2 1 0 0 0 0 2 4 2 0 0 0 0 1 2 1) (1 3 3 1 0 0 0 2 6 6 2 0 0 0 1 3 3 1) (1 4 6 4 1 0 0 2 1 5 1 2 0 0 1 4 6 4 1) (1 5 3 3 5 1 0 2 3 6 6 3 2 0 1 5 3 3 5 1) (1 6 1 6 1 6 1 2 5 2 5 2 5 2 1 6 1 6 1 6 1)) ;;; look!! (list-plot (flatten (pascal-triangle 50 :johnson-modulo 7)) :point-radius 0 :style :fill) (list-plot (flatten (pascal-triangle 50 :johnson-modulo 11)) :point-radius 0 :style :fill) (list-plot (flatten (pascal-triangle 80 :johnson-modulo 17)) :point-radius 0 :style :fill) (list-plot (flatten (pascal-triangle 50 :johnson-modulo 3)) :point-radius 0 :style :fill) ;;; rnd-testing (list-plot (flatten (pascal-triangle 80 :johnson-modulo (1+ (random 23)))) :point-radius 0 :style :fill)  
 
 

Bildschirmvideo aufnehmen 2021-04-10 um 23.47.59.mov

I understand that builtin functions of Opusmodus are not working on this level of abstraction / expressive power, as it would be a rather steep learning curve for users, but using and defining functions at this flexibility level reduces the length of your code substantially, which then helps to solve bigger problems by very small teams or individuals. I try to have my own libraries work at this kind of level. 😅

Amazing, beautiful and advanced score, André !!
The piece I´m working now is almost entirely done inside Opusmodus.
Finding my way, now !
Julio

yes, but i do not compose with OPMO - it's too strange with rhythm/instrumentation/notation. most of the time i'm sketching with OPMO and compose "by hand".
 
guitar-scordatura: i thought i'd rather "pull the pitches out of MIDI/XML" and then convert them.. i will see... but, THANX!
 
greetings
andré
 
could look like that (excerpt of a piece for solo trp - also with some SORT-ALGORITHMS inside (sketched/calculated with OPMO)  🙂 
works fine with SIBELIUS for layouting etc...
 

There is a lot of automatic stuff in Finale, by the way.
Some macros that helps a lot when finishing stuff.
 
I like to:
 
1) make enharmonic stuff in Musescore
2) the engraving and dynamics in Finale, because of this automatization process plugins. like this:
 
 
https://www.scoringnotes.com/tutorials/using-jw-changes-sequence-editor-in-finale-to-automate-tasks/
FREE VERSIONS OF JW  PLUGINS
 
Download
WWW.FINALETIPS.NU Tips, plug-ins, and other resources for the Finale music notation software. Download
WWW.FINALETIPS.NU Tips, plug-ins, and other resources for the Finale music notation software.  

thanks, dear julio, i'll take a look at it, but depending on the situation, programming takes more time than doing it by hand 🙂