diff options
Diffstat (limited to 'generics/associator.pd')
| -rw-r--r-- | generics/associator.pd | 56 |
1 files changed, 27 insertions, 29 deletions
diff --git a/generics/associator.pd b/generics/associator.pd index 38ff352..2fbef3f 100644 --- a/generics/associator.pd +++ b/generics/associator.pd @@ -1,40 +1,38 @@ #N canvas 574 54 580 317 10; -#X obj 18 182 -; -#X obj 18 61 unpack 0 0 0; -#X obj 18 42 pack 0 0 0; -#X obj 81 123 \$1; -#X obj 56 123 \$1; -#X obj 18 104 \$1; -#X obj 18 123 \$1; #X text 245 40 when the associator is 0 the rule is respected.; #X text 245 63 see associative-test.pd; -#X obj 168 182 +; #X text 16 219 associator; #X text 166 219 antiassociator; -#X obj 18 153 t a a; #X obj 18 19 \$1.inlet a; #X obj 91 19 \$1.inlet b; #X obj 164 19 \$1.inlet c; -#X text 244 11 associativity rule for operator *=$1 is:; #X text 244 25 (a*b)*c - a*(b*c) = 0; #X obj 18 201 \$1.outlet (ab)c-a(bc); #X obj 168 201 \$1.outlet (ab)c+a(bc); -#X connect 0 0 18 0; -#X connect 1 0 4 0; -#X connect 1 0 5 0; -#X connect 1 1 3 0; -#X connect 1 1 5 1; -#X connect 1 2 3 1; -#X connect 1 2 6 1; -#X connect 2 0 1 0; -#X connect 3 0 4 1; -#X connect 4 0 0 1; -#X connect 4 0 9 1; -#X connect 5 0 6 0; -#X connect 6 0 12 0; -#X connect 9 0 19 0; -#X connect 12 0 0 0; -#X connect 12 1 9 0; -#X connect 13 0 2 0; -#X connect 14 0 2 1; -#X connect 15 0 2 2; +#X text 244 11 associativity rule for operator *=$2 is:; +#X obj 102 108 \$1.do \$2; +#X obj 102 134 \$1.do \$2; +#X obj 18 104 \$1.do \$2; +#X obj 18 123 \$1.do \$2; +#X obj 18 153 \$1.taa; +#X obj 18 182 \$1.do -; +#X obj 168 182 \$1.do +; +#X obj 18 61 \$1.packunpack3; +#X connect 4 0 18 0; +#X connect 5 0 18 1; +#X connect 6 0 18 2; +#X connect 11 0 12 1; +#X connect 12 0 16 1; +#X connect 12 0 17 1; +#X connect 13 0 14 0; +#X connect 14 0 15 0; +#X connect 15 0 16 0; +#X connect 15 1 17 0; +#X connect 16 0 8 0; +#X connect 17 0 9 0; +#X connect 18 0 12 0; +#X connect 18 0 13 0; +#X connect 18 1 11 0; +#X connect 18 1 13 1; +#X connect 18 2 11 1; +#X connect 18 2 14 1; |