// copyright 2007 Les Hall
// This software is released under the GNU General Protective License
// An attempt at thunder fro kijjaz, modified by myself somewhat
class kjz_thunder {
// Main sound source
Noise s1 => LPF f1 => Gain env1 => SinOsc overdrive1 => LPF f1_1 => NRev rev1 => Gain go;
f1.set(160, .5);
f1_1.set(120, .5);
3 => env1.op;
1 => overdrive1.sync;
.1 => rev1.mix;
.3 => rev1.gain;

// Amp envelope
Impulse i2 => Gain g2_1 => Gain g2_1_fb => g2_1 => Gain g2_2 => Gain g2_2_fb => g2_2 => LPF f2 => env1;
f2.set(3, 1);
.992 => g2_1_fb.gain => g2_2_fb.gain;
80 => f2.gain;
}
kjz_thunder T;
T.go => dac;

while(true) {
    T.go.gain(10*(maybe+maybe+maybe));
    T.i2.next(1);

    while(maybe*maybe) {
        2::second => now;
    }
    while(maybe*maybe) {
        2::second => now;
    }
    while(maybe*maybe) {
        2::second => now;
    }
    2::second => now;
}