diff options
Diffstat (limited to 'effects/rrad.filt~.pd')
| -rw-r--r-- | effects/rrad.filt~.pd | 233 |
1 files changed, 233 insertions, 0 deletions
diff --git a/effects/rrad.filt~.pd b/effects/rrad.filt~.pd new file mode 100644 index 0000000..a591d4f --- /dev/null +++ b/effects/rrad.filt~.pd @@ -0,0 +1,233 @@ +#N canvas 415 35 191 107 10; +#N canvas 757 353 450 300 noise 0; +#X obj 215 52 == 1; +#X obj 151 51 == 0; +#X obj 106 228 outlet~; +#X obj 257 79 inlet; +#X obj 214 4 r \$0-filt_type; +#X obj 33 52 inlet~; +#N canvas 358 389 450 300 hip 0; +#X obj 130 69 inlet~; +#X obj 130 207 outlet~; +#X obj 251 70 inlet; +#X obj 251 119 switch~ 0; +#X obj 130 114 hip~ 4000; +#X obj 188 70 inlet; +#X obj 352 74 r \$0-Q; +#X obj 225 157 hp2~ 4000 0.707 10; +#X connect 0 0 4 0; +#X connect 0 0 7 0; +#X connect 2 0 3 0; +#X connect 5 0 4 1; +#X connect 5 0 7 1; +#X connect 6 0 7 2; +#X connect 7 0 1 0; +#X restore 91 146 pd hip; +#N canvas 358 389 450 300 lop 0; +#X obj 130 69 inlet~; +#X obj 130 168 outlet~; +#X obj 251 70 inlet; +#X obj 188 70 inlet; +#X obj 130 114 lop~ 4000; +#X obj 251 120 switch~ 1; +#X obj 350 83 r \$0-Q; +#X obj 172 146 lp2~ 4000 0.707 20; +#X connect 0 0 4 0; +#X connect 0 0 7 0; +#X connect 2 0 5 0; +#X connect 3 0 4 1; +#X connect 3 0 7 1; +#X connect 6 0 7 2; +#X connect 7 0 1 0; +#X restore 158 145 pd lop; +#N canvas 201 195 450 300 bap 0; +#X obj 130 69 inlet~; +#X obj 130 168 outlet~; +#X obj 251 70 inlet; +#X obj 188 70 inlet; +#X obj 130 114 lop~ 4000; +#X obj 350 83 r \$0-Q; +#X obj 172 146 bpq2~ 400 0.707 20; +#X obj 251 120 switch~ 0; +#X connect 0 0 4 0; +#X connect 0 0 6 0; +#X connect 2 0 7 0; +#X connect 3 0 4 1; +#X connect 3 0 6 1; +#X connect 5 0 6 2; +#X connect 6 0 1 0; +#X restore 245 147 pd bap; +#X obj 262 52 == 2; +#X obj 215 24 unpack 0 0; +#N canvas 0 0 450 300 off 0; +#X obj 251 70 inlet~; +#X obj 247 170 outlet~; +#X obj 318 66 r \$0-wet; +#X obj 308 120 line~; +#X obj 260 118 *~; +#X msg 312 93 \$1 100; +#X connect 0 0 4 0; +#X connect 2 0 5 0; +#X connect 3 0 4 1; +#X connect 4 0 1 0; +#X connect 5 0 3 0; +#X restore 38 146 pd off; +#X obj 311 206 s \$0-wet; +#X obj 313 152 f; +#X obj 313 80 select 0 1; +#X obj 311 183 f; +#X obj 347 132 r \$0-wet; +#X connect 0 0 7 2; +#X connect 1 0 6 2; +#X connect 3 0 6 1; +#X connect 3 0 7 1; +#X connect 3 0 8 1; +#X connect 4 0 10 0; +#X connect 5 0 7 0; +#X connect 5 0 6 0; +#X connect 5 0 8 0; +#X connect 5 0 11 0; +#X connect 6 0 2 0; +#X connect 7 0 2 0; +#X connect 8 0 2 0; +#X connect 9 0 8 2; +#X connect 10 0 1 0; +#X connect 10 0 0 0; +#X connect 10 0 9 0; +#X connect 11 0 2 0; +#X connect 13 0 15 1; +#X connect 14 0 13 0; +#X connect 14 1 15 0; +#X connect 15 0 12 0; +#X connect 16 0 13 1; +#X restore 199 133 pd noise; +#X obj 250 110 r \$0-filt_freq; +#X obj 144 101 inlet~; +#X obj 163 170 outlet~; +#X obj 232 77 s \$0-filt_type; +#X obj 42 76 hradio 15 1 0 3 \$0-filt_type \$0-filt_type hip/lop/bp +0 -6 0 8 -262144 -1 -1 2; +#X obj 232 36 loadbang; +#X obj 14 40 hsl 64 15 0 127 0 0 \$0-freq \$0-freq freq -2 -6 0 8 -262144 +-1 -1 5100 1; +#X obj 317 -4 r \$0-freq; +#X obj 317 21 mtof; +#X obj 317 43 s \$0-filt_freq; +#X obj 353 68 inlet; +#X obj 356 89 s \$0-freq; +#X obj 102 40 hsl 64 15 0 1 0 0 \$0-wet \$0-wet dry-level -2 -6 0 8 +-262144 -1 -1 6300 1; +#N canvas 803 359 450 300 noise 0; +#X obj 215 52 == 1; +#X obj 151 51 == 0; +#X obj 106 228 outlet~; +#X obj 257 79 inlet; +#X obj 214 4 r \$0-filt_type; +#X obj 33 52 inlet~; +#N canvas 358 389 450 300 hip 0; +#X obj 130 69 inlet~; +#X obj 130 207 outlet~; +#X obj 251 70 inlet; +#X obj 251 119 switch~ 0; +#X obj 130 114 hip~ 4000; +#X obj 188 70 inlet; +#X obj 352 74 r \$0-Q; +#X obj 225 157 hp2~ 4000 0.707 10; +#X connect 0 0 4 0; +#X connect 0 0 7 0; +#X connect 2 0 3 0; +#X connect 5 0 4 1; +#X connect 5 0 7 1; +#X connect 6 0 7 2; +#X connect 7 0 1 0; +#X restore 91 146 pd hip; +#N canvas 358 389 450 300 lop 0; +#X obj 130 69 inlet~; +#X obj 130 168 outlet~; +#X obj 251 70 inlet; +#X obj 188 70 inlet; +#X obj 130 114 lop~ 4000; +#X obj 251 120 switch~ 1; +#X obj 350 83 r \$0-Q; +#X obj 172 146 lp2~ 4000 0.707 20; +#X connect 0 0 4 0; +#X connect 0 0 7 0; +#X connect 2 0 5 0; +#X connect 3 0 4 1; +#X connect 3 0 7 1; +#X connect 6 0 7 2; +#X connect 7 0 1 0; +#X restore 158 145 pd lop; +#N canvas 201 195 450 300 bap 0; +#X obj 130 69 inlet~; +#X obj 130 168 outlet~; +#X obj 251 70 inlet; +#X obj 188 70 inlet; +#X obj 130 114 lop~ 4000; +#X obj 350 83 r \$0-Q; +#X obj 172 146 bpq2~ 400 0.707 20; +#X obj 251 120 switch~ 0; +#X connect 0 0 4 0; +#X connect 0 0 6 0; +#X connect 2 0 7 0; +#X connect 3 0 4 1; +#X connect 3 0 6 1; +#X connect 5 0 6 2; +#X connect 6 0 1 0; +#X restore 245 147 pd bap; +#X obj 262 52 == 2; +#X obj 215 24 unpack 0 0; +#N canvas 0 0 450 300 off 0; +#X obj 251 70 inlet~; +#X obj 247 170 outlet~; +#X obj 318 66 r \$0-wet; +#X obj 308 120 line~; +#X obj 260 118 *~; +#X msg 312 93 \$1 100; +#X connect 0 0 4 0; +#X connect 2 0 5 0; +#X connect 3 0 4 1; +#X connect 4 0 1 0; +#X connect 5 0 3 0; +#X restore 38 146 pd off; +#X connect 0 0 7 2; +#X connect 1 0 6 2; +#X connect 3 0 6 1; +#X connect 3 0 7 1; +#X connect 3 0 8 1; +#X connect 4 0 10 0; +#X connect 5 0 7 0; +#X connect 5 0 6 0; +#X connect 5 0 8 0; +#X connect 5 0 11 0; +#X connect 6 0 2 0; +#X connect 7 0 2 0; +#X connect 8 0 2 0; +#X connect 9 0 8 2; +#X connect 10 0 1 0; +#X connect 10 0 0 0; +#X connect 10 0 9 0; +#X connect 11 0 2 0; +#X restore 339 170 pd noise; +#X obj 390 147 r \$0-filt_freq; +#X obj 284 138 inlet~; +#X obj 303 207 outlet~; +#X msg 232 57 3; +#X msg 186 52 1; +#X obj 181 78 s \$0-wet; +#X obj 111 76 tgl 15 0 \$0-filt-on empty filter-on? 0 -6 0 8 -262144 +-1 -1 0 1; +#X connect 0 0 3 0; +#X connect 1 0 0 1; +#X connect 2 0 0 0; +#X connect 6 0 18 0; +#X connect 6 0 19 0; +#X connect 8 0 9 0; +#X connect 9 0 10 0; +#X connect 11 0 12 0; +#X connect 14 0 17 0; +#X connect 15 0 14 1; +#X connect 16 0 14 0; +#X connect 18 0 4 0; +#X connect 19 0 20 0; +#X coords 0 0 1 1 180 80 1; |