square_with_delay.dsp

declare options "[nvoices:8]";

import("stdfaust.lib");

freq = hslider("freq",100,0,100000,0.01);
gain = hslider("gain",0,0,1,0.0001) : si.smoo;
gate = checkbox("gate");
bend = hslider("bend[0][midi:pitchwheel]",1,0,2,0.001);
atk = hslider("atk[1][midi:ctrl 112]",0.1,0,1,0.001) : si.smoo;
dec = hslider("dec[2][midi:ctrl 113]",0.1,0,1,0.001) : si.smoo;
sus = hslider("sus[3][midi:ctrl 114]",1,0,1,0.001) : si.smoo;
rel = hslider("rel[4][midi:ctrl 115]",0.1,0,1,0.001) : si.smoo;
cut = hslider("cut[midi:ctrl 74]",10000,50,18000,1) : si.smoo;
reson = hslider("reson",1,0,50,0.01) : si.smoo;

deltime = hslider("delayTime", 0.25, 0, 5, 0.01);
delamt = hslider("delayAmount", 0, 0, 0.99, 0.01) : si.smoo;

del = hgroup("Delay", + ~ (@(deltime * ma.SR) : *(delamt)));

process = os.square(freq*bend) * hgroup("Envelope",en.adsr(atk,dec,sus,rel,gate)) : hgroup("Filter",fi.resonlp(cut,reson,gain)) : del : /(8) <: _,_;