Synthesises an approximation of the sound of a hearbeat

heartbt.ck

int bpm;
// set the beats per minute here
60 => bpm;

// this signal flow approximates the timbre shown at:
// http://www.bsignetics.com/cases/ASD.ht65.gif
Noise n => HPF h => LPF l => ADSR e => dac;
int third;
int twothird;
60000/bpm/3 => third;
third*2 => twothird;

// sets the params of the filters and the envelope generator
70 => h.freq;
l.set(150,1);
e.set(1::ms,100::ms,0,0::ms);

while(true){
    e.keyOff();
    e.keyOn();
    third::ms => now;
    e.keyOff();
    e.keyOn();
    twothird::ms => now;
}