1/////////////////////////////////////////////
2// Explo 6
3// Copyright (C) 2007 David Olofson
4/////////////////////////////////////////////
5
6w_format target, MONO16, 24000;
7w_blank target, 24000*4, 0;
8
9procedure f(tp, f0, res)
10{
11	w_env FREQUENCY, f0;
12	w_env AMPLITUDE, res;
13	w_filter target, tp;
14}
15
16// Rumble
17w_env AMPLITUDE, .5;
18w_env FREQUENCY, 150;
19w_osc target, NOISE;
20
21f LOWPASS_12, 150, 5;
22
23// Crackle
24w_env AMPLITUDE, .5;
25w_env FREQUENCY, 300;
26w_osc target, NOISE;
27w_env FREQUENCY, 50;
28w_osc target, NOISE;
29
30// Attack
31w_env AMPLITUDE,
32		0,	.5,
33		.5,	.1,
34		3,	0;
35w_env FREQUENCY, 6000;
36w_osc target, NOISE;
37w_env FREQUENCY, 2000;
38w_osc target, NOISE;
39
40// Mod
41w_env AMPLITUDE, 1;
42w_env FREQUENCY, 25;
43w_env BALANCE,
44		0,	.7,
45		1.5,	.2;
46w_osc target, NOISE, MUL;
47
48// Resonances
49f PEAK_12, 45, 5;
50f PEAK_12, 110, 12;
51f PEAK_12, 220, 15;
52f PEAK_12, 400, 7;
53f PEAK_12, 600, 3;
54f PEAK_12, 1100, 2;
55f PEAK_12, 1900, 4;
56f PEAK_12, 3200, 3;
57
58// Treble damping
59w_env FREQUENCY,
60		0,	24000,
61		.5,	6000,
62		1.25,	1500;
63w_filter target, LOWPASS_6;
64w_env FREQUENCY, 60;
65w_env AMPLITUDE, 1;
66w_env MOD1,
67		0,	1,
68		.5,	.5,
69		1,	.3,
70		2.5,	.1;
71w_filter target, LOWPASS_12;
72
73w_env AMPLITUDE,
74		0, 	1,
75		2,	.8,
76		1,	.2,
77		1,	0;
78w_gain target;
79