Radiobutton not selecting one or other, error Morg Konotron – Csound Noobs
form caption("Morg Konotron") size(500, 240), colour(255,255,255), pluginId("def1")
keyboard bounds(6, 130, 498, 100)
groupbox bounds(110, 4, 195, 115), text("Filter"), colour(0,0,0,0), outlinecolour(40,40,40)
groupbox bounds(310, 4, 195, 115), text("LFO"), colour(0,0,0,0), outlinecolour(40,40,40)
groupbox bounds(7, 4, 106, 115), text("Modulator"), colour(0,0,0,0), outlinecolour(40,40,40)
rslider bounds(116, 26, 90, 90) channel("cutoff") range(1, 20000, 10000, 1, 0.001), text("CutOff"), channel("cutoff")
rslider bounds(206, 24, 90, 90) channel("peak") range(0, 1, 0, 1, 0.001), text("Peak"), channel("peak")
rslider bounds(306, 24, 90, 90) channel("rate") range(0, 10, 0, 1, 0.001), text("Rate"), channel("rate")
rslider bounds(406, 24, 90, 90) channel("intensity") range(0, 1, 0, 1, 0.001), text("Intensity"), channel("intensity")
checkbox bounds(12, 32, 100, 30), text("LFO Mod"), channel("enableLFO"), radiogroup(99) value(1) colour:1(17, 212, 17, 255)
checkbox bounds(12, 62, 100, 30), text("Pitch Mod"), channel("enablePitch") radiogroup(99) colour:1(20, 217, 20, 255)
-n -d -+rtmidi=NULL -M0 --midi-key-cps=4 --midi-velocity-amp=5
; Initialize the global variables.
ksmps = 4
nchnls = 2
0dbfs = 1
;instrument will be triggered by keyboard widget
instr SimpleSynth, 1
iFreq = p4
kEnv madsr .1, .2, .7, .4
kLFO lfo chnget:k("intensity"), chnget:k("rate"), 5
if chnget:k("enableLFO") == 1 then
aVco vco2 p5*kEnv, iFreq
aLp moogladder aVco, chnget:k("cutoff")*kLFO, chnget:k("peak")
else
aVco vco2 p5*kEnv, (iFreq*kLFO)+iFreq
aLp moogladder aVco, chnget:k("cutoff")*kLFO, chnget:k("peak")
endif
outs aLp, aLp
endin
;causes Csound to run for about 7000 years...
f0 z
Read more here: Source link
