Jump to content

JulioHerrlein

Members
  • Content Count

    355
  • Joined

  • Last visited

About JulioHerrlein

  • Rank
    Senior Member

Contact Methods

Profile Information

  • Location
    Brasil

Recent Profile Visitors

1,489 profile views
  1. Thanks for editing the file, Janusz ! Here is some Giant Steps in 12 keys ! Best ! Julio
  2. Great ! Is there some feature about: 1) MIDI NOTE INPUT via controller keyboard ? 2) XML to OMN import ? Looks great !
  3. Thank you, Ole ! Yes, the function changed. Here is some discussion about it. Best, Julio
  4. Here are some ideas using a jazz standard progression: Best, Julio
  5. One of the most interesting features of Opusmodus is the Unfold function. Within this function you can define many ways to vary your starting material. Of course you will have to learn what each function can do, like pitch transpose, length, etc. But once you figure it out there are many possibilities. The DEF-UNFOLD-SET and UNFOLD function opens up a whole new set of possibilities for the composer using OPUSMODUS. It can prove a very powerful tool in defining methods (functions) from the outset, for a specific work or as a global index of your most used functions. To be able to store methods, processes and solutions and call them at anytime becomes a valuable resource for a composers workflow. This function is a companion to the DEF-UNFOLD-SET function.
  6. Try searching the tutorial Stages in the utilities pane. Best !
  7. Hello, Please, take a look on this: Best ! Julio
  8. Thank you, Janusz ! Great ! Julio
  9. A more specific example (pcs-super-sets 4 (pcs '3-1) :forte) ;; (4-1 4-2 4-2b 4-4 4-4b 4-5 4-5b 4-6) (pcs-super-sets 4 (pcs '3-1) :forte :complementary) ;; (all other 4 note sets, except 4-1 4-2 4-2b 4-4 4-4b 4-5 4-5b 4-6) Best, Julio
  10. Dear All, Happy New Year I´m back to a lot of work with sets, subsets and supersets and I have an idea/suggestion: When evaluating this (pcs-super-sets 7 (pcs '3-1) :forte) I get this result (7-1 7-2 7-2b 7-3 7-3b 7-4 7-4b 7-5 7-5b 7-6 7-6b 7-7 7-7b 7-8 7-9 7-9b 7-10 7-10b 7-11 7-11b 7-z12 7-13 7-13b 7-14 7-14b 7-15 7-16 7-16b 7-z17 7-z18 7-z18b 7-19 7-19b 7-20 7-20b 7-21 7-21b 7-22 7-23 7-23b 7-24 7-24b 7-25 7-25b 7-26 7-26b 7-27 7-27b 7-28 7-28b 7-29 7-29b 7-30 7-30b 7-33 7-z36 7-z36b 7-z37 7-z38 7-z38b) These are all the supersets of cardinality 7 of the 3-1 set. Would be very nice in this context to have a keyword to invert the result, i.e., actually showing the excluded sets, like all the sets that ARE NOT supersets of the 3-1 set. Like inverting, like a (pcs-non-super-sets) function. I think that maybe it´s not so difficult, because the algorythm of the function already give the result, the only thing necessary is that the function return exactly the opposite result. Best, Julio
  11. Dear Janusz, Thanks a lot ! This is great ! Exactly like my dissertation concept, expressed in thius great function ! This rocks ! All the Best. A very happy 2020 to you all ! Julio
  12. Dear Janusz, I need a little help in the rhtyhm function: Each rhythmic set can be exppressed in different quantizations, for example. Below we have the bembé rhythm (expressed by set 7-35 in rotation 11, the diatonic scale as a rhythm) as a 12/8 and also as a 4/4 with triplets In sixteenth notes: Also we can express the same set as an augmentation of the values: And event with dotted eights as the small unit: or even in quintuplets: The question is: Is there an option ( :keyword) in the opusmodus pc-rhythm function to express the sabe set using a different value for the small unit ( i.e., 8ths, 16ths notes tuplets, etc) ? All the best ! Julio
  13. Dear Torsten, Of course ! Here is the "vi-cello.lisp" file (in-package :Opusmodus) ;;;--------------------------------------------------------- ;;; VIENNA INSTRUMENTS - CELLO (keyswitches) ;;;--------------------------------------------------------- ;; Patches, keyswitches and controllers change events. (def-sound-set vi-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 stacc (:key c1 :key c1 cc1 40) stacs (:key c1 :key c1 cc1 25) ord (:key eb1 cc1 5) portato (:key cs1 cc1 5) sfz (:key e1 :key e1 cc1 25) cres (:key f1 :key f1 cc1 25) marc (:key e1 cc1 64) spicc (:key c1 cc1 120) leg (:key d1 :key d1 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 g1 :key g1 cc1 40) snap (:key d2 :key a1 cc1 80) trem (:key fs1 :key fs1 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 ) ) Here is the "vi-viola.lisp" (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 stacc (:key c1 :key c1 cc1 40) stacs (:key c1 :key c1 cc1 25) ord (:key eb1 cc1 5) portato (:key cs1 cc1 5) sfz (:key e1 :key e1 cc1 25) cres (:key f1 :key f1 cc1 25) marc (:key e1 cc1 64) spicc (:key c1 cc1 120) leg (:key d1 :key d1 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 g1 :key g1 cc1 40) snap (:key d2 :key a1 cc1 80) trem (:key fs1 :key fs1 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 ) ) "vi-violin.lisp" (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 stacc (:key c1 :key c1 cc1 40) stacs (:key c1 :key c1 cc1 25) ord (:key eb1 cc1 5) portato (:key cs1 cc1 5) sfz (:key e1 :key e1 cc1 25) cres (:key f1 :key f1 cc1 25) marc (:key e1 cc1 64) spicc (:key c1 cc1 120) leg (:key d1 :key d1 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 g1 :key g1 cc1 40) snap (:key d2 :key a1 cc1 80) trem (:key fs1 :key fs1 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 ) ) Put the three above in OPUSMODUS/Def-Soud-Sets Folder of your system Put the archive below that I named "Custom_Instrument Set.lisp in opusmodus/Def-Instrument_Sets (in-package :Opusmodus) ;;;--------------------------------------------------------- ;;; GM Instrument Set ;;;--------------------------------------------------------- (def-instrument-set gm :instruments (:group clefs :treble (:layout treble-layout :port nil :channel 2 :sound 'gm :program 0 :controllers nil :pan (pan 0) :volume 92) :alto (:layout alto-layout :port nil :channel 3 :sound 'gm :program 0 :controllers nil :pan (pan 0) :volume 92) :tenor (:layout tenor-layout :port nil :channel 4 :sound 'gm :program 0 :controllers nil :pan (pan 0) :volume 92) :bass (:layout bass-layout :port nil :channel 5 :sound 'gm :program 0 :controllers nil :pan (pan 0) :volume 92) :group Grand :grand (:layout grand-layout :port 0 :channel 1 :sound 'gm :program 0 :controllers nil :pan (pan 0) :volume 92) :group Wind :pic (:layout piccolo-layout :port nil :channel 6 :sound 'gm :program '(flute) :controllers nil :pan (pan -12) :volume 92) :fl (:layout flute-layout :port nil :channel 7 :sound 'gm :program '(flute) :controllers nil :pan (pan -12) :volume 92) :afl (:layout alto-flute-layout :port nil :channel 1 :sound 'gm :program '(flute) :controllers nil :pan (pan -12) :volume 92) :bfl (:layout bass-flute-layout :port nil :channel 1 :sound 'gm :program '(flute) :controllers nil :pan (pan -12) :volume 92) :ob (:layout oboe-layout :port nil :channel 8 :sound 'gm :program '(oboe) :controllers nil :pan (pan 12) :volume 92) :eh (:layout english-horn-layout :port nil :channel 8 :sound 'gm :program '(english-horn) :controllers nil :pan (pan 12) :volume 92) :oda (:layout oboe-d-amore-layout :port nil :channel 8 :sound 'gm :program '(oboe) :controllers nil :pan (pan 12) :volume 92) :cl (:layout clarinet-layout :port nil :channel 9 :sound 'gm :program '(clarinet) :controllers nil :pan (pan -12) :volume 92) :acl (:layout alto-clarinet-layout :port nil :channel 9 :sound 'gm :program '(clarinet) :controllers nil :pan (pan -12) :volume 92) :bcl (:layout bass-clarinet-layout :port nil :channel 9 :sound 'gm :program '(clarinet) :controllers nil :pan (pan -12) :volume 92) :bn (:layout bassoon-layout :port nil :channel 11 :sound 'gm :program '(bassoon) :controllers nil :pan (pan 12) :volume 92) :cbn (:layout contrabassoon-layout :port nil :channel 11 :sound 'gm :program '(bassoon) :controllers nil :pan (pan 12) :volume 92) :ssax (:layout soprano-sax-layout :port nil :channel 13 :sound 'gm :program '(soprano-sax) :controllers nil :pan (pan -25) :volume 92) :asax (:layout alto-sax-layout :port nil :channel 14 :sound 'gm :program '(alto-sax) :controllers nil :pan (pan -25) :volume 92) :tsax (:layout tenor-sax-layout :port nil :channel 15 :sound 'gm :program '(tenor-sax) :controllers nil :pan (pan -25) :volume 92) :bsax (:layout baritone-sax-layout :port nil :channel 16 :sound 'gm :program '(baritone-sax) :controllers nil :pan (pan -25) :volume 92) :group Brass :tpt (:layout trumpet-layout :port nil :channel 12 :sound 'gm :program '(trumpet) :controllers nil :pan (pan -12) :volume 92) :hn (:layout horn-layout :port nil :channel 13 :sound 'gm :program '(french-horn) :controllers nil :pan (pan -25) :volume 92) :tbn (:layout trombone-layout :port nil :channel 14 :sound 'gm :program '(trombone) :controllers nil :pan (pan 12) :volume 92) :tba (:layout tuba-layout :port nil :channel 15 :sound 'gm :program '(tuba) :controllers nil :pan (pan 25) :volume 92) :group Strings :vn (:layout violin-layout :port nil :channel 2 :sound 'gm :program '(violin) :controllers nil :pan (pan -30) :volume 92) :vn1 (:layout violin-layout :port nil :channel 2 :sound 'gm :program '(violin) :controllers nil :pan (pan -30) :volume 92) :vn2 (:layout violin-layout :port nil :channel 3 :sound 'gm :program '(violin) :controllers nil :pan (pan -10) :volume 92) :va (:layout viola-layout :port nil :channel 4 :sound 'gm :program '(viola) :controllers nil :pan (pan 10) :volume 92) :vc (:layout violoncello-layout :port nil :channel 5 :sound 'gm :program '(cello) :controllers nil :pan (pan 30) :volume 92) :cb (:layout contrabass-layout :port nil :channel 5 :sound 'gm :program '(Acoustic-Bass) :controllers nil :pan (pan 30) :volume 92) :group Wind-Ensemble :w3 (:layout wind-trio-layout :port nil :channel '(2 3 4) :sound 'gm :program '(flute oboe bassoon) :controllers nil :pan (pan '(-12 0 12)) :volume 92) :w4 (:layout wind-quartet-layout :port nil :channel '(2 3 4 5) :sound 'gm :program '(flute oboe clarinet bassoon) :controllers nil :pan (pan '(-30 -10 10 30)) :volume 92) :w5 (:layout wind-quintet-layout :port nil :channel '(2 3 4 5 6) :sound 'gm :program '(flute oboe clarinet french-horn bassoon) :controllers nil :pan (pan '(-12 12 -15 -25 20)) :volume 92) :group Brass-Ensemble :b3 (:layout brass-trio-layout :port nil :channel '(7 8 9) :sound 'gm :program '(trumpet trombone tuba) :controllers nil :pan (pan '(-12 0 12)) :volume 92) :b4 (:layout brass-quartet-layout :port nil :channel '(7 8 9 11) :sound 'gm :program '(trumpet 'trumpet 'trombone 'tuba) :controllers nil :pan (pan '(-30 -10 10 30)) :volume 92) :b5 (:layout brass-quintet-layout :port nil :channel '(7 8 9 11 12) :sound 'gm :program '(trumpet trumpet french-horn trombone tuba) :controllers nil :pan (pan '(-25 -12 0 12 25)) :volume 92) :group Piano :p (:layout piano-layout :port 0 :channel 1 :sound 'gm :program 0 :controllers nil :pan (pan 0) :volume 92) :pg (:layout piano-grand-layout :port nil :channel 1 :sound 'gm :program 0 :controllers nil :pan (pan 15) :volume 92) :p1 (:layout piano-layout :port nil :channel 1 :sound 'gm :program 0 :controllers nil :pan (pan -15) :volume 92) :p2 (:layout piano-layout :port nil :channel 2 :sound 'gm :program 0 :controllers nil :pan (pan 0) :volume 92) :p3 (:layout piano-layout :port nil :channel 3 :sound 'gm :program 0 :controllers nil :pan (pan 15) :volume 92) :group String-Ensemble :s3 (:layout string-trio-layout :port nil :channel '(13 14 15) :sound 'gm :program '(violin viola cello) :controllers nil :pan (pan '(-12 0 12)) :volume 92) ;;;STRING QUARTET LAYOUT - PORT 0 :sq (:layout string-quartet-layout :port 0 :channel '(1 2 5 7) :sound '(vi-violin vi-violin vi-viola vi-cello) :program 0 :controllers nil :pan (pan '(-30 -10 10 30)) :volume 92) :sq2 (:layout string-quartet-layout :port 0 :channel '(1 2 5 7) :sound 'gm :program '(violin violin viola cello) :controllers nil :pan (pan '(-30 -10 10 30)) :volume 92) :group Choir :satb (:layout choir-satb-layout :port nil :channel '(13 14 15 16) :sound 'gm :program '(Choir-Aahs) :controllers nil :pan (pan '(-30 -10 10 30)) :volume 92) :group Rhythm :rhy (:layout rhythm-layout :port nil :channel 10 :sound 'gm :program 0 :controllers nil :pan (pan 0) :volume 92) :group drum-set :ds-bd (:layout dk-bass-layout :port nil :channel 10 :sound 'gm :program 0 :controllers nil :pan (pan 0) :volume 92) :ds-sd (:layout dk-snare-layout :port nil :channel 10 :sound 'gm :program 0 :controllers nil :pan (pan 10) :volume 92) :ds-lt (:layout dk-low-tom-layout :port nil :channel 10 :sound 'gm :program 0 :controllers nil :pan (pan -15) :volume 92) :ds-mt (:layout dk-mid-tom-layout :port nil :channel 10 :sound 'gm :program 0 :controllers nil :pan (pan -8) :volume 92) :ds-ht (:layout dk-high-tom-layout :port nil :channel 10 :sound 'gm :program 0 :controllers nil :pan (pan 15) :volume 92) :ds-hh (:layout dk-hihat-layout :port nil :channel 10 :sound 'gm :program 0 :controllers nil :pan (pan 25) :volume 92) :ds-cc (:layout dk-crash-cymbal-layout :port nil :channel 10 :sound 'gm :program 0 :controllers nil :pan (pan 20) :volume 92) :ds-rc (:layout dk-ride-cymbal-layout :port nil :channel 10 :sound 'gm :program 0 :controllers nil :pan (pan -40) :volume 92) :ds-chc (:layout dk-china-cymbal-layout :port nil :channel 10 :sound 'gm :program 0 :controllers nil :pan (pan -30) :volume 92) :ds-sc (:layout dk-splash-cymbal-layout :port nil :channel 10 :sound 'gm :program 0 :controllers nil :pan (pan 30) :volume 92) ) ) If you are lucky enough, this should work... ;;;SOME MATERIAL (setf mat1 '((s c4 pp stacc d4 stacc e4 leg f4)(s c4 mp d4 sfz marc e4 leg f4)(s c4 pppp leg d4 e4 leg f4))) (ps 'gm :sq (list (pitch-transpose 11 mat1)(pitch-retrograde (pitch-transpose 7 mat1)) (pitch-transpose -5 mat1) (pitch-retrograde (pitch-transpose -10 mat1))) :key-signature 'atonal :time-signature '(2 4 1) :tempo 80 :title "STR4tetVSL" :display :window) According to the user defined setup file, the String Quartet :sq will play exactly on channels 1 (VL1) 2 (VL2) 5 (VLA) 7 (CELLO). Good Luck ! Best ! Julio
×
×
  • Create New...