diff options
Diffstat (limited to 'desiredata/extra/pureunity/associator.pd')
-rw-r--r-- | desiredata/extra/pureunity/associator.pd | 38 |
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; |