From d28a1212a54afb67493c3001105325f0d3e4e0f7 Mon Sep 17 00:00:00 2001 From: "N.N." Date: Sat, 31 Dec 2005 16:19:21 +0000 Subject: added antiassociator outlet svn path=/trunk/abstractions/pureunity/; revision=4324 --- generics/associator.pd | 15 ++++++++++++--- 1 file changed, 12 insertions(+), 3 deletions(-) diff --git a/generics/associator.pd b/generics/associator.pd index 020dc12..bbe0f1f 100644 --- a/generics/associator.pd +++ b/generics/associator.pd @@ -1,11 +1,11 @@ #N canvas 574 54 580 241 10; -#X obj 18 162 -; +#X obj 18 182 -; #X obj 18 19 inlet a; #X obj 71 19 inlet b; #X text 214 11 associativity rule for operator \$1 is:; #X obj 124 19 inlet c; #X text 214 25 (a \$1 b) \$1 c - a \$1 (b \$1 c) = 0; -#X obj 18 181 outlet (ab)c-a(bc); +#X obj 18 201 outlet (ab)c-a(bc); #X obj 18 61 unpack 0 0 0; #X obj 18 42 pack 0 0 0; #X obj 81 123 \$1; @@ -14,6 +14,11 @@ #X obj 18 123 \$1; #X text 215 40 when the associator is 0 the rule is respected.; #X text 215 63 see associative-test.pd; +#X obj 148 182 +; +#X text 16 219 associator; +#X text 146 219 antiassociator; +#X obj 18 153 t a a; +#X obj 148 201 outlet (ab)c+a(bc); #X connect 0 0 6 0; #X connect 1 0 8 0; #X connect 2 0 8 1; @@ -27,5 +32,9 @@ #X connect 8 0 7 0; #X connect 9 0 10 1; #X connect 10 0 0 1; +#X connect 10 0 15 1; #X connect 11 0 12 0; -#X connect 12 0 0 0; +#X connect 12 0 18 0; +#X connect 15 0 19 0; +#X connect 18 0 0 0; +#X connect 18 1 15 0; -- cgit v1.2.1