opmo

For programmers and developers

Install the Quicklisp beta library manager.
Evaluate:
(load "http://beta.quicklisp.org/quicklisp.lisp")  
To continue, evaluate:

(quicklisp-quickstart:install)
 
Place the attached file 'Quicklisp Start.lisp' file into your ~/Opusmodus/Extensions folder. Edit the file and add the libraries you like to load.
Example:
(ql:quickload "ieee-floats") (ql:quickload "osc")  
About Quicklisp Beta
Note: Opusmodus has its own init file and is not loading the ccl.init.lisp file at the start. Quicklisp installation and its use is not a part of the Opusmodus support. This post is mainly for programmers and developers that already know how to use the Quicklisp libraries.
 
Additional installation:
Post from Bill St. Clair:
# In a shell cd mkdir ccl cd ccl svn co http://svn.clozure.com/publicsvn/openmcl//release/1.11/darwin-x86-headers64  
 
Quicklisp Start.lisp

It is the same with pan.
The midi file needs volume value, this is why you have the reset every time you start.
I will have a look if it is possible to set the controllers to nil.

Here's a score for Chamber ensemble named "En esquisse".
The main idea came from the desire to define the piece in "a single line" with an algorithmic management onside parameters across the entire piece.
 

 
SB.
 
En_esquisse_06.opmo
En Esquisse.pdf

Score layout example with :ignore options.
(def-score serial-map (:key-signature 'chromatic :time-signature (get-time-signature mat) :tempo tempo :layout (list (treble-layout 'rh :lines 1 :ignore-bars t :ignore-tempo t :ignore-time-signature t :bar-adjustments '(((2 11 12 14 15 20 22 35 41 43) :lines 0 :notehead :none) (2 :note "Audio (I) - - -" :lines 0 :notehead :none) (6 :note "Audio (II) - -") (11 :note "Audio (III) - - -") (14 :note "Audio (IV) - -") (21 :note "Audio (V) - - - -") (29 :note "Audio (VI) - - - -") (38 :note "Audio (VII) - -") (43 :note "Audio (VIII) - - -") )) (bass-layout 'lh :lines 1 :ignore-bars t :ignore-time-signature t :bar-adjustments '(((1 3 4 6 7 9 10 13 16 17 18 19 21 22 23 24 26 27 29 30 31 32 33 38 39 40) :lines 0 :notehead :none) )))) (rh :omn (gen-extract '(c4 c7) mat) :sound 'PR :channel 1) (lh :omn (gen-extract '(c1 bb3) mat) :sound 'PR :channel 2) ) (compile-score '((serial-map :start 1 :end 43)))  
 

There are many occasions when we would like to add articulations by hand to our generated scores.
The first thing we need to do is to convert (output) the score into omn format.
 
Algorithmically generated score.
(setf size 200) (setf vector (add-triangle-waves 4 size 1 0.6 :modulation (gen-triangle size 1 '(0.5 0.4 0.3 0.6) :modulation (gen-triangle size 1 0.3 :phase 180)))) (setf pitches (gen-divide 4 (vector-to-pitch '(g1 g6) vector))) (setf transpose (pitch-transpose -12 pitches)) (setf variants (pitch-variant transpose :variant '?)) (setf length (rnd-sample 120 '(s e s s))) (setf time (span pitches length)) (setf dynamics '(p mf ff)) (def-score add-triangle (:title "Waves Add-Triangle" :composer "OPMO" :copyright "© 2014 Opusmodus" :key-signature 'chromatic :time-signature (get-time-signature time) :tempo 120 :layout (piano-solo-layout 'rh 'lh :flexible-clef t)) (rh :length time :pitch pitches :velocity (rnd-sample size dynamics) :port 0 :sound 'gm :channel 1 :program 'acoustic-grand-piano) (lh :length time :pitch variants :velocity (rnd-sample size dynamics)))  
The expression below will convert the score into omn score format.
(compile-score 'add-triangle :output :score)  
To get a more readable version of the score add PPRINT (print pretty) at the beginning of the expression.
(pprint (compile-score 'add-triangle :output :score))  
Output in the Listener:
(def-score add-triangle (:title "Waves Add-Triangle" :composer "OPMO" :copyright "© 2014 Opusmodus" :key-signature 'chromatic :layout '(:brace (:flexible-treble rh) (:flexible-bass lh) :name "" :abbr "" :flexible-clef t) :time-signature '((1 4 2) (5 16 2) (1 4 1) (5 16 1) (3 8 2) (5 16 2) (3 8 1) (5 16 2) (1 4 1) (5 16 1) (1 4 1) (3 8 2) (1 4 1) (3 8 1) (5 16 1) (3 8 1) (5 16 2) (3 8 1) (7 16 1) (1 4 1) (3 8 1) (1 4 1) (5 16 1) (1 4 2) (5 16 2) (1 4 1) (5 16 1) (3 8 2) (5 16 2) (3 8 1) (5 16 2) (1 4 1) (5 16 1) (1 4 1) (3 8 2) (1 4 1) (3 8 1)) :tempo '120) (rh :omn '((s g1 ff gs1 p a1 ff b1) (s c2 mf cs2 ff d2 e2 mf) (e f2 p s fs2 ff g2 p a2) (s b2 mf e c3 s cs3 ff eb3) (s e3 mf f3 ff fs3 p a3 mf) (s bb3 ff b3 e c4 p s e4) (e e4 ff s f4 e s b4 p) (e b4 s s mf e fs5 ff) (s fs5 mf f5 p mf e cs6) (s cs6 c6 p e b5 mf s g6 ff) (s g6 p ff e f6 g6 mf) (s g6 g6 p ff e fs6) (s g6 mf p e s fs6) (s fs6 fs6 ff mf ff) (e fs6 p s ff fs6 fs6 mf) (s fs6 fs6 ff p f6) (s fs6 ff mf e e f6) (s f6 e fs6 fs6 p s f6) (s f6 mf fs6 fs6 p f6) (e f6 f6 ff s fs6 p f6 ff) (s f6 p e s s) (s f6 e mf p s ff) (s f6 mf p mf e ff) (s f6 p e s mf p) (s f6 ff e mf s e p) (e f6 s e ff mf) (s f6 p mf e6 ff f6 p) (s f6 ff e6 mf e eb6 p f6 mf) (s f6 e6 d6 f6) (s f6 e6 ff d6 e f6 p) (s f6 mf e6 ff cs6 f6 mf) (s f6 ff f6 cs6 mf f6 ff) (e f6 mf s s cs6 p fs6 mf) (s f6 ff e e6 p s bb5 mf f6) (s e6 p b5 f5 eb6) (s bb5 fs5 ff e cs5 p s a5 mf) (e e5 ff s c5 e gs4 mf s d5) (e bb4 s fs4 d4 e g4) (s e4 ff d4 b3 mf e eb4) (s cs4 p bb3 mf e gs3 p s c4 ff) (s a3 a3 mf e b3 ff gs3) (s bb3 c4 d4 e b3 mf) (s cs4 p eb4 mf e f4 p s eb4 ff) (s e4 fs4 gs4 p fs4 ff) (e g4 p s a4 mf bb4 a4) (s bb4 c5 cs5 p c5 mf) (s cs5 eb5 ff e e5 mf eb5 ff) (s e5 mf e fs5 g5 p s fs5 ff) (s g5 mf gs5 a5 p a5) (e bb5 ff b5 mf s c6 ff c6)) :channel 1 :sound 'gm :program 'acoustic-grand-piano :volume 90 :pan 64) (lh :omn '((s b0 p a0 mf gs1 g1) (s e1 d1 cs1 ff c1) (e a1 mf s g1 p fs1 mf f1) (s eb2 ff e cs2 s c2 mf b1 p) (s e2 mf eb2 d2 b1 p) (s e3 mf c3 p e b2 ff s bb2) (e b3 p s f3 mf e s e3 ff) (e b3 p s s ff e e3 mf) (s cs5 ff a5 p a5 e gs5 mf) (s cs5 ff c5 e b4 mf s g5 ff) (s g5 mf a5 ff e g5 p g5) (s g5 g5 mf g5 e fs5 ff) (s g5 p g5 e ff s gs5 mf) (s fs5 fs5 ff mf fs5) (e fs5 s p mf fs5) (s fs5 p ff p f5 mf) (s f5 p fs5 mf e e) (s f5 p e e5 e5 ff s f5) (s f5 p e5 e5 f5) (e f5 ff fs5 p s f5 ff f5) (s f5 e s p f5) (s f5 ff e e p s ff) (s f5 mf f5 f5 e p) (s f5 e ff s mf ff) (s f5 mf e p s e mf) (e f5 s e p f5) (s e5 f5 mf p f5) (s f5 g5 ff e fs5 p f5 ff) (s f5 fs5 mf gs5 f5 ff) (s f5 d5 e5 e f5 mf) (s cs5 e5 f5 f5 p) (s f5 ff mf p cs5) (e cs5 ff s f5 mf p fs5 mf) (s f5 e fs5 s c6 f5) (s e5 b4 p f4 eb5 mf) (s bb4 p a4 mf e fs4 p s cs4 ff) (e e4 mf s gs4 p e c5 mf s fs4 ff) (e bb3 s fs3 d3 e g3 mf) (s e3 p d3 b2 e eb3 ff) (s c3 mf e3 p e d3 ff s b2 mf) (s b2 ff a2 p e e gs2) (s b2 ff gs2 mf bb2 ff e c3 p) (s cs3 b2 mf e a2 ff s b2 p) (s fs3 e3 mf fs3 p gs3) (e g3 ff s f3 e3 p f3 ff) (s c4 mf cs4 c4 bb3) (s cs4 p eb4 mf e e4 eb4) (s fs4 p e g4 mf fs4 s e4) (s g4 gs4 p a4 a4) (e c5 ff mf s cs5 ff d5 p)) :channel 1 :sound 'gm :program 'acoustic-grand-piano :volume 90 :pan 64))  
Copy the score from the Listener and paste it into the Composer panel.
Now we are ready to add articulations etc... to the score by hand.

Hi,
 
Here's the 48 instruments version of my Logic Pro X template.
48MidiInInstrTemplate.logicx.zip

To get a single instrument into the Last Score command you write the expression:
(compile-score 'score-title :instrument 'instrument-name)  
After the evaluation you can see the part using cmd-alt-ctrl-N command, this key shortcut will display the notation of the chosen instrument.
This is the tenor part from the 'Origami Letters' score (Lesson 3) found in the Quick Start workspace.
(compile-score 'Origami-Letters :instrument 'tenor)  

We can add the instrument names to the list.
Please send me the name of the instrument and the range.
Example:
(alto-flute (-5 31)) (alto-flute-g (-5 31)) (alto-flute-f (-7 33)) (alto-flute-eb (-8 33)) (bass-flute (-14 13)) (bass-flute-bb (-14 13))  

I found OUD ambitus here:
http://www.saedmuhssin.com/composers.html

New:
INFINITY-SERIES
MESSIAEN-PERMUTATION
STRAWINSKI-ROTATION
Thanks to Jesper Elen
Midi conversions:
MIDI-TO-PITCH
MIDI-TO-INTEGER
MIDI-TO-INTERVAL
Fix to ambitus system with midi rage 0-127
Change to System Functions structure.
Fix to ttrem notation display and Grand Staff layout.

Here's a piano score that use sublis function to map pitches to lengths.
Given here for study purposes.
 

 
Score attached.
SB.
 
LesLindarsRev1.opmo
LesLindars_Score.pdf

If a function has ambitus keyword, then the default is set to 'piano. You always can extend the ambitus.
In the next update I will extend the tonality span to cover the entire midi range.

If a function has ambitus keyword, then the default is set to 'piano. You always can extend the ambitus.
In the next update I will extend the tonality span to cover the entire midi range.

The Opusmodus 1.1 update is recommended for all Opusmodus users.
This update:
Interface stability and compatibility.
Listener speed improvement.
DEF-SCORE performance improvement.
System optimisation and revision of random functions - less CONS and LOOPs:
(different results with set :seed may occur).

Additional layout and improvement to MusicXML notation display.
Added Layout options:
:ignore-velocity
:ignore-tempo
:ignore-time-signature
:ignore-bars
:ignore-clef
:cautionary-accidentals
:natural-accidentals
:all-accidentals
:section option added to many more functions.
MERGE-VOICES, MAKE-OMN and DISASSEMBLE-OMN functions are performing correctly now.
Revision to System Function documentation.
Notation, Scale 0.5 (default) setup added to Preferences panel. 
Score Templates added to New menubar.
New added functions:
BINARY-DO-SECTION
BINARY-SECTION-MAP
GEN-BINARY-MAP
PITCH-FIGURATE
GEN-EXTRACT
Functions renamed:
LENGTH-CONDENSE       ->  LENGTH-MERGE
LENGTH-REST-CONDENSE  ->  LENGTH-REST-MERGE
LENGTH-NOTE-CONDENSE  ->  LENGTH-NOTE-MERGE
LENGTH-REST-WEIGHT    ->  LENGTH-WEIGHT
:key-signature atonal - now needs a quote before the name
:key-signature 'atonal or 'chromatic
And more...
 

Dear Michael,
The language Opusmodus is using is Common Lisp, anything that you can do in plain Common Lisp, you can do with Opusmodus, we can easily say Opusmodus is a developing environment. Of course you can extend the system with your own function (Extensions folder), the documentation of your functions you will add to the System Library folder which you find in the Opusmodus folder (there is an example file to see how it works). Any code placed in the Extensions folder will be loaded at startup. The def-library function will help you to store your ideas, snippets, themes etc... in well organised manner. All libraries will be loaded at startup and should be placed if the /Opusmodus/Def-Libraries/Def-Library directory.

This is a future functionality, but you can send all the LCI midi events (performance) into Logic or any other DAW app.

I think this is good idea and we will add this functionality with time.

Here is the list of new score Templates:
 
Band
Brass Band.opmo Concert Band Small.opmo Concert Band.opmo School Band 6-8.opmo School Band 9-12.opmo   Chamber Groups Brass Choir.opmo Brass Quartet.opmo Brass Quintet.opmo Brass Trio.opmo Saxophone Quartet.opmo String Quartet.opmo String Trio.opmo Wind Quartet.opmo Wind Quintet.opmo Woodwind Choir.opmo Woodwind Trio.opmo   Choral and Song Choir SATB + Organ.opmo Choir SATB + Piano.opmo Choir SATB.opmo Choir SSA + Piano.opmo Choir SSA.opmo Choir TTBB + Piano.opmo Choir TTBB.opmo Hymn.opmo   Duo 2 Pianos.opmo 2 Violins.opmo Alto and Piano.opmo Baritone and Piano.opmo Clarinet and Violoncello.opmo Flute and Piano.opmo Oboe and Piano.opmo Soprano and Piano.opmo Tenor and Piano.opmo Trombone and Piano.opmo Trumpet and Piano.opmo Viola and Piano.opmo Violin and Piano.opmo Violoncello and Piano.opmo   Electroacoustic   Jazz Big Band.opmo Combo 2 Horns.opmo Combo 3 Horns.opmo Combo 4 Horns.opmo Quartet.opmo Trio.opmo Voice + Trio.opmo   Orchestral Orchestral Classical.opmo Orchestral Film.opmo Orchestral Modern.opmo String Orchestra.opmo   Percussion Drum Corps Battery.opmo Drum Corps Brass.opmo Marching Band.opmo Percussion Corps 1.opmo Percussion Corps 2.opmo   Rock and Pop Pop Group.opmo R&B Band.opmo Rock Band 1.opmo Rock Band 2.opmo   Single Staff Bass.opmo Treble.opmo   Solo Instruments Guitar.opmo Harp.opmo Organ + Bass.opmo Organ.opmo Piano.opmo   More to come :-)

Here is the list of new score Templates:
 
Band
Brass Band.opmo Concert Band Small.opmo Concert Band.opmo School Band 6-8.opmo School Band 9-12.opmo   Chamber Groups Brass Choir.opmo Brass Quartet.opmo Brass Quintet.opmo Brass Trio.opmo Saxophone Quartet.opmo String Quartet.opmo String Trio.opmo Wind Quartet.opmo Wind Quintet.opmo Woodwind Choir.opmo Woodwind Trio.opmo   Choral and Song Choir SATB + Organ.opmo Choir SATB + Piano.opmo Choir SATB.opmo Choir SSA + Piano.opmo Choir SSA.opmo Choir TTBB + Piano.opmo Choir TTBB.opmo Hymn.opmo   Duo 2 Pianos.opmo 2 Violins.opmo Alto and Piano.opmo Baritone and Piano.opmo Clarinet and Violoncello.opmo Flute and Piano.opmo Oboe and Piano.opmo Soprano and Piano.opmo Tenor and Piano.opmo Trombone and Piano.opmo Trumpet and Piano.opmo Viola and Piano.opmo Violin and Piano.opmo Violoncello and Piano.opmo   Electroacoustic   Jazz Big Band.opmo Combo 2 Horns.opmo Combo 3 Horns.opmo Combo 4 Horns.opmo Quartet.opmo Trio.opmo Voice + Trio.opmo   Orchestral Orchestral Classical.opmo Orchestral Film.opmo Orchestral Modern.opmo String Orchestra.opmo   Percussion Drum Corps Battery.opmo Drum Corps Brass.opmo Marching Band.opmo Percussion Corps 1.opmo Percussion Corps 2.opmo   Rock and Pop Pop Group.opmo R&B Band.opmo Rock Band 1.opmo Rock Band 2.opmo   Single Staff Bass.opmo Treble.opmo   Solo Instruments Guitar.opmo Harp.opmo Organ + Bass.opmo Organ.opmo Piano.opmo   More to come :-)

I am in the process of creating group Templates - instrument groups and the layout.
If any of you have any specific configuration (instrument setup) please let me know.
Version 1.1 coming closer.

If any of you have the same problem please uninstall the Jack Audio Connection Kit app and restart the computer, this should fix the problem.