aboutsummaryrefslogtreecommitdiff
path: root/nusmuk_audio/distortion~.pd
blob: e5a70647c8d7a1fbc656f5253521cd2b680f2b77 (plain)
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
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
#N canvas 188 64 622 419 10;
#X obj 30 129 +~ 5000;
#X obj 29 27 inlet~;
#X obj 31 153 tabread4~ \$0-disto;
#X obj 160 29 inlet~;
#X obj 29 102 *~;
#X obj 160 49 *~ 5000;
#X obj 160 129 +~ 5000;
#X obj 160 153 tabread4~ \$0-disto;
#X obj 30 229 outlet~;
#X obj 294 298 table \$0-disto 10000;
#X obj 31 197 /~;
#X obj 160 71 +~ 100;
#N canvas 27 440 450 300 sqrt 0;
#X obj 20 63 t b b;
#X obj 20 159 f;
#X obj 63 159 + 1;
#X msg 47 136 0;
#X obj 20 104 until;
#X obj 20 44 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 20 219 - 0.5;
#X obj 20 259 t f f f;
#X obj 39 280 *;
#X obj 39 300 + 1;
#X obj 39 320 sqrt;
#X obj 20 340 /;
#X obj 20 239 * 20;
#X obj 20 199 / 9999;
#X msg 20 83 10000;
#X obj 20 179 t f f;
#X obj 20 360 tabwrite \$0-disto;
#X obj 20 18 inlet;
#X connect 0 0 14 0;
#X connect 0 1 3 0;
#X connect 1 0 2 0;
#X connect 1 0 15 0;
#X connect 2 0 1 1;
#X connect 3 0 1 1;
#X connect 4 0 1 0;
#X connect 5 0 0 0;
#X connect 6 0 12 0;
#X connect 7 0 11 0;
#X connect 7 1 8 0;
#X connect 7 2 8 1;
#X connect 8 0 9 0;
#X connect 9 0 10 0;
#X connect 10 0 11 1;
#X connect 11 0 16 0;
#X connect 12 0 7 0;
#X connect 13 0 6 0;
#X connect 14 0 4 0;
#X connect 15 0 13 0;
#X connect 15 1 16 1;
#X connect 17 0 5 0;
#X restore 313 169 pd sqrt;
#X obj 313 151 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#N canvas 0 0 640 460 sigmoid 0;
#X obj 23 59 t b b;
#X obj 23 148 f;
#X obj 61 148 + 1;
#X msg 50 125 0;
#X obj 23 102 until;
#X obj 23 40 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 23 213 - 0.5;
#X obj 23 276 - 0.5;
#X obj 23 298 * 2;
#X obj 23 319 tabwrite \$0-disto;
#X msg 23 81 10000;
#X obj 23 192 / 9999;
#X obj 23 234 * 30;
#X obj 23 171 t f f;
#X obj 23 255 expr ( exp($f1)) / ( 1 + exp($f1));
#X obj 23 15 inlet;
#X connect 0 0 10 0;
#X connect 0 1 3 0;
#X connect 1 0 2 0;
#X connect 1 0 13 0;
#X connect 2 0 1 1;
#X connect 3 0 1 1;
#X connect 4 0 1 0;
#X connect 5 0 0 0;
#X connect 6 0 12 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 10 0 4 0;
#X connect 11 0 6 0;
#X connect 12 0 14 0;
#X connect 13 0 11 0;
#X connect 13 1 9 1;
#X connect 14 0 7 0;
#X connect 15 0 5 0;
#X restore 298 131 pd sigmoid;
#X obj 298 112 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#N canvas 0 0 739 509 x_over_xplus 0;
#X obj 17 58 t b b;
#X obj 17 141 f;
#X obj 55 141 + 1;
#X msg 44 118 0;
#X obj 17 96 until;
#X obj 17 39 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 17 315 /;
#X obj 44 269 abs;
#X obj 44 248 * 2;
#X obj 17 208 - 0.5;
#X obj 44 290 + 0.1;
#X msg 17 77 10000;
#X obj 17 189 / 9999;
#X obj 17 359 tabwrite \$0-disto;
#X obj 17 337 * 2;
#X obj 17 228 t f f;
#X obj 17 167 t f f;
#X obj 17 16 inlet;
#X connect 0 0 11 0;
#X connect 0 1 3 0;
#X connect 1 0 2 0;
#X connect 1 0 16 0;
#X connect 2 0 1 1;
#X connect 3 0 1 1;
#X connect 4 0 1 0;
#X connect 5 0 0 0;
#X connect 6 0 14 0;
#X connect 7 0 10 0;
#X connect 8 0 7 0;
#X connect 9 0 15 0;
#X connect 10 0 6 1;
#X connect 11 0 4 0;
#X connect 12 0 9 0;
#X connect 14 0 13 0;
#X connect 15 0 6 0;
#X connect 15 1 8 0;
#X connect 16 0 12 0;
#X connect 16 1 13 1;
#X connect 17 0 5 0;
#X restore 328 214 pd x_over_xplus;
#X obj 328 194 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#N canvas 0 0 588 371 poly 0;
#X obj 16 14 inlet;
#X obj 16 55 t b b;
#X obj 16 140 f;
#X obj 54 140 + 1;
#X msg 43 117 0;
#X obj 16 98 until;
#X obj 16 36 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 16 209 - 0.5;
#X obj 16 253 expr exp(-$f1*$f1)*($f1+pow($f1 \, 3)*2/3 + pow($f1 \,
5)*4/15);
#X obj 16 275 tabwrite \$0-disto;
#X obj 16 188 / 9999;
#X msg 16 76 10000;
#X obj 16 165 t f f;
#X obj 16 231 * 2;
#X connect 0 0 6 0;
#X connect 1 0 11 0;
#X connect 1 1 4 0;
#X connect 2 0 3 0;
#X connect 2 0 12 0;
#X connect 3 0 2 1;
#X connect 4 0 2 1;
#X connect 5 0 2 0;
#X connect 6 0 1 0;
#X connect 7 0 13 0;
#X connect 8 0 9 0;
#X connect 10 0 7 0;
#X connect 11 0 5 0;
#X connect 12 0 10 0;
#X connect 12 1 9 1;
#X connect 13 0 8 0;
#X restore 345 258 pd poly;
#X obj 345 238 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 298 32 inlet;
#X obj 298 84 sel 0 1 2 3;
#X msg 337 54 0;
#X obj 337 32 loadbang;
#X connect 0 0 2 0;
#X connect 1 0 4 0;
#X connect 2 0 10 0;
#X connect 3 0 5 0;
#X connect 4 0 0 0;
#X connect 5 0 11 0;
#X connect 6 0 7 0;
#X connect 7 0 10 1;
#X connect 10 0 8 0;
#X connect 11 0 4 1;
#X connect 11 0 6 0;
#X connect 13 0 12 0;
#X connect 15 0 14 0;
#X connect 17 0 16 0;
#X connect 19 0 18 0;
#X connect 20 0 21 0;
#X connect 21 0 15 0;
#X connect 21 1 13 0;
#X connect 21 2 17 0;
#X connect 21 3 19 0;
#X connect 22 0 21 0;
#X connect 23 0 22 0;