// Binaural Tones version cos(sin(pi)) // Beta15 to Alpha8 // do Not use this (or any other similar audio/video etc) application // while driving or if you are epileptic or having cardiac problems SinOsc r => dac.right; SinOsc l => dac.left; .05 => l.gain => r.gain; // Starting freqs -Here we start with 288,303 resulting in a low-beta of 15Hz 288 => r.freq; 303 => l.freq; // Some vars we need 1 => int t; 0 => int end => int i; .0 => float y; time l8r; // Every about z*100ms we de/increase one of the freqs by 'y' to de/increase the binaural beat 273/9 => float z; // ~3sec [12.00, 10.00, 8.00] @=> float dfreq[]; // Stay for 'time2stay' seconds on this frequencies 10::second => dur time2stay; // How long to stay on a dfreq while(!end){ 100::ms=>now; r.freq() + .1 => r.freq; l.freq() + .1-y => l.freq; if (t > z){.1=>y; 1=>t;} else {.0 => y; t+1=>t;} <<>>; if (l.freq() - r.freq() <= dfreq[i]){ now + time2stay => l8r; l8r => now; if (inow; r.freq() - .1 => r.freq; l.freq() - .1+y => l.freq; if (t > z){ .1=>y; 1=>t;} else {.0 => y; t+1=>t;} <<>>; } 1 => end; } } }