severak
/
falco
2
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

These k-rates and i-rates are utterly confusing concept.

This commit is contained in:
severak 2019-12-06 16:50:47 +01:00
parent 492df0bc73
commit 6d7e8025fc
1 changed files with 9 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
cabbages/dentaku.csd
View File

@ -59,42 +59,35 @@ instr 1
;
; base freq is changeable by "tempo" slider
kWaveform chnget "waveform"
iWaveform chnget "waveform"
komplex init 0
ift init -1
if changed:k(kWaveform)==1 then
reinit init
endif
init:
if kWaveform == 0 then
if iWaveform == 0 then
kpw = 11/16
kpf = 1
komplex = 0
elseif kWaveform == 1 then
elseif iWaveform == 1 then
kpw = 1/2
kpf = 2
komplex = 0
elseif kWaveform == 2 then
elseif iWaveform == 2 then
kpw = 1/2
kpf = 1
komplex = 0
elseif kWaveform == 3 then
elseif iWaveform == 3 then
komplex = 1
ift = 103
kpf = 1/2
elseif kWaveform == 4 then
elseif iWaveform == 4 then
komplex = 1
ift = 101
kpf = 1/2
elseif kWaveform == 5 then
elseif iWaveform == 5 then
komplex = 1
ift = 102
kpf = 1/2
elseif kWaveform == 6 then
elseif iWaveform == 6 then
kpw = 1/7
kpf = 1/2
komplex = 0
@ -108,7 +101,7 @@ endif
kEnv madsr .1, .2, .6, .4
printks "wav = %d kpw = %5.2f kpf = %5.2f kft = %d komplex = %d\n", 2, kWaveform, kpw, kpf, ift, komplex
printks "wav = %d kpw = %5.2f kpf = %5.2f kft = %d komplex = %d\n", 2, iWaveform, kpw, kpf, ift, komplex
if komplex == 1 then
printks "komplex %d\n", 1, ift