/gtr~.pd

  1#N canvas 197 90 745 581 10;
  2#X declare -lib list-abs;
  3#X declare -lib list-abs -lib mrpeach;
  4#X declare -lib list-abs -lib mrpeach;
  5#X declare -lib list-abs;
  6#X declare -lib tabreadc;
  7#X declare -lib tabreadc;
  8#X declare -lib tabreadc;
  9#X declare -lib tabreadc;
 10#X declare -lib tabreadc;
 11#X declare -lib tabreadc;
 12#X declare -lib tabreadc;
 13#X declare -lib tabreadc;
 14#X declare -lib tabreadc;
 15#X declare -lib tabreadc;
 16#X declare -lib tabreadc;
 17#X declare -lib tabreadc;
 18#X declare -lib tabreadc;
 19#X declare -lib tabreadc;
 20#X declare -lib tabreadc;
 21#X declare -lib tabreadc;
 22#X declare -lib hcs;
 23#X obj -31 69 inlet;
 24#X obj -31 451 outlet~;
 25#X obj 6 424 outlet~;
 26#X obj 42 402 outlet~;
 27#X obj 186 378 s \$0-SSSAD;
 28#X obj 186 322 loadbang;
 29#X obj -33 236 undispatch \$0 /window;
 30#N canvas 281 411 450 300 samplebank 0;
 31#X obj 237 271 outlet;
 32#X obj 58 70 route /bank /random;
 33#X obj 175 40 inlet;
 34#N canvas 717 180 561 660 load 0;
 35#X obj 66 225 globalsend WAVBANK;
 36#X obj 65 276 globalreceive WAVBANK;
 37#X obj 65 301 route file;
 38#X obj 38 51 inlet;
 39#X obj 65 581 outlet;
 40#X msg 66 99 random;
 41#X msg 141 51 random;
 42#X obj 39 74 t b b b;
 43#X obj 176 125 inlet;
 44#X obj 66 175 list append 0;
 45#X obj 66 204 prepent \$0;
 46#X obj 65 323 route \$0;
 47#X obj 65 344 t b a;
 48#X obj 65 388 list append;
 49#X obj 65 366 yambc 2;
 50#X obj 65 434 route 0 1;
 51#N canvas 0 0 450 300 load1 0;
 52#X obj 210 -146 wavpreload-getdata channels;
 53#X obj 70 -170 t a a;
 54#X msg 210 -126 channels \$1;
 55#X obj 70 -149 prepent load;
 56#X obj 136 -19 prepent /sample;
 57#X obj 136 -40 list;
 58#X obj 70 -52 t a b;
 59#X obj 70 8 list split 1;
 60#X obj 73 -193 inlet;
 61#X obj 70 91 outlet;
 62#X obj 70 -101 sample-safeload 4.8e+06;
 63#X obj 70 31 prepent /bufL;
 64#X obj 104 57 prepent /bufR;
 65#X obj 56 -76 list;
 66#X obj 11 -110 inlet;
 67#X connect 0 0 2 0;
 68#X connect 1 0 3 0;
 69#X connect 1 1 0 0;
 70#X connect 1 1 5 1;
 71#X connect 2 0 10 0;
 72#X connect 3 0 10 0;
 73#X connect 4 0 9 0;
 74#X connect 5 0 4 0;
 75#X connect 6 0 7 0;
 76#X connect 6 1 5 0;
 77#X connect 7 0 11 0;
 78#X connect 7 1 12 0;
 79#X connect 8 0 1 0;
 80#X connect 10 0 13 1;
 81#X connect 11 0 9 0;
 82#X connect 12 0 9 0;
 83#X connect 13 0 6 0;
 84#X connect 14 0 13 0;
 85#X restore 62 495 pd load1;
 86#N canvas 0 0 450 300 load1 0;
 87#X obj 210 -146 wavpreload-getdata channels;
 88#X obj 70 -170 t a a;
 89#X msg 210 -126 channels \$1;
 90#X obj 70 -149 prepent load;
 91#X obj 136 -19 prepent /sample;
 92#X obj 136 -40 list;
 93#X obj 70 -52 t a b;
 94#X obj 70 8 list split 1;
 95#X obj 73 -193 inlet;
 96#X obj 70 91 outlet;
 97#X obj 70 -101 sample-safeload 4.8e+06;
 98#X obj 70 31 prepent /bufL;
 99#X obj 104 57 prepent /bufR;
100#X obj 56 -76 list;
101#X obj 11 -110 inlet;
102#X connect 0 0 2 0;
103#X connect 1 0 3 0;
104#X connect 1 1 0 0;
105#X connect 1 1 5 1;
106#X connect 2 0 10 0;
107#X connect 3 0 10 0;
108#X connect 4 0 9 0;
109#X connect 5 0 4 0;
110#X connect 6 0 7 0;
111#X connect 6 1 5 0;
112#X connect 7 0 11 0;
113#X connect 7 1 12 0;
114#X connect 8 0 1 0;
115#X connect 10 0 13 1;
116#X connect 11 0 9 0;
117#X connect 12 0 9 0;
118#X connect 13 0 6 0;
119#X connect 14 0 13 0;
120#X restore 132 495 pd load1;
121#X obj 131 474 b;
122#X obj 63 473 b;
123#X text 219 473 Preloads sample (preloading 2 while playing 1);
124#X connect 1 0 2 0;
125#X connect 2 0 11 0;
126#X connect 3 0 7 0;
127#X connect 5 0 9 0;
128#X connect 6 0 7 0;
129#X connect 7 1 5 0;
130#X connect 8 0 9 1;
131#X connect 9 0 10 0;
132#X connect 10 0 0 0;
133#X connect 11 0 12 0;
134#X connect 12 0 14 0;
135#X connect 12 1 13 1;
136#X connect 13 0 15 0;
137#X connect 14 0 13 0;
138#X connect 15 0 16 1;
139#X connect 15 0 18 0;
140#X connect 15 1 17 1;
141#X connect 15 1 19 0;
142#X connect 16 0 4 0;
143#X connect 17 0 4 0;
144#X connect 18 0 17 0;
145#X connect 19 0 16 0;
146#X restore 59 127 pd load;
147#X connect 1 0 3 1;
148#X connect 1 1 3 0;
149#X connect 1 2 0 0;
150#X connect 2 0 1 0;
151#X connect 3 0 0 0;
152#X restore -33 141 pd samplebank;
153#X obj -33 189 undispatch \$0 /temposync;
154#X obj -33 256 sendbus-dispatch \$0;
155#X msg 186 343 /bpbwrange 0 5000 \, /pitchrange -4 4 \, /bpfqrange
1560 20000 \, /temposync 0;
157#X obj -31 92 routeOSC /\$1;
158#X obj 393 12 sssad-localtoglobal \$0 \$2 /gtr /\$1;
159#X obj -137 105 r \$0-GUI;
160#X obj -33 332 graintrain-onsetalign \$0;
161#X msg -124 202 /temposync 8;
162#X obj -147 137 route list;
163#X obj -33 310 graintrain \$0;
164#X msg 13 62 /bank 0 \, /random;
165#X obj -32 378 bufgrainr~ \$0;
166#N canvas 0 0 450 300 metamessages+gui 0;
167#X obj 85 43 inlet;
168#X obj 208 114 outlet;
169#N canvas 945 149 286 349 \$0-gui 0;
170#X obj 6 -24 cnv 15 270 20 empty empty Graintrainr~- 1 12 0 14 -261234
171-66577 0;
172#X obj 42 -1 sssad.presets_ gtr~ \$0;
173#X obj 236 -18 inlet;
174#X obj 240 -18 inlet;
175#X obj 126 294 hradio 15 1 0 10 \$0-/window \$0-/window empty 0 -8
1760 10 -262144 -1 -1 0;
177#X text 73 291 Window;
178#X obj 4 272 hradio 15 1 0 17 \$0-/temposync \$0-temposync empty 0
179-8 0 10 -262144 -1 -1 0;
180#X floatatom 260 271 5 0 0 0 - - -;
181#X obj 142 229 sssad-tgl \$0 /bponoff;
182#X obj 3 229 sssad-tgl \$0 /onoff;
183#X obj 3 249 sssad-tgl \$0 /onsetalign;
184#X obj 142 69 sssad-slider \$0 /speeddev 0 1;
185#X obj 3 89 sssad-slider \$0 /lengthdev 0 1;
186#X obj 3 69 sssad-slider \$0 /speed 0 1 log;
187#X obj 142 189 sssad-slider \$0 /bpfq 0 20000;
188#X obj 142 89 sssad-slider \$0 /density 0 1 log;
189#X obj 3 109 sssad-slider \$0 /pitchdev 0 1;
190#X obj 142 129 sssad-slider \$0 /pan -45 45;
191#X obj 3 129 sssad-slider \$0 /pandev 0 1;
192#X obj 142 149 sssad-slider \$0 /vol 0 1;
193#X obj 3 149 sssad-slider \$0 /voldev 0 1;
194#X obj 142 169 sssad-slider \$0 /fxsend 0 1;
195#X obj 3 169 sssad-slider \$0 /fxsendprob 0 1;
196#X obj 3 189 sssad-slider \$0 /bpfqdev 0 1;
197#X obj 142 209 sssad-slider \$0 /bpbw 0 20000;
198#X obj 3 209 sssad-slider \$0 /bpbwdev 0 1;
199#X obj 142 249 sssad-slider \$0 /maxgrainsize 0 5000;
200#X obj 142 109 sssad-slider \$0 /pitch -4 4;
201#X connect 2 0 1 0;
202#X connect 6 0 7 0;
203#X restore 85 107 pd \$0-gui;
204#N canvas 687 562 450 300 vis 0;
205#X obj 323 245 s pd-\$0-gui;
206#X msg 323 220 vis \$1;
207#X obj 323 188 yambc 2;
208#X obj 323 145 route bang float;
209#X obj 368 170 == 0;
210#X obj 322 72 inlet;
211#X connect 1 0 0 0;
212#X connect 2 1 1 0;
213#X connect 3 0 2 0;
214#X connect 3 1 4 0;
215#X connect 4 0 2 0;
216#X connect 5 0 3 0;
217#X restore 146 151 pd vis;
218#X msg -28 84 symbol 0_init;
219#X obj 85 69 routeOSC /preset /vis;
220#X connect 0 0 5 0;
221#X connect 4 0 2 0;
222#X connect 5 0 2 0;
223#X connect 5 1 3 0;
224#X connect 5 2 1 0;
225#X restore -31 116 pd metamessages+gui;
226#X obj -33 217 dispatch \$0 /window;
227#X obj -33 170 dispatch \$0 /temposync;
228#X connect 0 0 11 0;
229#X connect 5 0 10 0;
230#X connect 6 0 9 0;
231#X connect 7 0 22 0;
232#X connect 8 0 21 0;
233#X connect 9 0 17 0;
234#X connect 10 0 4 0;
235#X connect 11 0 20 0;
236#X connect 13 0 16 0;
237#X connect 14 0 19 0;
238#X connect 15 0 7 0;
239#X connect 16 0 7 0;
240#X connect 17 0 14 0;
241#X connect 18 0 7 0;
242#X connect 19 0 1 0;
243#X connect 19 1 2 0;
244#X connect 19 2 3 0;
245#X connect 20 0 7 0;
246#X connect 21 0 6 0;
247#X connect 22 0 8 0;