[PureData] Reverb Patch

PureData Reverb Patch

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 obj 43 23 inlet~;

#X obj 224 59 + 4;

#X obj 235 81 + 4;

#X obj 246 103 + 4;

#X obj 257 125 + 4;

#X floatatom 283 49 5 0 0 0 - - -;

#X text 126 6 dry-wet;

#X text 42 5 input;

#X obj 208 23 inlet;

#X obj 128 23 inlet;

#N canvas 0 50 678 508 comba 0;

#X obj 88 71 inlet;

#X obj 73 141 *~;

#X obj 135 104 delread~ comba 29.7;

#X obj 225 74 inlet;

#X text 266 74 wet delay signal feedback to dry signal.;

#X obj 96 231 delwrite~ comba 1000;

#X obj 58 266 outlet~;

#X obj 58 189 +~;

#X obj 25 68 inlet~;

#X connect 0 0 1 1;

#X connect 1 0 7 1;

#X connect 2 0 1 0;

#X connect 3 0 2 0;

#X connect 7 0 6 0;

#X connect 7 0 5 0;

#X connect 8 0 7 0;

#X restore 43 190 pd comba;

#N canvas 0 50 678 508 combb 0;

#X obj 88 71 inlet;

#X obj 73 141 *~;

#X obj 225 74 inlet;

#X text 266 74 wet delay signal feedback to dry signal.;

#X obj 58 266 outlet~;

#X obj 58 189 +~;

#X obj 25 68 inlet~;

#X obj 135 104 delread~ combb 29.7;

#X obj 96 231 delwrite~ combb 1000;

#X connect 0 0 1 1;

#X connect 1 0 5 1;

#X connect 2 0 7 0;

#X connect 5 0 4 0;

#X connect 5 0 8 0;

#X connect 6 0 5 0;

#X connect 7 0 1 0;

#X restore 105 192 pd combb;

#N canvas 0 50 678 508 combc 0;

#X obj 88 71 inlet;

#X obj 73 141 *~;

#X obj 225 74 inlet;

#X text 266 74 wet delay signal feedback to dry signal.;

#X obj 58 266 outlet~;

#X obj 58 189 +~;

#X obj 25 68 inlet~;

#X obj 96 231 delwrite~ combc 1000;

#X obj 135 104 delread~ combc 29.7;

#X connect 0 0 1 1;

#X connect 1 0 5 1;

#X connect 2 0 8 0;

#X connect 5 0 4 0;

#X connect 5 0 7 0;

#X connect 6 0 5 0;

#X connect 8 0 1 0;

#X restore 164 192 pd combc;

#N canvas 0 50 678 508 combd 0;

#X obj 88 71 inlet;

#X obj 73 141 *~;

#X obj 225 74 inlet;

#X text 266 74 wet delay signal feedback to dry signal.;

#X obj 58 266 outlet~;

#X obj 58 189 +~;

#X obj 25 68 inlet~;

#X obj 135 104 delread~ combd 29.7;

#X obj 96 231 delwrite~ combd 1000;

#X connect 0 0 1 1;

#X connect 1 0 5 1;

#X connect 2 0 7 0;

#X connect 5 0 4 0;

#X connect 5 0 8 0;

#X connect 6 0 5 0;

#X connect 7 0 1 0;

#X restore 223 192 pd combd;

#X obj 43 238 +~;

#N canvas 0 50 450 300 allp2 0;

#X obj 37 37 inlet~;

#X obj 37 117 +~;

#X obj 112 41 *~ 0.5;

#X obj 183 42 *~ 0.5;

#X obj 38 205 +~;

#X obj 38 230 outlet~;

#X obj 113 11 delread~ all2 5;

#X obj 115 181 delwrite~ all2 1000;

#X connect 0 0 1 0;

#X connect 1 0 4 0;

#X connect 1 0 7 0;

#X connect 2 0 1 1;

#X connect 3 0 4 1;

#X connect 4 0 5 0;

#X connect 6 0 2 0;

#X connect 6 0 3 0;

#X restore 42 293 pd allp2;

#N canvas 0 50 450 300 allp1 0;

#X obj 37 37 inlet~;

#X obj 37 117 +~;

#X obj 112 41 *~ 0.5;

#X obj 183 42 *~ 0.5;

#X obj 113 11 delread~ all1 5;

#X obj 38 205 +~;

#X obj 38 230 outlet~;

#X obj 115 181 delwrite~ all1 1000;

#X connect 0 0 1 0;

#X connect 1 0 5 0;

#X connect 1 0 7 0;

#X connect 2 0 1 1;

#X connect 3 0 5 1;

#X connect 4 0 2 0;

#X connect 4 0 3 0;

#X connect 5 0 6 0;

#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 42 345 outlet~;

#X obj 43 321 *~ 0.08;

#X obj 50 59 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1

-1;

#X connect 0 0 10 0;

#X connect 0 0 11 0;

#X connect 0 0 12 0;

#X connect 0 0 13 0;

#X connect 1 0 2 0;

#X connect 1 0 11 2;

#X connect 2 0 3 0;

#X connect 2 0 12 2;

#X connect 3 0 4 0;

#X connect 4 0 13 2;

#X connect 8 0 1 0;

#X connect 8 0 5 0;

#X connect 8 0 10 2;

#X connect 9 0 10 1;

#X connect 9 0 11 1;

#X connect 9 0 12 1;

#X connect 9 0 13 1;

#X connect 10 0 14 0;

#X connect 11 0 14 0;

#X connect 12 0 14 1;

#X connect 13 0 14 1;

#X connect 14 0 16 0;

#X connect 15 0 22 0;

#X connect 16 0 15 0;

#X connect 22 0 21 0;

#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 obj 115 150 loadbang;

#X obj 261 150 loadbang;

#X msg 115 171 0.7;

#X msg 261 171 30;

#X obj 51 375 dac~;

#X obj 67 149 vline~;

#X floatatom 52 93 5 0 0 0 - - -;

#X obj 52 327 *~ 0.7;

#X obj 51 185 *~;

#X msg 52 59 440;

#X obj 52 37 loadbang;

#X obj 52 114 osc~;

#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

#X obj 113 63 metro 750;

#X text 11 4 Reverb Patch;

#X text 133 36 Start Metronome;

#X connect 0 0 12 0;

#X connect 1 0 3 0;

#X connect 1 0 0 1;

#X connect 2 0 4 0;

#X connect 2 0 0 2;

#X connect 5 0 7 0;

#X connect 6 0 8 0;

#X connect 7 0 1 0;

#X connect 8 0 2 0;

#X connect 10 0 13 1;

#X connect 11 0 16 0;

#X connect 12 0 9 0;

#X connect 12 0 9 1;

#X connect 13 0 0 0;

#X connect 14 0 11 0;

#X connect 15 0 14 0;

#X connect 16 0 13 0;

#X connect 17 0 10 0;

#X connect 18 0 19 0;

#X connect 19 0 17 0;