-
Notifications
You must be signed in to change notification settings - Fork 13
/
Copy pathdistortion.mmb~-help.pd
277 lines (277 loc) · 7.12 KB
/
distortion.mmb~-help.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
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
#N canvas 282 22 945 598 10;
#X obj 25 12 cnv 15 400 35 empty empty distortion.mmb~ 20 12 0 14 -4160
-203904 0;
#X obj 25 48 cnv 15 400 40 empty empty empty 20 12 0 14 -203904 -66577
0;
#X text 767 509 .mmb;
#X text 487 69 no arguments;
#X msg 446 352 gain \$1;
#X text 498 352 output gain in raw amplitude. (default: 1);
#X floatatom 446 330 5 0 0 0 - - -;
#X floatatom 462 380 5 0 0 0 - - -;
#X msg 462 406 interp \$1;
#X text 529 405 interpolation time in ms when parameters are updated.
(default: 10);
#X floatatom 405 211 5 0 0 0 - - -;
#X msg 405 237 tone \$1;
#X floatatom 382 152 5 0 0 0 - - -;
#X msg 382 178 distortion \$1;
#X text 471 178 distortion amount \, range of 0-100. (default: 0);
#X text 468 49 [distortion.mmb~];
#X obj 209 523 dac~;
#X obj 200 342 readsf~;
#X text 187 166 ...or load in a soundfile;
#X obj 200 212 openpanel;
#X obj 200 186 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X text 45 48 Distortion based on the Boss DS-1 pedal.;
#X obj 446 306 dbtorms;
#X floatatom 446 263 5 0 0 0 - - -;
#X obj 446 284 + 100;
#N canvas 386 22 942 656 I.am.Ironman 0;
#N canvas 390 22 687 391 stupidstring 0;
#X obj 175 230 *~ 0.2;
#N canvas 0 22 1005 565 ks1 0;
#X obj 579 78 block~ 1;
#X obj 260 406 delwrite~ \$0-string 100;
#X obj 320 283 vd~ \$0-string;
#X obj 170 43 inlet;
#X obj 222 248 noise~;
#X obj 158 275 vline~;
#X obj 207 303 *~;
#X obj 325 455 outlet~;
#X obj 318 312 rzero~ -1;
#X obj 316 340 *~ 0.5;
#X obj 230 99 mtof;
#X obj 245 138 expr 1/$f1*1000;
#X obj 241 163 t f f;
#X floatatom 303 201 5 0 0 0 - - -;
#X floatatom 258 69 5 0 0 0 - - -;
#X msg 158 247 1 \, 0 13;
#X connect 2 0 8 0;
#X connect 3 0 10 0;
#X connect 4 0 6 1;
#X connect 5 0 6 0;
#X connect 6 0 1 0;
#X connect 8 0 9 0;
#X connect 9 0 7 0;
#X connect 9 0 1 0;
#X connect 10 0 11 0;
#X connect 11 0 12 0;
#X connect 12 0 15 0;
#X connect 12 1 2 0;
#X connect 12 1 13 0;
#X connect 14 0 10 0;
#X connect 15 0 5 0;
#X restore 112 159 pd ks1;
#X obj 175 298 outlet~;
#X obj 151 76 inlet;
#N canvas 0 22 1005 565 ks2 0;
#X obj 579 78 block~ 1;
#X obj 170 43 inlet;
#X obj 222 248 noise~;
#X obj 158 275 vline~;
#X obj 207 303 *~;
#X obj 325 455 outlet~;
#X obj 318 312 rzero~ -1;
#X obj 316 340 *~ 0.5;
#X obj 230 99 mtof;
#X obj 245 138 expr 1/$f1*1000;
#X obj 241 163 t f f;
#X obj 320 283 vd~ \$0-string2;
#X obj 260 406 delwrite~ \$0-string2 100;
#X msg 158 247 1 \, 0 13;
#X connect 1 0 8 0;
#X connect 2 0 4 1;
#X connect 3 0 4 0;
#X connect 4 0 12 0;
#X connect 6 0 7 0;
#X connect 7 0 5 0;
#X connect 7 0 12 0;
#X connect 8 0 9 0;
#X connect 9 0 10 0;
#X connect 10 0 13 0;
#X connect 10 1 11 0;
#X connect 11 0 6 0;
#X connect 13 0 3 0;
#X restore 212 159 pd ks2;
#X obj 218 130 + 0.03;
#X text 275 163 two karplus-strong synths \, one detuned to simulate
string beating;
#X connect 0 0 2 0;
#X connect 1 0 0 0;
#X connect 3 0 1 0;
#X connect 3 0 5 0;
#X connect 4 0 0 0;
#X connect 5 0 4 0;
#X restore 224 370 pd stupidstring;
#N canvas 390 22 687 391 stupidstring 0;
#X obj 175 230 *~ 0.2;
#N canvas 0 22 1005 565 ks1 0;
#X obj 579 78 block~ 1;
#X obj 170 43 inlet;
#X obj 222 248 noise~;
#X obj 158 275 vline~;
#X obj 207 303 *~;
#X obj 325 455 outlet~;
#X obj 318 312 rzero~ -1;
#X obj 316 340 *~ 0.5;
#X obj 230 99 mtof;
#X obj 245 138 expr 1/$f1*1000;
#X obj 241 163 t f f;
#X floatatom 303 201 5 0 0 0 - - -;
#X floatatom 258 69 5 0 0 0 - - -;
#X msg 158 247 1 \, 0 13;
#X obj 320 283 vd~ \$0-string3;
#X obj 260 406 delwrite~ \$0-string3 100;
#X connect 1 0 8 0;
#X connect 2 0 4 1;
#X connect 3 0 4 0;
#X connect 4 0 15 0;
#X connect 6 0 7 0;
#X connect 7 0 5 0;
#X connect 7 0 15 0;
#X connect 8 0 9 0;
#X connect 9 0 10 0;
#X connect 10 0 13 0;
#X connect 10 1 11 0;
#X connect 10 1 14 0;
#X connect 12 0 8 0;
#X connect 13 0 3 0;
#X connect 14 0 6 0;
#X restore 112 159 pd ks1;
#X obj 175 298 outlet~;
#X obj 151 76 inlet;
#N canvas 0 22 1005 565 ks2 0;
#X obj 579 78 block~ 1;
#X obj 170 43 inlet;
#X obj 222 248 noise~;
#X obj 158 275 vline~;
#X obj 207 303 *~;
#X obj 325 455 outlet~;
#X obj 318 312 rzero~ -1;
#X obj 316 340 *~ 0.5;
#X obj 230 99 mtof;
#X obj 245 138 expr 1/$f1*1000;
#X obj 241 163 t f f;
#X msg 158 247 1 \, 0 13;
#X obj 320 283 vd~ \$0-string4;
#X obj 260 406 delwrite~ \$0-string4 100;
#X connect 1 0 8 0;
#X connect 2 0 4 1;
#X connect 3 0 4 0;
#X connect 4 0 13 0;
#X connect 6 0 7 0;
#X connect 7 0 5 0;
#X connect 7 0 13 0;
#X connect 8 0 9 0;
#X connect 9 0 10 0;
#X connect 10 0 11 0;
#X connect 10 1 12 0;
#X connect 11 0 3 0;
#X connect 12 0 6 0;
#X restore 212 159 pd ks2;
#X obj 218 130 + 0.03;
#X text 275 163 two karplus-strong synths \, one detuned to simulate
string beating;
#X connect 0 0 2 0;
#X connect 1 0 0 0;
#X connect 3 0 1 0;
#X connect 3 0 5 0;
#X connect 4 0 0 0;
#X connect 5 0 4 0;
#X restore 364 370 pd stupidstring;
#X obj 188 211 qlist;
#X obj 224 439 *~ 1;
#X msg 224 124 rewind \, bang;
#X obj 301 419 noise~;
#X text 365 443 electric guitars are noisy;
#X obj 301 443 *~ 0.0003;
#X obj 262 253 r pitches;
#X obj 262 281 unpack f f;
#X obj 136 27 inlet;
#X obj 136 52 sel 0 1;
#X msg 132 162 rewind;
#X msg 316 54 clear \, add 0 pitches 45 52 \, add 1000 pitches 48 55
\, add 1000 pitches 48 55 \, add 500 pitches 50 57 \, add 500 pitches
50 57 \, add 1000 pitches 53 60 \, add 250 pitches 52 59 \, add 250
pitches 53 60 \, add 250 pitches 52 59 \, add 250 pitches 53 60 \,
add 250 pitches 52 59 \, add 250 pitches 48 55 \, add 500 pitches 48
55 \, add 500 pitches 50 57 \, add 500 pitches 50 57 \, add 1000 \,
tempo 1.07;
#X obj 316 29 loadbang;
#X obj 224 471 +~;
#X obj 204 502 *~;
#X obj 212 539 outlet~;
#X msg 75 308 0 100;
#X obj 75 334 vline~;
#X obj 130 136 delay 100;
#X obj 190 74 t b b;
#X msg 139 112 stop;
#X msg 129 309 1 1;
#X obj 364 327 - 0.02;
#X connect 0 0 3 0;
#X connect 1 0 3 0;
#X connect 2 1 4 0;
#X connect 3 0 15 0;
#X connect 4 0 2 0;
#X connect 5 0 7 0;
#X connect 7 0 15 1;
#X connect 8 0 9 0;
#X connect 9 0 0 0;
#X connect 9 1 24 0;
#X connect 10 0 11 0;
#X connect 11 0 20 0;
#X connect 11 0 18 0;
#X connect 11 1 21 0;
#X connect 12 0 2 0;
#X connect 13 0 2 0;
#X connect 14 0 13 0;
#X connect 15 0 16 1;
#X connect 16 0 17 0;
#X connect 18 0 19 0;
#X connect 19 0 16 0;
#X connect 20 0 12 0;
#X connect 21 0 4 0;
#X connect 21 0 23 0;
#X connect 21 1 22 0;
#X connect 22 0 20 0;
#X connect 23 0 19 0;
#X connect 24 0 1 0;
#X restore 63 175 pd I.am.Ironman;
#X obj 309 520 env~;
#X floatatom 309 544 5 0 0 0 - - -;
#X obj 63 140 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X text 90 137 play string synth...;
#X obj 200 254 symbol;
#X msg 200 283 open \$1 \, 1;
#X msg 152 285 stop;
#X msg 150 226 bang;
#X text 457 237 tone control \, range of 0-100. (default: 30);
#X obj 211 467 distortion.mmb~;
#X connect 4 0 35 1;
#X connect 6 0 4 0;
#X connect 7 0 8 0;
#X connect 8 0 35 1;
#X connect 10 0 11 0;
#X connect 11 0 35 1;
#X connect 12 0 13 0;
#X connect 13 0 35 1;
#X connect 17 0 35 0;
#X connect 17 1 30 0;
#X connect 19 0 30 0;
#X connect 20 0 19 0;
#X connect 22 0 6 0;
#X connect 23 0 24 0;
#X connect 24 0 22 0;
#X connect 25 0 35 0;
#X connect 26 0 27 0;
#X connect 28 0 25 0;
#X connect 30 0 31 0;
#X connect 31 0 17 0;
#X connect 32 0 17 0;
#X connect 33 0 30 0;
#X connect 35 0 16 0;
#X connect 35 0 16 1;
#X connect 35 0 26 0;