sc exps

exp.scd

(
Ndef(\test, {
	var pan, snd, freq, fdbk, fold, fold_range, smooth_amount, env, dly;
	var lfo_freq = LFNoise0.kr(0.5).range(0.1, 20);
	var trig_freq = LFNoise0.kr(0.5).range(0.2, 10);
	var ftrig = Impulse.kr(LFNoise2.kr(0.3).range(0.03, 5)); 
	freq = Demand.kr(ftrig, 0, Dseq([100, 150, 300], inf)) * TChoose.kr(ftrig, [1,1.3, 1.5, 2.0, 4.0]); 
	fdbk = SinOsc.kr(lfo_freq*1.3).range(0.2, 2.3);
	fold = SinOsc.kr(lfo_freq*0.75 + SinOsc.kr(lfo_freq*1.3).range(-2, 5)).range(0, 0.5).neg;
	fold_range = SinOsc.kr(lfo_freq).range(0.3, 0.8).abs;
	smooth_amount = SinOsc.kr(lfo_freq).abs;
	snd = SmoothFoldS.ar(SinOscFB.ar(freq + SinOsc.ar(freq*1.333).range(-50, 50), fdbk), fold.neg, fold, fold_range, smooth_amount);
	pan = SinOsc.kr(lfo_freq + SinOsc.kr(lfo_freq*1.01).range(-5, 5));
	env = EnvGen.ar(Env.perc(0.5, 0.5), Impulse.kr(trig_freq + SinOsc.kr(lfo_freq).range(-8, 8)));
	snd = snd*env;
	snd = Pan2.ar(snd, pan);
	dly = [AllpassN.ar(snd[0], 1.0, 0.02, 2), 
		AllpassN.ar(snd[1], 1.0, 0.02, 2)];
	snd + dly;
}).play;
)