1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
|
<?xml version="1.0"?>
<!DOCTYPE ladspa SYSTEM "ladspa-swh.dtd">
<?xml-stylesheet href="ladspa.css" type="text/css"?>
<ladspa>
<global>
<meta name="maker" value="Steve Harris <steve@plugin.org.uk>"/>
<meta name="copyright" value="GPL"/>
<meta name="properties" value="HARD_RT_CAPABLE"/>
<code><![CDATA[
#include "ladspa-util.h"
]]></code>
</global>
<plugin label="valve" id="1209" class="DistortionPlugin,SimulatorPlugin">
<name>Valve saturation</name>
<p>A model of valve (tube) distortion, lacking some of the harmonics you would get in a real tube amp, but sounds good nonetheless.</p>
<p>Taken from Ragnar Bendiksen's thesis: \url{http://www.notam02.no/~rbendiks/Diplom/Innhold.html}.</p>
<callback event="activate"><![CDATA[
itm1 = 0.0f;
otm1 = 0.0f;
]]></callback>
<callback event="run"><![CDATA[
unsigned long pos;
LADSPA_Data fx;
const float q = q_p - 0.999f;
const float dist = dist_p * 40.0f + 0.1f;
if (q == 0.0f) {
for (pos = 0; pos < sample_count; pos++) {
if (input[pos] == q) {
fx = 1.0f / dist;
} else {
fx = input[pos] / (1.0f - f_exp(-dist * input[pos]));
}
otm1 = 0.999f * otm1 + fx - itm1;
round_to_zero(&otm1);
itm1 = fx;
buffer_write(output[pos], otm1);
}
} else {
for (pos = 0; pos < sample_count; pos++) {
if (input[pos] == q) {
fx = 1.0f / dist + q / (1.0f - f_exp(dist * q));
} else {
fx = (input[pos] - q) /
(1.0f - f_exp(-dist * (input[pos] - q))) +
q / (1.0f - f_exp(dist * q));
}
otm1 = 0.999f * otm1 + fx - itm1;
round_to_zero(&otm1);
itm1 = fx;
buffer_write(output[pos], otm1);
}
}
plugin_data->itm1 = itm1;
plugin_data->otm1 = otm1;
]]></callback>
<port label="q_p" dir="input" type="control" hint="default_0">
<name>Distortion level</name>
<p>How hard the signal is driven against the limit of the amplifier.</p>
<range min="0" max="1"/>
</port>
<port label="dist_p" dir="input" type="control" hint="default_0">
<name>Distortion character</name>
<p>The hardness of the sound, low for soft, high for hard.</p>
<range min="0" max="1"/>
</port>
<port label="input" dir="input" type="audio">
<name>Input</name>
</port>
<port label="output" dir="output" type="audio">
<name>Output</name>
</port>
<instance-data label="itm1" type="LADSPA_Data"/>
<instance-data label="otm1" type="LADSPA_Data"/>
</plugin>
</ladspa>
|
