-
-
Notifications
You must be signed in to change notification settings - Fork 1
/
bow~.pd
executable file
·230 lines (230 loc) · 5.73 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
#N canvas 453 86 987 740 10;
#X declare -path abs/;
#X floatatom 378 318 5 0 0 0 - - -;
#X obj 799 209 declare -path abs/;
#X obj 307 145 loadbang;
#X obj 307 166 f \$0;
#X obj 85 695 outlet~;
#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 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 obj 325 108 r \$0-pressure-rec;
#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 30 0;
#X connect 19 0 33 0;
#X connect 21 0 24 0;
#X connect 22 0 23 0;
#X connect 23 0 21 0;
#X connect 24 0 25 0;
#X connect 25 0 20 0;
#X connect 27 0 28 0;
#X connect 28 0 29 0;
#X connect 29 0 26 0;
#X connect 30 0 31 0;
#X connect 31 0 13 0;
#X connect 33 0 1 0;
#X connect 34 0 18 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 337 sig~;
#X obj 378 369 mtof~;
#X obj 363 395 sig~ 1000;
#X obj 363 416 /~;
#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 69 165 list prepend \$0;
#X obj 69 144 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 69 186 \; \$1-bow-rec \$2 \; \$1-pressure-rec \$3 \; \$1-pitch-rec
\$4 \; \$1-noise-rec \$5 \; \$1-position-rec \$6 \;;
#X obj 85 493 min~ 0.5;
#X obj 85 514 max~ -0.5;
#X msg 307 187 \; \$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 403 * 0.0078125;
#X obj 53 26 inlet pitch;
#X text 373 10 bow \, pressure \, position \, noise;
#X obj 53 47 route float rand init;
#X obj 85 275 r \$0-bow-rec;
#X obj 165 382 r \$0-noise-rec;
#X obj 378 297 r \$0-pitch-rec;
#X obj 484 405 r \$0-position-rec;
#X obj 237 100 s \$0-bow-rec;
#X obj 377 107 s \$0-pressure-rec;
#X obj 507 107 s \$0-position-rec;
#X obj 637 107 s \$0-noise-rec;
#X obj 53 107 s \$0-pitch-rec;
#X obj 237 29 inlet bow;
#X obj 377 29 inlet pressure;
#X obj 507 29 inlet pos;
#X obj 637 29 inlet noise;
#X connect 0 0 8 0;
#X connect 2 0 3 0;
#X connect 3 0 30 0;
#X connect 5 0 24 0;
#X connect 6 0 31 0;
#X connect 6 0 32 0;
#X connect 7 0 15 0;
#X connect 8 0 9 0;
#X connect 9 0 11 1;
#X connect 10 0 11 0;
#X connect 11 0 21 0;
#X connect 12 0 13 0;
#X connect 12 0 22 0;
#X connect 13 0 14 0;
#X connect 13 1 14 1;
#X connect 14 0 23 0;
#X connect 15 0 16 0;
#X connect 16 0 4 0;
#X connect 17 0 7 2;
#X connect 18 0 7 1;
#X connect 19 0 27 0;
#X connect 20 0 19 0;
#X connect 21 0 17 0;
#X connect 21 0 18 0;
#X connect 22 0 18 1;
#X connect 23 0 17 1;
#X connect 24 0 25 0;
#X connect 25 0 26 0;
#X connect 26 0 6 0;
#X connect 28 0 29 0;
#X connect 29 0 7 0;
#X connect 31 0 28 0;
#X connect 32 0 31 1;
#X connect 33 0 34 0;
#X connect 34 0 32 1;
#X connect 35 0 34 1;
#X connect 36 0 38 0;
#X connect 38 0 47 0;
#X connect 38 1 20 0;
#X connect 38 2 3 0;
#X connect 39 0 5 0;
#X connect 40 0 35 0;
#X connect 41 0 0 0;
#X connect 42 0 12 0;
#X connect 48 0 43 0;
#X connect 49 0 44 0;
#X connect 50 0 45 0;
#X connect 51 0 46 0;
#X coords 0 740 1 739 200 150 0;