opmo

Possibly next week.

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.

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)

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

*last-score* is snippet therefore you should be able to open the it in any publishing app.

The density increases with the size of the interval/s. For example (cs2 g7) is more dense than (cs2 g2). The more difficult (complex) is to recognise the intervals the more dense is the pitch sequence. (density-analysis '((cs2 g7) (cs2 g2))) => (1.0 0.5)

1.0 is the highest density.

Yes (density-analysis '((h q e =) (e = = = = = = =))) => (0.25 0.5) (density-analysis '((h q e =) (s = t =))) => (0.25 1.0)

The bigger the interval the lower the density. (density-analysis '((c4 d4) (c4 a4))) => (0.16666667 0.75) (density-analysis '((c4 d4 e4 f4) (c4 a4 g5 c7))) => (0.1388889 0.86111116)

Done (gen-divide 3 '(q -q -e e e e q q -s s s s)) => ((1/4 -1/4 -1/8) (1/8 1/8 1/8) (1/4 1/4 -1/16) (1/16 1/16 1/16)) (gen-divide 3 '(q -q -e -e -e e q q -s s s s) :omit-rest t) => ((1/4 -1/4 -1/8 -1/8 -1/8 1/8 1/4) (1/4 -1/16 1/16 1/16) (1/16)) (gen-divide 3 '(q -q -e -e -e e q q -s s s s) :omit-rest t :omn t) => ((q - -e - - = q) (q -s = =) (s)) (gen-divide 3 '(q c4 -q -e d4 e e4 e f4 e g4 q a4 q b4 -s s c5 d5 e5)) => ((q c4 mf - -e) (e d4 mf e4 f4) (e g4 mf q a4 b4) (-s c5 mf d5) (s e5 mf)) (gen-divide 3 '(q c4 -q -e d4 e e4 e f4 e g4 q a4 q b4 -s s c5 d5 e5) :omit

Will have a look.

Opusmodus version in German is in the making and will be released soon. Best wishes, Janusz

Good work Stephane, Nigel would love it. I wish Nigel could see the OM COUNTERPOINT and POLYPHONY in action. Soon I will make a new release with the enchantments to OMN-DICTUM and POLYPHONY functions.

REWRITE-ACCIDENTALS - in forthcoming release. (setf sequence '((q d4 pp s eb4 leg g4 p leg bb4 leg a4) (q. cs5 mf -e 3q gs5 leg fs5 leg c5 b4 ff leg f4 leg e4))) (rewrite-accidentals sequence :map :chromatic) => ((q d4 pp s ds4 leg g4 p leg bb4 leg a4) (q. cs5 mf -e 3q ab5 leg gb5 leg c5 b4 ff leg f4 leg e4)) (rewrite-accidentals sequence :map :sharp) => ((q d4 pp s ds4 leg g4 p leg as4 leg a4) (q. cs5 mf -e 3q gs5 leg fs5 leg c5 b4 ff leg f4 leg e4)) (rewrite-accidentals sequence :map :flat) => ((q d4 pp s eb4 leg g4 p leg bb4 leg a4) (q. db5 mf -e 3q ab5