-
Notifications
You must be signed in to change notification settings - Fork 0
/
module.pd
239 lines (239 loc) · 5.76 KB
/
module.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
#N canvas 430 -1084 1312 794 12;
#X obj 243 373 hip~ 5;
#X obj 17 17 inlet~ inL-\$1;
#X obj 127 17 inlet~ inR-\$1;
#X obj 244 14 r notesIn-\$1;
#X obj 345 14 r ctrlIn-\$1;
#X obj 359 417 s notesOut-\$1;
#X obj 465 417 s ctrlOut-\$1;
#X obj 222 449 outlet~ outL-\$1;
#X obj 244 420 outlet~ outR-\$1;
#X obj 494 153 s \$1-samp-dec;
#X obj 683 379 s \$1-samp-pitch;
#X obj 695 181 t b;
#X obj 620 120 moses 0.45;
#X obj 695 157 moses 0.55;
#X obj 620 152 / 0.45;
#X obj 755 190 - 0.55;
#X obj 755 214 / 0.45;
#X obj 683 345 f;
#X obj 755 238 / 2;
#X obj 244 208 poly 8 1, f 10;
#N canvas 504 0 856 874 cycler 0;
#X obj 48 -37 inlet;
#X obj 87 944 outlet;
#X obj 117 305 tabread \$0-cycler;
#X obj 103 360 t a a;
#X obj 135 461 tabwrite \$0-cycler;
#X obj 48 137 t a a;
#X obj 128 521 expr if($f1 <= 0 \, -1 \, $f1);
#X obj 360 747 spigot;
#X obj 128 625 i 0;
#X obj 49 664 t a a, f 36;
#X obj 103 495 clip 0 1;
#X obj 378 775 unpack 0 0;
#X obj 378 857 pack, f 10;
#X obj 128 570 sel -1 -2, f 66;
#X obj 49 732 spigot;
#X obj 91 701 i 0;
#X obj 244 725 i 1;
#X obj 128 595 t b b b, f 17;
#X obj 587 607 t b a b, f 34;
#X obj 451 697 i 1;
#X obj 153 369 r \$1-inc;
#X obj 135 397 + 0;
#X obj 80 159 unpack;
#X obj 46 846 list append;
#X obj 373 890 list append;
#X obj 48 -13 stripnote;
#X obj 48 111 pack 0 0;
#X obj 175 37 r \$1-inc;
#X obj 175 61 > 0;
#X obj 81 207 i, f 10;
#X obj 80 231 sel 0 1;
#X obj 67 271 i 0;
#X obj 80 183 t b a a, f 24;
#X obj 103 272 i, f 11;
#X obj 561 833 * 6.28319;
#X obj 561 861 sin;
#X obj 561 724 t a a, f 16;
#X obj 670 816 * 6.28319;
#X obj 670 844 sin;
#X obj 670 768 / 2;
#X obj 561 748 + 0.5;
#X obj 561 772 wrap;
#X obj 561 799 / 2;
#X obj 135 423 expr if ($f1 >= 1 \, 0 \, $f1);
#X obj 128 547 expr if($f1 == 0.5 \, -2 \, $f1);
#X obj 481 790 i 1;
#X obj 354 603 t b b b;
#X obj 186 798 i 1;
#X obj 378 803 + 12;
#X obj 379 322 array define \$0-cycler 68;
#X obj 378 827 % 68;
#X obj 48 49 % 68;
#X obj 48 73 + 1;
#X obj 48 21 + 44;
#X text 110 90 note -> 1-68 (filenum);
#X text 190 250 If some surprise...;
#X text 230 280 ...read filenum^th entry;
#X text 120 330 0 if no surprise \, else the entry;
#X text 260 600 On 0;
#X text 420 600 On 0.5;
#X text 620 580 Other value;
#X text 60 800 filenum;
#X text 61 757 Open when not 0.5;
#X text 250 770 Open when not 0;
#X connect 0 0 25 0;
#X connect 2 0 3 0;
#X connect 3 0 10 0;
#X connect 3 1 21 0;
#X connect 5 0 9 0;
#X connect 5 1 22 0;
#X connect 6 0 44 0;
#X connect 7 0 11 0;
#X connect 8 0 7 1;
#X connect 9 0 14 0;
#X connect 9 1 7 0;
#X connect 10 0 6 0;
#X connect 11 0 48 0;
#X connect 11 1 12 1;
#X connect 12 0 24 0;
#X connect 13 0 17 0;
#X connect 13 1 46 0;
#X connect 13 2 18 0;
#X connect 14 0 23 0;
#X connect 15 0 14 1;
#X connect 16 0 14 1;
#X connect 17 0 8 0;
#X connect 17 1 47 0;
#X connect 17 2 16 0;
#X connect 18 0 19 0;
#X connect 18 1 36 0;
#X connect 18 2 16 0;
#X connect 19 0 7 1;
#X connect 20 0 21 1;
#X connect 21 0 43 0;
#X connect 22 0 32 0;
#X connect 23 0 1 0;
#X connect 24 0 1 0;
#X connect 25 0 53 0;
#X connect 25 1 26 1;
#X connect 26 0 5 0;
#X connect 27 0 28 0;
#X connect 28 0 29 1;
#X connect 29 0 30 0;
#X connect 30 0 31 0;
#X connect 30 1 33 0;
#X connect 31 0 3 0;
#X connect 32 0 29 0;
#X connect 32 1 33 1;
#X connect 32 2 4 1;
#X connect 33 0 2 0;
#X connect 34 0 35 0;
#X connect 35 0 23 1;
#X connect 36 0 40 0;
#X connect 36 1 39 0;
#X connect 37 0 38 0;
#X connect 38 0 24 1;
#X connect 39 0 37 0;
#X connect 40 0 41 0;
#X connect 41 0 42 0;
#X connect 42 0 34 0;
#X connect 43 0 4 0;
#X connect 44 0 13 0;
#X connect 45 0 24 1;
#X connect 46 0 19 0;
#X connect 46 1 15 0;
#X connect 46 2 45 0;
#X connect 47 0 23 1;
#X connect 48 0 50 0;
#X connect 50 0 12 0;
#X connect 51 0 52 0;
#X connect 52 0 26 0;
#X connect 53 0 51 0;
#X restore 244 99 pd cycler;
#X obj 812 144 s \$1-inc;
#X obj 244 236 pack 0 0 0 0, f 16;
#X obj 244 285 clone -s 1 201_sample-voice~ 8 \$1;
#X obj 244 162 list split 2, f 23;
#X obj 494 64 r knob1-\$1;
#X obj 620 65 r knob2-\$1;
#X obj 695 205 1;
#X obj 748 297 + 1;
#X obj 755 262 * 2;
#X obj 620 200 + 0.2;
#X obj 620 176 * 0.79999;
#X obj 890 444 i;
#X obj 932 447 + 1;
#X obj 890 364 t a b;
#X obj 939 396 i 1;
#X obj 890 393 max 1;
#X obj 890 417 until;
#X obj 891 547 list prepend;
#X obj 890 468 t a a;
#X obj 890 518 list prepend read;
#X obj 891 572 list trim;
#X obj 890 241 r loadbang-\$1;
#X obj 890 495 makefilename samples/%d.wav;
#X obj 812 81 / 2;
#X obj 812 57 r knob3-\$1;
#X obj 890 324 i 68;
#X obj 891 608 clone -s 1 201_sample-load 68 bank1-\$1;
#X obj 924 276 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc
#000000 #000000;
#X msg 1070 559 vis 2 1;
#X text 382 98 24 - 91;
#X text 490 30 Decay;
#X text 620 30 Pitch;
#X text 260 120 Note \, vol \, weighting 0-1;
#X text 810 30 Surprise - how much it swings between two samples each
time;
#X connect 0 0 7 0;
#X connect 0 0 8 0;
#X connect 3 0 20 0;
#X connect 11 0 27 0;
#X connect 12 0 14 0;
#X connect 12 1 13 0;
#X connect 13 0 11 0;
#X connect 13 1 15 0;
#X connect 14 0 31 0;
#X connect 15 0 16 0;
#X connect 16 0 18 0;
#X connect 17 0 10 0;
#X connect 18 0 29 0;
#X connect 19 0 22 0;
#X connect 19 1 22 1;
#X connect 19 2 22 2;
#X connect 20 0 24 0;
#X connect 22 0 23 0;
#X connect 23 0 0 0;
#X connect 24 0 19 0;
#X connect 24 1 22 3;
#X connect 25 0 9 0;
#X connect 26 0 12 0;
#X connect 27 0 17 0;
#X connect 28 0 17 0;
#X connect 29 0 28 0;
#X connect 30 0 17 0;
#X connect 31 0 30 0;
#X connect 32 0 33 0;
#X connect 32 0 39 0;
#X connect 33 0 32 1;
#X connect 34 0 36 0;
#X connect 34 1 35 0;
#X connect 35 0 32 1;
#X connect 36 0 37 0;
#X connect 37 0 32 0;
#X connect 38 0 41 0;
#X connect 39 0 43 0;
#X connect 39 1 38 1;
#X connect 40 0 38 0;
#X connect 41 0 47 0;
#X connect 42 0 46 0;
#X connect 43 0 40 0;
#X connect 44 0 21 0;
#X connect 45 0 44 0;
#X connect 46 0 34 0;
#X connect 48 0 46 0;
#X connect 49 0 47 0;