From 3faf17f7b713905f582def227df90dac15f3468d Mon Sep 17 00:00:00 2001 From: "N.N." Date: Tue, 10 Jul 2007 07:47:46 +0000 Subject: This commit was generated by cvs2svn to compensate for changes in r7969, which included commits to RCS files with non-trunk default branches. svn path=/trunk/abstractions/s-abstractions/; revision=7970 --- s-delayunit~.pd | 40 ++++++++++++++++++++++++++++++++++++++++ 1 file changed, 40 insertions(+) create mode 100644 s-delayunit~.pd (limited to 's-delayunit~.pd') diff --git a/s-delayunit~.pd b/s-delayunit~.pd new file mode 100644 index 0000000..485589d --- /dev/null +++ b/s-delayunit~.pd @@ -0,0 +1,40 @@ +#N canvas 497 297 455 342 10; +#X obj 140 11 inlet~; +#X obj 169 271 outlet~; +#X obj 210 188 +~; +#X obj 225 160 *~; +#X obj 8 28 hsl 64 16 0 127 0 1 \$0/length \$1/length length -2 -6 +0 8 -260818 -1 -1 1143 1; +#X obj 8 59 hsl 64 16 0 127 0 1 \$0/feedback \$1/feedback feedback +-2 -6 0 8 -260818 -1 -1 681 1; +#X obj 341 143 / 100; +#X obj 225 85 mtof; +#X obj 370 30 block~ 1; +#X obj 225 132 delread~ \$0-del; +#X obj 211 213 s-jail; +#X obj 316 189 table \$0-del 2000; +#X obj 211 242 delwrite~ \$0-del 2000; +#X obj 319 18 inlet; +#X msg 319 59 \; \$1 \$2 \;; +#X obj 319 96 print; +#X obj 319 38 list; +#X obj 225 107 expr 8000 / $f1; +#X obj 341 121 r \$0/feedback; +#X obj 225 42 r \$0/length; +#X obj 2 322 sssad/auto \$0/feedback \$1/feedback; +#X obj 3 300 sssad/auto \$0/length \$1/length; +#X connect 0 0 2 0; +#X connect 2 0 10 0; +#X connect 3 0 2 1; +#X connect 6 0 3 1; +#X connect 7 0 17 0; +#X connect 9 0 3 0; +#X connect 10 0 1 0; +#X connect 10 0 12 0; +#X connect 13 0 16 0; +#X connect 14 0 15 0; +#X connect 16 0 14 0; +#X connect 17 0 9 0; +#X connect 18 0 6 0; +#X connect 19 0 7 0; +#X coords 0 0 1 1 120 80 1 0 0; -- cgit v1.2.1