diff options
| author | Richard <richard@1bpm.net> | 2022-10-21 01:48:24 +0100 |
|---|---|---|
| committer | Richard <richard@1bpm.net> | 2022-10-21 01:48:24 +0100 |
| commit | f7354554425e17757f31d81e26789ad20df852bf (patch) | |
| tree | eae360816a2e08929d27b0824cffa4f5ea4d034c /sonics/instrument_portchord.udo | |
| parent | cd457011be1e053f154d1d78b0e733c131470dca (diff) | |
| download | csd-partialemergence-f7354554425e17757f31d81e26789ad20df852bf.tar.gz csd-partialemergence-f7354554425e17757f31d81e26789ad20df852bf.tar.bz2 csd-partialemergence-f7354554425e17757f31d81e26789ad20df852bf.zip | |
debugged, CPU usage reduced, progression formulated
Diffstat (limited to 'sonics/instrument_portchord.udo')
| -rwxr-xr-x | sonics/instrument_portchord.udo | 16 |
1 files changed, 9 insertions, 7 deletions
diff --git a/sonics/instrument_portchord.udo b/sonics/instrument_portchord.udo index 1948f6e..a6dc51a 100755 --- a/sonics/instrument_portchord.udo +++ b/sonics/instrument_portchord.udo @@ -55,21 +55,23 @@ opcode portchord_sound, aa, ippjo if (kamp != 0) then
- atime = abs(oscil(iend - istart, random(0.001, 0.1), gifnSine, random(0, 1))) + istart
+ atime = abs(oscil(iend - istart, random(0.001, 0.1), gifnSine, random(0, 1)))
+
+ atime *= idur
klfo = oscil:k(random(0.0001, 0.009), random(1, 5)) + 1
kpitch *= klfo
-
if (imode == 0) then
kpitch *= (ftsr(ifn) / sr) ; adjustment for sndwarp required
- ;apitch interp kpitch
- aL, aR sndwarpst kamp, atime, kpitch, ifn, istart, 4410, 441, 8, gifnHalfSine, 1
-
+ ; atime / 2???
+ aL, aR sndwarpst kamp, atime, interp(kpitch), ifn, istart, 4096, 128, 2, gifnHalfSine, 1
+ aL pareq aL, 90, 0.5, 0.6
+ aR pareq aR, 90, 0.5, 0.6
else
if (ichannels == 2) then
- aL, aR mincer atime, kamp, kpitch, ifn, 0, ifftsize
+ aL, aR mincer atime+istart, kamp, kpitch, ifn, 0, ifftsize
else
- aL mincer atime, kamp, kpitch, ifn, 0, ifftsize
+ aL mincer atime+istart, kamp, kpitch, ifn, 0, ifftsize
aR = aL
endif
endif
|