diff options
| author | Oli <olpc@localhost.localdomain> | 2007-03-05 08:58:15 (GMT) |
|---|---|---|
| committer | Oli <olpc@localhost.localdomain> | 2007-03-05 08:58:15 (GMT) |
| commit | 41f7c5caddcb579abfdeb8c071d964145eb9e42f (patch) | |
| tree | c2119f9f6b87097d3e3169391c485a01924f2509 /Resources | |
| parent | 6bd5a3bdfbb5b2e134e335e7aa7df59d52c82e45 (diff) | |
sounds vs instruments bug fix
Diffstat (limited to 'Resources')
| -rw-r--r-- | Resources/univorc.csd | 29 |
1 files changed, 28 insertions, 1 deletions
diff --git a/Resources/univorc.csd b/Resources/univorc.csd index 91e6311..5d2ec56 100644 --- a/Resources/univorc.csd +++ b/Resources/univorc.csd @@ -797,10 +797,35 @@ kvol chnget SvolTrackName1 kvol = kvol * 0.01 kvol port kvol, .01 -if p3 == 0 then p3 = nsamp(p8) * giScale / p4 + +a1 loscil p6, p4, p8, 1 + +if (p11-1) != -1 then +acomp = a1 +a1 bqrez a1, p12, 6, p11-1 +a1 balance a1, acomp endif +kenv adsr p9, 0.05, .8, p10 + +a1 = a1*kenv*kvol + +gaoutL = a1*(1-p7)+gaoutL +gaoutR = a1*p7+gaoutR + +gainrev = a1*p5+gainrev + +endin + +instr 5111, 5112, 5113, 5114, 5115, 5116, 5117, 5118, 5119, 5120 + +iTrackId = int(p1-5111) +SvolTrackName3 sprintf "trackVolume%0d", iTrackId +kvol chnget SvolTrackName3 +kvol = kvol * 0.01 +kvol port kvol, .01 + a1 loscil p6, p4, p8, 1 if (p11-1) != -1 then @@ -820,6 +845,8 @@ gainrev = a1*p5+gainrev endin + + /******************************************************************** soundfile player for percussion - resonance notes ********************************************************************/ |