diff options
| author | Richard <q@1bpm.net> | 2025-04-16 01:04:34 +0100 |
|---|---|---|
| committer | Richard <q@1bpm.net> | 2025-04-16 01:04:34 +0100 |
| commit | bda3a99797df33f8bff48960318b14a0d81c52a3 (patch) | |
| tree | ef28024823751abd4cbcb73093bb18b338628161 /site/udo/twist/transforms | |
| parent | 9fbf91db06a6d4f4b5cd8bb45389a731bb86bf22 (diff) | |
| download | apps.csound.1bpm.net-master.tar.gz apps.csound.1bpm.net-master.tar.bz2 apps.csound.1bpm.net-master.zip | |
Diffstat (limited to 'site/udo/twist/transforms')
| -rwxr-xr-x | site/udo/twist/transforms/generate.udo | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/site/udo/twist/transforms/generate.udo b/site/udo/twist/transforms/generate.udo index e7355a8..8ccdda9 100755 --- a/site/udo/twist/transforms/generate.udo +++ b/site/udo/twist/transforms/generate.udo @@ -60,7 +60,7 @@ opcode twst_tf_gensimpleadditive, a, kkkkkio endif
aosc oscili (1 / iharmonics) * kgain, (kfreq * kmultiplier)
if (index < iharmonics) then
- arec twst_tf_gensimpleadditive, min:k(kfreq * kstepmult, sr / 2), kstepmult, kampprofile, iharmonics, index + 1
+ arec twst_tf_gensimpleadditive kamp, kmultiplier, min:k(kfreq * kstepmult, sr / 2), kstepmult, kampprofile, iharmonics, index + 1
aosc += arec
endif
xout aosc * kamp
@@ -93,7 +93,7 @@ opcode twst_tf_genfeedback, a, kkkk asig += (adel * kfeedback)
asig butterbp asig, kfreq, kbw
asig butterbp asig, kfreq, kbw
- asig tanh ain
+ asig tanh asig
asig *= kpostgain
xout asig
endop
@@ -107,11 +107,11 @@ instr twst_tf_genfeedback kpostgain = twst_param:k("postgain")
kbw = twst_param:k("bandwidth")
if (ileft == 1) then
- aL twst_tf_genfeedback kfeedback, kfreq, kpostgain
+ aL twst_tf_genfeedback kfeedback, kfreq, kpostgain, kbw
aL *= kamp
endif
if (iright == 1) then
- aR twst_tf_genfeedback kfeedback, kfreq, kpostgain
+ aR twst_tf_genfeedback kfeedback, kfreq, kpostgain, kbw
aR *= kamp
endif
outs aL, aR
|