gistfile1.txt

#N canvas 9 28 1011 518 10;
#N canvas 0 22 450 300 (subpatch) 0;
#X array sample 1.23253e+06 float 2;
#X coords 0 1 1.23253e+06 -1 750 140 1 0 0;
#X restore 44 42 graph;
#X obj 118 347 dac~;
#X obj 66 312 tabplay~ sample;
#X obj 69 291 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 47 187 hsl 750 15 0 1.23253e+06 0 0 pos pos empty -2 -8 0 10
-262144 -1 -1 36000 1;
#N canvas 14 53 450 300 load 0;
#X obj 32 72 soundfiler;
#X msg 32 52 read -resize holger.wav sample;
#X obj 32 31 loadbang;
#X obj 32 96 print sample-ct;
#X msg 89 207 \; pos range \$1 \$2;
#X obj 88 181 pack 0 f;
#X obj 85 148 t b f;
#X obj 219 180 pack 0 f;
#X obj 216 147 t b f;
#X msg 220 206 \; epos range \$1 \$2;
#X obj 318 51 loadbang;
#X obj 319 112 s grainsize;
#X msg 320 84 85;
#X obj 353 173 s speed;
#X msg 353 151 1;
#X obj 32 260 s samplect;
#X obj 108 -17 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 106 4 openpanel;
#X obj -18 -15 inlet;
#X msg 107 25 read -resize \$1 sample;
#X connect 0 0 3 0;
#X connect 0 0 6 0;
#X connect 0 0 8 0;
#X connect 0 0 15 0;
#X connect 1 0 0 0;
#X connect 2 0 1 0;
#X connect 5 0 4 0;
#X connect 6 0 5 0;
#X connect 6 1 5 1;
#X connect 7 0 9 0;
#X connect 8 0 7 0;
#X connect 8 1 7 1;
#X connect 10 0 12 0;
#X connect 10 0 14 0;
#X connect 12 0 11 0;
#X connect 14 0 13 0;
#X connect 16 0 17 0;
#X connect 17 0 19 0;
#X connect 18 0 17 0;
#X connect 19 0 0 0;
#X restore 741 20 pd load;
#X obj 47 204 hsl 750 15 0 194574 0 0 empty endpos empty -2 -8 0 10
-262144 -1 -1 37100 1;
#X obj 289 249 nbx 9 14 0 1.23253e+06 0 0 pos pos empty 0 -8 0 10 -262144
-1 -1 592406 256;
#X text 288 299 grain length (ms);
#X obj 176 253 bng 25 250 50 0 trig empty empty 17 7 0 10 -262144 -1
-1;
#X text 288 335 speed;
#X obj 290 283 nbx 9 14 -1e+37 1e+37 0 0 empty endpos empty 0 -8 0
10 -262144 -1 -1 596154 256;
#X text 288 267 end position;
#N canvas 519 26 571 500 playback 0;
#X obj 68 362 vline~;
#X msg 29 327 \$1 \$2;
#X obj 32 296 pack f f;
#X obj 67 387 tabread4~ sample;
#X obj 42 427 outlet~;
#X obj 101 428 outlet~;
#X obj 176 68 r pos;
#X obj 75 27 inlet;
#X obj 138 110 f;
#X text 117 27 bang plays;
#X obj 239 49 r grainsize;
#X obj 304 106 samplerate~;
#X floatatom 317 130 5 0 0 0 - - -;
#X obj 304 151 / 1000;
#X text 354 151 s/ms;
#X obj 248 187 *;
#X obj 180 201 +;
#X obj 32 180 f;
#X floatatom 249 212 5 0 0 0 - - -;
#X floatatom 250 81 5 0 0 0 - - -;
#X obj 197 108 f;
#X obj 214 388 delay;
#X obj 251 361 r grainsize;
#X obj 75 55 t b b b;
#X obj 490 32 inlet;
#X obj 451 169 spigot;
#X obj 11 25 r trig;
#X obj 444 193 s trig;
#X obj 176 230 s endpos;
#X obj 443 108 select 1;
#X obj 443 82 t f f;
#X obj 238 105 t b f b;
#N canvas 6 53 450 300 speeddur 0;
#X obj 97 81 r grainsize;
#X obj 145 207 *;
#X obj 215 6 r speed;
#X obj 215 102 t b f;
#X obj 145 232 outlet;
#X obj 112 138 f;
#X obj 217 186 f;
#X obj 98 105 t b f;
#X obj 116 163 t f b;
#X obj 216 77 /;
#X obj 203 51 1;
#X obj 212 25 t b f;
#X connect 0 0 7 0;
#X connect 1 0 4 0;
#X connect 2 0 11 0;
#X connect 3 0 5 0;
#X connect 3 1 6 1;
#X connect 5 0 8 0;
#X connect 6 0 1 1;
#X connect 7 0 5 0;
#X connect 7 1 5 1;
#X connect 8 0 1 0;
#X connect 8 1 6 0;
#X connect 9 0 3 0;
#X connect 10 0 9 0;
#X connect 11 0 10 0;
#X connect 11 1 9 1;
#X restore 75 242 pd speeddur;
#N canvas 145 533 450 300 playscrub 0;
#X obj 160 86 r samplect;
#X obj 139 117 f;
#X obj 167 224 line;
#X obj 169 249 s pos;
#X obj 101 53 r playscrub;
#X obj 140 153 t f b;
#X msg 175 182 0;
#X msg 100 192 \$1 4500;
#X connect 0 0 1 1;
#X connect 1 0 5 0;
#X connect 2 0 3 0;
#X connect 4 0 1 0;
#X connect 5 0 7 0;
#X connect 5 1 6 0;
#X connect 6 0 2 0;
#X connect 7 0 2 0;
#X restore 414 390 pd playscrub;
#X connect 0 0 3 0;
#X connect 1 0 0 0;
#X connect 2 0 1 0;
#X connect 3 0 4 0;
#X connect 3 0 5 0;
#X connect 6 0 8 1;
#X connect 6 0 16 0;
#X connect 6 0 20 1;
#X connect 7 0 23 0;
#X connect 8 0 0 0;
#X connect 10 0 19 0;
#X connect 10 0 31 0;
#X connect 11 0 12 0;
#X connect 11 0 13 0;
#X connect 13 0 15 1;
#X connect 15 0 16 1;
#X connect 15 0 18 0;
#X connect 16 0 17 1;
#X connect 16 0 28 0;
#X connect 17 0 2 0;
#X connect 20 0 16 0;
#X connect 21 0 25 0;
#X connect 22 0 21 1;
#X connect 23 0 21 0;
#X connect 23 1 17 0;
#X connect 23 2 8 0;
#X connect 24 0 30 0;
#X connect 25 0 27 0;
#X connect 26 0 23 0;
#X connect 29 0 27 0;
#X connect 30 0 29 0;
#X connect 30 1 25 1;
#X connect 31 0 20 0;
#X connect 31 1 15 0;
#X connect 31 2 11 0;
#X connect 32 0 2 1;
#X restore 182 313 pd playback;
#X obj 290 317 nbx 5 14 1 500 0 0 grainsize grainsize empty 0 -8 0
10 -262144 -1 -1 85 256;
#X obj 216 254 tgl 25 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X text 168 225 play;
#X text 285 230 start position;
#N canvas 0 22 450 300 (subpatch) 0;
#X array grain 3748 float 0;
#X coords 0 1 3747 -1 250 100 1 0 0;
#X restore 520 245 graph;
#N canvas 531 257 639 483 showgrain 0;
#X obj 110 342 tabplay~ sample;
#X obj 152 411 tabwrite~ grain;
#X obj 105 29 r endpos;
#X obj 182 28 r pos;
#X obj 171 171 f;
#X obj 110 300 pack f f;
#X msg 110 322 \$1 \$2;
#X obj 152 195 -;
#X floatatom 212 223 5 0 0 0 - - -;
#X msg 233 274 \; grain resize \$1;
#X obj 160 229 t f f;
#X obj 39 58 t b f;
#X obj 72 109 f;
#X obj 38 82 delay 50;
#X obj 194 72 t f f;
#X obj 110 141 t b b f b;
#X obj 89 239 f;
#X connect 0 0 1 0;
#X connect 2 0 11 0;
#X connect 3 0 14 0;
#X connect 4 0 7 1;
#X connect 5 0 6 0;
#X connect 6 0 0 0;
#X connect 7 0 8 0;
#X connect 7 0 10 0;
#X connect 10 0 5 1;
#X connect 10 1 9 0;
#X connect 11 0 13 0;
#X connect 11 1 12 1;
#X connect 12 0 15 0;
#X connect 13 0 12 0;
#X connect 14 0 16 1;
#X connect 14 1 4 1;
#X connect 15 0 16 0;
#X connect 15 1 1 0;
#X connect 15 2 7 0;
#X connect 15 3 4 0;
#X connect 16 0 5 0;
#X restore 519 350 pd showgrain;
#X obj 290 351 nbx 5 14 0.2 3 0 0 speed speed empty 0 -8 0 10 -262144
-1 -1 1 256;
#X obj 293 368 hsl 50 10 0.2 3 0 0 speed speed empty -2 -8 0 10 -262144
-1 -1 1400 1;
#X text 168 236 grain;
#X text 213 225 loop;
#X text 212 236 grain;
#X obj 124 253 bng 25 250 50 0 playscrub empty empty 17 7 0 10 -262144
-1 -1;
#X text 116 225 scrub;
#X text 116 236 sample;
#X obj 721 20 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X connect 2 0 1 0;
#X connect 2 0 1 1;
#X connect 3 0 2 0;
#X connect 13 0 1 0;
#X connect 13 1 1 1;
#X connect 15 0 13 1;
#X connect 28 0 5 0;