JulioHerrlein
-
Posts
814 -
Joined
-
Last visited
Content Type
Forums
Events
Store
Video Gallery
Posts posted by JulioHerrlein
-
-
Dear Friends,
I´m interested in the 4-note combinations of the diatonic scale without repeating elements.
(combination2 4 '(c3 d3 e3 f3 g3 a3 b3))The filter-repeat and the remove-duplicates are not giving the right result.
PARTIAL RESULT,,, combination2, size: 4 ((b3 b3 b3 b3) (a3 b3 b3 b3) (g3 b3 b3 b3) (f3 b3 b3 b3) (e3 b3 b3 b3) (d3 b3 b3 b3) (c3 b3 b3 b3) (b3 a3 b3 b3) (a3 a3 b3 b3) (g3 a3 b3 b3) (f3 a3 b3 b3) (e3 a3 b3 b3) (d3 a3 b3 b3) (c3 a3 b3 b3) (b3 g3 b3 b3) (a3 g3 b3 b3) (g3 g3 b3 b3) (f3 g3 b3 b3) (e3 g3 b3 b3) (d3 g3 b3 b3) (c3 g3 b3 b3) (b3 f3 b3 b3) (a3 f3 b3 b3) (g3 f3 b3 b3) (f3 f3 b3 b3) (e3 f3 b3 b3) (d3 f3 b3 b3) (c3 f3 b3 b3) (b3 e3 b3 b3) (a3 e3 b3 b3) (g3 e3 b3 b3) (f3 e3 b3 b3) (e3 e3 b3 b3) (d3 e3 b3 b3) (c3 e3 b3 b3) (b3 d3 b3 b3) (a3 d3 b3 b3) (g3 d3 b3 b3) (f3 d3 b3 b3) (e3 d3 b3 b3) (d3 d3 b3 b3) (c3 d3 b3 b3) (b3 c3 b3 b3) (a3 c3 b3 b3) (g3 c3 b3 b3) (f3 c3 b3 b3) (e3 c3 b3 b3) (d3 c3 b3 b3) (c3 c3 b3 b3) (b3 b3 a3 b3) (a3 b3 a3 b3) (g3 b3 a3 b3) (f3 b3 a3 b3) (e3 b3 a3 b3) (d3 b3 a3 b3) (c3 b3 a3 b3) (b3 a3 a3 b3) (a3 a3 a3 b3) (g3 a3 a3 b3) (f3 a3 a3 b3) (e3 a3 a3 b3) (d3 a3 a3 b3) (c3 a3 a3 b3) (b3 g3 a3 b3) (a3 g3 a3 b3) (g3 g3 a3 b3) (f3 g3 a3 b3) (e3 g3 a3 b3) (d3 g3 a3 b3) (c3 g3 a3 b3) (b3 f3 a3 b3) (a3 f3 a3 b3)I want to filter OUT the sets like
((b3 b3 b3 b3) (a3 b3 b3 b3) (g3 b3 b3 b3) (f3 b3 b3 b3) (e3 b3 b3 b3) (d3 b3 b3 b3)
With one or more repeating notes.
Best,
Julio
-
Very nice ! Some Messiaen touch.
-
Thanks a lot, Janusz !!
Julio
-
-
Thank you, Ole !
Yes, the function changed.
Here is some discussion about it.
Best,
Julio
-
Here are some ideas using a jazz standard progression:
Best,
Julio
-
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.
-
-
Hello,
Please, take a look on this:
Best !
Julio
-
Thank you, Janusz !
Great !
Julio
-
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
-
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
-
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
-
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
-
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 ) )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
On 12/17/2019 at 9:18 PM, JulioHerrlein said:;;;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)
exactly on channels 1 (VL1) 2 (VL2) 5 (VLA) 7 (CELLO).
Good Luck !
Best !
Julio
-
Dear Torsten,
Some of the graphs above imply the concept of parsimounious voice leading among four-note chords also, as an extension of the classic operations (P,L,R) to the domain of the tetrachords.
best,
Julio
-
Dear Janusz,
This is a really cool feature I was looking for !
There is a lot of interesting transformations and graphs related to this subject, like this, compiled by my friend Ciro Visconti, who studied with Straus:
THE FAMOUS "CUBE DANCE"
PARSIMONIOUS TRANSFORMATIONS OF 4-NOTE CHORDS
BORETZ SPIDER
POWER TOWERS
And so on, all related to the basic tonnetz transformations.
A good idea is thinking how to model also four note structures.
All the best !
Julio
-
On 11/23/2019 at 7:47 AM, opmo said:
Use positive values only.
'(1 -1) could go for ever
Yes, like looping. Thanks.
On 11/23/2019 at 6:44 AM, AM said:a speculation...
example 1: because the SUM is 0!! so it will never go up to 'e6
example 2: sum is 1, it will work
Yes, thank you.
-
-
This caused a hanging (not responding) crash. I don´t know why...
THIS CRASHES
(setf padrao '(7 -1 -5 4 -3 2 12 -16)) (setf pitches (gen-sieve '(c4 e6) padrao :type :pitch))THIS DON´T CRASH
(setf padrao '(7 -1 -5 4 -3 2 12 -15)) (setf pitches (gen-sieve '(c4 e6) padrao :type :pitch)) -
;; MATERIAL (setf mat1 '((e d4 stacc gs4 stacc e5 stacc - - pizz a4 - pizz cs4 marc d4 -) (-s - - - gs4 leg e5 a4 pizz cs4 d4 ord) (-s - marc gs4 e5 stacc a4 cs4 d4 pizz - -) (s gs4 - - e5 - a4 cs4 d4 -) (-s d3 - - eb3 d3 - a3))) (setf violin1 (ambitus 'violin (pitch-transpose 12 mat1))) (setf violin2 (ambitus 'violin (gen-retrograde (pitch-transpose 7 mat1)))) (setf viola (ambitus 'viola (gen-rotate -3 (pitch-transpose -5 mat1)))) (setf violoncello (ambitus 'violoncello (gen-rotate 0 (pitch-transpose -12 mat1)))) (setf ts (get-time-signature violin1)) ;;--------------------------------------------------------- ;; SCORE and LAYOUT ;;--------------------------------------------------------- (def-score string-quartet (:title "String Quartet" :composer "acme" :copyright "test VSL artic" :key-signature 'chromatic :time-signature ts :tempo 100 :layout (string-quartet-layout 'violin1 'violin2 'viola 'violoncello)) (violin1 :omn violin1 :port 0 :channel 1 :sound 'vi-violin :program 0 :volume 100 :pan 44 :controllers (91 '(48)) ) (violin2 :omn violin2 :port 0 :channel 2 :sound 'vi-violin :program 0 :volume 100 :pan 54 :controllers (91 '(48)) ) (viola :omn viola :port 0 :channel 5 :sound 'vi-viola :program 0 :volume 90 :pan 74 :controllers (91 '(60)) ) (violoncello :omn violoncello :port 0 :channel 7 :sound 'vi-cello :program 0 :volume 90 :pan 84 :controllers (91 '(60)) ) ) (init-seed nil)My last unsuccessful try, with DEF-SCORE.
Same as above: right channel, right port, right sounds, no keyswitches.
Best,
Julio
-
Dear Janusz,
The articulation control work with the ps function (preview score) ? Or just in def-score ?
In ps function I´m not getting the keyswitches to work. Everything worked fine, the channels, the port and it´s sending to the right place. Just no keyswitches.
Best,
Julio
-
Thanks, Janusz
This is handy when you want to use the simple sounds of computer motherboard.
Best,
Julio
-
Thanks, Janusz !
Looks very clear !
I´ll try it.
Best !
Julio
Combination without repeating elements
in Function Examples
Posted
Thank you ! I will try it !
Best,
Julio