diff options
author | Oli <olivier.belanger@umontreal.ca> | 2007-07-18 23:04:17 (GMT) |
---|---|---|
committer | Oli <olivier.belanger@umontreal.ca> | 2007-07-18 23:04:17 (GMT) |
commit | 79b3ce7fff88482831a145d7563460389f7de755 (patch) | |
tree | a3520966de0fa53ff48141b24263e374078b4e95 /Resources | |
parent | 35b82de22268990060c45d495c7f5561048577e9 (diff) |
loop settings
Diffstat (limited to 'Resources')
-rw-r--r-- | Resources/univorc.csd | 60 |
1 files changed, 60 insertions, 0 deletions
diff --git a/Resources/univorc.csd b/Resources/univorc.csd index cd29064..03689cf 100644 --- a/Resources/univorc.csd +++ b/Resources/univorc.csd @@ -720,6 +720,66 @@ turnoff endin +/************************* +Loop points editor +*************************/ +instr 5022 + +kstart chnget "lstart" +kend chnget "lend" +kdur chnget "ldur" + +idurfadein init 0.005 +idurfadeout init 0.095 +iampe0 init 1 +iampe1 = 1 +iampe2 init 1 + +itie tival +if itie == 1 igoto nofadein + +idurfadein init p9 +iampe0 init 0 +iskip = 1 + +nofadein: +iskip = 0 +igliss = 0.005 + +if p3 < 0 igoto nofadeout + +idurfadeout init p10 +iampe2 init 0 + +nofadeout: + +idelta = idurfadein+idurfadeout +if idelta > abs(p3) then +idelta = abs(p3) +endif + +iampe0 = iampe0 +iampe2 = iampe2 +kenv linseg iampe0, idurfadein, iampe1, abs(p3)-idelta, iampe1, idurfadeout, iampe2 + + +ivibRand random 4.1, 5.7 + +kvibrato oscil .006, ivibRand, 1 + + tigoto tieskip + +a1 flooper2 1, 1+kvibrato, kstart, kend, kdur, 4999, 0, 0, 0, iskip + +a1 = a1*kenv + +gaoutL = a1*0.5+gaoutL +gaoutR = a1*0.5+gaoutR + +gainrev = a1*0.1+gainrev + + tieskip: +endin /**************************************************************** Soundfile player with miniTamTam's tied notes |