examples\otf_04.ck
//----------------------------|
// 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;

// one period offset
T => now;

// construct the patch
SndBuf buf => Gain g => dac;
// read in from file
me.dir() + "data/snare-hop.wav" => buf.read;
// set the gain
.6 => g.gain;

// where we actually want to start (in # of sample frames)
100 => 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() > .25 )
    {
        // set play position to 'where'
        where => buf.pos;
        // advance time
        2::T => now;
    }
    else
    {
        where => buf.pos;
        .75::T => now;

        .8 => buf.gain;
        where => buf.pos;
        1.25::T => now;
    }
}
home .. language .. program .. examples