-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathparam.pd
317 lines (317 loc) · 8.21 KB
/
param.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
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
#N canvas 84 0 699 947 10;
#X obj 42 59 cnv 15 420 120 empty empty empty 20 12 0 14 #dcdcdc #404040 0;
#X obj 42 30 cnv 15 420 28 empty empty empty 20 12 0 14 #e0c4fc #404040 0;
#X text 51 65 DECLARA PARÂMETROS DE UM CONJUNTO [memo], f 67;
#X text 50 35 ABSTRAÇÃO [param], f 67;
#X text 50 85 ARGUMENTOS: [param $PARAM $MEMO $INDEX $INIT], f 67;
#X text 70 105 $PARAM = NOME DO PARÂMETRO (symbol), f 64;
#X text 70 120 $MEMO = NOME DA MEMÓRIA (symbol), f 64;
#X text 70 135 $INDEX = ÍNDICE NA MEMÓRIA (float), f 64;
#X text 70 150 $INIT (OPCIONAL) = VALOR DE INICIALIZAÇÃO (float \, symbol \, list), f 64;
#X obj 45 559 cnv 15 38 28 empty empty empty 20 12 0 14 #e0c4fc #404040 0;
#X obj 50 208 inlet VALUE;
#X obj 50 898 outlet VALUE;
#X text 151 298 RECEBE VALOR DO GUI;
#X text 101 859 ENVIA P/ PATCH;
#X text 157 355 BANG PARA REENVIAR VALOR;
#X text 567 218 REINICIA VALOR;
#X obj 90 297 r \$1_gui;
#X obj 90 355 r \$1_bang;
#X msg 90 374 bang;
#X obj 90 451 f \$3;
#X obj 65 859 s \$1;
#X obj 80 792 s \$1_gui_set;
#X text 185 707 ENVIA P/ MEMÓRIA;
#X obj 50 593 route float symbol list bang;
#X obj 80 735 list prepend set;
#X obj 80 754 list trim;
#X obj 90 470 text get \$2;
#X obj 342 218 loadbang;
#X obj 95 687 list prepend \$3;
#X obj 494 218 r \$2_reset;
#X text 385 255 AGUARDA MEMÓRIA INICIALIZAR;
#X obj 164 649 list length;
#X obj 95 668 list prepend;
#X text 243 649 NÚMERO DE ÍTENS (CASO SEJA LISTA);
#X obj 177 898 outlet SET_VALUE;
#X obj 80 773 t a a;
#X obj 90 336 r \$2_bang;
#X obj 50 564 list;
#X obj 107 546 t b a b;
#X obj 50 527 route bang;
#X obj 90 258 r \$1-;
#X text 133 258 RECEBE VALOR REMOTAMENTE;
#X text 197 688 LISTA COM ÍNDICE / NÚMERO DE ÍTENS / ÍTENS;
#X text 428 299 VERIFICA SE 4 ARGUMENTO EXISTE;
#X obj 95 706 s \$2_memo_set;
#X obj 380 489 r \$1_set;
#X obj 50 821 spigot 1;
#X obj 65 840 spigot 1;
#X obj 380 508 t b a b;
#X msg 410 527 0;
#X msg 380 527 1;
#X obj 50 631 t a a a a a a;
#X obj 374 850 list prepend \$1;
#X obj 374 869 list trim;
#X obj 374 888 s \$2_bus;
#X text 476 850 PARÂMETRO / VALOR;
#X text 434 888 ENVIA PARA CONTEXTO;
#X obj 90 432 sel \$3;
#X text 139 432 CARREGA QUANDO RECEBE ÍNDICE LOCAL ESPECÍFICO;
#X obj 90 413 r \$2_refresh;
#X obj 170 208 inlet SET_VALUE;
#X obj 419 218 r \$1_reset;
#X obj 342 255 del 2;
#X text 174 413 CARREGA VALOR DA MEMÓRIA DO [memo];
#X obj 169 546 t b b;
#X obj 419 237 t b b;
#X obj 380 803 t f f f;
#X obj 374 831 spigot 1;
#X obj 90 489 route bang;
#X text 162 489 FILTRA PARÂMETROS VAZIOS;
#X text 164 792 ENVIA P/GUI COM PREFIXO "SET";
#X obj 132 612 list;
#X text 441 490 RECEBE VALOR FRIO REMOTAMENTE;
#X obj 342 293 pdcontrol;
#X msg 342 274 args;
#X obj 342 312 list split 3;
#X obj 376 331 route bang;
#N canvas 100 222 1035 562 SLEW 0;
#N canvas 0 50 450 250 (subpatch) 0;
#X array \$0-curveArray 256 float 2;
#X coords 0 1 256 0 200 140 1 0 0;
#X restore 766 332 graph;
#X obj 365 344 int;
#X obj 365 382 * 1;
#X obj 163 268 t f b;
#X text 224 287 VALOR ATUAL;
#X obj 163 325 -;
#X obj 190 287 f 0;
#X obj 163 344 sel 0;
#X text 196 325 DELTA;
#X obj 190 363 t b f;
#X obj 190 306 t f f;
#X obj 365 401 +;
#X msg 491 248 0;
#X obj 365 248 f 255;
#X floatatom 584 119 5 0 0 0 - - - 0;
#X obj 793 225 array size \$0-curveArray;
#X obj 766 206 t f f;
#X obj 392 229 - 1;
#X obj 422 248 r \$0-slew;
#X obj 365 267 pack 255 0;
#X obj 365 181 t b b;
#X obj 416 306 r \$0-grain;
#X obj 365 325 line 0 20;
#X obj 365 363 tabread \$0-curveArray;
#X obj 365 137 s \$0-slew;
#X floatatom 365 119 5 0 0 0 - - - 0;
#X floatatom 434 119 5 0 0 0 - - - 0;
#X obj 434 137 s \$0-curve;
#X obj 578 273 until;
#X obj 578 321 f;
#X obj 605 321 + 1;
#X msg 593 302 0;
#X obj 578 340 t f f f;
#X obj 578 359 / 255;
#X obj 578 378 pow 1;
#X obj 578 254 f 256;
#X obj 578 187 r \$0-curve;
#X obj 578 225 t b b;
#X obj 578 206 t b f;
#X obj 578 397 tabwrite \$0-curveArray;
#X obj 712 225 - 1;
#X obj 766 254 pipe 10;
#X obj 673 206 t b f f;
#X floatatom 509 119 5 0 0 0 - - - 0;
#X obj 509 137 s \$0-grain;
#X obj 766 273 s \$0-res;
#X obj 673 187 r \$0-res;
#X obj 392 210 r \$0-res;
#X obj 584 137 s \$0-resolution;
#X obj 766 187 r \$0-resolution;
#X obj 57 62 inlet FLOAT;
#X obj 76 484 outlet FLOAT;
#X obj 269 91 r \$0-slew;
#X obj 76 225 spigot 1;
#X obj 163 225 spigot 0;
#X obj 121 206 == 0;
#X obj 76 173 t f f;
#X msg 365 81 0 1 20 256;
#X obj 365 100 unpack f f f f;
#X obj 365 62 loadbang;
#X obj 554 63 r \$1_slew;
#X obj 633 63 r \$2_slew;
#X obj 554 82 route list float;
#X obj 647 101 route curve grain resolution;
#X obj 76 420 f;
#X obj 76 439 t f f;
#X msg 328 307 stop;
#X text 179 19 HABILITA SLEW APENAS A PARTIR DE MEMÓRIA, f 20;
#X obj 181 62 inlet CONTROL;
#X obj 269 110 f;
#X obj 181 187 t f f;
#X msg 181 109 1;
#X msg 211 109 0;
#X obj 181 149 &&;
#X obj 269 129 > 0;
#X obj 57 91 t b f b;
#X obj 181 168 change;
#X connect 1 0 23 0;
#X connect 2 0 11 0;
#X connect 3 0 5 0;
#X connect 3 1 6 0;
#X connect 5 0 7 0;
#X connect 6 0 10 0;
#X connect 7 1 9 0;
#X connect 9 0 20 0;
#X connect 9 1 2 1;
#X connect 10 0 5 1;
#X connect 10 1 11 1;
#X connect 11 0 64 0;
#X connect 12 0 22 0;
#X connect 13 0 19 0;
#X connect 14 0 48 0;
#X connect 16 0 41 0;
#X connect 16 1 15 0;
#X connect 17 0 13 1;
#X connect 18 0 19 1;
#X connect 19 0 22 0;
#X connect 20 0 13 0;
#X connect 20 1 12 0;
#X connect 21 0 22 2;
#X connect 22 0 1 0;
#X connect 23 0 2 0;
#X connect 25 0 24 0;
#X connect 26 0 27 0;
#X connect 28 0 29 0;
#X connect 29 0 32 0;
#X connect 30 0 29 1;
#X connect 31 0 29 1;
#X connect 32 0 33 0;
#X connect 32 1 30 0;
#X connect 32 2 39 1;
#X connect 33 0 34 0;
#X connect 34 0 39 0;
#X connect 35 0 28 0;
#X connect 36 0 38 0;
#X connect 37 0 35 0;
#X connect 37 1 31 0;
#X connect 38 0 37 0;
#X connect 38 1 34 1;
#X connect 40 0 33 1;
#X connect 41 0 45 0;
#X connect 42 0 37 0;
#X connect 42 1 35 1;
#X connect 42 2 40 0;
#X connect 43 0 44 0;
#X connect 46 0 42 0;
#X connect 47 0 17 0;
#X connect 49 0 16 0;
#X connect 50 0 75 0;
#X connect 52 0 69 0;
#X connect 53 0 64 0;
#X connect 54 0 3 0;
#X connect 55 0 53 1;
#X connect 56 0 53 0;
#X connect 56 1 54 0;
#X connect 57 0 58 0;
#X connect 58 0 25 0;
#X connect 58 1 26 0;
#X connect 58 2 43 0;
#X connect 58 3 14 0;
#X connect 59 0 57 0;
#X connect 60 0 62 0;
#X connect 61 0 62 0;
#X connect 62 0 58 0;
#X connect 62 1 25 0;
#X connect 62 2 63 0;
#X connect 63 0 26 0;
#X connect 63 1 43 0;
#X connect 63 2 14 0;
#X connect 64 0 65 0;
#X connect 65 0 51 0;
#X connect 65 1 6 1;
#X connect 66 0 22 0;
#X connect 68 0 71 0;
#X connect 69 0 74 0;
#X connect 70 0 55 0;
#X connect 70 1 54 1;
#X connect 71 0 73 0;
#X connect 72 0 73 0;
#X connect 73 0 76 0;
#X connect 74 0 73 1;
#X connect 75 0 72 0;
#X connect 75 1 56 0;
#X connect 75 2 66 0;
#X connect 76 0 70 0;
#X restore 50 612 pd SLEW;
#X text 449 331 INICIALIZA PARÂMETRO COM 4o ARGUMENTO EM DIANTE SE EXISTIR, f 20;
#X obj 380 546 t f;
#X text 441 527 CHAVE DE ATUALIZAÇÃO FRIA;
#X obj 147 508 t a b;
#X connect 10 0 39 0;
#X connect 16 0 39 0;
#X connect 17 0 18 0;
#X connect 18 0 39 0;
#X connect 19 0 26 0;
#X connect 23 0 77 0;
#X connect 23 1 51 0;
#X connect 23 2 71 0;
#X connect 24 0 25 0;
#X connect 25 0 35 0;
#X connect 26 0 68 0;
#X connect 27 0 62 0;
#X connect 28 0 44 0;
#X connect 29 0 65 0;
#X connect 31 0 32 1;
#X connect 32 0 28 0;
#X connect 35 0 21 0;
#X connect 35 1 34 0;
#X connect 36 0 18 0;
#X connect 37 0 23 0;
#X connect 38 0 37 0;
#X connect 38 1 37 1;
#X connect 38 2 37 1;
#X connect 39 0 37 0;
#X connect 39 1 38 0;
#X connect 40 0 39 0;
#X connect 45 0 48 0;
#X connect 46 0 11 0;
#X connect 47 0 20 0;
#X connect 48 0 50 0;
#X connect 48 1 39 0;
#X connect 48 2 49 0;
#X connect 49 0 79 0;
#X connect 50 0 79 0;
#X connect 51 0 46 0;
#X connect 51 1 47 0;
#X connect 51 2 24 0;
#X connect 51 3 32 0;
#X connect 51 4 31 0;
#X connect 51 5 67 0;
#X connect 52 0 53 0;
#X connect 53 0 54 0;
#X connect 57 0 19 0;
#X connect 59 0 57 0;
#X connect 60 0 48 0;
#X connect 61 0 65 0;
#X connect 62 0 74 0;
#X connect 64 0 37 0;
#X connect 64 1 37 1;
#X connect 65 0 62 0;
#X connect 65 1 64 0;
#X connect 66 0 46 1;
#X connect 66 1 47 1;
#X connect 66 2 67 1;
#X connect 67 0 52 0;
#X connect 68 1 81 0;
#X connect 71 0 51 0;
#X connect 73 0 75 0;
#X connect 74 0 73 0;
#X connect 75 1 76 0;
#X connect 76 1 39 0;
#X connect 77 0 51 0;
#X connect 79 0 66 0;
#X connect 81 0 39 0;
#X connect 81 1 77 1;