import("stdfaust.lib");

freq = hslider("freq",400,50,2000,0.01) : si.smoo;
f = hslider("feedback",0.99,0,1,0.01) : si.smoo;
gate = button("pluck");

string(frequency,feedback) = +~(de.fdelay4(ma.np2(1000),delayLength) : *(feedback) <: (_+_')/2)
with{
	delayLength = ma.SR/frequency-1;
};

process = gate : ba.impulsify : string(freq,f);