// shows sporking three shreds

// spork!
spork ~ stooge( 100::ms );
spork ~ stooge( 101::ms );
spork ~ stooge( 99::ms );

// needed to keep children shreds alive
while( true )
{
  // advance time
  1::second => now;
}

// stooge method
fun void stooge( dur T )
{
  // impulse to filter to dac
  Impulse i => BiQuad f => dac;
  // set the filter's pole radius
  .99 => f.prad; 
  // set equal gain zeros
  1 => f.eqzs;
  // initialize float variable
  0.0 => float v;
  // set filter gain
  .5 => f.gain;
  
  // infinite time-loop   
  while( true )
  {
    // set the current sample/impulse
    1.0 => i.next;
    // sweep the filter resonant frequency
    Std.fabs(Math.sin(v)) * 4000.0 => f.pfreq;
    // increment v
    v + .1 => v;
    // advance time
    T => now;
  }
}