aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--generics/distributive-test.pd34
-rw-r--r--generics/distributor.pd10
-rw-r--r--generics/invertor.pd20
3 files changed, 33 insertions, 31 deletions
diff --git a/generics/distributive-test.pd b/generics/distributive-test.pd
index ef58007..5ed9f6e 100644
--- a/generics/distributive-test.pd
+++ b/generics/distributive-test.pd
@@ -7,7 +7,6 @@
#X text 156 9 This test verifies that 3*(4+5)=3*4+3*5;
#X msg 40 34 3 4 5;
#X obj 40 82 unpack 0 0 0;
-#X obj 37 103 distributor \$2;
#X obj 37 122 \$1norm;
#X obj 130 122 \$1norm;
#X obj 37 236 outlet;
@@ -16,24 +15,25 @@
#X obj 101 193 unpack s s s s;
#X obj 37 217 pack 0 0 -1 s s s s;
#X obj 37 141 * 2;
+#X obj 37 103 distributor \$2 \$3;
#X connect 0 0 6 0;
#X connect 1 0 2 0;
#X connect 2 0 4 0;
-#X connect 2 1 15 1;
-#X connect 4 0 15 0;
+#X connect 2 1 14 1;
+#X connect 4 0 14 0;
#X connect 6 0 7 0;
-#X connect 7 0 8 0;
-#X connect 7 1 8 1;
-#X connect 7 2 8 2;
-#X connect 8 0 9 0;
-#X connect 8 1 10 0;
-#X connect 9 0 16 0;
-#X connect 10 0 1 1;
+#X connect 7 0 16 0;
+#X connect 7 1 16 1;
+#X connect 7 2 16 2;
+#X connect 8 0 15 0;
+#X connect 9 0 1 1;
+#X connect 11 0 12 0;
#X connect 12 0 13 0;
-#X connect 13 0 14 0;
-#X connect 14 0 15 3;
-#X connect 14 1 15 4;
-#X connect 14 2 15 5;
-#X connect 14 3 15 6;
-#X connect 15 0 11 0;
-#X connect 16 0 1 0;
+#X connect 13 0 14 3;
+#X connect 13 1 14 4;
+#X connect 13 2 14 5;
+#X connect 13 3 14 6;
+#X connect 14 0 10 0;
+#X connect 15 0 1 0;
+#X connect 16 0 8 0;
+#X connect 16 1 9 0;
diff --git a/generics/distributor.pd b/generics/distributor.pd
index 5aadc88..cb233b1 100644
--- a/generics/distributor.pd
+++ b/generics/distributor.pd
@@ -1,4 +1,4 @@
-#N canvas 574 54 580 241 10;
+#N canvas 441 449 580 241 10;
#X obj 18 182 -;
#X obj 18 19 inlet a;
#X obj 71 19 inlet b;
@@ -21,13 +21,12 @@ is:;
#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 16 0;
-#X connect 4 0 17 0;
-#X connect 4 0 20 0;
+#X connect 4 0 21 0;
#X connect 4 1 17 1;
#X connect 4 1 19 0;
#X connect 4 2 16 1;
@@ -42,3 +41,6 @@ is:;
#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;
diff --git a/generics/invertor.pd b/generics/invertor.pd
index ee2734a..d5654d7 100644
--- a/generics/invertor.pd
+++ b/generics/invertor.pd
@@ -7,7 +7,6 @@
#X text 185 60 when the invertor is 0 the rule is respected.;
#X text 185 83 see invertible-test.pd;
#X obj 18 91 \$2;
-#X obj 18 39 t b a;
#X obj 18 156 outlet (ab)/b-a;
#X text 19 174 invertor;
#X text 129 174 antiinvertor;
@@ -16,15 +15,16 @@
#X obj 128 156 outlet (ab)/b+a;
#X text 184 11 invertibility rule for operator \$1 with (presumed)
right-inverse \$2 is:;
-#X connect 0 0 9 0;
-#X connect 1 0 8 0;
+#X obj 18 39 t a a;
+#X connect 0 0 8 0;
+#X connect 1 0 15 0;
#X connect 2 0 3 1;
#X connect 2 0 7 1;
#X connect 3 0 7 0;
-#X connect 7 0 13 0;
-#X connect 8 0 3 0;
-#X connect 8 1 0 1;
-#X connect 8 1 12 1;
-#X connect 12 0 14 0;
-#X connect 13 0 0 0;
-#X connect 13 1 12 0;
+#X connect 7 0 12 0;
+#X connect 11 0 13 0;
+#X connect 12 0 0 0;
+#X connect 12 1 11 0;
+#X connect 15 0 3 0;
+#X connect 15 1 0 1;
+#X connect 15 1 11 1;