Re: [sc-users] [cadavre exquis] swee

[Julian Rohrhuber <rohrhuber@xxxxxxxxxxxxxx>]

// refolding




p = ProxySpace.push(s);

~out.play;


(
~x = { Sweep.ar(Dust.ar(2 ! 1), { rrand(1.0, 2.0) } ! 6).clip2(1.0).mean };

~y = { Sweep.ar(Dust.ar(0.5), 0.1).clip2(1.0) * 1000 };

~r1 = { Mix.ar(SinOsc.ar(Array.fill(30, { rrand(4000,18000)}),
0, Amplitude.kr(~preout.ar,0.05,0.1))) };

~r2 = { Mix.ar(SinOsc.ar(Array.fill(10,{rrand(10000,18000)}),
0, Amplitude.kr(~preout.ar,0.05, LFNoise1.kr(0.1).exprange(0.1, 0.5)))) };

(
~onoff =  { var x = ~x.ar(1);
	Decay2.ar(
		Dust.ar([1 - x, x] * ~y.ar(1) *.1 [1, 2]), 0, 0.05)
}
);

(
~preout = {
       var x = ~x.ar(1);
      
    	BPF.ar(SetResetFF.ar(* ~onoff.ar),
    		x.linexp(0, 1, 100, [1000, 19000]),
    		0.5
    	);
}
);

(
~res = {
	Resonz.ar(CombN.ar(~preout.ar(1), 1, 0.1 +
		SinOsc.kr(0.5,add:1,mul: 0.05), add: ~preout.ar(1)), 
Sweep.ar(Dust.ar(2) ,1100),
		0.5) * 10
}
);

(
~resring = {
      	var res = ~res.ar(1);
     	(res ring1: ~r1.ar(1)) +
		(Pulse.ar(LFNoise0.ar(1000,1,1000), 0.5,0.1, 1) * res 
ring2: ~r2.ar(1));
}
);

(
~the =  {
		var x = ~x.ar(1);
		SinOsc.ar(CombN.kr(x.exprange(12, 10000), 1, x))
		* Splay.ar(
      		Pulse.ar([1, 2, 3, 5, 7, 11, 13, 17, 23],
      		Array.geom(9, 0.01, 2).reverse).range(0, 1) * ~preout.ar * 3
      	).distort;
}
);

(
~out = {
	 var string = Pitch.kr(~the.ar).flop[0];
	 var onoff = ~onoff.ar;
       var targets = [
      	RunningMin.kr(string, PulseDivider.ar(onoff, [1,3,5,7,9])),
      	RunningMax.kr(string, PulseDivider.ar(onoff, [2,4,6,8]))
       ];
       var sweeps = Phasor.ar(onoff, Amplitude.kr(~res.ar(1)),
      		Select.kr(SetResetFF.ar(*onoff), targets) ).fold(5, 16000);
       Splay.ar(CombC.ar(~the.ar, 0.2, sweeps.reciprocal, 
~y.ar/100).fold2(~x.ar))
     	*
       SinOsc.ar(~r2.ar(1).linexp(-0.1, 0.1, 14, 150).max(0), ~the.ar, 1, 0);
}
);


--





.