audio-flanger.pd 6.99 KB
Newer Older
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 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294
#N canvas 659 277 436 384 10;
#X obj 47 359 outlet~;
#X obj 134 361 outlet~;
#X obj 48 171 inlet~ L;
#X obj 127 173 inlet~ R;
#X obj 101 114 cnv 10 138 22 empty empty empty 20 12 1 9 -187776 -33289
0;
#X obj 230 114 tgl 10 0 \$0-on \$0-on-in empty 17 7 1 9 -187776 -33289
-33289 1 1;
#X obj 100 126 nbx 5 10 1e-13 10000 0 0 \$0-freq \$0-freq-in freq 2
-6 1 9 -187776 -33289 -33289 0.5 256;
#X obj 174 126 nbx 3 10 0 1 0 0 \$0-width \$0-width-in width 3 -6 1
9 -187776 -33289 -33289 0.5 256;
#X obj 203 126 nbx 3 10 0 1 0 0 \$0-feed \$0-feed-in feed 0 -6 1 9
-187776 -33289 -33289 0.5 256;
#X obj 148 126 bng 10 250 50 0 \$0-reset \$0-reset-in empty 17 7 1
9 -187776 -33289 -33289;
#X obj 219 360 outlet phase0;
#X obj 158 126 tgl 10 0 \$0-modereset \$0-modereset-in empty 17 7 1
9 -187776 -33289 -33289 1 1;
#N canvas 668 145 449 397 \$0-CMD 0;
#X obj 67 41 inlet;
#X obj 322 52 initbang;
#X obj 67 338 _@-comm \$0;
#X msg 67 136 bang;
#X obj 322 81 s \$0-lb;
#X obj 94 63 r \$0-cmd;
#X obj 67 171 _@-arg \$0 fade 0;
#X obj 67 193 _@-arg \$0 drywet 1 1;
#X obj 67 213 _@-arg$ \$0 freq \$1 0.5 1;
#X obj 67 234 _@-arg \$0 width 0.5 1;
#X obj 67 276 _@-arg \$0 wet 1;
#X obj 67 296 _@-arg \$0 gain 1 1;
#X obj 67 95 route get list float bang;
#X msg 158 137 freq \$1;
#X obj 67 317 _@-arg \$0 modereset 1;
#X obj 67 255 _@-arg \$0 feed 0.5 1;
#X obj 219 137 s \$0-reset-in;
#X obj 67 367 _@-arg \$0 on 1;
#X connect 0 0 12 0;
#X connect 1 0 4 0;
#X connect 3 0 6 0;
#X connect 5 0 12 0;
#X connect 6 0 7 0;
#X connect 6 1 7 1;
#X connect 6 2 7 2;
#X connect 7 0 8 0;
#X connect 7 1 8 1;
#X connect 7 2 8 2;
#X connect 8 0 9 0;
#X connect 8 1 9 1;
#X connect 8 2 9 2;
#X connect 9 0 15 0;
#X connect 9 1 15 1;
#X connect 9 2 15 2;
#X connect 10 0 11 0;
#X connect 10 1 11 1;
#X connect 10 2 11 2;
#X connect 11 0 14 0;
#X connect 11 1 14 1;
#X connect 11 2 14 2;
#X connect 12 0 3 0;
#X connect 12 1 6 1;
#X connect 12 2 13 0;
#X connect 12 3 16 0;
#X connect 12 4 6 2;
#X connect 13 0 6 2;
#X connect 14 0 2 0;
#X connect 14 2 17 2;
#X connect 15 0 10 0;
#X connect 15 1 10 1;
#X connect 15 2 10 2;
#X restore 262 114 pd \$0-CMD;
#X obj 264 93 inlet;
#N canvas 552 197 395 302 drywet 0;
#X obj 72 61 inlet~;
#X obj 184 95 inlet toggle;
#X obj 73 233 outlet~ dry;
#X obj 169 233 outlet~ wet;
#X obj 184 184 line~;
#X msg 184 160 \$1 5;
#X obj 169 211 *~;
#X obj 89 186 line~;
#X msg 89 162 \$1 5;
#X obj 73 210 *~;
#X obj 89 139 == 0;
#X connect 0 0 6 0;
#X connect 0 0 9 0;
#X connect 1 0 10 0;
#X connect 1 0 5 0;
#X connect 4 0 6 1;
#X connect 5 0 4 0;
#X connect 6 0 3 0;
#X connect 7 0 9 1;
#X connect 8 0 7 0;
#X connect 9 0 2 0;
#X connect 10 0 8 0;
#X restore 140 256 pd drywet;
#N canvas 552 197 395 302 drywet 0;
#X obj 72 61 inlet~;
#X obj 184 95 inlet toggle;
#X obj 73 233 outlet~ dry;
#X obj 169 233 outlet~ wet;
#X obj 184 184 line~;
#X msg 184 160 \$1 5;
#X obj 169 211 *~;
#X obj 89 186 line~;
#X msg 89 162 \$1 5;
#X obj 73 210 *~;
#X obj 89 139 == 0;
#X connect 0 0 6 0;
#X connect 0 0 9 0;
#X connect 1 0 10 0;
#X connect 1 0 5 0;
#X connect 4 0 6 1;
#X connect 5 0 4 0;
#X connect 6 0 3 0;
#X connect 7 0 9 1;
#X connect 8 0 7 0;
#X connect 9 0 2 0;
#X connect 10 0 8 0;
#X restore 39 255 pd drywet;
#N canvas 342 79 661 686 \$0-AUDIO 0;
#X obj 311 550 r \$0-gain;
#X obj 20 342 inlet~;
#X obj 72 341 inlet~;
#X obj 467 276 - 1;
#X obj 469 298 abs;
#X obj 464 252 t f f;
#X obj 467 230 r \$0-wet;
#X obj 38 219 *~;
#X obj 161 219 *~;
#X obj 235 52 * 10;
#X obj 69 115 phasor~;
#X obj 38 165 cos~;
#X obj 160 170 cos~;
#X obj 38 197 +~ 1;
#X obj 161 194 +~ 1;
#N canvas 518 513 473 213 feedback 0;
#X obj 92 18 inlet~;
#X obj 278 26 inlet~;
#X obj 19 142 outlet~;
#X obj 191 154 outlet~;
#X obj 58 88 *~;
#X obj 232 94 *~;
#X obj 58 112 delwrite~ \$0-flanger-l 1000;
#X obj 233 115 delwrite~ \$0-flanger-r 1000;
#X obj 18 49 vd~ \$0-flanger-l;
#X obj 193 55 vd~ \$0-flanger-r;
#X obj 18 22 inlet~;
#X obj 192 25 inlet~;
#X obj 300 147 block~ 4 1 1;
#X obj 374 28 inlet~;
#X connect 0 0 6 0;
#X connect 1 0 7 0;
#X connect 4 0 6 0;
#X connect 5 0 7 0;
#X connect 8 0 4 0;
#X connect 8 0 2 0;
#X connect 9 0 5 0;
#X connect 9 0 3 0;
#X connect 10 0 8 0;
#X connect 11 0 9 0;
#X connect 13 0 5 1;
#X connect 13 0 4 1;
#X restore 67 283 pd feedback;
#X obj 159 147 +~ 0.06;
#X obj 39 243 +~ 0.12;
#X obj 162 242 +~ 0.12;
#X obj 65 37 r \$0-freq;
#X obj 235 30 r \$0-width;
#X obj 172 626 *~;
#X obj 110 655 outlet~;
#X obj 172 653 outlet~;
#X msg 327 178 \$1 20;
#X msg 526 302 \$1 20;
#X msg 466 319 \$1 20;
#X obj 329 201 line~;
#X obj 526 325 line~;
#X obj 399 416 *~;
#X obj 255 424 *~;
#X obj 466 342 line~;
#X obj 72 429 *~;
#X obj 118 426 *~;
#X obj 327 136 * 0.9;
#X obj 328 156 + 0.05;
#X obj 326 113 r \$0-feed;
#X msg 108 92 0;
#X obj 452 642 outlet phase0;
#X obj 254 258 expr~ if($v1<0.025 \, 0 \, $v1);
#X msg 140 92 0.5;
#X obj 273 127 spigot;
#X obj 306 91 r \$0-modereset;
#X obj 415 158 spigot;
#X obj 448 85 r \$0-modereset;
#X obj 448 109 * -1;
#X obj 448 134 + 1;
#X obj 273 72 r \$0-reset;
#X obj 415 57 r \$0-reset;
#X obj 110 627 *~;
#X obj 311 598 line~;
#X msg 311 575 \$1 1;
#X obj 255 336 snapshot~;
#X obj 279 311 metro 50;
#X obj 451 555 line;
#X msg 451 530 \$1 50;
#X obj 279 284 r \$0-lb;
#X connect 0 0 51 0;
#X connect 1 0 15 1;
#X connect 1 0 32 0;
#X connect 2 0 15 3;
#X connect 2 0 33 0;
#X connect 3 0 4 0;
#X connect 4 0 26 0;
#X connect 5 0 3 0;
#X connect 5 1 25 0;
#X connect 6 0 5 0;
#X connect 7 0 17 0;
#X connect 8 0 18 0;
#X connect 9 0 8 1;
#X connect 9 0 7 1;
#X connect 10 0 11 0;
#X connect 10 0 16 0;
#X connect 10 0 39 0;
#X connect 11 0 13 0;
#X connect 12 0 14 0;
#X connect 13 0 7 0;
#X connect 14 0 8 0;
#X connect 15 0 30 0;
#X connect 15 1 29 0;
#X connect 16 0 12 0;
#X connect 17 0 15 0;
#X connect 18 0 15 2;
#X connect 19 0 10 0;
#X connect 20 0 9 0;
#X connect 21 0 23 0;
#X connect 24 0 27 0;
#X connect 25 0 28 0;
#X connect 26 0 31 0;
#X connect 27 0 15 4;
#X connect 28 0 29 1;
#X connect 28 0 30 1;
#X connect 29 0 21 0;
#X connect 30 0 49 0;
#X connect 31 0 32 1;
#X connect 31 0 33 1;
#X connect 32 0 49 0;
#X connect 33 0 21 0;
#X connect 34 0 35 0;
#X connect 35 0 24 0;
#X connect 36 0 34 0;
#X connect 37 0 10 1;
#X connect 39 0 52 0;
#X connect 40 0 10 1;
#X connect 41 0 37 0;
#X connect 42 0 41 1;
#X connect 43 0 40 0;
#X connect 44 0 45 0;
#X connect 45 0 46 0;
#X connect 46 0 43 1;
#X connect 47 0 41 0;
#X connect 48 0 43 0;
#X connect 49 0 22 0;
#X connect 50 0 21 1;
#X connect 50 0 49 1;
#X connect 51 0 50 0;
#X connect 52 0 55 0;
#X connect 53 0 52 0;
#X connect 54 0 38 0;
#X connect 55 0 54 0;
#X connect 56 0 53 0;
#X restore 80 315 pd \$0-AUDIO;
#X obj 288 155 r \$0-on;
#X obj 208 160 r \$0-drywet;
#X obj 288 181 sel 1;
#X obj 208 215 f 1;
#X connect 2 0 15 0;
#X connect 3 0 14 0;
#X connect 13 0 12 0;
#X connect 14 0 1 0;
#X connect 14 1 16 1;
#X connect 15 0 0 0;
#X connect 15 1 16 0;
#X connect 16 0 0 0;
#X connect 16 1 1 0;
#X connect 16 2 10 0;
#X connect 17 0 19 0;
#X connect 18 0 20 0;
#X connect 19 0 20 0;
#X connect 19 1 14 1;
#X connect 19 1 15 1;
#X connect 20 0 14 1;
#X connect 20 0 15 1;
#X coords 0 -1 1 1 140 38 1 100 100;