This repository has been archived by the owner on Aug 6, 2022. It is now read-only.
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathabs-ritmoindex.pd
executable file
·284 lines (284 loc) · 7.07 KB
/
abs-ritmoindex.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
#N canvas 6 51 1000 675 10;
#X obj 159 140 timer;
#X obj 159 109 t b b;
#X obj 159 33 key;
#X obj 159 69 select 32;
#X obj 159 374 /;
#X floatatom 180 401 5 0 0 0 - - -;
#X obj 564 285 list prepend 0;
#N canvas 0 0 450 300 (subpatch) 0;
#X array \$0-taps 8 float 0;
#X coords 0 1000 7 50 200 140 1 0 0;
#X restore 752 382 graph;
#X obj 957 384 vsl 15 135 50 1000 0 0 empty \$0-gmean gm 0 -9 0 10
-262144 -1 -1 0 1;
#X obj 973 384 vsl 15 135 50 1000 0 0 empty \$0-mean mean 0 -9 0 10
-262144 -1 -1 0 1;
#X obj 759 553 cnv 15 100 60 empty \$0-quality instavel 10 35 0 30
-191407 -1 0;
#X obj 42 502 s \$0-quality;
#X obj 159 450 moses 0.99;
#X obj 358 331 s \$0-mean;
#X obj 168 332 s \$0-gmean;
#X obj 159 246 t a a a;
#X obj 183 429 hsl 128 15 0 1 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 0 1;
#X obj 564 315 s \$0-taps;
#N canvas 534 229 450 300 show-bpm 0;
#X floatatom 107 144 5 0 0 1 IOI_in_bpm - -;
#X floatatom 107 126 5 0 0 1 IOI - -;
#N canvas 0 0 450 300 ms2bpm 0;
#X obj 93 50 inlet;
#X obj 93 102 swap 60000;
#X obj 93 131 /;
#X obj 93 182 outlet;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 1 1 2 1;
#X connect 2 0 3 0;
#X restore 248 99 pd ms2bpm;
#X obj 248 37 inlet;
#X connect 2 0 0 0;
#X connect 3 0 1 0;
#X connect 3 0 2 0;
#X coords 0 -1 1 1 125 60 1 100 100;
#X restore 478 398 pd show-bpm;
#N canvas 534 229 450 300 show-bpm 0;
#X floatatom 107 144 5 0 0 1 IOI_in_bpm - -;
#X floatatom 107 126 5 0 0 1 IOI - -;
#N canvas 0 0 450 300 ms2bpm 0;
#X obj 93 50 inlet;
#X obj 93 102 swap 60000;
#X obj 93 131 /;
#X obj 93 182 outlet;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 1 1 2 1;
#X connect 2 0 3 0;
#X restore 248 99 pd ms2bpm;
#X obj 248 37 inlet;
#X connect 2 0 0 0;
#X connect 3 0 1 0;
#X connect 3 0 2 0;
#X coords 0 -1 1 1 125 60 1 100 100;
#X restore 614 398 pd show-bpm;
#X obj 614 372 r \$0-mean;
#X obj 478 372 r \$0-gmean;
#X obj 50 211 s \$0-last;
#N canvas 534 229 450 300 show-bpm 0;
#X floatatom 107 144 5 0 0 1 IOI_in_bpm - -;
#X floatatom 107 126 5 0 0 1 IOI - -;
#N canvas 0 0 450 300 ms2bpm 0;
#X obj 93 50 inlet;
#X obj 93 102 swap 60000;
#X obj 93 131 /;
#X obj 93 182 outlet;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 1 1 2 1;
#X connect 2 0 3 0;
#X restore 248 99 pd ms2bpm;
#X obj 248 37 inlet;
#X connect 2 0 0 0;
#X connect 3 0 1 0;
#X connect 3 0 2 0;
#X coords 0 -1 1 1 125 60 1 100 100;
#X restore 452 192 pd show-bpm;
#X obj 452 162 r \$0-last;
#X obj 648 183 s \$0-taps;
#X msg 648 140 resize \$1;
#X obj 267 212 r \$0-buffer-size;
#X obj 760 166 s \$0-buffer-size;
#X floatatom 648 114 5 0 0 0 - - -;
#X msg 648 88 8;
#X msg 685 87 16;
#X msg 712 312 269.932 496.327 281.542 1953.38 401.995 1223.4 1895.33
1207.44;
#N canvas 0 0 778 583 last-x 0;
#X obj 153 175 cnv 15 150 80 empty empty empty 20 12 0 14 -233017 -66577
0;
#X floatatom 370 79 5 0 0 2 change-size - -;
#X obj 326 112 t f b;
#X text 378 110 first reset (b) \, then set new length (f).;
#X text 311 195 Right outlet is responsible to first fill the list
;
#X text 312 211 Left outlet then only lets the smaller list pass.;
#X obj 180 183 list;
#X obj 326 54 inlet;
#X obj 180 149 inlet;
#X obj 180 302 outlet;
#X obj 180 228 list split \$1;
#X obj 326 78 f \$1;
#X connect 1 0 2 0;
#X connect 2 0 10 1;
#X connect 2 1 6 1;
#X connect 6 0 10 0;
#X connect 7 0 11 0;
#X connect 8 0 6 0;
#X connect 10 0 6 1;
#X connect 10 0 9 0;
#X connect 10 2 6 1;
#X connect 11 0 2 0;
#X restore 159 212 pd last-x;
#X obj 648 63 loadbang;
#X obj 447 548 hsl 128 15 0 1 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 0 1;
#X floatatom 444 585 5 0 0 0 - - -;
#X msg 127 589 label instavel;
#X msg 281 588 label estavel;
#X text 200 38 para testar;
#X obj 288 78 r bong;
#X text 582 541 <= sensibilidade;
#X msg 127 621 0;
#X msg 281 621 1;
#X obj 160 666 outlet;
#X obj 288 122 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#N canvas 112 376 872 310 tamanho-filtro 0;
#X obj 200 256 outlet;
#X obj 297 223 outlet;
#X obj 297 189 b;
#X obj 200 120 moses 2000;
#X text 305 122 filter viable range \, reset else (Handel \, 1989)
;
#X obj 123 64 inlet;
#X obj 123 90 moses 50;
#X text 368 218 reset timer from here;
#X connect 2 0 1 0;
#X connect 3 0 0 0;
#X connect 3 1 2 0;
#X connect 5 0 6 0;
#X connect 6 0 2 0;
#X connect 6 1 3 0;
#X restore 159 178 pd tamanho-filtro;
#N canvas 0 0 566 431 media-geometrica 0;
#X obj 127 69 inlet;
#X obj 127 337 outlet;
#X obj 154 144 list-drip;
#X obj 154 170 route float;
#X obj 127 274 f;
#X obj 291 176 pow -1;
#X obj 154 199 pow;
#N canvas 370 313 450 300 product 0;
#X obj 135 79 inlet;
#X obj 205 77 inlet;
#X obj 135 169 outlet;
#X obj 210 139 f;
#X obj 135 137 *;
#X obj 205 100 1;
#X connect 0 0 4 0;
#X connect 1 0 5 0;
#X connect 3 0 4 1;
#X connect 4 0 2 0;
#X connect 4 0 3 0;
#X connect 5 0 4 1;
#X restore 154 231 pd product;
#X obj 127 105 t b a b a;
#X obj 291 148 list length;
#X connect 0 0 8 0;
#X connect 2 0 3 0;
#X connect 3 0 6 0;
#X connect 4 0 1 0;
#X connect 5 0 6 1;
#X connect 6 0 7 0;
#X connect 7 0 4 1;
#X connect 8 0 4 0;
#X connect 8 1 2 0;
#X connect 8 2 7 1;
#X connect 8 3 9 0;
#X connect 9 0 5 0;
#X restore 159 290 pd media-geometrica;
#N canvas 0 0 566 431 media-aritmetica 0;
#X obj 127 69 inlet;
#X obj 127 337 outlet;
#X obj 147 138 list-drip;
#X obj 147 164 route float;
#X obj 127 274 f;
#N canvas 370 313 450 300 product 0;
#X obj 135 79 inlet;
#X obj 182 79 inlet;
#X obj 135 169 outlet;
#X obj 168 138 f;
#X obj 182 102 0;
#X obj 135 137 +;
#X connect 0 0 5 0;
#X connect 1 0 4 0;
#X connect 3 0 5 1;
#X connect 4 0 5 1;
#X connect 5 0 2 0;
#X connect 5 0 3 0;
#X restore 147 225 pd product;
#X obj 127 105 t b a b a;
#X obj 254 222 list length;
#X obj 127 306 /;
#X connect 0 0 6 0;
#X connect 2 0 3 0;
#X connect 3 0 5 0;
#X connect 4 0 8 0;
#X connect 5 0 4 1;
#X connect 6 0 4 0;
#X connect 6 1 2 0;
#X connect 6 2 5 1;
#X connect 6 3 7 0;
#X connect 7 0 8 1;
#X connect 8 0 1 0;
#X restore 358 289 pd media-aritmetica;
#N canvas 0 0 450 300 mostra 0;
#X obj 41 39 inlet;
#X obj 186 36 inlet;
#X obj 41 124 outlet;
#X msg 186 76 set;
#X obj 41 59 list prepend set;
#X obj 41 83 list trim;
#X obj 186 57 b;
#X connect 0 0 4 0;
#X connect 1 0 6 0;
#X connect 3 0 2 0;
#X connect 4 0 5 0;
#X connect 5 0 2 0;
#X connect 6 0 3 0;
#X restore 712 283 pd mostra buffer;
#X connect 0 0 46 0;
#X connect 1 0 0 0;
#X connect 1 1 0 1;
#X connect 2 0 3 0;
#X connect 3 0 1 0;
#X connect 4 0 5 0;
#X connect 4 0 12 0;
#X connect 5 0 16 0;
#X connect 6 0 17 0;
#X connect 12 0 37 0;
#X connect 12 1 38 0;
#X connect 15 0 47 0;
#X connect 15 1 48 0;
#X connect 15 2 6 0;
#X connect 15 2 49 0;
#X connect 20 0 19 0;
#X connect 21 0 18 0;
#X connect 24 0 23 0;
#X connect 26 0 25 0;
#X connect 27 0 33 1;
#X connect 29 0 26 0;
#X connect 29 0 28 0;
#X connect 30 0 29 0;
#X connect 31 0 29 0;
#X connect 33 0 15 0;
#X connect 34 0 30 0;
#X connect 35 0 36 0;
#X connect 35 0 12 1;
#X connect 37 0 11 0;
#X connect 37 0 42 0;
#X connect 38 0 11 0;
#X connect 38 0 43 0;
#X connect 40 0 1 0;
#X connect 40 0 45 0;
#X connect 42 0 44 0;
#X connect 43 0 44 0;
#X connect 46 0 22 0;
#X connect 46 0 33 0;
#X connect 46 1 0 0;
#X connect 47 0 14 0;
#X connect 47 0 4 0;
#X connect 48 0 13 0;
#X connect 48 0 4 1;
#X connect 49 0 32 0;