diff options
author | Oli <olpc@localhost.localdomain> | 2007-02-28 01:47:09 (GMT) |
---|---|---|
committer | Oli <olpc@localhost.localdomain> | 2007-02-28 01:47:09 (GMT) |
commit | ad0a0e5f5cb7584dc6e3295883a6e4a060d763b4 (patch) | |
tree | 41ea0605675eb1fb75819c8e8c8a7cd1753bad2b /Resources | |
parent | efde4e823dc4418763514e0634fc3c1393ba36d8 (diff) |
synthLabParametersWindow and track volumes
Diffstat (limited to 'Resources')
-rwxr-xr-x | Resources/Sounds/drum1chine | bin | 80044 -> 20480 bytes | |||
-rw-r--r-- | Resources/univorc.csd | 109 |
2 files changed, 62 insertions, 47 deletions
diff --git a/Resources/Sounds/drum1chine b/Resources/Sounds/drum1chine Binary files differindex 6e7580b..11d20f7 100755 --- a/Resources/Sounds/drum1chine +++ b/Resources/Sounds/drum1chine diff --git a/Resources/univorc.csd b/Resources/univorc.csd index 8b51ceb..da87a7e 100644 --- a/Resources/univorc.csd +++ b/Resources/univorc.csd @@ -622,6 +622,25 @@ zacl 0, 8 endin +/*********************** +DELETE RESOURCES +************************/ + +instr 5000 + +icount init 0 + +again: +ftfree 5000+icount, 0 +icount = icount+1 + +if icount < p4 goto again + +turnoff + +endin + + /**************************************************************** Soundfile player with tied notes ****************************************************************/ @@ -636,7 +655,13 @@ endin /************************* pitch, reverbGain, amp, pan, table, att, dec, filtType, cutoff, loopstart, loopend, crossdur *************************/ -instr 5001 +instr 5001, 5002, 5003, 5004, 5005, 5006, 5007, 5008, 5009, 5010 + +iTrackId = int(p(1)-5001) +SvolTrackName sprintf "trackVolume%0d", iTrackId +kvol chnget SvolTrackName +kvol = kvol * 0.01 +kvol port kvol, .01 idurfadein init 0.005 idurfadeout init 0.095 @@ -696,7 +721,7 @@ a1 bqrez a1, kcutoff, 6, p11-1 a1 balance a1, acomp endif -a1 = a1*kenv +a1 = a1*kenv*kvol gaoutL = a1*(1-kpan)+gaoutL gaoutR = a1*kpan+gaoutR @@ -706,49 +731,6 @@ gainrev = a1*krg+gainrev tieskip: endin -/*********************** -DELETE RESOURCES -************************/ - -instr 5000 - -icount init 0 - -again: -ftfree 5000+icount, 0 -icount = icount+1 - -if icount < p4 goto again - -turnoff - -endin - -/******************************************************************** -soundfile player for percussion - resonance notes -********************************************************************/ -instr 5002 - -a1 flooper2 1, p4, .25, .750, .2, p8 - -if (p11-1) != -1 then -acomp = a1 -a1 bqrez a1, p12, 6, p11-1 -a1 balance a1, acomp -endif - -kenv expseg 0.001, .003, .6, p3 - .003, 0.001 -klocalenv adsr p8, 0.05, .8, p10 - -a1 = a1*kenv*klocalenv - -gaoutL = a1*(1-p7)+gaoutL -gaoutR = a1*p7+gaoutR - -gainrev = a1*p5+gainrev - -endin - /************************************************************** Simple soundfile player **************************************************************/ @@ -765,7 +747,13 @@ event_i "i", p4, i2, p6, p7, p8, p9, p10, p11, p12, p13, p14 endin -instr 5003 +instr 5011, 5012, 5013, 5014, 5015, 5016, 5017, 5018, 5019, 5020 + +iTrackId = int(p(1)-5011) +SvolTrackName1 sprintf "trackVolume%0d", iTrackId +kvol chnget SvolTrackName1 +kvol = kvol * 0.01 +kvol port kvol, .01 p3 = nsamp(p8) * giScale / p4 @@ -779,7 +767,7 @@ endif kenv adsr p9, 0.05, .8, p10 -a1 = a1*kenv +a1 = a1*kenv*kvol gaoutL = a1*(1-p7)+gaoutL gaoutR = a1*p7+gaoutR @@ -788,6 +776,33 @@ gainrev = a1*p5+gainrev endin +/******************************************************************** +soundfile player for percussion - resonance notes +********************************************************************/ +instr 5021 + +a1 flooper2 1, p4, .25, .750, .2, p8 + +if (p11-1) != -1 then +acomp = a1 +a1 bqrez a1, p12, 6, p11-1 +a1 balance a1, acomp +endif + +kenv expseg 0.001, .003, .6, p3 - .003, 0.001 +klocalenv adsr p8, 0.05, .8, p10 + +a1 = a1*kenv*klocalenv + +gaoutL = a1*(1-p7)+gaoutL +gaoutR = a1*p7+gaoutR + +gainrev = a1*p5+gainrev + +endin + + + </CsInstruments> <CsScore> f1 0 8192 10 1 |