AutoPreset/apf.pd at master · MetaluNet/AutoPreset · GitHub

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
#N canvas 339 79 1027 689 10;
#X declare -path ggee;
#X obj 467 558 s \$3-rcv;
#X obj 292 107 r \$1-setap-snd;
#X obj 30 118 r \$1-getap-snd;
#X obj 9 119 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 57 356 s \$1-getap-rcv;
#X obj 30 334 t b a;
#X obj 30 168 symbol \$2;
#X obj 30 143 t b b;
#X obj 30 189 pack s f 16;
#X obj 641 62 r \$1-pattern-snd;
#X obj 641 255 pack f f;
#X obj 487 335 sel 0;
#X obj 514 357 b;
#X obj 51 221 16;
#X msg 105 196 resize \$1;
#X obj 641 233 moses 16;
#X obj 727 245 moses 16;
#X obj 292 127 route \$2 _all_;
#X obj 487 312 t f f;
#X obj 193 102 t f;
#X obj 641 85 route \$2 _all_;
#X obj 596 51 inlet;
#X obj 459 580 outlet;
#X obj 206 220 s \$1-sndap;
#X obj 206 160 symbol \$2;
#X obj 206 140 t b f;
#X obj 206 180 pack s f;
#X obj 641 212 i;
#X obj 819 92 sel 2;
#X msg 819 114 0;
#X obj 51 240 route 0;
#X obj 332 149 route \$2;
#X obj 675 485 pack s f;
#X obj 675 443 t s b;
#X msg 675 507 \; \$1 \$2;
#X obj 675 419 symbol;
#X text 719 415 if parameter is "_get_val_ <s>";
#X obj 292 240 route _nbpattern_ _loaded_ float list _get_val_;
#X text 721 428 then return val to <s>.;
#X obj 705 463 f;
#X obj 641 137 route store load A B pos;
#X obj 848 311 *;
#X obj 880 241 *;
#X obj 848 335 +;
#X obj 848 265 * -1;
#X obj 848 286 + 1;
#X obj 848 218 t f f;
#X obj 459 501 spigot 1;
#X obj 504 481 == 0;
#X floatatom 765 221 5 0 0 0 - - -;
#X obj 459 534 t f;
#X obj 535 73 t f;
#X obj 535 50 r \$3-snd;
#X text 25 22 usage : apf Ref Name [BusName [pat_no_all [dont-recall]]]
;
#X text 70 38 -if pat_no_all==1 \, doesn't receive "_all_" pattern
commands store/load. If pat_no_all==2 \, no pattern for this.;
#X text 24 3 AutoPreset Float;
#X text 23 2 AutoPreset Float;
#X text 69 68 -if dont-recall=1 \, saved value is not sent when we
load the preset.;
#X obj 337 305 != 2;
#X obj 292 327 spigot 1;
#X obj 399 202 spigot 1;
#X obj 463 199 != 1;
#X obj 856 37 cnv 15 130 60 empty empty help: 20 7 0 12 -204800 -66577
0;
#N canvas 641 593 164 175 open 0;
#X obj 29 16 inlet;
#X obj 29 38 symbol;
#X obj 29 103 pack s s;
#X obj 56 80 getdir;
#X obj 29 59 t s b;
#X msg 29 124 \; pd open \$1 \$2;
#X connect 0 0 1 0;
#X connect 1 0 4 0;
#X connect 2 0 5 0;
#X connect 3 0 2 1;
#X connect 4 0 2 0;
#X connect 4 1 3 0;
#X restore 860 76 pd open;
#X msg 860 54 0autopreset-help.pd;
#X obj 399 116 route _nbpattern_;
#X obj 399 137 list prepend _nbpattern_;
#X obj 399 156 list trim;
#X obj 337 262 loadbang;
#X obj 337 284 f \$4;
#X obj 463 159 loadbang;
#X obj 463 179 f \$4;
#X obj 504 442 loadbang;
#X obj 504 462 f \$5;
#X obj 766 34 loadbang;
#X obj 766 55 f \$4;
#X obj 514 377 list;
#X obj 459 263 list split 2;
#X obj 459 285 unpack f f;
#X obj 798 451 t f f;
#X obj 825 476 i;
#X obj 825 498 t f f;
#X obj 852 521 + 1;
#X obj 798 524 -;
#X obj 798 587 t f f;
#X obj 798 611 * -1;
#X obj 798 633 + 1;
#X obj 825 655 *;
#X obj 798 655 *;
#X obj 798 677 +;
#X msg 90 263 0 \$1;
#X obj 514 397 list prepend 0;
#X obj 30 313 list append;
#X obj 766 84 == 0;
#X obj 206 200 list trim;
#X obj 681 109 spigot 1;
#X obj 641 275 s \$1-\$2-pattern;
#X obj 899 218 tabread \$1-\$2-pattern;
#X obj 881 285 tabread \$1-\$2-pattern;
#X obj 819 135 s \$1-\$2-nbpattern;
#X obj 522 16 table \$1-\$2-pattern 16;
#X obj 93 162 r \$1-\$2-nbpattern;
#X obj 105 215 s \$1-\$2-pattern;
#X obj 90 285 array get \$1-\$2-pattern;
#X obj 292 347 s \$1-\$2-nbpattern;
#X obj 527 335 s \$1-\$2-nbpattern;
#X obj 514 419 s \$1-\$2-pattern;
#X obj 852 543 tabread \$1-\$2-pattern;
#X obj 825 563 tabread \$1-\$2-pattern;
#X obj 722 193 r \$1-\$2-nbpattern;
#X obj 50 672 declare -path ggee;
#X connect 1 0 17 0;
#X connect 2 0 7 0;
#X connect 3 0 7 0;
#X connect 5 1 4 0;
#X connect 6 0 8 0;
#X connect 7 0 6 0;
#X connect 7 1 13 0;
#X connect 8 0 92 0;
#X connect 9 0 20 0;
#X connect 10 0 96 0;
#X connect 11 1 12 0;
#X connect 12 0 76 0;
#X connect 13 0 30 0;
#X connect 14 0 102 0;
#X connect 15 0 10 0;
#X connect 16 0 79 0;
#X connect 17 0 37 0;
#X connect 17 1 31 0;
#X connect 18 0 11 0;
#X connect 18 1 105 0;
#X connect 19 0 8 1;
#X connect 19 0 25 0;
#X connect 20 0 40 0;
#X connect 20 1 95 0;
#X connect 21 0 51 0;
#X connect 24 0 26 0;
#X connect 25 0 24 0;
#X connect 25 1 26 1;
#X connect 26 0 94 0;
#X connect 27 0 15 0;
#X connect 28 0 29 0;
#X connect 29 0 99 0;
#X connect 30 1 90 0;
#X connect 31 0 37 0;
#X connect 31 1 65 0;
#X connect 32 0 34 0;
#X connect 33 0 32 0;
#X connect 33 1 39 0;
#X connect 35 0 33 0;
#X connect 37 0 59 0;
#X connect 37 2 50 0;
#X connect 37 3 77 0;
#X connect 37 4 35 0;
#X connect 39 0 32 1;
#X connect 40 0 27 0;
#X connect 40 1 16 0;
#X connect 40 2 98 0;
#X connect 40 3 97 0;
#X connect 40 4 46 0;
#X connect 41 0 43 0;
#X connect 42 0 43 1;
#X connect 43 0 50 0;
#X connect 44 0 45 0;
#X connect 45 0 41 0;
#X connect 46 0 44 0;
#X connect 46 1 42 0;
#X connect 47 0 50 0;
#X connect 48 0 47 1;
#X connect 50 0 22 0;
#X connect 50 0 0 0;
#X connect 51 0 19 0;
#X connect 51 0 10 1;
#X connect 51 0 39 1;
#X connect 52 0 51 0;
#X connect 58 0 59 1;
#X connect 59 0 104 0;
#X connect 60 0 37 0;
#X connect 61 0 60 1;
#X connect 64 0 63 0;
#X connect 65 0 66 0;
#X connect 65 1 37 0;
#X connect 66 0 67 0;
#X connect 67 0 60 0;
#X connect 68 0 69 0;
#X connect 69 0 58 0;
#X connect 70 0 71 0;
#X connect 71 0 61 0;
#X connect 72 0 73 0;
#X connect 73 0 48 0;
#X connect 74 0 75 0;
#X connect 75 0 28 0;
#X connect 75 0 93 0;
#X connect 76 0 91 0;
#X connect 77 0 78 0;
#X connect 77 1 76 1;
#X connect 78 0 47 0;
#X connect 78 1 18 0;
#X connect 79 0 83 0;
#X connect 79 1 80 0;
#X connect 80 0 81 0;
#X connect 81 0 83 1;
#X connect 81 0 108 0;
#X connect 81 1 82 0;
#X connect 82 0 107 0;
#X connect 83 0 84 0;
#X connect 84 0 85 0;
#X connect 84 1 87 0;
#X connect 85 0 86 0;
#X connect 86 0 88 0;
#X connect 87 0 89 1;
#X connect 88 0 89 0;
#X connect 89 0 50 0;
#X connect 90 0 103 0;
#X connect 91 0 106 0;
#X connect 92 0 5 0;
#X connect 93 0 95 1;
#X connect 94 0 23 0;
#X connect 95 0 40 0;
#X connect 97 0 42 1;
#X connect 98 0 41 1;
#X connect 101 0 14 0;
#X connect 101 0 13 1;
#X connect 101 0 8 2;
#X connect 103 0 92 1;
#X connect 107 0 87 1;
#X connect 108 0 88 1;
#X connect 109 0 16 1;
#X connect 109 0 15 1;
#X connect 109 0 49 0;