// impulse.ck
// copyright 2007 Les Hall
// experiments with creating music from the impulse response of filters

// the patch(es)
Impulse i => BPF filter => JCRev r => dac;

// set up BPF
filter.Q(1000);

while (true) {
    // randomly set the gain
    Std.rand2f(200, 500) => filter.freq;

    // pluck the string
    1000000.0 / filter.freq() => i.next;

    // advance time
    Std.rand2f(1, 5) * 100::ms => now;
}