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