-
Notifications
You must be signed in to change notification settings - Fork 13
/
distortion.mmb~.pd
195 lines (195 loc) · 4.63 KB
/
distortion.mmb~.pd
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
#N canvas 196 182 1118 614 10;
#X obj 79 13 inlet~;
#X obj 79 505 outlet~;
#X obj 79 96 hip~ 3;
#X obj 79 144 hip~ 600;
#X obj 79 168 hip~ 3;
#X text 109 73 upsampling factor \, to make up for lost energy;
#X obj 624 30 inlet;
#X obj 624 139 clip 0 100;
#X obj 673 204 clip 0 100;
#X obj 79 481 *~;
#X obj 624 105 route distortion tone gain interp upsample;
#X obj 624 168 s \$0-distortion;
#X obj 673 233 s \$0-tone;
#X obj 94 457 line~;
#X obj 94 432 pack f 10;
#X obj 145 410 r \$0-interp;
#X obj 94 386 r \$0-gain;
#X obj 723 136 s \$0-gain;
#X obj 773 167 max 0;
#X obj 773 193 s \$0-interp;
#X text 948 550 .mmb;
#N canvas 217 22 823 647 distortion 1;
#X obj 137 311 *~;
#X obj 257 95 / 100;
#X obj 152 173 + 100;
#X obj 152 197 dbtorms;
#X obj 301 241 -;
#X msg 301 217 \$2 \$1;
#X obj 301 185 pack f 22050;
#X obj 301 161 * 20550;
#X obj 152 150 * 27;
#X obj 429 43 r \$0-distortion;
#X obj 220 353 lop.mmb~ 22050;
#X obj 372 411 hip.mmb~ 0;
#X obj 429 383 line~;
#X obj 429 358 pack f 10;
#X obj 480 336 r \$0-interp;
#X obj 301 327 line~;
#X obj 301 302 pack f 10;
#X obj 353 280 r \$0-interp;
#X obj 152 260 line~;
#X obj 152 235 pack f 10;
#X obj 204 213 r \$0-interp;
#X obj 38 188 inlet~;
#X obj 372 534 outlet~;
#N canvas 86 22 743 382 waveshape 0;
#X obj 103 38 inlet~;
#N canvas -2 22 815 667 brickwall 0;
#X obj 83 135 inlet~;
#X obj 83 605 outlet~;
#X obj 219 208 * 0.408163;
#X text 290 207 18 kHz at sr=44.1 kHz;
#X obj 329 19 loadbang;
#X obj 329 81 samplerate~;
#X obj 406 10 r pd;
#X obj 406 33 route dsp;
#X obj 406 56 sel 1;
#X obj 220 147 / 16;
#X obj 528 105 / 44100;
#X obj 428 140 t b f;
#X obj 525 71 r \$0-over.cutoff;
#X obj 83 288 lp10_cheb~;
#X connect 0 0 13 0;
#X connect 2 0 13 1;
#X connect 4 0 5 0;
#X connect 5 0 9 0;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 8 0 5 0;
#X connect 9 0 2 0;
#X connect 10 0 11 0;
#X connect 11 0 2 0;
#X connect 11 1 2 1;
#X connect 12 0 10 0;
#X connect 13 0 1 0;
#X restore 103 72 pd brickwall;
#X text 185 71 get rid of periodized spectrum;
#X obj 103 99 tanh~;
#X text 185 131 prevent aliasing;
#X obj 103 165 outlet~;
#X obj 226 194 block~ 1024 1 16;
#X obj 565 86 s \$0-over.cutoff;
#X floatatom 571 41 0 0 0 0 - - -;
#N canvas 0 22 815 667 brickwall 0;
#X obj 83 135 inlet~;
#X obj 83 605 outlet~;
#X obj 219 208 * 0.408163;
#X text 290 207 18 kHz at sr=44.1 kHz;
#X obj 329 19 loadbang;
#X obj 329 81 samplerate~;
#X obj 406 10 r pd;
#X obj 406 33 route dsp;
#X obj 406 56 sel 1;
#X obj 220 147 / 16;
#X obj 528 105 / 44100;
#X obj 428 140 t b f;
#X obj 525 71 r \$0-over.cutoff;
#X obj 83 288 lp10_cheb~;
#X connect 0 0 13 0;
#X connect 2 0 13 1;
#X connect 4 0 5 0;
#X connect 5 0 9 0;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 8 0 5 0;
#X connect 9 0 2 0;
#X connect 10 0 11 0;
#X connect 11 0 2 0;
#X connect 11 1 2 1;
#X connect 12 0 10 0;
#X connect 13 0 1 0;
#X restore 103 132 pd brickwall;
#X connect 0 0 1 0;
#X connect 1 0 3 0;
#X connect 3 0 9 0;
#X connect 8 0 7 0;
#X connect 9 0 5 0;
#X restore 372 469 pd waveshape;
#X connect 0 0 10 0;
#X connect 1 0 7 0;
#X connect 1 0 8 0;
#X connect 2 0 3 0;
#X connect 3 0 19 0;
#X connect 4 0 16 0;
#X connect 5 0 4 0;
#X connect 6 0 5 0;
#X connect 7 0 6 0;
#X connect 8 0 2 0;
#X connect 9 0 1 0;
#X connect 9 0 13 0;
#X connect 10 0 11 0;
#X connect 11 0 23 0;
#X connect 12 0 11 1;
#X connect 13 0 12 0;
#X connect 14 0 13 1;
#X connect 15 0 10 1;
#X connect 16 0 15 0;
#X connect 17 0 16 1;
#X connect 18 0 0 1;
#X connect 19 0 18 0;
#X connect 20 0 19 1;
#X connect 21 0 0 0;
#X connect 23 0 22 0;
#X restore 79 225 pd distortion;
#N canvas 0 22 527 343 tone 0;
#X obj 102 188 xfade.mmb~;
#X obj 252 112 / 100;
#X obj 45 129 lop~ 320;
#X obj 155 133 hip~ 1160;
#X obj 243 166 line~;
#X obj 243 141 pack f 10;
#X obj 252 83 r \$0-tone;
#X obj 295 119 r \$0-interp;
#X obj 82 61 inlet~;
#X obj 102 247 outlet~;
#X connect 0 0 9 0;
#X connect 1 0 5 0;
#X connect 2 0 0 0;
#X connect 3 0 0 1;
#X connect 4 0 0 2;
#X connect 5 0 4 0;
#X connect 6 0 1 0;
#X connect 7 0 5 1;
#X connect 8 0 2 0;
#X connect 8 0 3 0;
#X restore 79 279 pd tone;
#X obj 716 19 loadbang;
#X msg 703 80 gain 1 \, distortion 0 \, tone 30;
#X text 118 120 about a 35 dB boost;
#X obj 79 120 *~ 70;
#X obj 79 73 *~ 16;
#X connect 0 0 27 0;
#X connect 2 0 26 0;
#X connect 3 0 4 0;
#X connect 4 0 21 0;
#X connect 6 0 10 0;
#X connect 7 0 11 0;
#X connect 8 0 12 0;
#X connect 9 0 1 0;
#X connect 10 0 7 0;
#X connect 10 1 8 0;
#X connect 10 2 17 0;
#X connect 10 3 18 0;
#X connect 13 0 9 1;
#X connect 14 0 13 0;
#X connect 15 0 14 1;
#X connect 16 0 14 0;
#X connect 18 0 19 0;
#X connect 21 0 22 0;
#X connect 22 0 9 0;
#X connect 23 0 24 0;
#X connect 24 0 10 0;
#X connect 26 0 3 0;
#X connect 27 0 2 0;