-
Notifications
You must be signed in to change notification settings - Fork 0
/
_main.pd
296 lines (296 loc) · 8.06 KB
/
_main.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
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
#N canvas 57 25 1315 847 10;
#X declare -path /root/Bela/projects/pd-externals/zexy;
#X declare -lib /root/Bela/projects/pd-externals/zexy;
#X obj 339 156 reflectanceSensor;
#X obj 438 128 tgl 16 0 empty empty empty 0 -8 0 10 #fcfcfc #000000 #000000 0 1;
#X text 513 11 o- bang on high x- bang on high and low;
#X obj 435 360 belaUSBkeyboard;
#X obj 446 913 dac~ 1 2;
#X floatatom 435 403 5 0 0 0 - - - 0;
#X obj 435 382 unpack f f;
#X obj 435 423 poly 8 1;
#X obj 435 513 pack f f f f f;
#X msg 495 474 40;
#X obj 507 436 loadbang;
#X text 496 491 att release;
#X obj 340 180 s~ rawReflectance;
#X obj 552 196 r~ rawReflectance;
#X obj 605 742 adc~ 4;
#X obj 562 63 loadbang;
#X obj 562 132 metro 30;
#X obj 605 845 snapshot~;
#X obj 446 869 +~;
#X obj 561 842 *~;
#X obj 561 867 *~;
#X obj 562 158 s poll-pots;
#X obj 630 814 r poll-pots;
#X obj 849 22 declare -path /root/Bela/projects/pd-externals/zexy;
#X text 845 3 full path declaration needed for externals. ok then.;
#N canvas 239 91 732 569 pulsesPerUnit 0;
#X obj 12 11 inlet~;
#X obj 12 72 change;
#X obj 12 92 sel 1;
#X obj 12 52 avg~;
#X obj 72 136 f;
#X obj 12 31 >~ 0.5;
#X obj 104 137 + 1;
#X text 88 9 raw reflectance frequency;
#X msg 98 109 0;
#X obj 188 270 / 36;
#X obj 192 153 metro 200;
#X obj 192 131 tgl 16 0 empty empty empty 0 -8 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 192 77 loadbang;
#X obj 192 174 t b b;
#X obj 57 186 f;
#X obj 260 77 inlet;
#X text 259 63 unit of time;
#X obj 190 238 * 5;
#X obj 260 137 t f b f;
#X obj 299 161 expr 1000 / $f1;
#X text 38 393 get rotation per second by: divide pulses per unit of time by number of lines on encoder then multiply by (1000ms/unitOfTime) to get rps. for rpm \, multiply by 60 for frequency \, multiply by number of lines?;
#X text 70 93 count until polled;
#X text 80 189 store variable until polled;
#X obj 280 335 outlet;
#X text 298 310 frequency;
#X obj 188 335 outlet;
#X text 206 313 rps;
#X msg 202 98 50;
#X connect 0 0 5 0;
#X connect 1 0 2 0;
#X connect 2 0 4 0;
#X connect 3 0 1 0;
#X connect 4 0 6 0;
#X connect 4 0 14 1;
#X connect 5 0 3 0;
#X connect 6 0 4 1;
#X connect 8 0 4 0;
#X connect 9 0 25 0;
#X connect 10 0 13 0;
#X connect 11 0 10 0;
#X connect 12 0 11 0;
#X connect 12 0 27 0;
#X connect 13 0 8 0;
#X connect 13 1 14 0;
#X connect 14 0 17 0;
#X connect 15 0 18 0;
#X connect 17 0 9 0;
#X connect 17 0 23 0;
#X connect 18 0 10 1;
#X connect 18 2 19 0;
#X connect 19 0 17 1;
#X connect 27 0 18 0;
#X restore 203 264 pd pulsesPerUnit;
#X text 303 268 output rotationPerSec \, hz;
#X text 214 246 count pulses per unit of time;
#X text 231 312 Magic Number: highest rps i can physically do;
#X text 58 284 volume of synth directly tied to speed of spinning wheel;
#X obj 205 454 clip 0 1;
#X obj 39 696 expr if ($f1 > 0.01 \, $f1+(0.9-$f1) \, 0);
#X text 226 299 needs knob;
#X text 134 60 modes: 1) wheel dictates volume of synth (physical envelope) 2) wheel rotation;
#X text 729 791 switch for sonified wheel;
#X obj 30 212 s bela_setDigital;
#X obj 50 67 loadbang;
#X obj 725 834 tgl 16 0 empty empty empty 0 -8 0 10 #fcfcfc #000000 #000000 0 1;
#X text 115 181 11= wheel audio switch;
#X obj 290 506 spigot;
#X obj 38 674 spigot;
#X msg 30 181 in 11 \, in 12;
#X obj 323 487 tgl 16 0 empty empty empty 0 -8 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 30 570 sel 0 1;
#X obj 39 653 tgl 16 0 empty empty empty 0 -8 0 10 #fcfcfc #000000 #000000 0 1;
#X msg 57 591 0;
#X msg 30 591 1;
#X obj 710 878 *~;
#X msg 43 759 \$1 30;
#X obj 294 777 line~;
#X obj 446 812 *~;
#X obj 29 428 loadbang;
#X msg 29 449 0;
#X obj 203 347 / 17;
#X obj 206 381 hsl 136 16 0.01 1 1 0 empty empty empty -2 -8 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 203 402 expr if ($f1 <= 0.01 \, 0 \, $f1);
#X text 19 411 switch wheel modes;
#X text 73 644 on/off mode;
#X text 222 543 rotation to volume mode;
#X obj 203 324 t f f;
#X obj 562 107 tgl 16 0 empty empty empty 0 -8 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 446 834 *~ 1;
#X obj 725 813 r bela_digitalIn12;
#X obj 63 447 r bela_digitalIn11;
#X obj 975 362 adc~ 5;
#X obj 622 774 dac~ 27;
#X obj 923 362 adc~ 6;
#X text 974 337 pot 3;
#X text 913 342 pot 2;
#X text 599 721 pot 1;
#X obj 974 402 snapshot~;
#X obj 1034 363 r poll-pots;
#X obj 850 44 declare -lib /root/Bela/projects/pd-externals/zexy;
#N canvas 78 288 840 664 mouchTest 0;
#N canvas 491 227 450 300 speedDifference 0;
#X obj 156 18 inlet;
#X text 194 19 rot per unit;
#X obj 45 85 f;
#X floatatom 45 57 5 0 0 0 - - - 0;
#X obj 44 7 bng 16 250 50 0 empty empty empty 0 -8 0 10 #fcfcfc #000000 #000000;
#X obj 75 158 -;
#X obj 109 132 f;
#X obj 48 107 t f f;
#X obj 45 36 random 10;
#X text 128 72 find difference between input and last input;
#X obj 75 179 outlet;
#X connect 0 0 2 0;
#X connect 2 0 7 0;
#X connect 3 0 2 0;
#X connect 4 0 8 0;
#X connect 5 0 10 0;
#X connect 6 0 5 1;
#X connect 7 0 6 0;
#X connect 7 1 5 0;
#X connect 8 0 3 0;
#X restore 164 204 pd speedDifference;
#X text 145 190 detect speed change for attack;
#X obj 323 493 *~;
#X obj 299 266 sel 1 0;
#X msg 360 407 0 60;
#X obj 360 386 delay 50;
#X obj 274 404 noise~;
#X text 361 250 MOUCHE;
#X obj 339 436 line~;
#X msg 338 368 1 20;
#X obj 300 245 > 0.57;
#X obj 352 271 loadbang;
#X obj 299 327 hyst;
#X msg 332 304 100;
#X obj 117 101 inlet;
#X text 126 74 pulses per unit;
#X obj 424 177 inlet;
#X text 424 158 threshold for mouch;
#X obj 323 514 outlet~;
#X text 383 516 to +~ on main line;
#X connect 0 0 10 0;
#X connect 2 0 18 0;
#X connect 3 0 12 0;
#X connect 4 0 8 0;
#X connect 5 0 4 0;
#X connect 6 0 2 0;
#X connect 8 0 2 1;
#X connect 9 0 5 0;
#X connect 9 0 8 0;
#X connect 10 0 3 0;
#X connect 11 0 13 0;
#X connect 12 0 9 0;
#X connect 13 0 12 1;
#X connect 14 0 0 0;
#X connect 16 0 10 1;
#X restore 1183 771 pd mouchTest;
#X msg 290 527 \$1 20;
#X obj 725 855 * 0.1;
#X obj 50 88 t b b;
#X obj 77 137 s bela_setTrill;
#X text 584 710 FM from wheel;
#X obj 725 427 r bela_trill;
#X obj 725 448 route myflex;
#X obj 714 168 r bela_trillCreated;
#X obj 740 210 print TrillCreated;
#X msg 77 116 new myflex 1 FLEX;
#X obj 714 189 t b b;
#X text 716 147 On Trill init;
#X obj 562 84 t b;
#X obj 725 498 unpack;
#X obj 725 564 line;
#X obj 725 543 pack f 20;
#X text 658 338 filter out bangs;
#X obj 725 477 route 1;
#X obj 785 704 dac~ 27;
#X obj 725 519 route float;
#X text 919 703 scope;
#X obj 437 699 clip~ -1 1;
#X obj 725 585 t f f;
#X obj 725 606 * -1;
#X obj 865 704 dac~ 28;
#X msg 524 473 20;
#X obj 434 550 clone simpleOsc 9;
#X connect 0 0 12 0;
#X connect 1 0 0 1;
#X connect 3 0 6 0;
#X connect 5 0 7 0;
#X connect 6 0 5 0;
#X connect 6 1 7 1;
#X connect 7 0 8 0;
#X connect 7 1 8 1;
#X connect 7 2 8 2;
#X connect 8 0 100 0;
#X connect 9 0 8 3;
#X connect 10 0 9 0;
#X connect 10 0 99 0;
#X connect 13 0 19 0;
#X connect 13 0 25 0;
#X connect 13 0 47 0;
#X connect 14 0 17 0;
#X connect 14 0 65 0;
#X connect 15 0 86 0;
#X connect 16 0 21 0;
#X connect 17 0 20 1;
#X connect 18 0 4 0;
#X connect 18 0 4 1;
#X connect 18 0 92 0;
#X connect 19 0 20 0;
#X connect 20 0 4 0;
#X connect 20 0 4 1;
#X connect 22 0 17 0;
#X connect 25 0 59 0;
#X connect 30 0 39 0;
#X connect 30 0 40 0;
#X connect 31 0 48 0;
#X connect 36 0 76 0;
#X connect 37 0 75 0;
#X connect 39 0 74 0;
#X connect 40 0 31 0;
#X connect 41 0 35 0;
#X connect 42 0 43 0;
#X connect 42 0 39 1;
#X connect 43 0 46 0;
#X connect 43 1 45 0;
#X connect 44 0 40 1;
#X connect 45 0 44 0;
#X connect 46 0 44 0;
#X connect 47 0 4 1;
#X connect 47 0 4 0;
#X connect 48 0 49 0;
#X connect 49 0 50 1;
#X connect 50 0 61 0;
#X connect 51 0 52 0;
#X connect 52 0 42 0;
#X connect 53 0 54 0;
#X connect 54 0 55 0;
#X connect 55 0 30 0;
#X connect 59 0 53 0;
#X connect 60 0 16 0;
#X connect 61 0 19 1;
#X connect 61 0 18 0;
#X connect 62 0 37 0;
#X connect 63 0 42 0;
#X connect 64 0 70 0;
#X connect 74 0 49 0;
#X connect 75 0 47 1;
#X connect 76 0 41 0;
#X connect 76 1 83 0;
#X connect 79 0 80 0;
#X connect 80 0 91 0;
#X connect 81 0 84 0;
#X connect 83 0 77 0;
#X connect 84 1 82 0;
#X connect 86 0 60 0;
#X connect 87 0 93 0;
#X connect 88 0 96 0;
#X connect 89 0 88 0;
#X connect 91 0 87 0;
#X connect 93 0 89 0;
#X connect 95 0 50 0;
#X connect 96 0 97 0;
#X connect 96 1 95 2;
#X connect 97 0 95 1;
#X connect 99 0 8 4;
#X connect 100 0 95 0;