Hi t_grey
Thanks for the warm welcome i feel right at home, i hope youre keeping well and safe durning the unsettling times of the covid 19 virus. forgive me if it was a bit hard to understand im still getting use to what exactly im doing
i remeber learning a bit about global effects.
ill look into impalmenting it into my code now and getting back to you.
is it possible to controll the parameters with pots on my synth ?
below i’ve left my code so you can see what exactly im doing and maybe give some feedback if you have anytime, im a super beginner and I will be presenting this code in class so I’m making sure everything i do, i understand
many thanks,
Kenan
bounds(0, 0, 0, 0)
form caption(“Kenan’s Synth”) size(700, 400), colour(220, 255, 200), pluginid(“def1”)
keyboard bounds(2, 248, 685, 95)
groupbox bounds(8, 34, 307, 91), colour(255, 255, 255, 255), fontcolour(255, 0, 0, 255) outlinecolour(0, 0, 0, 255) corners(10)
groupbox bounds(407, 32, 174, 95), colour(255, 255, 255, 255), fontcolour(255, 0, 0, 255) outlinecolour(0, 0, 0, 255) corners(10)
groupbox bounds(570, 140, 105, 99), colour(255, 255, 255, 255), fontcolour(255, 0, 0, 255) outlinecolour(0, 0, 0, 255) corners(10)
groupbox bounds(364, 142, 151, 98), colour(255, 255, 255, 255), fontcolour(255, 0, 0, 255) outlinecolour(0, 0, 0, 255) corners(10)
groupbox bounds(166, 142, 165, 99), colour(255, 255, 255, 255), fontcolour(255, 0, 0, 255) outlinecolour(0, 0, 0, 255) corners(10)
groupbox bounds(6, 136, 106, 107), colour(255, 255, 255, 255), fontcolour(255, 0, 0, 255) outlinecolour(0, 0, 0, 255) corners(10)
rslider bounds(418, 52, 76, 72), channel(“size”), range(0, 1, 0.2, 1, 0.001), text(“Room Size”), colour(255, 255, 255, 255), textcolour(0, 0, 0, 255)
rslider bounds(496, 54, 74, 72), channel(“fco”), range(1, 22000, 10000, 1, 0.001), text(“Cut-Off Freq”), colour(255, 255, 255, 255), textcolour(0, 0, 0, 255)
rslider bounds(8, 56, 81, 63), channel(“att”), range(0, 1, 0.01, 1, 0.01), text(“Attack”) textcolour(0, 0, 0, 255)
rslider bounds(80, 56, 80, 63), channel(“dec”), range(0, 1, 0.5, 1, 0.01), text(“Decay”) textcolour(0, 0, 0, 255)
rslider bounds(146, 56, 85, 64), channel(“sus”), range(0, 1, 0.5, 1, 0.01), text(“Sustain”) textcolour(0, 0, 0, 255)
rslider bounds(226, 56, 82, 65), channel(“rel”), range(0, 1, 0.55, 1, 0.01), text(“Release”) textcolour(0, 0, 0, 255)
rslider bounds(584, 162, 77, 69), channel(“gain”), range(0, 1, 0.3, 1, 0.01), text(“Volume”) textcolour(0, 0, 0, 255)
rslider bounds(368, 167, 73, 70) range(500, 20000, 10000, 1, 0.001) text(“Cutoff”) channel(“Cutoff”) colour(207, 39, 39, 255) textcolour(0, 0, 0, 255)
rslider bounds(438, 166, 71, 67) range(0, 0.9, 0, 1, 0.001) text(“Peak”) channel(“Peak”) colour(200, 51, 51, 255) textcolour(0, 0, 0, 255)
rslider bounds(170, 164, 71, 67) range(0, 10, 0, 1, 0.001) text(“Rate”) channel(“Rate”) colour(54, 74, 185, 255) textcolour(0, 0, 0, 255)
rslider bounds(242, 164, 81, 67) range(0, 1, 0.1, 1, 0.001) text(“Intensity”) channel(“Intensity”) colour(45, 61, 221, 255) textcolour(0, 0, 0, 255)
checkbox bounds(16, 172, 93, 28) text(“LFO Mod”), channel(“EnableLFO”), radiogroup(“99”) value(1) colour:1(7, 33, 130, 255) fontcolour:0(0, 0, 0, 255) fontcolour:1(0, 0, 0, 255)
checkbox bounds(16, 203, 90, 29) text(“Pitch Mod”), channel(“Enablepitch”), radiogroup(“99”) colour:1(6, 50, 123, 255) fontcolour:0(0, 0, 0, 255) fontcolour:1(0, 0, 0, 255)
label bounds(402, 144, 80, 16) text(“Filter”) fontcolour(0, 0, 0, 255)
label bounds(206, 144, 80, 16) text(“LFO”) fontcolour(0, 0, 0, 255)
label bounds(20, 138, 80, 16) text(“Mods”) fontcolour(0, 0, 0, 255)
label bounds(120, 36, 80, 16) text(“ADSR”) fontcolour(0, 0, 0, 255)
label bounds(454, 34, 80, 16) text(“Reverb”) fontcolour(0, 0, 0, 255)
-n -d -+rtmidi=NULL -M0 -m0d --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 1
iFreq =p4
iAtt chnget “att”
iDec chnget “dec”
iSus chnget “sus”
iRel chnget “rel”
kCutOff chnget “Cutoff”
kPeak chnget “Peak”
kIntense chnget “Intensity”
krate chnget “Rate”
kGain chnget “gain”
kFdBack chnget “size”
kFco chnget “fco”
kGain chnget “gain”
kEnv madsr iAtt, iDec, iSus, iRel
kLFO lfo kIntense, krate, 5
if chnget:k(“EnableLFO”) == 1 then
aVco vco2 p5kEnv, iFreq
aLp moogladder aVco, kCutOffkLFO,kPeak
else
aVco vco2 p5kEnv, iFreqkLFO+iFreq
aLp moogladder aVco, kCutOff,kPeak
endif
outs aLpkGain, aLpkGain
endin
;causes Csound to run for about 7000 years...
f0 z