/
sf-play~.pd
211 lines (211 loc) · 4.83 KB
/
sf-play~.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
#N canvas 483 93 615 604 12;
#X declare -lib cyclone;
#X obj 47 29 declare -lib cyclone;
#X obj 47 87 inlet;
#X obj 186 87 inlet;
#X text 45 63 start or 'all';
#X text 192 63 end;
#X obj 237 87 inlet;
#X text 237 63 rate;
#X obj 135 306 pack 0 0 1, f 15;
#X msg 76 257 0 \$1;
#X obj 135 331 t l l;
#N canvas 2 93 580 606 envelope 0;
#X obj 71 54 inlet;
#X obj 271 464 inlet;
#X obj 304 163 -;
#X obj 304 213 abs;
#X obj 71 526 vline~;
#X obj 304 130 unpack 0 0 0;
#X obj 304 188 /;
#X obj 71 551 outlet~;
#X text 30 24 start/end/rate list;
#X obj 304 238 -, f 5;
#X obj 336 213 r \$0-envtime;
#X text 204 563 direct forward to vline~;
#X obj 304 263 max 1;
#X obj 290 54 r \$0-loopflag;
#X obj 290 79 <= 0;
#X obj 251 293 spigot;
#X obj 251 318 delay, f 8;
#X obj 71 79 t b b a;
#X obj 124 293 r \$0-envtime;
#X obj 124 318 t f f;
#X obj 251 357 pack 0 0;
#X obj 71 357 pack 1 0;
#X obj 267 29 loadbang;
#X connect 0 0 17 0;
#X connect 1 0 4 0;
#X connect 2 0 6 0;
#X connect 3 0 9 0;
#X connect 4 0 7 0;
#X connect 5 0 2 0;
#X connect 5 1 2 1;
#X connect 5 2 6 1;
#X connect 6 0 3 0;
#X connect 9 0 12 0;
#X connect 10 0 9 1;
#X connect 12 0 16 1;
#X connect 13 0 14 0;
#X connect 14 0 15 1;
#X connect 15 0 16 0;
#X connect 16 0 20 0;
#X connect 17 0 21 0;
#X connect 17 1 15 0;
#X connect 17 2 5 0;
#X connect 18 0 19 0;
#X connect 19 0 21 1;
#X connect 19 1 20 1;
#X connect 20 0 4 0;
#X connect 21 0 4 0;
#X connect 22 0 14 0;
#X restore 255 383 pd envelope;
#X obj 285 87 inlet;
#X text 283 63 attack/release time;
#X obj 76 232 value;
#X obj 47 437 play~, f 36;
#X msg 419 383 set \$1;
#X obj 135 383 sf-startmsg;
#X obj 373 137 t a a a;
#X obj 47 462 *~, f 30;
#X obj 296 511 outlet;
#X obj 47 511 outlet~;
#N canvas 2 93 330 416 getArgsWithDefault 0;
#X obj 165 97 pdcontrol;
#X obj 76 22 loadbang;
#X msg 165 72 args 0;
#X obj 76 47 t b b b, f 26;
#X msg 255 122 1;
#X obj 76 245 spigot;
#X obj 165 156 t b f;
#X msg 115 196 0;
#X obj 98 128 unpack s f;
#X obj 139 339 outlet;
#X msg 76 270 10;
#X obj 17 339 outlet;
#X connect 0 0 8 0;
#X connect 1 0 3 0;
#X connect 2 0 0 0;
#X connect 3 0 5 0;
#X connect 3 1 2 0;
#X connect 3 2 4 0;
#X connect 4 0 5 1;
#X connect 5 0 10 0;
#X connect 6 0 7 0;
#X connect 6 1 9 0;
#X connect 7 0 5 1;
#X connect 8 0 11 0;
#X connect 8 1 6 0;
#X connect 10 0 9 0;
#X restore 373 87 pd getArgsWithDefault;
#X obj 536 87 inlet;
#X text 528 63 sym table;
#X msg 108 207 symbol \$1dur;
#N canvas 422 105 616 512 routeleft 0;
#X obj 44 48 inlet;
#X obj 172 404 outlet;
#X text 154 425 bang for all;
#X obj 181 98 t a a, f 14;
#X obj 276 123 list split 1;
#X obj 276 148 route symbol float;
#X obj 399 173 print sf-play~_wrong_input;
#X msg 337 173 2;
#X obj 50 404 outlet;
#X text 23 425 forward to play~;
#X msg 276 173 1;
#X obj 382 404 outlet;
#X text 366 425 number list;
#X msg 44 98 bang;
#X obj 272 404 outlet;
#X text 270 425 'stop';
#X msg 91 98 bang;
#X obj 44 73 route all stop loopx;
#X msg 24 295 loop 1 \, loopinterp 1 \, interptime \$1, f 15;
#X obj 234 267 gate 2;
#X connect 0 0 17 0;
#X connect 3 0 19 1;
#X connect 3 1 4 0;
#X connect 4 0 5 0;
#X connect 5 0 10 0;
#X connect 5 1 7 0;
#X connect 5 2 6 0;
#X connect 7 0 19 0;
#X connect 10 0 19 0;
#X connect 13 0 1 0;
#X connect 16 0 14 0;
#X connect 17 0 13 0;
#X connect 17 1 16 0;
#X connect 17 2 18 0;
#X connect 17 3 3 0;
#X connect 18 0 8 0;
#X connect 19 0 8 0;
#X connect 19 1 11 0;
#X restore 47 112 pd routeleft;
#X f 13;
#N canvas 2 93 450 300 stopmsgs 0;
#X obj 76 28 inlet;
#X obj 115 92 r \$0-envtime;
#X obj 115 117 t f f;
#X obj 234 153 f;
#X msg 234 178 0 \$1;
#X obj 234 203 outlet;
#X obj 76 153 delay;
#X obj 76 53 t b b, f 23;
#X msg 76 178 stop;
#X obj 76 203 outlet;
#X connect 0 0 7 0;
#X connect 1 0 2 0;
#X connect 2 0 6 1;
#X connect 2 1 3 1;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 6 0 8 0;
#X connect 7 0 6 0;
#X connect 7 1 3 0;
#X connect 8 0 9 0;
#X restore 255 196 pd stopmsgs;
#X obj 482 137 s \$0-envtime;
#X obj 285 112 s \$0-envtime;
#N canvas 2 93 450 300 loopmsg 0;
#X obj 88 46 inlet;
#X obj 88 71 route loop;
#X obj 262 238 outlet;
#X obj 88 96 t f f;
#X msg 120 121 loop \$1;
#X obj 88 238 s \$0-loopflag;
#X connect 0 0 1 0;
#X connect 1 0 3 0;
#X connect 1 1 2 0;
#X connect 3 0 5 0;
#X connect 3 1 4 0;
#X connect 4 0 2 0;
#X restore 47 331 pd loopmsg;
#X connect 1 0 25 0;
#X connect 2 0 7 1;
#X connect 5 0 7 2;
#X connect 7 0 9 0;
#X connect 8 0 7 0;
#X connect 9 0 16 0;
#X connect 9 1 10 0;
#X connect 10 0 18 1;
#X connect 11 0 28 0;
#X connect 13 0 8 0;
#X connect 14 0 18 0;
#X connect 14 1 19 0;
#X connect 15 0 14 0;
#X connect 16 0 14 0;
#X connect 17 0 24 0;
#X connect 17 1 16 3;
#X connect 17 2 15 0;
#X connect 18 0 20 0;
#X connect 21 0 17 0;
#X connect 21 1 27 0;
#X connect 22 0 17 0;
#X connect 24 0 13 1;
#X connect 25 0 29 0;
#X connect 25 1 13 0;
#X connect 25 2 26 0;
#X connect 25 3 7 0;
#X connect 26 0 14 0;
#X connect 26 1 10 1;
#X connect 29 0 14 0;