-
Notifications
You must be signed in to change notification settings - Fork 0
/
bop.frets.pd
160 lines (160 loc) · 4.07 KB
/
bop.frets.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
#N canvas 0 37 735 891 12;
#X declare -path ./babs;
#X obj 130 118 inlet~, f 11;
#X obj 365 408 outlet;
#X obj 130 308 outlet~;
#X text 120 336 Signal out of left, f 9;
#X obj 652 103 r \$0-get-frets;
#X obj 654 280 t f b, f 25;
#X obj 844 277 r \$0-get-hold;
#X obj 844 301 sel 0;
#X obj 654 363 babs.splitfloat;
#X msg 804 244 0.221;
#X msg 872 244 3.204;
#X msg 931 245 -12.221;
#X obj 1049 601 r \$0-get-tuning;
#X floatatom 970 756 5 0 0 0 - - - 0;
#X obj 970 779 t b f, f 9;
#X obj 1081 711 list length;
#X obj 1024 845 list;
#X obj 1049 680 t l l;
#X obj 1024 902 babs.nth;
#X floatatom 1024 926 5 0 0 0 - - - 0;
#X obj 1084 836 min;
#X obj 1102 754 - 1;
#X obj 856 460 babs.iter;
#X obj 970 541 babs.counter;
#X msg 1058 463 0;
#X obj 856 494 t f b, f 17;
#X obj 856 977 +;
#X obj 651 1022 babs.accum, f 88;
#X obj 654 397 t b l b b, f 87;
#X obj 747 1213 babs.iter;
#X obj 747 1417 makenote 100 500, f 33;
#X obj 881 1313 r \$0-get-velocity;
#X obj 881 1337 * 127;
#X obj 975 1346 r \$0-get-duration;
#X obj 975 1372 * 5000;
#X obj 748 1460 pack, f 33;
#X obj 747 1286 +;
#X obj 766 1247 r \$0-get-root;
#X msg 774 1378 stop;
#X obj 732 1096 r \$0-get-hold;
#X obj 651 1129 list prepend;
#X obj 651 1163 route 1 0, f 28;
#X obj 497 1219 babs.iter;
#X obj 497 1392 poly 64 1, f 15;
#X obj 497 1281 +;
#X obj 515 1252 r \$0-get-root;
#X obj 619 1318 r \$0-get-velocity;
#X obj 619 1342 * 127;
#X obj 548 1434 pack, f 8;
#X text 760 1186 hold off;
#X text 657 1188 hold on;
#X msg 516 1363 stop;
#X obj 1049 641 babs.steps2tones;
#X obj 826 338 s \$0-noteoff;
#X obj 504 1313 r \$0-noteoff;
#X obj 759 1319 r \$0-noteoff;
#X obj 124 518 declare -path ./babs;
#X obj 365 212 babs.inout \$0 bop.frets;
#X obj 365 115 inlet;
#X obj 516 1338 r \$0-get-stop;
#X obj 774 1344 r \$0-get-stop;
#X obj 173 174 s \$0-in;
#X obj 391 151 r \$0-in;
#X obj 124 575 savestate;
#X obj 124 548 babs.savestate \$0;
#X obj 549 1472 s \$0-out;
#X obj 749 1490 s \$0-out;
#X obj 388 281 r \$0-out;
#X obj 735 134 loadbang;
#X obj 735 158 delay 10;
#X msg 735 182 1;
#X msg 768 185 0;
#X text 805 164 prevent output on load;
#X obj 653 214 babs.gate 0;
#X obj 121 891 babs.param \$0 duration 0.3;
#X obj 119 841 babs.param \$0 velocity 0.7;
#X obj 123 815 babs.param \$0 hold 0 0 1;
#X obj 75 769 babs.param.spacer \$0;
#X obj 122 721 babs.param \$0 root 42 -64 64;
#X obj 122 690 babs.param \$0 tuning 0.55545 -1e+37 1e+37;
#X obj 76 656 babs.param.spacer \$0;
#X obj 123 615 babs.param \$0 frets 0.221 -1e+37 1e+37;
#X connect 0 0 2 0;
#X connect 0 1 61 0;
#X connect 4 0 73 0;
#X connect 5 0 8 0;
#X connect 5 1 53 0;
#X connect 6 0 7 0;
#X connect 7 0 53 0;
#X connect 8 0 28 0;
#X connect 9 0 5 0;
#X connect 10 0 5 0;
#X connect 11 0 5 0;
#X connect 12 0 52 0;
#X connect 13 0 14 0;
#X connect 14 0 16 0;
#X connect 14 1 20 0;
#X connect 15 0 21 0;
#X connect 16 0 18 0;
#X connect 17 0 16 1;
#X connect 17 1 15 0;
#X connect 18 0 19 0;
#X connect 19 0 26 1;
#X connect 20 0 18 1;
#X connect 21 0 20 1;
#X connect 22 0 25 0;
#X connect 23 0 13 0;
#X connect 24 0 23 1;
#X connect 25 0 26 0;
#X connect 25 1 23 0;
#X connect 26 0 27 0;
#X connect 27 0 40 0;
#X connect 28 0 27 0;
#X connect 28 1 22 0;
#X connect 28 2 24 0;
#X connect 28 3 27 1;
#X connect 29 0 36 0;
#X connect 30 0 35 0;
#X connect 30 1 35 1;
#X connect 31 0 32 0;
#X connect 32 0 30 1;
#X connect 33 0 34 0;
#X connect 34 0 30 2;
#X connect 35 0 66 0;
#X connect 36 0 30 0;
#X connect 37 0 36 1;
#X connect 38 0 30 0;
#X connect 39 0 40 1;
#X connect 40 0 41 0;
#X connect 41 0 42 0;
#X connect 41 1 29 0;
#X connect 42 0 44 0;
#X connect 43 1 48 0;
#X connect 43 2 48 1;
#X connect 44 0 43 0;
#X connect 45 0 44 1;
#X connect 46 0 47 0;
#X connect 47 0 43 1;
#X connect 48 0 65 0;
#X connect 51 0 43 0;
#X connect 52 0 17 0;
#X connect 54 0 51 0;
#X connect 55 0 38 0;
#X connect 57 0 1 0;
#X connect 58 0 57 0;
#X connect 59 0 51 0;
#X connect 60 0 38 0;
#X connect 62 0 57 0;
#X connect 63 0 64 1;
#X connect 63 1 64 0;
#X connect 64 0 63 0;
#X connect 67 0 1 0;
#X connect 68 0 69 0;
#X connect 69 0 70 0;
#X connect 70 0 73 1;
#X connect 71 0 73 1;
#X connect 73 0 5 0;
#X coords 0 891 1 890 166 180 0;