-
Notifications
You must be signed in to change notification settings - Fork 1
/
Copy pathmain.pd
50 lines (50 loc) · 1.77 KB
/
main.pd
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
#N canvas 895 247 675 477 10;
#X obj 28 27 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
;
#X obj 312 355 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 27 115 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X msg 28 50 \; pd dsp \$1;
#X obj 27 140 openpanel;
#X obj 27 190 soundfiler;
#X obj 26 355 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X text 52 25 <- (1) turn on/off audio;
#X text 55 115 <- (2a) open audio file;
#X obj 26 378 components/pd/playFileDry;
#X msg 27 165 read -resize \$1 audio_ch1 audio_ch2;
#X obj 26 274 table audio_ch1;
#X obj 26 301 table audio_ch2;
#X text 23 238 (2b) click to preview audio file channels;
#X text 254 20 Run the reverb generation program first to generate
an impulse response. Make sure the audio and the impulse response have
the same sample rate and number of channels.;
#X obj 313 115 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 313 140 openpanel;
#X obj 313 190 soundfiler;
#X msg 313 165 read -resize \$1 ir_ch1 ir_ch2;
#X obj 312 274 table ir_ch1;
#X obj 312 301 table ir_ch2;
#X text 341 115 <- (3a) open impulse response file;
#X text 309 238 (3b) click to preview impulse response;
#X text 254 68 Then you can use this patch to hear any reverb for any
desired sound.;
#X obj 312 378 components/pd/playFileWet;
#X obj 26 428 components/pd/playIR;
#X obj 26 405 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X text 54 404 <- (4b) play impulse response;
#X text 54 354 <- (4a) play audio without reverb;
#X text 340 354 <- (4c) play audio with reverb;
#X connect 0 0 3 0;
#X connect 1 0 24 0;
#X connect 2 0 4 0;
#X connect 4 0 10 0;
#X connect 6 0 9 0;
#X connect 10 0 5 0;
#X connect 15 0 16 0;
#X connect 16 0 18 0;
#X connect 18 0 17 0;
#X connect 26 0 25 0;