// Drone from the mind of ScottG, coded by Les Hall
// Copyright 2009 Les Hall

8 => int n;  // number of oscillators
40 => float fBase;  // base frequency
1 => float gainMax;  // maximum osc gain
[1, 3, 5, 7, 11, 13, 17] @=> int harmonics[];
harmonics.cap() => n;

Noise noise[n];
LPF filter[n];
SinOsc osc[n];
for (int i; i<n; i++) {
    noise[i] => filter[i] => blackhole;
    osc[i] => dac;
    1 => filter[i].freq;
    harmonics[i] * fBase => osc[i].freq;
}
adc => dac;

fun void modulate() {
    while (true) {
        for (int i; i<n; i++) {
            filter[i].last() * gainMax => osc[i].gain;
        }
        samp => now;
    }    
}
spork ~ modulate();

while (true) {
    second => now;
}