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>
53 lines
1.0 KiB
Plaintext
53 lines
1.0 KiB
Plaintext
/////////////////////////////////////////////
|
|
// Phatt Pad 2
|
|
// Copyright (C) David Olofson, 2002
|
|
/////////////////////////////////////////////
|
|
|
|
wid = target;
|
|
|
|
w_format wid, MONO16, 33488;
|
|
w_blank wid, 33488, 1;
|
|
|
|
// The exact desired frequency is 523.25 Hz,
|
|
// but as we need a perfect loop, we'll round
|
|
// all frequencies so that we get integer
|
|
// numbers of periods per loop.
|
|
|
|
w_env AMPLITUDE,
|
|
0, .15,
|
|
.25, .25,
|
|
.5, .25,
|
|
.25, .15;
|
|
w_env MOD1,
|
|
0, 0,
|
|
.5, .1,
|
|
.5, 0;
|
|
w_env FREQUENCY, 519;
|
|
w_osc wid, TRIANGLE;
|
|
w_env FREQUENCY, 521;
|
|
w_osc wid, TRIANGLE;
|
|
|
|
w_env MOD1,
|
|
0, 0,
|
|
.2, .2,
|
|
.3, .07,
|
|
.3, .15,
|
|
.2, 0;
|
|
w_env FREQUENCY, 523;
|
|
w_osc wid, TRIANGLE;
|
|
w_env FREQUENCY, 526;
|
|
w_osc wid, TRIANGLE;
|
|
|
|
p_param target, WAVE, wid;
|
|
p_param target, DRIVER, POLY;
|
|
p_param target, ENV_SKIP, 1;
|
|
p_param target, ENV_L0, 0;
|
|
p_param target, ENV_DELAY, 0;
|
|
p_param target, ENV_T1, .001;
|
|
p_param target, ENV_L1, 1;
|
|
p_param target, ENV_HOLD, .05;
|
|
p_param target, ENV_T2, .1;
|
|
p_param target, ENV_L2, .6;
|
|
p_param target, ENV_T3, -1;
|
|
p_param target, ENV_T4, .02;
|