opmo

New Function:
 
search-for-pattern
 
This function searches for a recurring pattern in a sequence.
The result is a bar number in which the pattern has been found and a count number of the recurrence in the bar.
The pitch and interval element returns a variant recurrence if found.
 
(setf rh '((-s) (e f4e5 pp -s db5)            (-s) (-s eb4 pp c4d5 -)            (-s) (-s c4d5 pp eb4 -)            (-s) (e db5 pp -s f4e5)            (-s) (s gb4f5 p a5 -)            (s d4ab4db5 p bb4 -) (-s a5 p gb4f5)            (-s) (s b5 f gb4g5 -)            (s a3bb4 f ab4 -) (s c4d5 f> eb4 -)            (s db5 f> f4e5 -) (-s)            (s gb4f5 p a5 d4ab4db5 bb4 -) (-s)            (-s a5 pp gb4f5) (-s)            (-t b2 f e3 bb3 - d5 c4eb4) (-s)            (s db3 f - s. g5 -t) (s gb4f5 p)            (-t a3 mp ab3 mf -s. t db5f5 f c4 -) (s e3e4 p)            (-t s. d2 f -s ab5 mf) (-s)            (t gb4a4 p g3 mp - b2 f e3 bb3 e3 a3 eb4 - g5 mf f4ab4 mp) (-s)            (s f2 f - s. c6 -t) (s b2bb3 p)            (-s t db5 mp -s. t gb5bb5 f4 f -) (t a3 f ab2 - ab2 a3)            (-t f4 f gb5bb5 mf) (-t a3 mp d4ab4 c4 p bb5db6 mf)            (-t b2 f3 b2 -) (t bb5db6 c5 f d4ab4 a3 p)            (-s) (t b4eb5 p bb3 -)            (t d4 p db3 - db3 d4) (-t bb3 p b4eb5)            (-s) (-s eb5 p bb3b4 -) (-s)            (e d4db5 p -s c5) (-s)            (e c5 p -s d4db5) (-s)            (-s bb3b4 p eb5 -) (-s)            (-s ab3g4 p e4 mf) (-s c4gb4b4 f5)            (-s db5 mp bb3a4) (-s)            (-s eb4d5 p gb4) (-s e4 p f3g4)            (-s b3 p a2bb3) (-s c5db6 pp ab5)            (-s) (-s e5eb6 p g5 c4f4b4 p> gb4)            (-s) (-e) (e d5ab5db6 pp)))  
 
(search-for-pattern '(eb4 c4d5) rh                     :element :pitch                     :name "Webern, Variationen für Klavier Op.27, I, rh") ..................................................... Score: Webern, Variationen für Klavier Op.27, I, rh Pitches: (eb4 c4d5) Prime:   bar: 4  count: 1 Retrograde:   bar: 6   count: 1   bar: 16  count: 1 Inversion: none Retrograde-inversion: none .....................................................  
 
(search-for-pattern '(eb4 c4 d5) rh                     :melodize t                     :element :pitch                     :name "Webern, Variationen für Klavier Op.27, I, rh") ..................................................... Score: Webern, Variationen für Klavier Op.27, I, rh Pitches: (eb4 c4 d5) Prime:   bar: 4  count: 1 Retrograde:   bar: 23  count: 1 Inversion: none Retrograde-inversion: none .....................................................  
 
(search-for-pattern '(-8 11) rh                     :element :interval                     :melodize t                     :name "Webern, Variationen für Klavier Op.27, I, rh") ..................................................... Score: Webern, Variationen für Klavier Op.27, I, rh Intervals: (-8 11) Prime:   bar: 8   count: 1   bar: 17  count: 1 Retrograde:   bar: 58  count: 1   bar: 63  count: 1 Inversion: none Retrograde-inversion: none .....................................................  
 
(search-for-pattern '(t t t t) rh                     :element :length                     :name "Webern, Variationen für Klavier Op.27, I, rh") ..................................................... Score: Webern, Variationen für Klavier Op.27, I, rh Lengths: (1/32 1/32 1/32 1/32) Found:   bar: 31  count: 1   bar: 38  count: 1   bar: 40  count: 1 .....................................................  
 
(search-for-pattern '(mp p mf) rh                     :element :velocity                     :name "Webern, Variationen für Klavier Op.27, I, rh") ..................................................... Score: Webern, Variationen für Klavier Op.27, I, rh Velocities: (mp p mf) Found:   bar: 38  count: 1 .....................................................  
 
(search-for-pattern '(stacc) rh                     :element :attribute                     :name "Webern, Variationen für Klavier Op.27, I, rh") ..................................................... Score: Webern, Variationen für Klavier Op.27, I, rh Attributes: (stacc) Found: none .....................................................  
Search for pattern in none omn-form sequence:
 
(search-for-pattern '(1 2 3) '((1 2 3 1 2 3) (4 1 2 3 4 5 6))) ..................................................... Score: nil Values: (1 2 3) Found:   list: 1  count: 2   list: 2  count: 1 .....................................................  
 
series-analysis
 
This function searches for recurring series in a sequence.
The result is a size and count number of high recurring series and longest recurring series found in a sequence.
 
Searching for pitches:
 
(series-analysis rh                  :element :pitch                  :name "Webern, Variationen für Klavier Op.27, I, rh") ..................................................... Score: Webern, Variationen für Klavier Op.27, I, rh High recurrence series:   found: (gb4 f5) size: 2 count: 5 Longest recurrence series:   found: (c4 d5 eb4 db5 f4 e5 gb4 f5 a5 d4 ab4 db5 bb4 a5 gb4 f5) size: 16 count: 2 .....................................................  
Searching for intervals:
 
(series-analysis rh                  :element :interval                  :name "Webern, Variationen für Klavier Op.27, I, rh") ..................................................... Score: Webern, Variationen für Klavier Op.27, I, rh High recurrence series:   found: (5 6) size: 2 count: 6 Longest recurrence series:   found: (14 -11 10 -8 11 -10 11 4 -19 6 5 -3 11 -15 11) size: 15 count: 2 .....................................................  
Searching for lengths:
 
(series-analysis rh                  :element :length                  :name "Webern, Variationen für Klavier Op.27, I, rh") ..................................................... Score: Webern, Variationen für Klavier Op.27, I, rh High recurrence series:   found: (1/16 -1/16) size: 2 count: 29 Longest recurrence series:   found: (1/16 -1/16 1/16 1/16 -1/16 1/16 1/16 -1/16 -1/16           1/16 1/16 -1/16 1/16 1/16 -1/16 1/16 1/16 -1/16           1/16 1/16 -1/16) size: 21 count: 2 .....................................................  
Searching for velocities:
 
(series-analysis rh                  :element :velocity                  :name "Webern, Variationen für Klavier Op.27, I, rh") ..................................................... Score: Webern, Variationen für Klavier Op.27, I, rh High recurrence series:   series: (p p) size: 2 count: 18 Longest recurrence series:   found: (mp f f f f f f mf mp) size: 9 count: 2   found: (p p p p p p p p p) size: 9 count: 2 .....................................................  
Searching for values:
 
(setf population (gen-population 16 3 7)) (setf pitches (vector-to-pitch 'piano population)) (series-analysis pitches) ..................................................... Score: nil High recurrence series:   found: (a0 c8) size: 2 count: 6 Longest recurrence series:   found: (a0 c8 a0) size: 3 count: 2   found: (a0 c8 b7) size: 3 count: 2 .....................................................  
 
(series-analysis (modus pitches)) ..................................................... Score: nil High recurrence series:   found: (9 0) size: 2 count: 7 Longest recurrence series:   found: (0 7 9 5 0) size: 5 count: 2 .....................................................  
 
remove-series
 
The function REMOVE-SERIES removes a number of successive items from a list.
 
(remove-series 3 '(c4 cs4 fs4 f4 b4 c4)) => (f4 b4 c4) (remove-series 3 '(c4 cs4 fs4 f4 b4 c4) :from-end t) => (c4 cs4 fs4)  
Best wishes, stay safe,
Janusz

Just found in my mailbox 🙂 Congratulation.

A.S. Mailbox
(three serial miniatures for string quartet)
dur: circa 4´30
Composer: Julio HERRLEIN

Porto Alegre - Jun/2021
 
I. Email from Anton
II. [SPAM] Re: Hauer
III. Letter from Alban
 
A.S. (Arnold Schoenberg) Mailbox are a set of three miniatures for string quartet using 12-tone serial techniques and parametric composition processes. The idea is a imaginary mailbox of Schoenberg dialogues with his main disciples Webern and Berg, and also Hauer, his rival in the creation of a 12-tone composition method.
 
All the pieces are (loosely) based in the same all interval  12-tone row:
c4 eb4 a4 db4 b4 ab4 g4 d4 e4 f4 bb4 gb4
 
PERFORMANCE NOTE: The score and parts accidentals favor the FLATS (b) for easier enharmonic reading. 

Some of the uses of the tone row are also related to the rhythmic span of the orchestration and the algorithmic method for spreading the tones through the lisp lists in the Opusmodus software.

The first miniature “Email from Anton” are inspired by the pointilistic textures used by Webern in his op. 28. In a later section, the textures are intensified by melodic figures and tremolos across the instruments of the quartet.

The second miniature “[SPAM] Re: Hauer” is an imaginary email from Hauer  (lost in “Arnie´s” spam box…) where he shows to A.S. his klangreihen method (as actually described by Dominik SEDIVÝ, 2011, pp. 25-30) to harmonize and make a smooth parsimonious voice-leading of a 12-tone row. 
 
The last piece “Letter from Alban” set up some 6-attack melodic motifs based on the hexachords of the basic row, combined with rhythmic ostinato textures of accompaniment and sweet chords derived from retrograde version of the row.
 
All the best !! Thanks to everyone in this forum who have patience with me !

     Julio Herrlein, 2021/JUNE

rewrite-accidentals
This function replaces all accidentals to a given map in an omn-form sequence. The chromatic map will rewrite all pitch accidentals with sharps when the pitch ascends and with flats when the pitch descends. The sharp map uses sharp accidentals only and the flat map uses flat accidentals only. The default map is as follows: c cs d ds e eb f fs g gs a bb b.
Examples:
(setf omn1 '((5q fs4 p - bb3 f3 e4) (-3q g4 c5) (s eb5 a5 mf cs6 gs6)              (5q gs6 pp cs6 mf a5 eb5 -) (-s c5 g4 e4)))
 
(rewrite-accidentals omn1 :map :chromatic)
 
(rewrite-accidentals omn1 :map :sharp)
 
(rewrite-accidentals omn1 :map :flat)
 
 

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 :-).

One possible way among the infinity of possibility :
 
 
;;; Creating random notes that are played ;;; in clusters over random time periods ;; Create random notes (setf notes (rnd-sample 512 (make-scale 'c2 48))) ;; Create chords (setf chords (gen-chord 24 4 8 -6 6 notes)) ;; Create binary time periods (setf bin (gen-binary-rnd 24 16 1 8)) ;; Create rhythm from binary (setf ry (binary-map bin 's)) ;; Create random dynamics (setf dyn (rnd-sample (length chords) '(pp p mp mf f ff))) ;; Full OMN Assembly (setf rnd-chords (make-omn :pitch chords :length ry :velocity dyn ;:span :pitch )) (ps 'gm :pg (list rnd-chords) :tempo 64) SB.

rewrite-accidentals
This function replaces all accidentals to a given map in an omn-form sequence. The chromatic map will rewrite all pitch accidentals with sharps when the pitch ascends and with flats when the pitch descends. The sharp map uses sharp accidentals only and the flat map uses flat accidentals only. The default map is as follows: c cs d ds e eb f fs g gs a bb b.
Examples:
(setf omn1 '((5q fs4 p - bb3 f3 e4) (-3q g4 c5) (s eb5 a5 mf cs6 gs6)              (5q gs6 pp cs6 mf a5 eb5 -) (-s c5 g4 e4)))
 
(rewrite-accidentals omn1 :map :chromatic)
 
(rewrite-accidentals omn1 :map :sharp)
 
(rewrite-accidentals omn1 :map :flat)
 
 

Just installed the last file with NO PROBLEMS at all !
Thanks !
 

Looks like all is working again.
Please try again. Do refresh your Browser in order to get the last update.

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 :-).

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

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

Yes, I will. Just checking if somebody already did.
Thanks !

You most create you own def-sound-set for it.

Well spotted. Yes it is a bug. A predict omn-formp was missing.
Fixed already.
 

Well spotted. Yes it is a bug. A predict omn-formp was missing.
Fixed already.
 

Instrument means track.

(let ((seed '(1 23 467 11)))   (loop for i in seed     collect (rnd-unique 5 '(1 2 3 4 5) :seed i))   )  

Possibly next week.

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.
 
For example:
 
(defparameter *default-notation-editor* "Dorico 3.5.app")
(defparameter *default-notation-editor* "MuseScore 3.app")
 
Examples:
 
To open the last compiled score (DEF-SCORE, PS or snippet) in the notation editor:
 
(musicxml-to-editor)
 
To open the 2nd instrument from the last compiled score (DEF-SCORE, PS or snippet) in the notation editor:
 
(musicxml-to-editor :instrument 2)
 
To open a MusicXML file in the notation editor:
 
(musicxml-to-editor "file-name")
 
To open the file in Finale:
 
(midi-to-editor "file-name" :application "Finale")
 
Should the application not open you can use the identifier keyword with the bundle-identifier.
For example the Sibelius 7.5 version identifier is "com.avid.Sibelius75"
 
(musicxml-to-editor "file-name" :identifier "com.avid.Sibelius75")
 

MIDI-TO-EDITOR
 
The MIDI-TO-EDITOR function opens a MIDI 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.
 
For example:
 
(defparameter *default-notation-editor* "Dorico 3.5.app")
(defparameter *default-notation-editor* "MuseScore 3.app")
 
Examples:
 
To open the last compiled score (DEF-SCORE, PS or snippet) in the notation editor:
 
(midi-to-editor)
 
To open the 2nd instrument from the last compiled score (DEF-SCORE, PS or snippet) in the notation editor:
 
(midi-to-editor :instrument 2)
 
To open MIDI file in the notation editor:
 
(midi-to-editor "file-name")
 
To open the file in Finale:
 
(midi-to-editor "file-name" :application "Finale")
 
Should the application not open you can use the identifier keyword with the bundle-identifier.
For example the Sibelius 7.5 version identifier is "com.avid.Sibelius75"
 
(midi-to-editor "file-name" :identifier "com.avid.Sibelius75")
 

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.
 
For example:
 
(defparameter *default-notation-editor* "Dorico 3.5.app")
(defparameter *default-notation-editor* "MuseScore 3.app")
 
Examples:
 
To open the last compiled score (DEF-SCORE, PS or snippet) in the notation editor:
 
(musicxml-to-editor)
 
To open the 2nd instrument from the last compiled score (DEF-SCORE, PS or snippet) in the notation editor:
 
(musicxml-to-editor :instrument 2)
 
To open a MusicXML file in the notation editor:
 
(musicxml-to-editor "file-name")
 
To open the file in Finale:
 
(midi-to-editor "file-name" :application "Finale")
 
Should the application not open you can use the identifier keyword with the bundle-identifier.
For example the Sibelius 7.5 version identifier is "com.avid.Sibelius75"
 
(musicxml-to-editor "file-name" :identifier "com.avid.Sibelius75")
 

MIDI-TO-EDITOR
 
The MIDI-TO-EDITOR function opens a MIDI 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.
 
For example:
 
(defparameter *default-notation-editor* "Dorico 3.5.app")
(defparameter *default-notation-editor* "MuseScore 3.app")
 
Examples:
 
To open the last compiled score (DEF-SCORE, PS or snippet) in the notation editor:
 
(midi-to-editor)
 
To open the 2nd instrument from the last compiled score (DEF-SCORE, PS or snippet) in the notation editor:
 
(midi-to-editor :instrument 2)
 
To open MIDI file in the notation editor:
 
(midi-to-editor "file-name")
 
To open the file in Finale:
 
(midi-to-editor "file-name" :application "Finale")
 
Should the application not open you can use the identifier keyword with the bundle-identifier.
For example the Sibelius 7.5 version identifier is "com.avid.Sibelius75"
 
(midi-to-editor "file-name" :identifier "com.avid.Sibelius75")
 

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.
 
For example:
 
(defparameter *default-notation-editor* "Dorico 3.5.app")
(defparameter *default-notation-editor* "MuseScore 3.app")
 
Examples:
 
To open the last compiled score (DEF-SCORE, PS or snippet) in the notation editor:
 
(musicxml-to-editor)
 
To open the 2nd instrument from the last compiled score (DEF-SCORE, PS or snippet) in the notation editor:
 
(musicxml-to-editor :instrument 2)
 
To open a MusicXML file in the notation editor:
 
(musicxml-to-editor "file-name")
 
To open the file in Finale:
 
(midi-to-editor "file-name" :application "Finale")
 
Should the application not open you can use the identifier keyword with the bundle-identifier.
For example the Sibelius 7.5 version identifier is "com.avid.Sibelius75"
 
(musicxml-to-editor "file-name" :identifier "com.avid.Sibelius75")
 

MIDI-TO-EDITOR
 
The MIDI-TO-EDITOR function opens a MIDI 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.
 
For example:
 
(defparameter *default-notation-editor* "Dorico 3.5.app")
(defparameter *default-notation-editor* "MuseScore 3.app")
 
Examples:
 
To open the last compiled score (DEF-SCORE, PS or snippet) in the notation editor:
 
(midi-to-editor)
 
To open the 2nd instrument from the last compiled score (DEF-SCORE, PS or snippet) in the notation editor:
 
(midi-to-editor :instrument 2)
 
To open MIDI file in the notation editor:
 
(midi-to-editor "file-name")
 
To open the file in Finale:
 
(midi-to-editor "file-name" :application "Finale")
 
Should the application not open you can use the identifier keyword with the bundle-identifier.
For example the Sibelius 7.5 version identifier is "com.avid.Sibelius75"
 
(midi-to-editor "file-name" :identifier "com.avid.Sibelius75")
 

I will make a function for it.
(midi-to-editor)  

This will work.

This you will need to do before.
 
(midi-to-editor) ;is using the default editor
(midi-to-editor "filename") ;specific midifile (not *last-score*)
(midi-to-editor :application Musescore) ;*last-score* midi will open in Musescore

the default will be:
 
(defparameter *default-notation-editor* "Sibelius")  
which you can changed to your editor application.

The same I will do to the musicxml:
(musicxml-to-editor)