Pure Data (PD)のvanillaでReverb(リバーブ)がなかなか無かったので、作ってみました。
パッチを開いたら、DSPをオンにして、メトロノームのスイッチを入れてください。
リバーブのパラメーターは、Dry-Wet(エフェクトの強さ)と、Reflection(反射・残響の度合い)が調整できます。
パッチinパッチになっているところを外部ファイル(アブストラクション)にすると、オブジェクト的に使えます。
ときどきプチノイズが入るので、たぶん、何らかの処理が必要。(窓かけとか?)
何かで使えそうでしたらどうぞ。
https://gyazo.com/8a572e7418e1897ee1ccb0093eb2b19e
https://gyazo.com/da169b5f491b788e4fd07549976ad423
以下をテキストファイルにして、拡張子を.pdにしてください。
それをPDで開くと、図のようになります。
#N canvas 127 531 450 410 10; #N canvas 608 533 450 408 reverb 1; #X floatatom 283 49 5 0 0 0 - - -; #N canvas 0 50 678 508 comba 0; #X obj 135 104 delread~ comba 29.7; #X text 266 74 wet delay signal feedback to dry signal.; #X obj 96 231 delwrite~ comba 1000; #X restore 43 190 pd comba; #N canvas 0 50 678 508 combb 0; #X text 266 74 wet delay signal feedback to dry signal.; #X obj 135 104 delread~ combb 29.7; #X obj 96 231 delwrite~ combb 1000; #X restore 105 192 pd combb; #N canvas 0 50 678 508 combc 0; #X text 266 74 wet delay signal feedback to dry signal.; #X obj 96 231 delwrite~ combc 1000; #X obj 135 104 delread~ combc 29.7; #X restore 164 192 pd combc; #N canvas 0 50 678 508 combd 0; #X text 266 74 wet delay signal feedback to dry signal.; #X obj 135 104 delread~ combd 29.7; #X obj 96 231 delwrite~ combd 1000; #X restore 223 192 pd combd; #N canvas 0 50 450 300 allp2 0; #X obj 113 11 delread~ all2 5; #X obj 115 181 delwrite~ all2 1000; #X restore 42 293 pd allp2; #N canvas 0 50 450 300 allp1 0; #X obj 113 11 delread~ all1 5; #X obj 115 181 delwrite~ all1 1000; #X restore 42 269 pd allp1; #X text 279 194 Comb Filter; #X text 102 269 All-Pass Filter 1; #X text 101 293 All-Pass Filter 2; #X text 206 6 reflection time; #X obj 50 59 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1;
#X restore 52 278 pd reverb; #X obj 119 205 hsl 128 15 0 1 0 0 empty empty dry-wet -2 -8 0 10 -262144 -1 -1 8890 1;
#X obj 263 205 hsl 128 15 0 100 0 0 empty empty Reflection -2 -8 0 10 -262144 -1 -1 3810 1;
#X floatatom 116 228 5 0 0 0 - - -; #X floatatom 260 229 5 0 0 0 - - -; #X floatatom 52 93 5 0 0 0 - - -; #X msg 113 100 1 100 0 \, 0 50 100; #X obj 113 35 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1;
#X text 11 4 Reverb Patch; #X text 133 36 Start Metronome;