#N canvas 451 156 828 741 10;
#X msg 531 179 \; pd dsp 1;
#X msg 149 561 0 \, 360 5000;
#X obj 152 472 earplug~ 270 -25;
#X floatatom 306 357 5 0 0 0 - - -;
#N canvas 0 22 385 256 (subpatch) 0;
#X floatatom 261 193 0 0 0 0 cpu-meter - -;
#X obj 260 129 cputime;
#X obj 260 33 loadbang;
#X obj 260 80 metro 1000;
#X msg 260 61 1;
#X obj 260 108 t b b;
#X obj 260 170 * 0.1;
#X obj 260 150 int;
#X text 331 203 comment;
#X connect 1 0 7 0;
#X connect 2 0 4 0;
#X connect 3 0 5 0;
#X connect 4 0 3 0;
#X connect 5 0 1 0;
#X connect 5 1 1 1;
#X connect 6 0 0 0;
#X connect 7 0 6 0;
#X coords 0 1 100 -1 120 20 1;
#X restore 531 31 graph;
#X msg 610 179 \; pd dsp 0;
#X text 24 18 earplug~ - convolution binaural filter;
#X text 23 59 This filter utilizes HRTF measurements (compact set)
of KEMAR Dummy-Head Microphone (http://sound.media.mit.edu/KEMAR.html)
;
#X obj 531 146 soundfiler;
#N canvas 0 22 450 300 (subpatch) 0;
#X array table 4e+06 float 0;
#X coords 0 1 4e+06 -1 100 60 1;
#X restore 534 250 graph;
#X obj 152 413 tabplay~ table;
#X obj 306 399 line 0 1;
#X obj 306 376 pack 0 50;
#X floatatom 307 437 5 0 0 0 - - -;
#X obj 307 479 line 0 1;
#X obj 307 456 pack 0 50;
#X msg 151 618 0 \, 360 5000;
#X obj 151 643 line 0 1;
#X obj 149 586 line 0 50;
#X text 533 215 audio on;
#X obj 150 236 tabplay~ table;
#X obj 150 266 dac~;
#X text 27 99 The impulse response data "earplug_data.txt" must be
in the same path as this external. Must use headphone to hear effective
filter effects. Fitler could be DSP intensive due to convolution.;
#X msg 194 211 stop;
#X text 31 267 original --->;
#X obj 152 499 dac~ 1 2;
#X text 31 499 filtered --->;
#X msg 202 381 stop;
#X msg 152 381 bang;
#X msg 147 211 bang;
#X text 245 617 <---a better circle;
#X text 244 561 <--- circle with noise;
#X text 147 668 avoid zipper noise: uase small line grain;
#X text 351 354 <--- azimuth: 0 - 360 (degrees);
#X text 351 436 <--- elevation: -40 - 90 (degrees);
#X text 145 192 start;
#X text 150 362 start;
#X msg 532 124 read -resize Spring.wav table;
#X obj 532 103 openpanel;
#X obj 532 83 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X text 553 82 <- open a soundfile;
#X obj 306 303 noise~;
#X obj 342 331 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X text 294 281 for testing:;
#X obj 306 331 *~ 0;
#X connect 1 0 18 0;
#X connect 2 0 25 0;
#X connect 2 1 25 1;
#X connect 3 0 12 0;
#X connect 10 0 2 0;
#X connect 10 1 28 0;
#X connect 11 0 2 1;
#X connect 12 0 11 0;
#X connect 13 0 15 0;
#X connect 14 0 2 2;
#X connect 15 0 14 0;
#X connect 16 0 17 0;
#X connect 17 0 2 1;
#X connect 18 0 2 1;
#X connect 20 0 21 0;
#X connect 20 0 21 1;
#X connect 23 0 20 0;
#X connect 27 0 10 0;
#X connect 28 0 10 0;
#X connect 29 0 20 0;
#X connect 37 0 8 0;
#X connect 38 0 37 0;
#X connect 39 0 38 0;
#X connect 41 0 44 0;
#X connect 42 0 44 1;
#X connect 44 0 2 0;