diff options
author | N.N. <matju@users.sourceforge.net> | 2006-01-02 01:40:45 +0000 |
---|---|---|
committer | N.N. <matju@users.sourceforge.net> | 2006-01-02 01:40:45 +0000 |
commit | 1162fd1f75748eadb5bbcb85bd6785e15ca4c979 (patch) | |
tree | 1f0bdd79da8715a9a1a3b49ecdf920df67f1f457 /generics/distributor.pd | |
parent | bb388c87ee61094d4730d28c19667e8b498ff480 (diff) |
now using polymorphic inlets & outlets: [$1.inlet] [$1.outlet]
svn path=/trunk/abstractions/pureunity/; revision=4347
Diffstat (limited to 'generics/distributor.pd')
-rw-r--r-- | generics/distributor.pd | 68 |
1 files changed, 34 insertions, 34 deletions
diff --git a/generics/distributor.pd b/generics/distributor.pd index cb233b1..c871a05 100644 --- a/generics/distributor.pd +++ b/generics/distributor.pd @@ -1,46 +1,46 @@ #N canvas 441 449 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 182 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 185 123 see distributive-test.pd; +#X text 185 100 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 text 180 219 antidistributor; #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 obj 18 80 t a a a; -#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 21 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; -#X connect 21 0 20 0; -#X connect 21 1 17 0; -#X connect 21 2 16 0; +#X obj 164 19 \$1.inlet c; +#X obj 91 19 \$1.inlet b; +#X obj 18 19 \$1.inlet a; +#X obj 18 201 \$1.outlet a(bc)-(ab+ac); +#X obj 182 201 \$1.outlet a(bc)+(ab+ac); +#X text 184 71 distributivity rule for operator \$3 over operator \$2 +is:; +#X text 184 85 a \$3 (b \$2 c) - ((a \$3 b) \$2 (a \$3 c)) = 0; +#X connect 0 0 18 0; +#X connect 1 0 14 0; +#X connect 1 1 10 1; +#X connect 1 1 12 0; +#X connect 1 2 9 1; +#X connect 1 2 12 1; +#X connect 2 0 1 0; +#X connect 3 0 19 0; +#X connect 4 0 0 0; +#X connect 4 1 3 0; +#X connect 9 0 11 1; +#X connect 10 0 11 0; +#X connect 11 0 3 1; +#X connect 11 0 0 1; +#X connect 12 0 13 1; +#X connect 13 0 4 0; +#X connect 14 0 13 0; +#X connect 14 1 10 0; +#X connect 14 2 9 0; +#X connect 15 0 2 2; +#X connect 16 0 2 1; +#X connect 17 0 2 0; |