-
-
Notifications
You must be signed in to change notification settings - Fork 1
/
Copy pathbow.pd
executable file
·249 lines (249 loc) · 6.68 KB
/
bow.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
#N canvas 422 23 987 740 10;
#X declare -path abs/;
#X floatatom 378 278 5 0 0 0 - - -;
#X obj 453 29 declare -path abs/;
#X obj 113 185 hsl 128 15 0 127 0 0 \$0-position-send \$0-position-rec
POSITION 0 8 0 10 -1 -262144 -262144 1600 1;
#X obj 113 151 hsl 128 15 0 127 0 0 \$0-bow-send \$0-bow-rec BOW 0
8 0 10 -1 -262144 -262144 6400 1;
#X obj 176 113 cnv 15 5 5 empty empty BOW 5 9 0 14 -262144 -1 0;
#X obj 113 134 hsl 128 15 0 127 0 0 \$0-pitch-send \$0-pitch-rec PITCH
0 8 0 10 -1 -262144 -262144 6000 1;
#X obj 245 134 nbx 3 15 0 127 0 0 empty empty empty 0 -8 0 10 -1 -262144
-1 60 256;
#X obj 100 100 cnv 5 25 10 empty empty PITCH 0 5 0 8 -1 -262144 0;
#X obj 100 240 cnv 5 25 10 empty empty OUT 1 5 0 8 -1 -262144 0;
#X obj 113 202 hsl 128 15 0 127 0 0 \$0-noise-send \$0-noise-rec NOISE
0 8 0 10 -1 -262144 -262144 0 1;
#X obj 464 95 loadbang;
#X obj 464 116 f \$0;
#X obj 113 168 hsl 128 15 0 127 0 0 \$0-pressure-send \$0-pressure-rec
PRESSURE 0 8 0 10 -1 -262144 -262144 6400 1;
#X obj 85 695 outlet~;
#X obj 378 257 r \$0-pitch-send;
#X obj 305 98 r \$0-pitch-send;
#X obj 85 296 / 127;
#X obj 85 380 line~;
#N canvas 66 200 754 454 bowedstring 0;
#X obj 37 37 inlet~;
#X obj 265 84 rpole~ 0.65;
#X obj 265 105 *~ 0.35;
#X obj 265 126 *~ -0.95;
#X text 328 126 < bridge reflection;
#X obj 37 275 -~;
#X obj 265 204 +~;
#X text 298 204 < string velocity;
#X obj 482 87 *~ -1;
#N canvas 407 273 509 329 bowtable 0;
#X obj 22 271 outlet~;
#X obj 37 79 *~;
#X obj 37 100 abs~;
#X obj 37 121 +~ 0.75;
#X obj 37 142 *~;
#X obj 37 163 *~;
#X obj 22 187 sig~ 1;
#X obj 22 208 /~;
#X text 48 206 x^(-4);
#X obj 22 229 max~ 0.01;
#X obj 22 250 min~ 0.98;
#X obj 333 20 loadbang;
#X msg 333 41 0;
#X floatatom 325 192 5 0 0 0 - - -;
#X obj 325 212 pack f 20;
#X obj 325 233 line~;
#X msg 208 64 0.1;
#X text 242 65 slope;
#X obj 325 108 r \$0-pressure-send;
#X obj 325 129 / 127;
#X obj 37 37 inlet~ deltaV;
#X floatatom 167 281 5 0 0 0 - - -;
#X obj 167 218 / 127;
#X obj 254 127 vsl 15 128 0 127 0 0 empty empty empty 0 -9 0 10 -262144
-1 -1 0 1;
#X floatatom 254 263 5 0 0 0 - - -;
#X obj 167 239 * 0.4;
#X obj 167 260 + 0.1;
#X floatatom 432 281 5 0 0 0 - - -;
#X obj 432 218 / 127;
#X obj 432 239 * 4;
#X obj 432 260 + 1;
#X obj 325 150 * 0.4;
#X obj 325 171 + 0.1;
#X text 88 57 < offset;
#X obj 37 58 +~ 0.1;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 3 0 4 1;
#X connect 4 0 5 0;
#X connect 4 0 5 1;
#X connect 5 0 7 1;
#X connect 6 0 7 0;
#X connect 7 0 9 0;
#X connect 9 0 10 0;
#X connect 10 0 0 0;
#X connect 11 0 12 0;
#X connect 11 0 16 0;
#X connect 13 0 14 0;
#X connect 14 0 15 0;
#X connect 15 0 1 1;
#X connect 18 0 19 0;
#X connect 19 0 31 0;
#X connect 20 0 34 0;
#X connect 22 0 25 0;
#X connect 23 0 24 0;
#X connect 24 0 22 0;
#X connect 25 0 26 0;
#X connect 26 0 21 0;
#X connect 28 0 29 0;
#X connect 29 0 30 0;
#X connect 30 0 27 0;
#X connect 31 0 32 0;
#X connect 32 0 13 0;
#X connect 34 0 1 0;
#X restore 37 296 pd bowtable;
#X obj 37 317 *~;
#X obj 37 378 +~;
#X obj 37 399 delwrite~ \$0-neckDel 100;
#X obj 337 378 +~;
#X obj 337 399 delwrite~ \$0-bridgeDel 100;
#X obj 569 132 outlet~;
#X obj 265 33 inlet~;
#X obj 482 66 delread4~ \$0-neckDel;
#X obj 265 63 delread4~ \$0-bridgeDel;
#X obj 482 37 inlet~;
#X obj 626 64 block~ 2;
#X connect 0 0 5 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 3 0 6 0;
#X connect 3 0 11 1;
#X connect 5 0 10 1;
#X connect 5 0 9 0;
#X connect 6 0 5 1;
#X connect 8 0 6 1;
#X connect 8 0 13 1;
#X connect 9 0 10 0;
#X connect 10 0 11 0;
#X connect 10 0 13 0;
#X connect 11 0 12 0;
#X connect 13 0 14 0;
#X connect 16 0 18 0;
#X connect 17 0 8 0;
#X connect 18 0 1 0;
#X connect 18 0 15 0;
#X connect 19 0 17 0;
#X restore 85 611 pd bowedstring;
#X obj 378 297 sig~;
#X obj 378 348 +~;
#X obj 224 17 inlet~ pitch;
#X obj 224 59 s~ \$0-inlet-pitch;
#X obj 224 38 *~ 127;
#X obj 393 322 r~ \$0-inlet-pitch;
#X obj 378 369 mtof~;
#X obj 363 395 sig~ 1000;
#X obj 363 416 /~;
#X obj 484 405 r \$0-position-send;
#X obj 484 426 / 127;
#X obj 484 447 swap 1;
#X obj 484 468 -;
#N canvas 633 97 385 269 cascade 0;
#X obj 69 19 inlet~;
#X obj 69 198 outlet~;
#X obj 69 49 biquad~ 0.5509 0.3925 1 1.5667 0.3133;
#X obj 69 71 biquad~ 1.6357 -0.8697 1 -1.9537 0.9542;
#X obj 69 93 biquad~ 1.7674 -0.8735 1 -1.6683 0.8852;
#X obj 69 115 biquad~ 1.8498 -0.9516 1 -1.8585 0.9653;
#X obj 69 137 biquad~ 1.9354 -0.959 1 -1.9299 0.9621;
#X obj 69 159 biquad~ 1.9867 -0.9923 1 -1.98 0.9888;
#X connect 0 0 2 0;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 6 0 7 0;
#X connect 7 0 1 0;
#X restore 85 632 pd cascade filter body;
#X obj 85 653 *~ 0.1248;
#X obj 363 581 *~;
#X obj 125 575 *~;
#X obj 245 151 bng 32 250 50 0 empty empty RAND 4 16 0 10 -1 -262144
-262144;
#X obj 647 206 list prepend \$0;
#X obj 245 185 bng 32 250 50 0 empty empty INIT 4 16 0 10 -1 -262144
-262144;
#X obj 647 185 randomizer 128 128 128 128 128;
#X obj 363 437 lop~ 15;
#X obj 140 542 lop~ 20;
#X obj 378 560 lop~ 20;
#X obj 85 317 * 0.5;
#X obj 85 338 - 0.25;
#X obj 85 359 pack f 30;
#X msg 647 227 \; \$1-bow-rec \$2 \; \$1-pressure-rec \$3 \; \$1-pitch-rec
\$4 \; \$1-noise-rec \$5 \; \$1-position-rec \$6 \;;
#X obj 85 275 r \$0-bow-send;
#X obj 85 493 min~ 0.5;
#X obj 85 514 max~ -0.5;
#X obj 85 411 +~;
#X obj 347 47 *~ 0.25;
#X obj 275 100 cnv 5 25 10 empty empty BOW 0 5 0 8 -1 -262144 0;
#X obj 347 26 inlet~ bow-cv;
#X msg 464 137 \; \$1-bow-rec 64 \; \$1-pressure-rec 64 \; \$1-pitch-rec
60 \; \$1-noise-rec 0 \; \$1-position-rec 16;
#X obj 85 472 +~;
#X obj 100 451 *~;
#X obj 115 405 noise~;
#X obj 115 426 *~ 0.2;
#X obj 165 382 r \$0-noise-send;
#X obj 165 403 * 0.0078125;
#X connect 0 0 19 0;
#X connect 10 0 11 0;
#X connect 11 0 54 0;
#X connect 14 0 0 0;
#X connect 15 0 6 0;
#X connect 16 0 43 0;
#X connect 17 0 50 0;
#X connect 18 0 32 0;
#X connect 19 0 20 0;
#X connect 20 0 25 0;
#X connect 21 0 23 0;
#X connect 23 0 22 0;
#X connect 24 0 20 1;
#X connect 25 0 27 1;
#X connect 26 0 27 0;
#X connect 27 0 40 0;
#X connect 28 0 29 0;
#X connect 29 0 30 0;
#X connect 29 0 41 0;
#X connect 30 0 31 0;
#X connect 30 1 31 1;
#X connect 31 0 42 0;
#X connect 32 0 33 0;
#X connect 33 0 13 0;
#X connect 34 0 18 2;
#X connect 35 0 18 1;
#X connect 36 0 39 0;
#X connect 37 0 46 0;
#X connect 38 0 11 0;
#X connect 39 0 37 0;
#X connect 40 0 34 0;
#X connect 40 0 35 0;
#X connect 41 0 35 1;
#X connect 42 0 34 1;
#X connect 43 0 44 0;
#X connect 44 0 45 0;
#X connect 45 0 17 0;
#X connect 47 0 16 0;
#X connect 48 0 49 0;
#X connect 49 0 18 0;
#X connect 50 0 55 0;
#X connect 50 0 56 0;
#X connect 51 0 50 1;
#X connect 53 0 51 0;
#X connect 55 0 48 0;
#X connect 56 0 55 1;
#X connect 57 0 58 0;
#X connect 58 0 56 1;
#X connect 59 0 60 0;
#X connect 60 0 58 1;
#X coords 0 -1 1 1 200 150 2 100 100;