blob: 591f6dc3788b27303ed0764e7c46173e0a24f537 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
|
#N canvas 0 26 822 649 10;
#X msg 644 335 \; pd dsp 1;
#X msg 329 431 0 \, 360 5000;
#X obj 122 572 earplug~ 270 -25;
#X floatatom 327 267 5 0 0 0 - - -;
#N canvas 0 22 385 256 (subpatch) 0;
#X floatatom 260 197 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 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 200 195;
#X restore 532 29 graph;
#X msg 723 335 \; pd dsp 0;
#X text 24 18 earplug~ - convolution binaural filter;
#X text 23 49 This filter utilizes HRTF measurements (compact set)
of KEMAR Dummy-Head Microphone (http://sound.media.mit.edu/KEMAR.html)
;
#X obj 532 186 soundfiler;
#N canvas 0 22 450 300 (subpatch) 0;
#X array table 23376 float 0;
#X coords 0 1 23375 -1 100 60 1;
#X restore 657 252 graph;
#X obj 122 323 tabplay~ table;
#X obj 327 309 line 0 1;
#X obj 327 286 pack 0 50;
#X floatatom 328 357 5 0 0 0 - - -;
#X obj 328 399 line 0 1;
#X obj 328 376 pack 0 50;
#X msg 331 488 0 \, 360 5000;
#X obj 331 513 line 0 1;
#X obj 329 456 line 0 50;
#X text 646 371 audio on;
#X obj 120 206 tabplay~ table;
#X obj 120 236 dac~;
#X text 27 89 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 164 181 stop;
#X text 11 237 original --->;
#X obj 122 599 dac~ 1 2;
#X text 24 570 filtered --->;
#X msg 172 291 stop;
#X msg 122 291 bang;
#X msg 117 181 bang;
#X text 405 487 <---a better circle;
#X text 404 431 <--- circle with noise;
#X text 327 538 avoid zipper noise: uase small line grain;
#X text 361 264 <--- azimuth: 0 - 360 (degrees);
#X text 361 356 <--- elevation: -40 - 90 (degrees);
#X text 115 162 start;
#X text 120 272 start;
#X obj 532 103 openpanel;
#X obj 532 83 bng 15 250 50 0 empty empty empty 17 7 0 10 -204786 -1
-1;
#X text 553 82 <- open a soundfile;
#X obj 218 275 noise~;
#X obj 239 303 tgl 15 0 empty empty empty 17 7 0 10 -204786 -1 -1 0
1;
#X text 226 253 for testing:;
#X obj 218 323 *~ 0;
#X msg 532 124 read -resize \$1 table;
#X msg 541 163 read -resize ../../sound/voice.wav table;
#X obj 330 247 hsl 128 15 0 360 0 0 empty empty empty -2 -8 0 10 -262130
-1 -1 0 1;
#X obj 331 339 hsl 128 15 -40 90 0 1 empty empty empty -2 -8 0 10 -262130
-1 -1 11400 0;
#X obj 541 143 loadbang;
#N canvas 306 231 494 344 META 0;
#X text 12 185 HELP_PATCH_AUTHORS Jonathan Wilkes revised the patch
to conform to the PDDP template for Pd version 0.42.;
#X text 12 5 KEYWORDS signal filter;
#X text 12 165 AUTHOR Pei Xiang;
#X text 12 45 DESCRIPTION convolution binaural filter;
#X text 12 25 LICENSE GPL v2;
#X text 12 65 INLET_0 signal;
#X text 12 85 INLET_1 float;
#X text 12 105 INLET_2 float;
#X text 12 125 OUTLET_0 signal;
#X text 12 145 OUTLET_1 signal;
#X restore 763 618 pd META;
#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 44 0;
#X connect 38 0 37 0;
#X connect 40 0 43 0;
#X connect 41 0 43 1;
#X connect 43 0 2 0;
#X connect 44 0 8 0;
#X connect 45 0 8 0;
#X connect 46 0 3 0;
#X connect 47 0 13 0;
#X connect 48 0 45 0;
|
