Slight tweak of Voice Granulator by davidjgurney, adding accelerometer control through TouchOSC. http://www.davidjgurney.com/portfolio/wall-e-style-voice-granulator/

voice-granulator_touchosc_accel.pd

#N canvas 431 139 708 570 10;
#N canvas 553 258 450 300 soundload 0;
#X obj 100 157 openpanel;
#X obj 100 100 bng 45 250 50 0 empty empty Load 11 22 0 10 -261682
-33289 -33289;
#X msg 100 182 read -resize \$1 soundfile1;
#X obj 100 209 soundfiler;
#X floatatom 100 233 10 0 0 0 - - -;
#X obj 100 256 s filelength;
#X obj 254 238 samplerate~;
#X floatatom 267 264 5 0 0 0 - - -;
#X obj 205 222 t f b;
#X connect 0 0 2 0;
#X connect 1 0 0 0;
#X connect 2 0 3 0;
#X connect 3 0 8 0;
#X connect 4 0 5 0;
#X connect 6 0 7 0;
#X connect 8 0 4 0;
#X connect 8 1 6 0;
#X coords 0 -1 1 1 45 45 2 100 100;
#X restore -9724 -41 pd soundload;
#N canvas 0 22 450 278 (subpatch) 0;
#X array soundfile1 1.764e+06 float 4;
#X coords 0 1 1.764e+06 -1 200 140 1 0 0;
#X restore -9924 -41 graph;
#X text -9959 143 Pitch;
#X text -9832 202 Time;
#X obj -9924 100 grid grid1 200 0 1 100 18 55 1 0.01 0.01 8 5 -9773
173;
#N canvas 493 23 718 558 workings 0;
#X obj 143 537 tabread4~ soundfile1;
#X obj 175 663 dac~;
#X floatatom 143 365 5 0 0 0 Pitch - -;
#X obj 143 430 phasor~;
#X obj 143 512 +~;
#X obj 217 334 hsl 128 15 0 1 0 0 empty empty Time -2 -8 0 10 -262144
-1 -1 4588 1;
#X obj 214 359 r filelength;
#X obj 214 386 *;
#X obj 472 340 random 2;
#X obj 472 367 sel 0 1;
#X obj 523 414 +;
#X obj 552 414 -;
#X obj 525 282 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 473 453 5 0 0 0 - - -;
#X floatatom 514 453 5 0 0 0 - - -;
#X obj 214 412 +;
#X obj 349 357 t b f;
#X obj 214 433 vline~;
#X obj 214 476 samphold~;
#X obj 432 203 loadbang;
#X obj 214 452 lop~ 0.1;
#X obj 143 390 vline~;
#X obj 143 409 lop~ 0.1;
#X obj 164 146 vsl 15 128 0.1 10 1 1 empty empty Time 0 -9 0 10 -191407
-1 -1 0 1;
#X floatatom 185 256 5 0 0 0 - - -;
#X obj 105 146 vsl 15 128 0.1 10 1 1 empty empty Pitch 0 -9 0 10 -191407
-1 -1 12700 1;
#X floatatom 126 256 5 0 0 0 - - -;
#X text 120 113 Smoothing;
#X obj 523 387 random 500;
#X obj 224 146 vsl 15 128 30 800 0 1 empty empty Width 0 -9 0 10 -261682
-1 -1 1100 1;
#X floatatom 245 256 5 0 0 0 - - -;
#X obj 352 146 vsl 15 128 0 2.5 0 1 empty empty Volume 0 -9 0 10 -204800
-1 -1 12700 1;
#X floatatom 374 256 5 0 0 0 - - -;
#X text 248 111 Grain;
#X text 350 114 Master;
#X obj 143 343 r pitch;
#X obj 214 297 r time;
#X text 421 302 Grain Spacing;
#X obj 175 615 lop~ 4000;
#X obj 175 639 hip~ 100;
#X obj 207 663 s~ audiorecorder;
#X obj 284 146 vsl 15 128 5 150 0 1 empty empty Time 0 -9 0 10 -261682
-1 -1 0 1;
#X floatatom 305 256 5 0 0 0 - - -;
#X obj 527 305 metro 1;
#X obj 289 538 tabread4~ soundfile1;
#X obj 289 513 +~;
#X obj 360 477 samphold~;
#X obj 289 447 wrap~;
#X obj 289 426 +~ 0.5;
#X obj 62 478 cos~;
#X obj 47 457 sig~ 1;
#X obj 47 504 -~;
#X obj 47 526 *~ 0.5;
#X obj 143 566 *~;
#X obj 440 512 cos~;
#X obj 425 491 sig~ 1;
#X obj 425 538 -~;
#X obj 425 560 *~ 0.5;
#X obj 289 567 *~;
#X obj 175 590 *~ 1;
#X obj 143 485 *~ 2000;
#X obj 289 490 *~ 2000;
#X text 18 558 Hanning Window;
#X text 460 533 Hanning Window;
#X obj 292 45 r masvo;
#X connect 0 0 53 0;
#X connect 2 0 21 0;
#X connect 3 0 18 1;
#X connect 3 0 48 0;
#X connect 3 0 49 0;
#X connect 3 0 60 0;
#X connect 4 0 0 0;
#X connect 5 0 7 0;
#X connect 6 0 7 1;
#X connect 7 0 15 0;
#X connect 8 0 9 0;
#X connect 9 0 10 0;
#X connect 9 1 11 0;
#X connect 10 0 13 0;
#X connect 11 0 14 0;
#X connect 12 0 43 0;
#X connect 13 0 16 0;
#X connect 14 0 16 0;
#X connect 15 0 17 0;
#X connect 16 0 15 0;
#X connect 16 0 5 0;
#X connect 16 1 15 1;
#X connect 17 0 20 0;
#X connect 18 0 4 1;
#X connect 19 0 12 0;
#X connect 20 0 18 0;
#X connect 20 0 46 0;
#X connect 21 0 22 0;
#X connect 22 0 3 0;
#X connect 23 0 20 1;
#X connect 23 0 24 0;
#X connect 25 0 26 0;
#X connect 25 0 22 1;
#X connect 28 0 10 1;
#X connect 28 0 11 1;
#X connect 29 0 30 0;
#X connect 29 0 28 1;
#X connect 31 0 32 0;
#X connect 31 0 59 1;
#X connect 35 0 2 0;
#X connect 36 0 5 0;
#X connect 38 0 39 0;
#X connect 39 0 40 0;
#X connect 39 0 1 0;
#X connect 39 0 1 1;
#X connect 41 0 42 0;
#X connect 41 0 43 1;
#X connect 43 0 8 0;
#X connect 43 0 28 0;
#X connect 44 0 58 0;
#X connect 45 0 44 0;
#X connect 46 0 45 1;
#X connect 47 0 46 1;
#X connect 47 0 54 0;
#X connect 47 0 61 0;
#X connect 48 0 47 0;
#X connect 49 0 51 1;
#X connect 50 0 51 0;
#X connect 51 0 52 0;
#X connect 52 0 53 1;
#X connect 53 0 59 0;
#X connect 54 0 56 1;
#X connect 55 0 56 0;
#X connect 56 0 57 0;
#X connect 57 0 58 1;
#X connect 58 0 59 0;
#X connect 59 0 38 0;
#X connect 60 0 4 0;
#X connect 61 0 45 0;
#X connect 64 0 32 0;
#X coords 0 -1 1 1 310 180 2 100 100;
#X restore -9620 4 pd workings;
#X obj -9731 200 s pitch;
#X obj -9922 245 s time;
#N canvas 107 381 450 300 recorder 0;
#X obj 57 285 writesf~ 1;
#X obj 195 194 del 10;
#X msg 204 159 stop;
#X obj 33 245 r~ audiorecorder;
#X msg 200 223 start;
#X symbolatom 105 140 10 0 0 0 - - -;
#X obj 105 106 bng 30 250 50 0 empty empty rec 6 14 0 10 -4034 -1 -1
;
#X obj 136 106 bng 30 250 50 0 empty empty stop 4 14 0 10 -258113 -1
-1;
#X msg 57 219 open \$1.wav;
#X connect 1 0 4 0;
#X connect 2 0 0 0;
#X connect 3 0 0 0;
#X connect 4 0 0 0;
#X connect 5 0 8 0;
#X connect 6 0 5 0;
#X connect 6 0 1 0;
#X connect 7 0 2 0;
#X connect 8 0 0 0;
#X coords 0 -1 1 1 70 60 2 100 100;
#X restore -9724 39 pd recorder;
#X text -9582 -43 Voice Granulator by davidjgurney;
#X text -9867 268 Instructions for Use:;
#X text -9726 268 Once Sound has been loaded \, it can be performed
live using the graph \, which allows the user to sweep the time in
real-time (x-axis) \, and alter the pitch in real-time (y-axis). It
is easier to control samples that have no silence at the beginning
or end.;
#X text -9725 373 Type your filename below the two buttons by clicking
on the box and typing. Then click record when you are ready to perform.
Click stop when you're done. Output files will be saved in the same
directory as the Voice Granulator.pd file.;
#X obj -9865 349 dumpOSC 12001;
#X obj -9869 384 OSCroute /accxyz;
#X obj -9844 448 unpack f f f;
#X obj -9845 302 * 37;
#X obj -9772 306 + 18;
#X obj -9731 461 * 2.5;
#X obj -9588 449 s masvo;
#X connect 4 0 7 0;
#X connect 4 1 6 0;
#X connect 13 0 14 0;
#X connect 14 0 15 0;
#X connect 15 0 7 0;
#X connect 15 1 16 0;
#X connect 15 2 18 0;
#X connect 16 0 17 0;
#X connect 17 0 6 0;
#X connect 18 0 19 0;