rtsetparams(44100, 2)
load("IIR")

srand()

amp = 1000
ampenv = maketable("line", 1000, 0, 0, 1,1, 2,0.2, 4,0)

st = 0
dice = random()
if (dice < 0.5) type = 0
else if (dice < 0.7) type = 1
else type = 2

if (type == 0) bw = 0.34
else bw = 0.01

nswells = irand(4, 7)
for (i = 0; i < nswells; i += 1) {
	dur = irand(17, 25)
	basepch = 9.07 + irand(0, 0.15)
	dev = 0.0
	for (j = 0; j < 20; j += 1) {
		ampenv = maketable("line", 1000, 0, 0, 1,1, irand(1.1, 1.4),irand(0.3, 0.6), irand(1.5, 1.8),irand(0.5, 1.0), 2,0)
		freq = cpspch(basepch + dev)
		setup(freq, bw*freq, 1)
		NOISE(st, dur, amp*ampenv, random())
		if ((type == 0) || (type == 1)) dev += irand(0.005, 0.015)
		else {
			dice = random()
			if (dice < 0.2) dev += 0.01
			else if (dice < 0.4) dev += 0.02
			else if (dice < 0.6) dev += 0.03
			else if (dice < 0.8) dev += 0.04
			else dev += 0.05
		}
		st += 1/20
	}
	st += irand(7, 14)
}