dbc223eb84
Import existing source tree; original VCS history is no longer available. 🤖 Generated with [Claude Code](https://claude.com/claude-code) Co-Authored-By: Claude <noreply@anthropic.com>
89 lines
1.2 KiB
Plaintext
89 lines
1.2 KiB
Plaintext
/////////////////////////////////////////////
|
|
// Teleport launch, short version
|
|
// Copyright (C) 2002, 2007 David Olofson
|
|
/////////////////////////////////////////////
|
|
|
|
d = .7;
|
|
|
|
w_format target, MONO16, 16000;
|
|
w_blank target, 16000*d, 0;
|
|
|
|
//noise
|
|
w_env FREQUENCY, 0, 8000;
|
|
w_env AMPLITUDE,
|
|
d*.01, .1,
|
|
d*.01, .15,
|
|
d*.01, .02,
|
|
d*.15, .03,
|
|
d*.15, .01,
|
|
d*.17, 0;
|
|
w_env MOD1, 1;
|
|
w_osc target, NOISE;
|
|
|
|
//bp filter sweep
|
|
w_env FREQUENCY,
|
|
0, 4000,
|
|
d*.1, 2000,
|
|
d*.15, 2000,
|
|
d*.01, 1000;
|
|
w_env AMPLITUDE, 0, 13;
|
|
w_env MOD1, 3;
|
|
w_filter target, BANDPASS_12;
|
|
|
|
//electro humming
|
|
w_env AMPLITUDE,
|
|
d*.01, .1,
|
|
d*.14, .3,
|
|
d*.35, .1,
|
|
d*.55, 0;
|
|
w_env FREQUENCY,
|
|
0, 59,
|
|
d*.5, 60,
|
|
d*.5, 180;
|
|
w_env MOD1,
|
|
d*.2, .7,
|
|
d*.2, 2,
|
|
d*.1, 0;
|
|
w_osc target, SINE;
|
|
|
|
//electro buzz
|
|
w_env AMPLITUDE,
|
|
d*.01, .1,
|
|
d*.14, .05,
|
|
d*.3, .1,
|
|
d*.05, .05,
|
|
d*.55, 0;
|
|
w_env FREQUENCY,
|
|
0, 59,
|
|
d*.5, 60,
|
|
d*.5, 180;
|
|
w_env MOD1,
|
|
0, .5,
|
|
d*.2, .6;
|
|
w_osc target, PULSE;
|
|
|
|
//tecno squeal
|
|
w_env AMPLITUDE,
|
|
d*.01, .03,
|
|
d*.14, .1,
|
|
d*.05, .05,
|
|
d*.8, 0;
|
|
w_env MOD1,
|
|
d*.3, 2,
|
|
d*.7, 0;
|
|
procedure ts(f0)
|
|
{
|
|
w_env FREQUENCY,
|
|
0, f0,
|
|
d*.3, f0*1.1+400,
|
|
d*.1, f0,
|
|
d*.6, f0*3;
|
|
w_osc target, SINE;
|
|
}
|
|
ts(200);
|
|
ts(700);
|
|
ts(1500);
|
|
ts(2500);
|
|
ts(4000);
|
|
ts(5000);
|