1/////////////////////////////////////////////
2// Explo 1 B - Short version
3// Copyright (C) 2007 David Olofson
4/////////////////////////////////////////////
5
6w_format target, MONO16, 16000;
7w_blank target, 16000, 0;
8
9procedure ax(a)
10{
11	w_env AMPLITUDE,
12			0,	a,
13			.5,	a/2,
14			.5,	0;
15}
16
17procedure f(tp, f0, res)
18{
19	w_env FREQUENCY, f0;
20	w_env AMPLITUDE, res;
21	w_filter target, tp;
22}
23
24// Rumble
25ax .3;
26w_env FREQUENCY, 130;
27w_osc target, NOISE;
28f LOWPASS_12, 80, 2;
29
30// Crackle
31ax .8;
32w_env FREQUENCY, 350;
33w_osc target, NOISE;
34
35// Attack
36ax .4;
37w_env FREQUENCY, 5000;
38w_osc target, NOISE;
39
40// Mod
41w_env AMPLITUDE, 1;
42w_env FREQUENCY, 70;
43w_env BALANCE, 1;
44w_osc target, NOISE, MUL;
45
46// Resonances
47f PEAK_12, 40, 11;
48f PEAK_12, 220, 8;
49f PEAK_12, 900, 2;
50f PEAK_12, 1100, 3;
51f PEAK_12, 2700, 4;
52
53// Treble damping
54w_env FREQUENCY,
55		0,	16000,
56		.2,	4000,
57		.8,	1000;
58w_filter target, LOWPASS_6;
59w_env FREQUENCY, 150;
60w_env AMPLITUDE, 3;
61w_env MOD1,
62		0,	1,
63		.2,	.4,
64		.8,	0;
65w_filter target, LOWPASS_12;
66
67w_env AMPLITUDE,
68		0, 	1,
69		.5,	1,
70		.5,	0;
71w_gain target;
72