From f18d063d9312c95e25294e0777bc135ee9a3fd8a Mon Sep 17 00:00:00 2001 From: Thomas O Fredericks Date: Sun, 25 Oct 2009 00:39:13 +0000 Subject: Adding mtl svn path=/trunk/abstractions/mtl/; revision=12667 --- delayPhasor~.pd | 97 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 97 insertions(+) create mode 100644 delayPhasor~.pd (limited to 'delayPhasor~.pd') diff --git a/delayPhasor~.pd b/delayPhasor~.pd new file mode 100644 index 0000000..92b0d89 --- /dev/null +++ b/delayPhasor~.pd @@ -0,0 +1,97 @@ +#N canvas 362 310 740 458 10; +#N canvas 460 241 627 300 delayphasor 0; +#X obj 311 292 *~ 0.8; +#X obj 310 249 /~ 44.1; +#X obj 310 226 +~ 100; +#X obj 310 204 *~ 50; +#X obj 308 132 -~ 0.5; +#X obj 309 158 abs~; +#X obj 310 183 *~ 2; +#X obj 84 247 /~ 44.1; +#X obj 84 224 +~ 100; +#X obj 84 202 *~ 50; +#X obj 82 130 -~ 0.5; +#X obj 83 156 abs~; +#X obj 84 181 *~ 2; +#X floatatom 169 91 5 0 0 0 - - -; +#X obj 84 290 *~ 0.8; +#X obj 9 4 inlet~; +#X obj 169 50 loadbang; +#X msg 169 69 0.5; +#X floatatom 380 36 5 0 0 0 - - -; +#X floatatom 422 34 5 0 0 0 - - -; +#X obj 380 12 inlet; +#X obj 422 11 inlet; +#X obj 253 68 inlet~; +#X obj 83 110 phasor~ 0.033; +#X obj 309 112 phasor~ 0.033; +#X obj 83 317 outlet~; +#X obj 312 319 outlet~; +#X obj 9 26 delwrite~ dpdelay11 1000; +#X obj 253 90 delwrite~ dpdelay22 1000; +#X obj 309 271 vd~ dpdelay22; +#X obj 82 269 vd~ dpdelay11; +#X obj 488 13 inlet phasor; +#X connect 0 0 26 0; +#X connect 0 0 28 0; +#X connect 1 0 29 0; +#X connect 2 0 1 0; +#X connect 3 0 2 0; +#X connect 4 0 5 0; +#X connect 5 0 6 0; +#X connect 6 0 3 0; +#X connect 7 0 30 0; +#X connect 8 0 7 0; +#X connect 9 0 8 0; +#X connect 10 0 11 0; +#X connect 11 0 12 0; +#X connect 12 0 9 0; +#X connect 13 0 23 1; +#X connect 14 0 25 0; +#X connect 14 0 27 0; +#X connect 15 0 27 0; +#X connect 16 0 17 0; +#X connect 17 0 13 0; +#X connect 18 0 9 1; +#X connect 18 0 3 1; +#X connect 19 0 8 1; +#X connect 19 0 2 1; +#X connect 20 0 18 0; +#X connect 21 0 19 0; +#X connect 22 0 28 0; +#X connect 23 0 10 0; +#X connect 24 0 4 0; +#X connect 29 0 0 0; +#X connect 30 0 14 0; +#X connect 31 0 13 0; +#X restore 27 86 pd delayphasor; +#X obj 135 309 outlet~; +#X obj 227 308 outlet~; +#X obj 27 47 inlet~; +#X obj 87 47 inlet~; +#X obj 590 32 inlet params; +#X obj 590 78 print PARAM_NOTFOUND; +#X obj 135 273 tof/crossfade~ 2; +#X obj 253 176 tof/param /wet 0 /g slider 0 1; +#X obj 307 48 tof/param /delay2 10 /g slider 1 20000; +#X obj 307 18 tof/param /delay1 100 /g slider 1 20000; +#X obj 317 98 tof/param /phasor 0.3 /g slider 0.01 10; +#X obj 253 219 line~; +#X msg 253 198 \$1 5; +#X obj 590 54 tof/param route; +#X connect 0 0 7 2; +#X connect 0 1 7 3; +#X connect 3 0 0 0; +#X connect 3 0 7 0; +#X connect 4 0 0 1; +#X connect 4 0 7 1; +#X connect 5 0 14 0; +#X connect 7 0 1 0; +#X connect 7 1 2 0; +#X connect 8 0 13 0; +#X connect 9 0 0 3; +#X connect 10 0 0 2; +#X connect 11 0 0 4; +#X connect 12 0 7 4; +#X connect 13 0 12 0; +#X connect 14 0 6 0; -- cgit v1.2.1