1/////////////////////////////////////////////
2// Metallic 7
3// Copyright (C) 2007, David Olofson
4/////////////////////////////////////////////
5
6w_format target, MONO16, 48000;
7w_blank target, 48000, 0;
8
9procedure cr(f, r)
10{
11	w_env FREQUENCY,
12			0,	4.5*f,
13			.01,	4*f;
14	w_env MOD1,
15			0,	r*.8,
16			.01,	r,
17			.99,	r*.9;
18	w_env MOD2,
19			0,	1,
20			.02,	.5,
21			.08,	.3,
22			.2,	.05,
23			.8,	0;
24	w_osc target, ASPECTRUM;
25}
26
27w_env AMPLITUDE,
28		0,	.1,
29		.1,	.05,
30		.2,	.02,
31		.2,	.005,
32		.2,	.00125,
33		.3,	0;
34
35cr 170, 1.3;
36cr 270, 1.07;
37cr 275, 1.09;
38cr 560, 1.2;
39cr 565, 1.3;
40cr 773, 1.35;
41cr 800, 1.15;
42
43w_env AMPLITUDE,
44		0,	.5,
45		.1,	.1,
46		.1,	0,
47		.01,	.2,
48		.1,	.04,
49		.1,	0,
50		.01,	.1,
51		.1,	.02,
52		.1,	0,
53		.01,	.05,
54		.1,	.01,
55		.1,	0,
56		.01,	.025,
57		.1,	.005,
58		.06,	0;
59w_env MOD1,
60		0,	2,
61		.5,	3,
62		.5,	0;
63w_env FREQUENCY,
64		0,	50,
65		1,	40;
66w_osc target, SINE;
67