# JulioHerrlein

Members

348

• #### Last visited

• Rank
Senior Member

• Website URL

• Location
Brasil

## Recent Profile Visitors

1,372 profile views

1. ## Score Examples

Try searching the tutorial Stages in the utilities pane. Best !
2. ## MIDI import?

Hello, Please, take a look on this: Best ! Julio
3. ## PCS Sets Sugestion

Thank you, Janusz ! Great ! Julio
4. ## PCS Sets Sugestion

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
5. ## PCS Sets Sugestion

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
6. ## Idea for a Rhythmic Set Theory Function

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
7. ## Idea for a Rhythmic Set Theory Function

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
8. ## OLD VSL Gig Files articulations

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
9. ## Neo-Riemannian approach (Tonnetz, etc.)

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
10. ## Neo-Riemannian approach (Tonnetz, etc.)

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
11. ## Bizarre hanging on function gen-sieve (probably loop)

Yes, like looping. Thanks. Yes, thank you.
12. ## OLD VSL Gig Files articulations

Finally I had success !! Thank you. My old .gig VSL have the keyswitches in the C1 octave, instead of C2. I had to edit the files you provided. Best, Julio
13. ## Bizarre hanging on function gen-sieve (probably loop)

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))
14. ## OLD VSL Gig Files articulations

;;;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 unsucessful try, with def-score. Same as above: right channel, right port, right sounds, no keyswitches. Best, Julio
15. ## OLD VSL Gig Files articulations

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
×

• Lessons