//----------------------------| // on-the-fly synchronization // adapted from Perry's ChucK Drummin' + Ge's sine poops // // authors: Perry Cook (prc@cs.princeton.edu) // Ge Wang (gewang@cs.princeton.edu) // --------------------| // add one by one into VM (in pretty much any order): // // terminal-1%> chuck --loop // --- // terminal-2%> chuck + otf_01.ck // (anytime later) // terminal-2%> chuck + otf_02.ck // (etc...) //--------------------------------------| // this synchronizes to period .5::second => dur T; T - (now % T) => now; // construct the patch SndBuf buf => Gain g => JCRev r => dac; me.dir() + "data/snare.wav" => buf.read; .5 => g.gain; .05 => r.mix; // where we actually want to start (in # of sample frames) 25 => int where; // time loop while( true ) { // randomize the gain a bit Math.random2f(.8,.9) => buf.gain; // note: Math.randomf() returns value between 0 and 1 if( Math.randomf() > .75 ) { 0 => int i; while( i < 8 ) { // gradually increase gain i / 8.0 => buf.gain; // set play position where => buf.pos; // advance time (1.0/8.0)::T => now; // increment loop counter i++; } while( i > 0 ) { i / 8.0 => buf.gain; where => buf.pos; (1.0/8.0)::T => now; i--; } } else { .9 => buf.gain; where => buf.pos; .25::T => now; .3 => buf.gain; where => buf.pos; .25::T => now; .3 => buf.gain; where => buf.pos; .25::T => now; .9 => buf.gain; where => buf.pos; .25::T => now; .3 => buf.gain; where => buf.pos; .25::T => now; .3 => buf.gain; where => buf.pos; .25::T => now; .9 => buf.gain; where => buf.pos; .25::T => now; .3 => buf.gain; where => buf.pos; .25::T => now; } }