[linux-audio-user] Re: [PD] Sound splitter

Chris McCormick chris at mccormick.cx
Fri Feb 9 21:41:38 EST 2007


On Fri, Feb 09, 2007 at 08:35:34AM +0000, Lots of people wrote:
> The attachment?

Whoops!

Attached.

Chris.

-------------------
chris at mccormick.cx
http://mccormick.cx
-------------- next part --------------
#N canvas 35 59 464 300 10;
#X text 5 -1 This patch will take a file and split it up into individual
sounds with sharp attacks. Basically you start with a full wave file
of a tune you like and this patch will give you zillions of tiny files
with each part of the song where there was some kind of event like
a guitar note or drum sound.;
#X msg 7 87 let's go!;
#N canvas 0 0 450 300 choose_a_file 0;
#X obj 8 10 inlet;
#X obj 8 55 openpanel;
#X msg 8 32 bang;
#X msg 42 109 open \$1;
#X msg 8 109 1;
#X obj 41 166 outlet~;
#X obj 99 166 outlet~;
#X obj 42 134 readsf~ 2;
#X msg 124 109 \; file-name \$1 \; sound-number 0 \;;
#X obj 8 77 t b a a;
#X obj 163 166 s done;
#X connect 0 0 2 0;
#X connect 1 0 9 0;
#X connect 2 0 1 0;
#X connect 3 0 7 0;
#X connect 4 0 7 0;
#X connect 7 0 5 0;
#X connect 7 1 6 0;
#X connect 7 2 10 0;
#X connect 9 0 4 0;
#X connect 9 1 3 0;
#X connect 9 2 8 0;
#X restore 7 109 pd choose_a_file;
#X text 90 86 <-- Click here to choose a file and start processing
;
#N canvas 0 0 450 300 find_sounds 0;
#X obj 10 8 inlet~;
#X obj 208 10 inlet~;
#X obj 125 123 bonk~;
#X obj 154 193 + 1;
#X obj 125 193 0;
#X msg 125 148 bang;
#X obj 125 216 s sound-number;
#X obj 209 104 outlet~;
#X obj 9 104 outlet~;
#X msg 167 169 0;
#X obj 167 148 r done;
#X obj 209 81 delread~ buffR 600;
#X obj 9 80 delread~ buffL 600;
#X obj 9 60 delwrite~ buffL 2000;
#X obj 209 60 delwrite~ buffR 2000;
#X obj 131 22 r predel;
#X connect 0 0 13 0;
#X connect 0 0 2 0;
#X connect 1 0 14 0;
#X connect 1 0 2 0;
#X connect 2 0 5 0;
#X connect 3 0 4 1;
#X connect 4 0 3 0;
#X connect 4 0 6 0;
#X connect 5 0 4 0;
#X connect 9 0 4 1;
#X connect 10 0 9 0;
#X connect 11 0 7 0;
#X connect 12 0 8 0;
#X connect 15 0 12 0;
#X connect 15 0 11 0;
#X restore 7 132 pd find_sounds;
#N canvas 130 137 450 300 store-sounds 0;
#X obj 9 5 inlet~;
#X obj 256 5 inlet~;
#X obj 80 253 writesf~ 2;
#X msg 80 185 start;
#X msg 200 220 stop;
#X msg 110 222 open \$1;
#X obj 80 158 t b a;
#X obj 80 9 r file-name;
#X obj 137 111 r sound-number;
#X msg 80 111 set \$1;
#X obj 80 90 makefilename %s%%d;
#X obj 80 139 makefilename dude;
#X obj 200 198 r done;
#X obj 80 47 symbol;
#X connect 0 0 2 0;
#X connect 1 0 2 1;
#X connect 3 0 2 0;
#X connect 4 0 2 0;
#X connect 5 0 2 0;
#X connect 6 0 3 0;
#X connect 6 1 5 0;
#X connect 7 0 13 0;
#X connect 8 0 11 0;
#X connect 9 0 11 0;
#X connect 10 0 9 0;
#X connect 11 0 6 0;
#X connect 12 0 4 0;
#X connect 13 0 10 0;
#X restore 7 156 pd store-sounds;
#X obj 279 218 nbx 5 14 -1e+37 1e+37 0 0 empty sound-number empty 0
-6 0 10 -262144 -1 -1 13 256;
#X text 110 218 Processing sound number;
#X obj 279 239 bng 15 250 50 0 empty done empty 0 -6 0 8 -262144 -1
-1;
#X text 242 239 Done;
#X obj 206 141 nbx 5 14 -1e+37 1e+37 0 1 predel empty capture-latency
0 -6 0 10 -262144 -1 -1 12 256;
#X connect 1 0 2 0;
#X connect 2 0 4 0;
#X connect 2 1 4 1;
#X connect 4 0 5 0;
#X connect 4 1 5 1;


More information about the Linux-audio-user mailing list