-
Notifications
You must be signed in to change notification settings - Fork 4
/
bon-plucker.pd
216 lines (216 loc) · 5.22 KB
/
bon-plucker.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
#N canvas 946 138 376 294 10;
#N canvas 102 211 671 621 pluckit! 0;
#X obj 37 263 pack f f f;
#N canvas 159 73 755 400 dat 0;
#X obj 30 251 outlet voices;
#X msg 69 197 pluckpos \$1;
#N canvas 383 157 667 494 brown 0;
#X obj 178 39 inlet;
#X obj 263 374 outlet;
#X obj 254 327 - 1;
#X obj 485 223 int;
#X obj 244 70 * 127;
#X obj 252 88 + 128;
#X obj 247 213 * -256;
#X obj 307 226 * -65536;
#X obj 307 260 +;
#X msg 255 347 color \$1 23 23;
#X obj 486 178 * -40;
#X obj 230 192 int;
#X obj 231 147 * -80;
#X obj 289 137 t f f f;
#X obj 232 168 + 255;
#X obj 487 199 + 255;
#X obj 160 263 int;
#X obj 152 244 + 255;
#X obj 158 217 * -120;
#X obj 115 300 * -1;
#X obj 372 71 + 0.3;
#X obj 141 328 +;
#X connect 0 0 20 0;
#X connect 2 0 9 0;
#X connect 3 0 7 0;
#X connect 4 0 5 0;
#X connect 6 0 8 0;
#X connect 7 0 8 1;
#X connect 8 0 21 1;
#X connect 9 0 1 0;
#X connect 10 0 15 0;
#X connect 11 0 6 0;
#X connect 12 0 14 0;
#X connect 13 0 18 0;
#X connect 13 1 12 0;
#X connect 13 2 10 0;
#X connect 14 0 11 0;
#X connect 15 0 3 0;
#X connect 16 0 19 0;
#X connect 17 0 16 0;
#X connect 18 0 17 0;
#X connect 19 0 21 0;
#X connect 20 0 13 0;
#X connect 21 0 2 0;
#X restore 331 134 pd brown;
#X obj 57 91 netpd_r \$1 pluckpos;
#X obj 114 169 s \$1-pluckpos;
#X obj 26 76 inlet;
#X obj 26 148 +;
#X connect 1 0 0 0;
#X connect 2 0 4 0;
#X connect 3 0 2 0;
#X connect 3 0 6 1;
#X connect 5 0 6 0;
#X connect 6 0 1 0;
#X restore 258 197 pd dat;
#X obj 77 304 route 1 2 3 4 5;
#X obj 389 328 t b f;
#X obj 393 373 t b f;
#X obj 402 420 t b f;
#X obj 406 465 t b f;
#X obj 55 202 pack f f;
#X obj 51 528 switch~;
#X obj 76 334 bon-plucker-voice;
#N canvas 383 157 667 494 brown 0;
#X obj 178 39 inlet;
#X obj 263 374 outlet;
#X obj 254 327 - 1;
#X obj 485 223 int;
#X obj 244 70 * 127;
#X obj 252 88 + 128;
#X obj 247 213 * -256;
#X obj 307 226 * -65536;
#X obj 307 260 +;
#X msg 255 347 color \$1 23 23;
#X obj 486 178 * -40;
#X obj 230 192 int;
#X obj 231 147 * -80;
#X obj 289 137 t f f f;
#X obj 232 168 + 255;
#X obj 487 199 + 255;
#X obj 160 263 int;
#X obj 152 244 + 255;
#X obj 158 217 * -120;
#X obj 115 300 * -1;
#X obj 372 71 + 0.3;
#X obj 141 328 +;
#X connect 0 0 20 0;
#X connect 2 0 9 0;
#X connect 3 0 7 0;
#X connect 4 0 5 0;
#X connect 6 0 8 0;
#X connect 7 0 8 1;
#X connect 8 0 21 1;
#X connect 9 0 1 0;
#X connect 10 0 15 0;
#X connect 11 0 6 0;
#X connect 12 0 14 0;
#X connect 13 0 18 0;
#X connect 13 1 12 0;
#X connect 13 2 10 0;
#X connect 14 0 11 0;
#X connect 15 0 3 0;
#X connect 16 0 19 0;
#X connect 17 0 16 0;
#X connect 18 0 17 0;
#X connect 19 0 21 0;
#X connect 20 0 13 0;
#X connect 21 0 2 0;
#X restore 272 126 pd brown;
#X msg 57 78 \$1;
#X obj 45 169 makenote 127 300;
#X obj 138 139 * 1000;
#X obj 409 486 |;
#X obj 407 442 |;
#X obj 398 395 |;
#X obj 394 350 |;
#X obj 88 358 bon-plucker-voice;
#X obj 104 384 bon-plucker-voice;
#X obj 120 405 bon-plucker-voice;
#X obj 134 425 bon-plucker-voice;
#X obj 46 228 poly 5 1;
#X obj 406 508 change;
#X obj 234 97 netpd_r \$1 decay;
#X obj 274 150 s \$1-decay;
#X obj 51 497 i2mx \$1 bon-plucker;
#X obj 57 17 inlet;
#X obj 57 39 route note decay pluckpos;
#X obj 137 117 +;
#X connect 0 0 2 0;
#X connect 1 0 9 1;
#X connect 1 0 18 1;
#X connect 1 0 19 1;
#X connect 1 0 20 1;
#X connect 1 0 21 1;
#X connect 2 0 9 0;
#X connect 2 1 18 0;
#X connect 2 2 19 0;
#X connect 2 3 20 0;
#X connect 2 4 21 0;
#X connect 3 0 17 0;
#X connect 3 1 17 1;
#X connect 4 0 16 0;
#X connect 4 1 16 1;
#X connect 5 0 15 0;
#X connect 5 1 15 1;
#X connect 6 0 14 0;
#X connect 6 1 14 1;
#X connect 7 0 22 0;
#X connect 9 0 26 0;
#X connect 9 0 26 1;
#X connect 9 1 3 0;
#X connect 10 0 25 0;
#X connect 11 0 12 0;
#X connect 12 0 7 0;
#X connect 12 1 7 1;
#X connect 13 0 12 2;
#X connect 14 0 23 0;
#X connect 15 0 6 0;
#X connect 16 0 5 0;
#X connect 17 0 4 0;
#X connect 18 0 26 0;
#X connect 18 0 26 1;
#X connect 18 1 17 0;
#X connect 19 0 26 0;
#X connect 19 0 26 1;
#X connect 19 1 16 0;
#X connect 20 0 26 0;
#X connect 20 0 26 1;
#X connect 20 1 15 0;
#X connect 21 0 26 0;
#X connect 21 0 26 1;
#X connect 21 1 14 0;
#X connect 22 0 0 0;
#X connect 22 1 0 1;
#X connect 22 2 0 2;
#X connect 23 0 26 2;
#X connect 24 0 10 0;
#X connect 24 0 29 1;
#X connect 26 0 8 0;
#X connect 27 0 28 0;
#X connect 28 0 11 0;
#X connect 28 1 29 0;
#X connect 28 2 1 0;
#X connect 29 0 13 0;
#X restore 19 253 pd pluckit!;
#N canvas 1006 451 107 77 \$1-bon-plucker 0;
#X obj 8 5 cnv 15 80 63 empty empty bon-plucker 4 6 0 8 #ccbc98 #782814 0;
#X obj 11 36 hsl 75 17 0 1 0 0 \$1-pluckpos \$1-pluckpos pluckpos 4 8 0 8 #e4ccb4 #8c0808 #8c0808 0 1;
#X obj 11 19 hsl 75 17 0 1 0 0 \$1-decay \$1-decay decay 4 8 0 8 #dcbc9c #8c0808 #8c0808 0 1;
#X obj 8 53 bng 15 250 50 0 \$0.unstep \$1-dummy-in unstep 18 8 1 9 #ac8038 #8c0808 #8c0808;
#X restore 19 63 pd \$1-bon-plucker;
#X obj 19 104 netpd_head \$1 bon-plucker;
#X obj 19 147 netpd_f \$1 pluckpos 0.3;
#X obj 19 125 netpd_f \$1 decay 0.5;
#N canvas 847 235 242 115 NETPD 0;
#N canvas 419 325 155 134 abslist 0;
#X msg 14 54 bon-plucker-voice;
#X msg 14 34 i2mx;
#X msg 14 13 unstep;
#X restore 10 38 pd abslist;
#X msg 9 13 version 0 0 5;
#X restore 19 43 pd NETPD 2 0;
#X obj 19 228 unstep \$1 bon-plucker decay pluckpos;
#X obj 19 181 r \$0.unstep;
#X msg 19 205 vis 1;
#X connect 6 0 0 0;
#X connect 7 0 8 0;
#X connect 8 0 6 0;