Tape Delay Simulation
Correctly models the tape motion and some of the smear effect, there is no simulation fo the head saturation yet, as I don't have a good model of it. When I get one I will add it.
The way the tape accelerates and decelerates gives a nicer delay effect for many purposes.
int i;
for (i = 0; i < buffer_size; i++) {
buffer[i] = 0;
}
phase = 0;
last_phase = 0;
last_in = 0.0f;
last2_in = 0.0f;
last3_in = 0.0f;
sample_rate = sample_rate;
z0 = 0.0f;
z1 = 0.0f;
z2 = 0.0f;
buffer);
]]>
1.0f ? 1.0f : lin_inc;
lin_int = 0.0f;
for (track = last_phase; track < phase; track++) {
lin_int += lin_inc;
buffer[track & buffer_mask] =
cube_interp(lin_int, last3_in, last2_in, last_in, input[pos]);
}
last3_in = last2_in;
last2_in = last_in;
last_in = input[pos];
out += input[pos] * da;
buffer_write(output[pos], out);
if (phase >= buffer_size) {
phase -= buffer_size;
}
}
// Store current phase in instance
plugin_data->phase = phase;
plugin_data->last_phase = last_phase;
plugin_data->last_in = last_in;
plugin_data->last2_in = last2_in;
plugin_data->last3_in = last3_in;
plugin_data->z0 = z0;
plugin_data->z1 = z1;
plugin_data->z2 = z2;
]]>
Tape speed (inches/sec, 1=normal)
Dry level (dB)
Tap 1 distance (inches)
Tap 1 level (dB)
Tap 2 distance (inches)
Tap 2 level (dB)
Tap 3 distance (inches)
Tap 3 level (dB)
Tap 4 distance (inches)
Tap 4 level (dB)
Input
Output