Fork Code: Quadriphonic Isochronic and Binaural Brainwave Machine

name

code content

//Synth definition
(
SynthDef(
	\isochronic,
	{
		arg freq1=97.94, freq2=136.1, freq3=174, freq4=285, freq5=396, freq6=417,
		freq7=432, freq8=528, freq9=639, freq10=741, freq11=852, freq12=963, beat1=2.6, beat2=3.9,
		amp1=0.0, amp2=0.0, amp3=0.0, amp4=0.0, amp5=0.0, amp6=0.0, amp7=0.0, amp8=0.0,
		amp9=0.0, amp10=0.0, amp11=0.0, amp12=0.0, amp=0.0, out=0, isofreq=1, width=0.5;
		var sin1, sin2, sin3, sin4, sin5, sin6, sin7, sin8, sin9, sin10, sin11, sin12, brainmix, isochronic;
		sin1=SinOsc.ar([freq1-(beat1/2),freq1-beat1,freq1+(beat1/2),freq1+beat1],
			0,amp1,0);
		sin2=SinOsc.ar([freq2-(beat2/2),freq2-beat2,freq2+(beat2/2),freq2+beat2],
			0,amp2,0);
		sin3=SinOsc.ar([freq3-(beat1/2),freq3-beat1,freq3+(beat1/2),freq3+beat1],
			0,amp3,0);
		sin4=SinOsc.ar([freq4-(beat2/2),freq4-beat2,freq4+(beat2/2),freq4+beat2],
			0,amp4,0);
		sin5=SinOsc.ar([freq5-(beat1/2),freq5-beat1,freq5+(beat1/2),freq5+beat1],
			0,amp5,0);
		sin6=SinOsc.ar([freq6-(beat2/2),freq6-beat2,freq6+(beat2/2),freq6+beat2],
			0,amp6,0);
		sin7=SinOsc.ar([freq7-(beat1/2),freq7-beat1,freq7+(beat1/2),freq7+beat1],
			0,amp7,0);
		sin8=SinOsc.ar([freq8-(beat2/2),freq8-beat2,freq8+(beat2/2),freq8+beat2],
			0,amp8,0);
		sin9=SinOsc.ar([freq9-(beat1/2),freq9-beat1,freq9+(beat1/2),freq9+beat1],
			0,amp9,0);
		sin10=SinOsc.ar([freq10-(beat2/2),freq10-beat2,freq10+(beat2/2),freq10+beat2],
			0,amp10,0);
		sin11=SinOsc.ar([freq11-(beat1/2),freq11-beat1,freq11+(beat1/2),freq11+beat1],
			0,amp11,0);
		sin12=SinOsc.ar([freq12-(beat2/2),freq12-beat2,freq12+(beat2/2),freq12+beat2],
			0,amp12,0);
		isochronic=LFPulse.ar(MouseX.kr(1,60,'linear'),0,MouseY.kr(0.01,1,'linear'),amp,0).lag(0.01);
		//isochronic=LFPulse.ar(isofreq,0,width,amp,0).lag(0.001);
		brainmix=Mix.new([sin1, sin2, sin3, sin4, sin5, sin6, sin7, sin8, sin9, sin10, sin11, sin12]*isochronic);
		Out.ar(out,brainmix, 0, 1);
	}
).add
)

//Run Synth
~isobrainmachine = Synth(\isochronic,[\out,0,\amp,0.5, \amp1,0.24, \amp2,0.22, \amp3,0.20, \amp4,0.18, \amp5,0.17, \amp6,0.16, \amp7,0.14, \amp8,0.13, \amp9,0.12, \amp10,0.11, \amp11,0.1, \amp12,0.1,\beat1,2.6,\beat2,3.9]);

//Modify parameter
~isobrainmachine.set(\beat1,1.3);

//Stop Synth
~isobrainmachine.free;

code description use markdown for formating

category tags comma separated, i.g. "wild, siren" (do not enter default SC class names, please)

ancestor(s) comma separated identificators, i.g. "1-C,1-1,1-4M,1-x"

Private? the code will be accessible by direct url and not visible in public activity

comment of change