-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathmodulator8.pd
More file actions
333 lines (333 loc) · 10.6 KB
/
modulator8.pd
File metadata and controls
333 lines (333 loc) · 10.6 KB
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
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
#N canvas 67 93 414 447 12;
#X obj 44 61 vsl 12 52 0.1 0.5 0 0 \$0-int1 \$0-int1init int 0 -9 0 8 #ff8300 #000000 #000000 0 1;
#X obj 26 61 vsl 12 52 0.01 0.1 0 0 \$0-frq1 \$0-frq1init frq 0 -9 0 8 #ffe3c6 #000000 #000000 0 1;
#X obj 84 61 vsl 12 52 0.1 0.5 0 0 \$0-int2 \$0-int2init int 0 -9 0 8 #00ff04 #000000 #000000 0 1;
#X obj 66 61 vsl 12 52 0.01 0.1 0 0 \$0-frq2 \$0-frq2init frq 0 -9 0 8 #c6ffc7 #000000 #000000 0 1;
#X obj 124 61 vsl 12 52 0.1 0.5 0 0 \$0-int3 \$0-int3init int 0 -9 0 8 #ff0400 #000000 #000000 0 1;
#X obj 106 61 vsl 12 52 0.01 0.1 0 0 \$0-frq3 \$0-frq3init frq 0 -9 0 8 #ffc7c6 #000000 #000000 0 1;
#X obj 164 61 vsl 12 52 0.1 0.5 0 0 \$0-int4 \$0-int4init int 0 -9 0 8 #9c00ff #000000 #000000 0 1;
#X obj 146 61 vsl 12 52 0.01 0.1 0 0 \$0-frq4 \$0-frq4init frq 0 -9 0 8 #e3c6ff #000000 #000000 0 1;
#X obj 201 401 outlet~;
#X text 24 382 Author: Martin Heinze, f 22;
#N canvas 155 378 1039 427 distro 0;
#X obj 7 55 s \$0-frq1init;
#X obj 7 101 s \$0-frq2init;
#X obj 7 147 s \$0-frq3init;
#X obj 7 193 s \$0-frq4init;
#X obj 7 78 s \$0-int1init;
#X obj 7 124 s \$0-int2init;
#X obj 7 170 s \$0-int3init;
#X obj 7 215 s \$0-int4init;
#X obj 7 31 unpack f f f f f f f f f f f f f f f f;
#X obj 7 238 s \$0-frq5init;
#X obj 7 261 s \$0-int5init;
#X obj 7 284 s \$0-frq6init;
#X obj 7 307 s \$0-int6init;
#X obj 7 330 s \$0-frq7init;
#X obj 7 353 s \$0-int7init;
#X obj 7 376 s \$0-frq8init;
#X obj 7 398 s \$0-int8init;
#X obj 297 7 r \$0-rand;
#X obj 297 31 expr random(1 \, 10) * 0.01 \; random(10 \, 50) * 0.01 \; random(1 \, 10) * 0.01 \; random(10 \, 50) * 0.01 \; random(1 \, 10) * 0.01 \; random(10 \, 50) * 0.01 \; random(1 \, 10) * 0.01 \; random(10 \, 50) * 0.01 \; random(1 \, 10) * 0.01 \; random(10 \, 50) * 0.01 \; random(1 \, 10) * 0.01 \; random(10 \, 50) * 0.01 \; random(1 \, 10) * 0.01 \; random(10 \, 50) * 0.01 \; random(1 \, 10) * 0.01 \; random(10 \, 50) * 0.01, f 44;
#X obj 297 265 pack f f f f f f f f f f f f f f f f, f 44;
#X obj 7 7 r \$0-params;
#X obj 297 289 s \$0-params;
#X obj 297 318 r \$0-reset;
#X msg 297 340 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0;
#X obj 376 7 loadbang;
#X obj 297 362 s \$0-params;
#X obj 619 31 expr random(10 \, 50) * 0.01 \; random(10 \, 50) * 0.01 \; random(10 \, 50) * 0.01 \; random(10 \, 50) * 0.01 \; random(10 \, 50) * 0.01 \; random(10 \, 50) * 0.01 \; random(10 \, 50) * 0.01 \; random(10 \, 50) * 0.01 \;;
#X obj 619 319 s \$0-int8init;
#X obj 619 295 s \$0-int7init;
#X obj 619 271 s \$0-int6init;
#X obj 619 247 s \$0-int5init;
#X obj 619 223 s \$0-int4init;
#X obj 619 199 s \$0-int3init;
#X obj 619 175 s \$0-int2init;
#X obj 619 151 s \$0-int1init;
#X obj 619 7 r \$0-randint;
#X obj 822 7 r \$0-randfrq;
#X obj 822 31 expr random(1 \, 10) * 0.01 \; random(1 \, 10) * 0.01 \; random(1 \, 10) * 0.01 \; random(1 \, 10) * 0.01 \; random(1 \, 10) * 0.01 \; random(1 \, 10) * 0.01 \; random(1 \, 10) * 0.01 \; random(1 \, 10) * 0.01 \;;
#X obj 822 151 s \$0-frq1init;
#X obj 822 175 s \$0-frq2init;
#X obj 822 199 s \$0-frq3init;
#X obj 822 223 s \$0-frq4init;
#X obj 822 247 s \$0-frq5init;
#X obj 822 271 s \$0-frq6init;
#X obj 822 295 s \$0-frq7init;
#X obj 822 319 s \$0-frq8init;
#X connect 8 0 0 0;
#X connect 8 1 4 0;
#X connect 8 2 1 0;
#X connect 8 3 5 0;
#X connect 8 4 2 0;
#X connect 8 5 6 0;
#X connect 8 6 3 0;
#X connect 8 7 7 0;
#X connect 8 8 9 0;
#X connect 8 9 10 0;
#X connect 8 10 11 0;
#X connect 8 11 12 0;
#X connect 8 12 13 0;
#X connect 8 13 14 0;
#X connect 8 14 15 0;
#X connect 8 15 16 0;
#X connect 17 0 18 0;
#X connect 18 0 19 0;
#X connect 18 1 19 1;
#X connect 18 2 19 2;
#X connect 18 3 19 3;
#X connect 18 4 19 4;
#X connect 18 5 19 5;
#X connect 18 6 19 6;
#X connect 18 7 19 7;
#X connect 18 8 19 8;
#X connect 18 9 19 9;
#X connect 18 10 19 10;
#X connect 18 11 19 11;
#X connect 18 12 19 12;
#X connect 18 13 19 13;
#X connect 18 14 19 14;
#X connect 18 15 19 15;
#X connect 19 0 21 0;
#X connect 20 0 8 0;
#X connect 22 0 23 0;
#X connect 23 0 25 0;
#X connect 24 0 18 0;
#X connect 26 0 34 0;
#X connect 26 1 33 0;
#X connect 26 2 32 0;
#X connect 26 3 31 0;
#X connect 26 4 30 0;
#X connect 26 5 29 0;
#X connect 26 6 28 0;
#X connect 26 7 27 0;
#X connect 35 0 26 0;
#X connect 36 0 37 0;
#X connect 37 0 38 0;
#X connect 37 1 39 0;
#X connect 37 2 40 0;
#X connect 37 3 41 0;
#X connect 37 4 42 0;
#X connect 37 5 43 0;
#X connect 37 6 44 0;
#X connect 37 7 45 0;
#X restore 201 129 pd distro;
#X obj 204 61 vsl 12 52 0.1 0.5 0 0 \$0-int5 \$0-int5init int 0 -9 0 8 #faff00 #000000 #000000 0 1;
#X obj 186 61 vsl 12 52 0.01 0.1 0 0 \$0-frq5 \$0-frq5init frq 0 -9 0 8 #feffc6 #000000 #000000 0 1;
#X obj 244 61 vsl 12 52 0.1 0.5 0 0 \$0-int6 \$0-int6init int 0 -9 0 8 #00faff #000000 #000000 0 1;
#X obj 226 61 vsl 12 52 0.01 0.1 0 0 \$0-frq6 \$0-frq6init frq 0 -9 0 8 #c6feff #000000 #000000 0 1;
#X obj 284 61 vsl 12 52 0.1 0.5 0 0 \$0-int7 \$0-int7init int 0 -9 0 8 #0400ff #000000 #000000 0 1;
#X obj 266 61 vsl 12 52 0.01 0.1 0 0 \$0-frq7 \$0-frq7init frq 0 -9 0 8 #c7c6ff #000000 #000000 0 1;
#X obj 324 61 vsl 12 52 0.1 0.5 0 0 \$0-int8 \$0-int8init int 0 -9 0 8 #9f9f9f #000000 #000000 0 1;
#X obj 306 61 vsl 12 52 0.01 0.1 0 0 \$0-frq8 \$0-frq8init frq 0 -9 0 8 #ffffff #000000 #000000 0 1;
#X text 24 312 modulator8 is a simple 8 channel sine lfo for use with lateefah_mod abstraction., f 22;
#X obj 124 27 bng 14 250 50 0 \$0-reset \$0-resetinit Res 16 7 0 8 #ffffff #000000 #000000;
#X obj 160 27 bng 14 250 50 0 \$0-rand \$0-randinit Rand/All 16 7 0 8 #dfdfdf #000000 #000000;
#X obj 278 27 bng 14 250 50 0 \$0-randint \$0-randintinit Rand/Int 16 7 0 8 #9f9f9f #000000 #000000;
#X obj 218 27 bng 14 250 50 0 \$0-randfrq \$0-randfrqinit Rand/Frq 16 7 0 8 #7c7c7c #000000 #000000;
#X obj 27 27 tgl 14 0 \$0-proctgl \$0-proctglinit Proc 16 7 0 8 #000000 #ffffff #000000 0 1;
#X obj 26 177 loadbang;
#X obj 26 201 f \$0;
#X obj 343 59 hradio 14 1 0 2 \$0-setosc \$0-setoscdummy ~\ \ Λ 4 -6 0 8 #ffffff #9c00ff #000000 0;
#X obj 26 129 inlet;
#X obj 26 153 s \$0-phreset;
#N canvas 96 136 1202 223 oscillators 0;
#X obj 243 114 r \$0-int1;
#X obj 211 61 osc~;
#X obj 247 61 phasor~;
#X obj 211 84 *~;
#X obj 247 84 *~;
#X obj 18 27 r \$0-setosc;
#X obj 18 51 expr if($f1 == 0 \, 1 \, 0) \; if($f1 == 1 \, 1 \, 0);
#X obj 1077 19 r \$0-phreset;
#X msg 1077 42 0, f 1;
#X obj 211 138 *~, f 5;
#X obj 211 165 snake~ 8, f 110;
#X obj 320 61 osc~;
#X obj 356 61 phasor~;
#X obj 320 84 *~;
#X obj 356 84 *~;
#X obj 320 138 *~, f 5;
#X obj 352 114 r \$0-int2;
#X obj 430 61 osc~;
#X obj 466 61 phasor~;
#X obj 430 84 *~;
#X obj 466 84 *~;
#X obj 430 138 *~, f 5;
#X obj 539 61 osc~;
#X obj 575 61 phasor~;
#X obj 539 84 *~;
#X obj 575 84 *~;
#X obj 539 138 *~, f 5;
#X obj 462 114 r \$0-int3;
#X obj 571 114 r \$0-int4;
#X obj 649 61 osc~;
#X obj 685 61 phasor~;
#X obj 649 84 *~;
#X obj 685 84 *~;
#X obj 649 138 *~, f 5;
#X obj 758 61 osc~;
#X obj 794 61 phasor~;
#X obj 758 84 *~;
#X obj 794 84 *~;
#X obj 758 138 *~, f 5;
#X obj 868 61 osc~;
#X obj 904 61 phasor~;
#X obj 868 84 *~;
#X obj 904 84 *~;
#X obj 868 138 *~, f 5;
#X obj 978 61 osc~;
#X obj 1014 61 phasor~;
#X obj 978 84 *~;
#X obj 1014 84 *~;
#X obj 978 138 *~, f 5;
#X obj 681 114 r \$0-int5;
#X obj 790 114 r \$0-int6;
#X obj 900 114 r \$0-int7;
#X obj 1010 114 r \$0-int8;
#X obj 211 189 outlet~;
#X text 15 89 Switch between cosine and sawtooth oscillator., f 24;
#X obj 211 38 r \$0-frq1;
#X obj 320 38 r \$0-frq2;
#X obj 430 38 r \$0-frq3;
#X obj 539 38 r \$0-frq4;
#X obj 649 38 r \$0-frq5;
#X obj 758 38 r \$0-frq6;
#X obj 868 38 r \$0-frq7;
#X obj 978 38 r \$0-frq8;
#X connect 0 0 9 1;
#X connect 1 0 3 0;
#X connect 2 0 4 0;
#X connect 3 0 9 0;
#X connect 4 0 9 0;
#X connect 5 0 6 0;
#X connect 6 0 3 1;
#X connect 6 0 13 1;
#X connect 6 0 46 1;
#X connect 6 0 41 1;
#X connect 6 0 36 1;
#X connect 6 0 31 1;
#X connect 6 0 24 1;
#X connect 6 0 19 1;
#X connect 6 1 4 1;
#X connect 6 1 14 1;
#X connect 6 1 47 1;
#X connect 6 1 42 1;
#X connect 6 1 37 1;
#X connect 6 1 32 1;
#X connect 6 1 25 1;
#X connect 6 1 20 1;
#X connect 7 0 8 0;
#X connect 8 0 2 1;
#X connect 8 0 1 1;
#X connect 8 0 11 1;
#X connect 8 0 17 1;
#X connect 8 0 18 1;
#X connect 8 0 22 1;
#X connect 8 0 23 1;
#X connect 8 0 45 1;
#X connect 8 0 44 1;
#X connect 8 0 40 1;
#X connect 8 0 39 1;
#X connect 8 0 35 1;
#X connect 8 0 34 1;
#X connect 8 0 30 1;
#X connect 8 0 29 1;
#X connect 8 0 12 1;
#X connect 9 0 10 0;
#X connect 10 0 53 0;
#X connect 11 0 13 0;
#X connect 12 0 14 0;
#X connect 13 0 15 0;
#X connect 14 0 15 0;
#X connect 15 0 10 1;
#X connect 16 0 15 1;
#X connect 17 0 19 0;
#X connect 18 0 20 0;
#X connect 19 0 21 0;
#X connect 20 0 21 0;
#X connect 21 0 10 2;
#X connect 22 0 24 0;
#X connect 23 0 25 0;
#X connect 24 0 26 0;
#X connect 25 0 26 0;
#X connect 26 0 10 3;
#X connect 27 0 21 1;
#X connect 28 0 26 1;
#X connect 29 0 31 0;
#X connect 30 0 32 0;
#X connect 31 0 33 0;
#X connect 32 0 33 0;
#X connect 33 0 10 4;
#X connect 34 0 36 0;
#X connect 35 0 37 0;
#X connect 36 0 38 0;
#X connect 37 0 38 0;
#X connect 38 0 10 5;
#X connect 39 0 41 0;
#X connect 40 0 42 0;
#X connect 41 0 43 0;
#X connect 42 0 43 0;
#X connect 43 0 10 6;
#X connect 44 0 46 0;
#X connect 45 0 47 0;
#X connect 46 0 48 0;
#X connect 47 0 48 0;
#X connect 48 0 10 7;
#X connect 49 0 33 1;
#X connect 50 0 38 1;
#X connect 51 0 43 1;
#X connect 52 0 48 1;
#X connect 55 0 1 0;
#X connect 55 0 2 0;
#X connect 56 0 11 0;
#X connect 56 0 12 0;
#X connect 57 0 17 0;
#X connect 57 0 18 0;
#X connect 58 0 22 0;
#X connect 58 0 23 0;
#X connect 59 0 29 0;
#X connect 59 0 30 0;
#X connect 60 0 34 0;
#X connect 60 0 35 0;
#X connect 61 0 39 0;
#X connect 61 0 40 0;
#X connect 62 0 44 0;
#X connect 62 0 45 0;
#X restore 201 153 pd oscillators;
#X text 24 402 Last updated: 11.05.25;
#X obj 201 226 *~;
#X obj 219 203 lop~ 1;
#X obj 219 179 r \$0-oaint;
#X obj 69 27 hsl 42 14 0.5 3 0 0 \$0-oaint \$0-oaintdummy INT 14 7 0 8 #000000 #ffffff #ffffff 0 1;
#X obj 96 177 r \$0-reset;
#X obj 343 79 hradio 14 1 0 2 \$0-setdir \$0-setdirdummy +\ - 3 7 0 12 #ffffff #000000 #000000 0;
#X msg 26 225 \; \$1-proctglinit 1 \; \$1-setoscdummy 0 \; \$1-oaintdummy 1 \; \$1-setdirdummy 0;
#X obj 201 298 *~;
#X obj 219 275 lop~ 1;
#N canvas 333 385 202 101 dircalc 0;
#X obj 10 15 r \$0-setdir;
#X obj 10 39 expr if($f1 == 0 \, 1 \, -1);
#X obj 10 63 outlet;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X restore 219 250 pd dircalc;
#X obj 201 370 *~;
#X obj 219 322 r \$0-proctgl;
#X obj 219 346 lop~ 1;
#X connect 25 0 26 0;
#X connect 26 0 38 0;
#X connect 28 0 29 0;
#X connect 30 0 32 0;
#X connect 32 0 39 0;
#X connect 33 0 32 1;
#X connect 34 0 33 0;
#X connect 36 0 26 0;
#X connect 39 0 42 0;
#X connect 40 0 39 1;
#X connect 41 0 40 0;
#X connect 42 0 8 0;
#X connect 43 0 44 0;
#X connect 44 0 42 1;
#X coords 0 -1 1 1 360 100 2 20 20;