opmo

And if the :sound is 'gm then :program is the instrument name or an integer of the gm setup with :port set to nil.

Here is my VSL instrument setup example: :sq (:layout string-quartet-layout :port 3 :channel '(1 2 3 4) :sound '(vi-violin vi-violin vi-viola vi-cello) :program 0 :controllers nil :pan (pan '(-30 -10 10 30)) :volume 92) As you can see the :program is set to 0. The program is not important here, only the :sound is. Here is the Violin sound setup: (in-package :Opusmodus) ;;;--------------------------------------------------------- ;;; VIENNA INSTRUMENTS - VIOLIN ;;;--------------------------------------------------------- (def-sound-set vi-violin :programs (:group perf-universal vl-perf-sustain (:key c2 cc1 5) vl-perf-marcato (:key c2 cc1 64) vl-perf-spic (:key c2 cc1 120) :group perf-legato-all vl-perf-legato (:key cs2 :key c1 cc1 40) vl-perf-legato-sul (:key cs2 :key cs1 cc1 40) vl-perf-legato-zigane (:key cs2 :key d1 cc1 40) vl-perf-legato-vib-progr (:key cs2 :key ds1 cc1 40) vl-perf-portamento (:key cs2 :key c1 cc1 80) :group articulation-combi vl-staccato (:key d2 :key c1 cc1 40) vl-sus-vib (:key d2 :key cs1 cc1 40) vl-fp-vib (:key d2 :key d1 cc1 40) vl-trem-sus (:key d2 :key ds1 cc1 40) vl-trill-1 (:key d2 :key e1 cc1 40) vl-pon-staccato (:key d2 :key f1 cc1 40) vl-pon-trem (:key d2 :key fs1 cc1 40) vl-harm-art-stac (:key d2 :key g1 cc1 40) vl-octav-gliss-me (:key d2 :key gs1 cc1 40) vl-pizz (:key d2 :key a1 cc1 40) vl-detache-short (:key d2 :key c1 cc1 80) vl-sus-vib-marc (:key d2 :key cs1 cc1 80) vl-sfz-vib (:key d2 :key d1 cc1 80) vl-trem-sus-af-auto (:key d2 :key ds1 cc1 80) vl-trill-2 (:key d2 :key e1 cc1 80) vl-pon-sus (:key d2 :key f1 cc1 80) vl-pon-trem-fa-auto (:key d2 :key fs1 cc1 80) vl-harm-art-sus (:key d2 :key g1 cc1 80) vl-octav-gliss-fa (:key d2 :key gs1 cc1 80) vl-pizz-snap (:key d2 :key a1 cc1 80) :group pref-repetitions-combi vl-perf-rep-sl (:key ds2 :key c1) vl-perf-rep-por-me (:key ds2 :key cs1) vl-perf-rep-stac (:key ds2 :key d1) vl-perf-rep-spi (:key ds2 :key ds1) vl-perf-rep-harsh (:key ds2 :key e1) :group combi-cre9 vl-rep-cre9-por-fa-1 (:key e2 :key c1 cc1 10) vl-rep-cre9-por-fa-2 (:key e2 :key cs1 cc1 10) vl-rep-cre9-por-fa-3 (:key e2 :key d1 cc1 10) vl-rep-cre9-por-fa-4 (:key e2 :key ds1 cc1 10) vl-rep-cre9-por-fa-5 (:key e2 :key e1 cc1 10) vl-rep-cre9-por-fa-6 (:key e2 :key f1 cc1 10) vl-rep-cre9-por-fa-7 (:key e2 :key fs1 cc1 10) vl-rep-cre9-por-fa-8 (:key e2 :key g1 cc1 10) vl-rep-cre9-por-fa-9 (:key e2 :key gs1 cc1 10) vl-rep-cre9-sta-1 (:key e2 :key c1 cc1 25) vl-rep-cre9-sta-2 (:key e2 :key cs1 cc1 25) vl-rep-cre9-sta-3 (:key e2 :key d1 cc1 25) vl-rep-cre9-sta-4 (:key e2 :key ds1 cc1 25) vl-rep-cre9-sta-5 (:key e2 :key e1 cc1 25) vl-rep-cre9-sta-6 (:key e2 :key f1 cc1 25) vl-rep-cre9-sta-7 (:key e2 :key fs1 cc1 25) vl-rep-cre9-sta-8 (:key e2 :key g1 cc1 25) vl-rep-cre9-sta-9 (:key e2 :key gs1 cc1 25) vl-rep-cre9-spi-1 (:key e2 :key c1 cc1 70) vl-rep-cre9-spi-2 (:key e2 :key cs1 cc1 70) vl-rep-cre9-spi-3 (:key e2 :key d1 cc1 70) vl-rep-cre9-spi-4 (:key e2 :key ds1 cc1 70) vl-rep-cre9-spi-5 (:key e2 :key e1 cc1 70) vl-rep-cre9-spi-6 (:key e2 :key f1 cc1 70) vl-rep-cre9-spi-7 (:key e2 :key fs1 cc1 70) vl-rep-cre9-spi-8 (:key e2 :key g1 cc1 70) vl-rep-cre9-spi-9 (:key e2 :key gs1 cc1 70) vl-rep-cre9-harsh-1 (:key e2 :key c1 cc1 120) vl-rep-cre9-harsh-2 (:key e2 :key cs1 cc1 120) vl-rep-cre9-harsh-3 (:key e2 :key d1 cc1 120) vl-rep-cre9-harsh-4 (:key e2 :key ds1 cc1 120) vl-rep-cre9-harsh-5 (:key e2 :key e1 cc1 120) vl-rep-cre9-harsh-6 (:key e2 :key f1 cc1 120) vl-rep-cre9-harsh-7 (:key e2 :key fs1 cc1 120) vl-rep-cre9-harsh-8 (:key e2 :key g1 cc1 120) vl-rep-cre9-harsh-9 (:key e2 :key gs1 cc1 120) :group perf-harsh-combi vl-sus-vib-fa (:key f2 :key c1 cc1 5) vl-sus-vib-progr (:key f2 :key cs1 cc1 5) vl-pon-sus-fa (:key f2 :key d1 cc1 5) :group omn ord (:key c2 cc1 5) stacc (:key d2 :key c1 cc1 40) stacs (:key e2 :key c1 cc1 25) marc (:key c2 cc1 64) spicc (:key c2 cc1 120) leg (:key cs2 :key c1 cc1 40) tasto (:key cs2 :key cs1 cc1 40) leg+tasto (:key cs2 :key cs1 cc1 40) tasto+leg (:key cs2 :key cs1 cc1 40) vib+marc (:key d2 :key cs1 cc1 80) marc+vib (:key d2 :key cs1 cc1 80) deta (:key d2 :key c1 cc1 80) pizz (:key d2 :key a1 cc1 40) snap (:key d2 :key a1 cc1 80) trem (:key d2 :key ds1 cc1 40) tr1 (:key d2 :key e1 cc1 40) tr2 (:key d2 :key e1 cc1 80) stacc+ponte (:key d2 :key f1 cc1 40) ponte+stacc (:key d2 :key f1 cc1 40) ponte+trem (:key d2 :key fs1 cc1 40) trem+ponte (:key d2 :key fs1 cc1 40) ponte (:key d2 :key f1 cc1 80) ) :controllers (:group default-settings pitch 0 velocity-xf 2 volume 7 pan 10 expression 11 reverb-dry/wet 14 reverb-on/off 15 slot-xf 20 start-scaler 21 master-attack 22 master-release 23 master-filter 24 delay-scaler 25 tuning-scaler 26 humanize 27 velocity-xf-on-off 28 rsamp-on-off 29 dynamics-scaler 30 :group Pedal Ped 64 Sost-Ped 66 Una-Corda 67 :group matrix cc1 1 ) )

You define the keyswitches in the DEF-SOUND-SET, after, you place the file in the ~/Opusmodus/Def-Libraries/Def-Sound-Sets folder (next time you start the app the file will load automatically). Copy one of the existing files, change the name and fill it will your instrument setup (controllers, keyswitches etc...). All articulation you define in your sound-set can be used in omn. Nothing else you need to do. The list of attributes names you can use in your setup you will find in 4th Element - Attributes doc. You can create your own - if needed - with ADD-TEXT-ATTRIBUTES function. (q c4 stacc) If there is a sound set with a name STACC in your setup then that program (sample) will be triggered. Stephane gives lessons on all OM technics and subjects: https://opusmodus.com/forums/lessons/

(in-package :Opusmodus) ;;;--------------------------------------------------------- ;;; VIENNA INSTRUMENTS - CELLO (keyswitches) ;;;--------------------------------------------------------- ;; Patches, keyswitches and controllers change events. (def-sound-set VSL-Cello :programs (:group Perf-Legato perf-legato (:key c7) :group Perf-Marcato perf-marcato (:key cs7) :group Perf-Spiccato spiccato (:key d7) :group Short-Notes staccato (:key ds7 :key c1) detache-shot (:key ds7 :key cs1) detache-long (:key ds7 :key d1) :group Long-Notes sus-vib (:key e7 :key c1) sus-vib-marc (:key e7 :key cs1) sus-vib-espr (:key e7 :key d1) sus-vib-progr (:key e7 :key ds1) sus-down (:key e7 :key e1) sus-novib (:key e7 :key f1) :group Dynamic dyn-me-vib-2s (cc1 0 :key f7 :key c1 :key a0) dyn-me-vib-3s (cc1 0 :key f7 :key cs1 :key a0) dyn-me-vib-4s (cc1 0 :key f7 :key d1 :key a0) dyn-str-vib-2s (cc1 25 :key f7 :key c1 :key a0) dyn-str-vib-3s (cc1 25 :key f7 :key cs1 :key a0) dyn-str-vib-4s (cc1 25 :key f7 :key d1 :key a0) dyn-me-novib-2s (cc1 60 :key f7 :key c1 :key a0) dyn-me-novib-3s (cc1 60 :key f7 :key cs1 :key a0) dyn-me-novib-4s (cc1 60 :key f7 :key d1 :key a0) pfp-vib-2s (cc1 100 :key f7 :key c1 :key a0) pfp-vib-4s (cc1 100 :key f7 :key cs1 :key a0) fp-vib (cc1 127 :key f7 :key c1 :key a0) sfz-vib (cc1 127 :key f7 :key cs1 :key a0) sffz-vib (cc1 127 :key f7 :key d1 :key a0) :group Tremolo trem-sus (:key fs7 :key c1 :key a0) trem-sus-fA-auto (:key fs7 :key cs1 :key a0) trem-sus-dyn-2s (:key fs7 :key d1 :key a0) trem-sus-dyn-3s (:key fs7 :key ds1 :key a0) :group Trills trill-1 (cc1 0 :key g7 :key c1 :key a0) trill-1-dyn (cc1 0 :key g7 :key cs1 :key a0) trill-1-acc (cc1 0 :key g7 :key d1 :key a0) trill-1-acc-dyn (cc1 0 :key g7 :key ds1 :key a0) trill-2 (cc1 127 :key g7 :key c1 :key a0) trill-2-dyn (cc1 127 :key g7 :key cs1 :key a0) trill-2-acc (cc1 127 :key g7 :key d1 :key a0) trill-2-acc-dyn (cc1 127 :key g7 :key ds1 :key a0) :group Pizzicato pizzicato (cc1 0 :key gs7 :key c1) col-legno (cc1 0 :key gs7 :key cs1) pizz-secco (cc1 80 :key gs7 :key c1) pizz-snap (cc1 127 :key gs7 :key c1) :group Harmonic-Artificial harm-art-stac (:key a7 :key c1) harm-art-sus (:key a7 :key cs1) harm-art-perf-rep (:key a7 :key d1) :group Harmonic-Natural harm-nat-sus (:key as7 :key c1 :key a0) harm-nat-perf-rep (:key as7 :key cs1 :key a0) harm-nat-gliss (:key as7 :key d1 :key a0) :group Ponticello pon-staccato (cc1 0 :key b7 :key c1 :key a0) pon-sus (cc1 0 :key b7 :key cs1 :key a0) pon-sfz (cc1 0 :key b7 :key d1 :key a0) pon-trem (cc1 0 :key b7 :key ds1 :key a0) pon-perf-rep-leg (cc1 0 :key b7 :key e1 :key a0) pon-detache (cc1 127 :key b7 :key c1 :key a0) pon-sus-fA-auto (cc1 127 :key b7 :key cs1 :key a0) pon-sffz (cc1 127 :key b7 :key d1 :key a0) pon-trem-fA-auto (cc1 127 :key b7 :key ds1 :key a0) pon-perf-rep-dyn-leg (cc1 127 :key b7 :key e1 :key a0) :group Tasto tas-staccato (cc1 0 :key c8 :key c1 :key a0) tas-sus (cc1 0 :key c8 :key cs1 :key a0) tas-sfz (cc1 0 :key c8 :key d1 :key a0) tas-trem (cc1 0 :key c8 :key ds1 :key a0) tas-detache (cc1 127 :key c8 :key c1 :key a0) tas-sus-fA-auto (cc1 127 :key c8 :key cs1 :key a0) tas-trem-fA-auto (cc1 127 :key c8 :key ds1 :key a0) :group OMN leg (:key c7) marc (:key cs7) spicc (:key d7) stacc (:key ds7 :key c1) deta (:key ds7 :key cs1) deta+vib (:key ds7 :key d1) deta+non-vib (:key ds7 :key ds1) vib (:key e7 :key c1) vib+marc (:key e7 :key cs1) non-vib (:key e7 :key f1) trem (:key fs7 :key c1 :key a0) tr1 (cc1 0 :key g7 :key c1 :key a0) tr2 (cc1 127 :key g7 :key c1 :key a0) pizz (cc1 0 :key gs7 :key c1) legno (cc1 0 :key gs7 :key cs1) secco (cc1 80 :key gs7 :key c1) snap (cc1 127 :key gs7 :key c1) harm (:key a7 :key c1 :key a0) harm2 (:key as7 :key c1 :key a0) ponte+stacc (cc1 0 :key b7 :key c1 :key a0) ponte+vib (cc1 0 :key b7 :key cs1 :key a0) ponte+deta (cc1 127 :key b7 :key c1 :key a0) ponte+trem (cc1 0 :key b7 :key ds1 :key a0) tasto+stacc (cc1 0 :key c8 :key c1 :key a0) tasto+vib (cc1 0 :key c8 :key cs1 :key a0) tasto+deta (cc1 127 :key c8 :key c1 :key a0) tasto+trem (cc1 0 :key c8 :key ds1 :key a0) ) :controllers (:group Default-Settings Pitch 0 Velocity-XF 2 Volume 7 Pan 10 Expression 11 Reverb-Dry/Wet 14 Reverb-On/Off 15 Slot-XF 20 Start-Scaler 21 Master-Attack 22 Master-Release 23 Master-Filter 24 Delay-Scaler 25 Tuning-Scaler 26 Humanize 27 Velocity-XF-On-Off 28 Rsamp-On-Off 29 Dynamics-Scaler 30 :group Pedal Ped 64 Sost-Ped 66 Una-Corda 67 :group Matrix cc1 1 ) ) Note the omn group: :group OMN leg (:key c7) marc (:key cs7) spicc (:key d7) stacc (:key ds7 :key c1) deta (:key ds7 :key cs1) deta+vib (:key ds7 :key d1) deta+non-vib (:key ds7 :key ds1) vib (:key e7 :key c1) vib+marc (:key e7 :key cs1) non-vib (:key e7 :key f1) trem (:key fs7 :key c1 :key a0) tr1 (cc1 0 :key g7 :key c1 :key a0) tr2 (cc1 127 :key g7 :key c1 :key a0) pizz (cc1 0 :key gs7 :key c1) legno (cc1 0 :key gs7 :key cs1) secco (cc1 80 :key gs7 :key c1) snap (cc1 127 :key gs7 :key c1) harm (:key a7 :key c1 :key a0) harm2 (:key as7 :key c1 :key a0) ponte+stacc (cc1 0 :key b7 :key c1 :key a0) ponte+vib (cc1 0 :key b7 :key cs1 :key a0) ponte+deta (cc1 127 :key b7 :key c1 :key a0) ponte+trem (cc1 0 :key b7 :key ds1 :key a0) tasto+stacc (cc1 0 :key c8 :key c1 :key a0) tasto+vib (cc1 0 :key c8 :key cs1 :key a0) tasto+deta (cc1 127 :key c8 :key c1 :key a0) tasto+trem (cc1 0 :key c8 :key ds1 :key a0)

Def-Instrument-Sets are sets to be used with PS function - nothing to do with sound sets. To setup sound set you need to use DEF-SOUND-SET function. In the Library directory you find many examples how to define your own sound set for your instruments.

What would be the output (values) in your example, what you are looking for. Is this what you are looking for: (<midi value> <time>) (setf data (gen-osc-data 8 (flatten (pitch-to-midi (omn :pitch convert-test))) :time '(1/2 1/4 1/12 1/12 1/12) :min 1 :max 127)) => ((34 1/2) (81 1/4) (54 1/12) (87 1/12) (1 1/12) (127 1/2) (34 1/4) (54 1/12) (54 1/12) (54 1/12) (54 1/2) (54 1/4) (54 1/12) (54 1/12) (54 1/12) (54 1/2) (54 1/4) (54 1/12) (54 1/12) (54 1/12) (54 1/2) (54 1/4) (54 1/12) (54 1/12) (54 1/12) (54 1/2) (54 1/4) (54 1/12) (54 1/12) (54 1/12) (54 1/2) (54 1/4) (54 1/12) (54 1/12) (54 1/12) (54 1/2) (54 1/4) (54 1/12) (54 1/12) (54 1/12)) Or I could add an extra keyword to allow send given values: (setf midi-values '(57 64 60 65 52 71 57 60)) (setf data (gen-osc-data 8 midi-values :time '(1/2 1/4 1/12 1/12 1/12) :values :midi :loop t)) => ((57 1/2) (64 1/4) (60 1/12) (65 1/12) (52 1/12) (71 1/2) (57 1/4) (60 1/12) (57 1/12) (64 1/12) (60 1/2) (65 1/4) (52 1/12) (71 1/12) (57 1/12) (60 1/2) (57 1/4) (64 1/12) (60 1/12) (65 1/12) (52 1/2) (71 1/4) (57 1/12) (60 1/12) (57 1/12) (64 1/2) (60 1/4) (65 1/12) (52 1/12) (71 1/12) (57 1/2) (60 1/4) (57 1/12) (64 1/12) (60 1/12) (65 1/2) (52 1/4) (71 1/12) (57 1/12) (60 1/12))

For now only VM Ware allows Opusmodus to work on other operating systems.

Have you tried CL-Collider.

:path nil will give you the shortest path In the example above the :path is '? (at random). No need to do that.

Each def-instrument-set needs its own name that's all. Copy the document, change the name of the set and start making your own setup. You can create and use as many sets as you like.

Yes, you need to create your own def-instrument-set file. To see how is done inspect the default one which you find in the Library section. Copy the default file, change the name and make you own setups to reflect your system. After please the file in the Opusmodus/Def-Libraries/Def-Instrument-Sets folder. Example: (in-package :Opusmodus) ;; VSL PS Instruments (def-instrument-set vsl :instruments (:group Wind :fl (:layout flute-layout :port 0 :channel 1 :sound 'vi-flute1 :program 0 :controllers nil :pan (pan -12) :volume 92) :afl (:layout alto-flute-layout :port 0 :channel 2 :sound 'vi-alto-flute :program 0 :controllers nil :pan (pan -12) :volume 92) :ob (:layout oboe-layout :port 0 :channel 3 :sound 'gm :program 0 :controllers nil :pan (pan 12) :volume 92) :cl (:layout clarinet-layout :port 0 :channel 4 :sound 'vi-clarinet-bb :program 0 :controllers nil :pan (pan -12) :volume 92) :bcl (:layout bass-clarinet-layout :port 0 :channel 5 :sound 'vi-bass-clarinet :program 0 :controllers nil :pan (pan -12) :volume 92) :bn (:layout bassoon-layout :port 0 :channel 6 :sound 'vi-bassoon1 :program 0 :controllers nil :pan (pan 12) :volume 92) :ssax (:layout soprano-sax-layout :port 1 :channel 1 :sound 'gm :program 0 :controllers nil :pan (pan -25) :volume 92) :asax (:layout alto-sax-layout :port 1 :channel 2 :sound 'gm :program 0 :controllers nil :pan (pan -25) :volume 92) :tsax (:layout tenor-sax-layout :port 1 :channel 3 :sound 'gm :program 0 :controllers nil :pan (pan -25) :volume 92) :bsax (:layout baritone-sax-layout :port 1 :channel 4 :sound 'gm :program 0 :controllers nil :pan (pan -25) :volume 92) :group Brass :hn (:layout horn-layout :port 2 :channel 4 :sound 'vi-viennese-horn :program 0 :controllers nil :pan (pan -25) :volume 92) :group Strings :vn (:layout violin-layout :port 3 :channel 1 :sound 'gm :program '(violin) :controllers nil :pan (pan -30) :volume 92) :vn1 (:layout violin-layout :port 3 :channel 1 :sound 'vi-violin :program '(violin) :controllers nil :pan (pan -30) :volume 92) :vn2 (:layout violin-layout :port 3 :channel 2 :sound 'vi-violin :program '(violin) :controllers nil :pan (pan -10) :volume 92) :va (:layout viola-layout :port 3 :channel 3 :sound 'vi-viola :program '(viola) :controllers nil :pan (pan 10) :volume 92) :vc (:layout violoncello-layout :port 3 :channel 4 :sound 'v-cello :program 0 :controllers nil :pan (pan 30) :volume 92) :cb (:layout contrabass-layout :port 3 :channel 5 :sound 'vi-contrabass :program 0 :controllers nil :pan (pan 0) :volume 92) :sq (:layout string-quartet-layout :port 3 :channel '(1 2 3 4) :sound '(vi-violin vi-violin vi-viola vi-cello) :program 0 :controllers nil :pan (pan '(-30 -10 10 30)) :volume 92) :group piano :grand (:layout grand-layout :port 4 :channel 1 :sound 'gm :program 0 :controllers nil :pan (pan 0) :volume 92) :p (:layout piano-layout :port 4 :channel 1 :sound 'gm :program 0 :controllers nil :pan (pan 0) :volume 92) :group percussion :mar (:layout marimba-single-layout :port 5 :channel 1 :sound 'vi-marimbaphone :program 0 :controllers nil :pan (pan 0) :volume 92) :group Choir :satb (:layout choir-satb-layout :port 6 :channel '(1 2 3 4) :sound 'gm :program nil :controllers nil :pan (pan '(-30 -10 10 30)) :volume 92) :group drum-set :ds-bd (:layout dk-bass-layout :port 7 :channel 1 :sound 'gm :program 0 :controllers nil :pan (pan 0) :volume 92) :ds-sd (:layout dk-snare-layout :port 7 :channel 2 :sound 'gm :program 0 :controllers nil :pan (pan 0) :volume 92) :ds-lt (:layout dk-low-tom-layout :port 7 :channel 3 :sound 'gm :program 0 :controllers nil :pan (pan 0) :volume 92) :ds-mt (:layout dk-mid-tom-layout :port 7 :channel 4 :sound 'gm :program 0 :controllers nil :pan (pan 0) :volume 92) :ds-ht (:layout dk-high-tom-layout :port 7 :channel 5 :sound 'gm :program 0 :controllers nil :pan (pan 0) :volume 92) :ds-hh (:layout dk-hihat-layout :port 7 :channel 6 :sound 'gm :program 0 :controllers nil :pan (pan 0) :volume 92) :ds-cc (:layout dk-crash-cymbal-layout :port 7 :channel 7 :sound 'gm :program 0 :controllers nil :pan (pan 0) :volume 92) :ds-rc (:layout dk-ride-cymbal-layout :port 7 :channel 8 :sound 'gm :program 0 :controllers nil :pan (pan 0) :volume 92) :ds-chc (:layout dk-china-cymbal-layout :port 7 :channel 9 :sound 'gm :program 0 :controllers nil :pan (pan 0) :volume 92) :ds-sc (:layout dk-splash-cymbal-layout :port 7 :channel 10 :sound 'gm :program 0 :controllers nil :pan (pan 0) :volume 92) ) ) :display :window Example: (ps 'vsl :fl (list voice1) :ob (list voice2) :bcl (list voice3) :mar (list voice4) :octave-shift t :tempo tempo :time-signature '(4 4) :title "Bruno Maderna, Serenata Per un Satellite (1969)" :display :window ) Best wishes, Janusz

Forthcoming ver. 1.4 Microtonal System OMN Syntax: Example: Best wishes, Janusz

Forthcoming ver. 1.4 Function: COUNTERPOINT