From 4d84d14ac1aa13958eaa2971b03f7f929a519105 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?IOhannes=20m=20zm=C3=B6lnig?= Date: Fri, 8 Feb 2008 13:00:32 +0000 Subject: reorganized svn path=/trunk/; revision=9400 --- desiredata/extra/pureunity/distributor.pd | 46 +++++++++++++++++++++++++++++++ 1 file changed, 46 insertions(+) create mode 100644 desiredata/extra/pureunity/distributor.pd (limited to 'desiredata/extra/pureunity/distributor.pd') diff --git a/desiredata/extra/pureunity/distributor.pd b/desiredata/extra/pureunity/distributor.pd new file mode 100644 index 00000000..b7cf2b3d --- /dev/null +++ b/desiredata/extra/pureunity/distributor.pd @@ -0,0 +1,46 @@ +#N canvas 414 247 580 318 10; +#X text 183 92 see distributive-test.pd; +#X text 183 69 when the distributor is 0 the rule is respected.; +#X text 16 269 distributor; +#X text 180 269 antidistributor; +#X text 182 40 distributivity rule for operator \$3 over operator \$2 +is:; +#X text 182 54 a \$3 (b \$2 c) - ((a \$3 b) \$2 (a \$3 c)) = 0; +#X obj 18 19 inlet.\$1 a; +#X obj 91 19 inlet.\$1 b; +#X obj 164 19 inlet.\$1 c; +#X obj 18 61 packunpack3.\$1; +#X obj 18 80 taa.\$1; +#X obj 55 99 taa.\$1; +#X obj 25 146 op2.\$1 \$2; +#X obj 18 169 op2.\$1 \$3; +#X obj 18 193 taa.\$1; +#X obj 18 232 op2.\$1 -; +#X obj 18 251 outlet.\$1 a(bc)-(ab+ac); +#X obj 182 251 outlet.\$1 a(bc)+(ab+ac); +#X obj 182 232 op2.\$1 +; +#X obj 184 184 op2.\$1 \$3; +#X obj 124 165 op2.\$1 \$3; +#X obj 124 184 op2.\$1 \$2; +#X connect 6 0 9 0; +#X connect 7 0 9 1; +#X connect 8 0 9 2; +#X connect 9 0 10 0; +#X connect 9 1 12 0; +#X connect 9 1 20 1; +#X connect 9 2 12 1; +#X connect 9 2 19 1; +#X connect 10 0 13 0; +#X connect 10 1 11 0; +#X connect 11 0 20 0; +#X connect 11 1 19 0; +#X connect 12 0 13 1; +#X connect 13 0 14 0; +#X connect 14 0 15 0; +#X connect 14 1 18 0; +#X connect 15 0 16 0; +#X connect 18 0 17 0; +#X connect 19 0 21 1; +#X connect 20 0 21 0; +#X connect 21 0 15 1; +#X connect 21 0 18 1; -- cgit v1.2.1