reorganized

svn path=/trunk/; revision=9400

1 files changed, 38 insertions, 0 deletions

diff --git a/desiredata/extra/pureunity/associator.pd b/desiredata/extra/pureunity/associator.pd
new file mode 100644
index 00000000..f6592029
--- /dev/null
+++ b/desiredata/extra/pureunity/associator.pd
@@ -0,0 +1,38 @@
+#N canvas 574 54 580 317 10;
+#X text 245 40 when the associator is 0 the rule is respected.;
+#X text 245 63 see associative-test.pd;
+#X text 16 219 associator;
+#X text 166 219 antiassociator;
+#X text 244 25 (a*b)*c - a*(b*c) = 0;
+#X text 244 11 associativity rule for operator *=\$2 is:;
+#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 104 op2.\$1 \$2;
+#X obj 18 123 op2.\$1 \$2;
+#X obj 102 108 op2.\$1 \$2;
+#X obj 102 134 op2.\$1 \$2;
+#X obj 18 153 taa.\$1;
+#X obj 18 182 op2.\$1 -;
+#X obj 168 182 op2.\$1 +;
+#X obj 168 201 outlet.\$1 (ab)c+a(bc);
+#X obj 18 201 outlet.\$1 (ab)c-a(bc);
+#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 0 13 0;
+#X connect 9 1 10 1;
+#X connect 9 1 12 0;
+#X connect 9 2 11 1;
+#X connect 9 2 12 1;
+#X connect 10 0 11 0;
+#X connect 11 0 14 0;
+#X connect 12 0 13 1;
+#X connect 13 0 15 1;
+#X connect 13 0 16 1;
+#X connect 14 0 15 0;
+#X connect 14 1 16 0;
+#X connect 15 0 18 0;
+#X connect 16 0 17 0;