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
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
|
<?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="valveRect" id="1405" class="DistortionPlugin,SimulatorPlugin">
<name>Valve rectifier</name>
<callback event="instantiate"><![CDATA[
// Number of samples in averaging buffer
avg_size = s_rate / 9;
// Reciprocal of obove
avg_sizer = 9.0f / (float)s_rate;
// Averaging buffer
avg = calloc(avg_size, sizeof(float));
// Sum of samples in averaging buffer
avgs = 0.0f;
// Position in averaging buffer
apos = 0;
// Last value in lowpass 1
lp1tm1 = 0.0f;
// Last value in lowpass 2
lp2tm1 = 0.0f;
]]></callback>
<callback event="activate"><![CDATA[
memset(avg, 0, avg_size * sizeof(float));
avgs = 0.0f;
apos = 0;
lp1tm1 = 0.0f;
lp2tm1 = 0.0f;
]]></callback>
<callback event="cleanup"><![CDATA[
free(plugin_data->avg);
]]></callback>
<callback event="run"><![CDATA[
unsigned long pos;
float q, x, fx;
const float dist = dist_p * 40.0f + 0.1f;
for (pos = 0; pos < sample_count; pos++) {
x = fabs(input[pos]);
if (x > lp1tm1) {
lp1tm1 = x;
} else {
lp1tm1 = 0.9999f * lp1tm1 + 0.0001f * x;
}
avgs -= avg[apos];
avgs += lp1tm1;
avg[apos++] = lp1tm1;
apos %= avg_size;
lp2tm1 = 0.999f * lp2tm1 + avgs*avg_sizer * 0.001f;
q = lp1tm1 * sag - lp2tm1 * 1.02f - 1.0f;
if (q > -0.01f) {
q = -0.01f;
} else if (q < -1.0f) {
q = -1.0f;
}
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));
}
buffer_write(output[pos], fx);
}
plugin_data->lp1tm1 = lp1tm1;
plugin_data->lp2tm1 = lp2tm1;
plugin_data->avgs = avgs;
plugin_data->apos = apos;
]]></callback>
<port label="sag" dir="input" type="control" hint="default_0">
<name>Sag level</name>
<p>The level of power supply sag that will be caused by attacks.</p>
<range min="0" max="1"/>
</port>
<port label="dist_p" dir="input" type="control" hint="default_0">
<name>Distortion</name>
<p>How harsh the distortion caused by the sag will be.</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="lp1tm1" type="float" />
<instance-data label="lp2tm1" type="float" />
<instance-data label="avg" type="float *" />
<instance-data label="avg_size" type="int" />
<instance-data label="avg_sizer" type="float" />
<instance-data label="avgs" type="float" />
<instance-data label="apos" type="unsigned int" />
</plugin>
</ladspa>
|
