Submit
Browse
Anonymous
Login
RSS
SuperCollider Code
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
This synth is a mix between isochronic and binaural braiwave entrainment. If you run it in a stereo speaker (or headphone), it will work fine but you will only hear half of the channels. Once you run it, you can scroll your mouse in both XY directions for generating different effects: X is the frequency of the isochronic tone, Y is the depth of the isochronic pulse. Feel free to modify the effect, or plug your favorite midi controller. The Synth has two beat parameters for the binaural beat frequencies, each of the four channels has a different frequency inducing several effects in the acoustic space. Feel free to modify the \beat1 and \beat2 parameters. The choice of frequencies follows the "Mystic Solfeggio" which is meant to bring a positive vibration to the body and spirit. One thing is for sure, they are very adictive and watch out their psychoactive effect!
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
signup to submit public code without captcha
comment of change