#N canvas 292 80 638 415 12; #X obj 60 241 bng 50 250 50 0 start_bang empty start 0 -6 128 8 -24198 -1 -1; #X text 15 77 load/save/play etc.; #X obj 179 125 nbx 8 16 0 1e+008 0 0 len_src empty empty 0 -8 128 12 -225271 -1 -1 4e+006 256; #X text 275 137 (defines the size of the result); #X obj 177 179 nbx 8 16 0 1e+008 0 0 len_arg empty empty 0 -8 128 12 -225271 -1 -1 89000 256; #X obj 32 122 wedit buf_src; #X obj 30 176 wedit buf_arg; #X obj 33 350 wedit buf_res; #X text 122 255 start convolution; #X obj 177 356 bng 15 250 50 0 empty empty empty 0 -6 0 8 -258699 -1 -1; #X obj 201 357 nbx 8 16 0 1e+008 0 0 len_arg empty empty 0 -8 128 12 -261689 -1 -1 4e+006 256; #X obj 11 10 cnv 15 600 50 empty empty convolve 10 22 0 24 -260818 -1 0; #X text 202 41 http://www.parasitaere-kapazitaeten.net; #X text 203 10 fft-based convolution \, (C)2003 Thomas Grill; #X text 203 25 needs vasp and wedit; #X text 32 329 result buffer; #X text 31 102 source buffer; #X text 29 157 argument buffer; #X text 278 124 length of source (samples); #X text 276 178 length of argument (samples); #N canvas 0 0 464 314 do 0; #X obj 29 215 vasp.u; #N canvas 406 75 430 580 convolve 0; #X obj 29 195 vasp.!; #X obj 107 280 vasp.conv; #X obj 107 311 t a a; #X obj 185 344 vasp.f?; #X obj 188 372 t b f; #X obj 108 482 vasp.->; #X obj 195 140 vasp.!; #X obj 102 170 vasp.f?; #X obj 29 131 t a b a; #X obj 194 111 vasp; #X obj 28 106 vasp; #N canvas 0 0 458 308 sf 0; #X obj 39 178 outlet; #X obj 38 43 inlet; #X obj 41 79 vasp.s; #X obj 120 43 inlet; #X obj 39 118 vasp.f; #X connect 1 0 2 0; #X connect 2 0 4 0; #X connect 3 0 2 1; #X connect 3 0 4 1; #X connect 4 0 0 0; #X restore 194 211 pd sf; #N canvas 0 0 452 302 sf 0; #X obj 39 178 outlet; #X obj 38 43 inlet; #X obj 41 79 vasp.s; #X obj 120 43 inlet; #X obj 39 118 vasp.f; #X connect 1 0 2 0; #X connect 2 0 4 0; #X connect 3 0 2 1; #X connect 3 0 4 1; #X connect 4 0 0 0; #X restore 187 437 pd sf; #X obj 107 406 vasp.opt; #X obj 210 405 vasp; #X obj 26 46 inlet; #X obj 132 51 inlet; #X obj 221 50 inlet; #X obj 313 50 inlet; #X obj 107 538 outlet; #X text 26 15 bang; #X text 126 21 src1; #X text 218 20 src2; #X text 313 22 dst; #X text 10 217 copy to temp; #X text 192 158 copy to temp; #X text 164 537 dst; #X connect 0 0 1 0; #X connect 1 0 2 0; #X connect 2 0 13 0; #X connect 2 1 3 0; #X connect 3 0 4 0; #X connect 4 0 14 0; #X connect 4 1 12 1; #X connect 5 1 19 0; #X connect 6 0 11 0; #X connect 7 0 11 1; #X connect 8 0 0 0; #X connect 8 1 9 0; #X connect 8 2 7 0; #X connect 9 0 6 0; #X connect 10 0 8 0; #X connect 11 0 1 1; #X connect 12 0 5 1; #X connect 13 0 5 0; #X connect 14 0 12 0; #X connect 15 0 10 0; #X connect 16 0 10 1; #X connect 17 0 9 1; #X connect 18 0 14 1; #X restore 28 186 pd convolve; #X obj 26 52 t b b; #X obj 43 127 vasp.f; #X msg 43 94 vasp buf_src; #X msg 154 93 vasp buf_arg; #X msg 267 92 vasp buf_res; #X obj 306 220 table buf_src 10; #X obj 307 242 table buf_arg 10; #X obj 307 264 table buf_res 10; #X obj 26 23 r start_bang; #X obj 143 21 r len_src; #X obj 229 24 r len_arg; #X obj 153 126 vasp.f; #X obj 27 278 outlet; #X obj 29 251 vasp.f?; #X text 85 215 update buffer; #X connect 0 0 15 0; #X connect 1 0 0 0; #X connect 2 0 1 0; #X connect 2 1 4 0; #X connect 2 1 5 0; #X connect 2 1 6 0; #X connect 3 0 1 1; #X connect 4 0 3 0; #X connect 5 0 13 0; #X connect 6 0 1 3; #X connect 10 0 2 0; #X connect 11 0 3 1; #X connect 12 0 13 1; #X connect 13 0 1 2; #X connect 15 0 14 0; #X restore 177 324 pd do; #X connect 20 0 9 0; #X connect 20 0 10 0;