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

10 => float fBase;  // base frequency
1 => float gainMax;  // maximum osc gain
[1, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47] @=> int harmonics[];
harmonics.cap() => int n; // number of oscillators

Noise noise[n];
LPF filter[n];
SinOsc osc[n];
Gain mod;
for (int i; i<n; i++) {
    noise[i] => filter[i] => blackhole;
    osc[i] => dac;
    0.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;
        }
        1::ms => now;
    }    
}
spork ~ modulate();

while (true) {
    second => now;
}