.

svn path=/trunk/abstractions/pureunity/; revision=4327

1 files changed, 44 insertions, 0 deletions

diff --git a/generics/distributor.pd b/generics/distributor.pd
new file mode 100644
index 0000000..5aadc88
--- /dev/null
+++ b/generics/distributor.pd
@@ -0,0 +1,44 @@
+#N canvas 574 54 580 241 10;
+#X obj 18 182 -;
+#X obj 18 19 inlet a;
+#X obj 71 19 inlet b;
+#X obj 124 19 inlet c;
+#X obj 18 61 unpack 0 0 0;
+#X obj 18 42 pack 0 0 0;
+#X obj 162 182 +;
+#X obj 18 153 t a a;
+#X text 185 73 see distributive-test.pd;
+#X text 184 21 distributivity rule for operator \$2 over operator \$1
+is:;
+#X text 184 35 a \$2 (b \$1 c) - ((a \$2 b) \$1 (a \$2 c)) = 0;
+#X text 185 50 when the distributor is 0 the rule is respected.;
+#X text 16 219 distributor;
+#X text 160 219 antidistributor;
+#X obj 162 201 outlet a(bc)+(ab+ac);
+#X obj 18 201 outlet a(bc)-(ab+ac);
+#X obj 116 113 \$2;
+#X obj 91 112 \$2;
+#X obj 95 133 \$1;
+#X obj 43 106 \$1;
+#X obj 18 106 \$2;
+#X connect 0 0 15 0;
+#X connect 1 0 5 0;
+#X connect 2 0 5 1;
+#X connect 3 0 5 2;
+#X connect 4 0 16 0;
+#X connect 4 0 17 0;
+#X connect 4 0 20 0;
+#X connect 4 1 17 1;
+#X connect 4 1 19 0;
+#X connect 4 2 16 1;
+#X connect 4 2 19 1;
+#X connect 5 0 4 0;
+#X connect 6 0 14 0;
+#X connect 7 0 0 0;
+#X connect 7 1 6 0;
+#X connect 16 0 18 1;
+#X connect 17 0 18 0;
+#X connect 18 0 6 1;
+#X connect 18 0 0 1;
+#X connect 19 0 20 1;
+#X connect 20 0 7 0;