aboutsummaryrefslogtreecommitdiff
path: root/generics
diff options
context:
space:
mode:
Diffstat (limited to 'generics')
-rw-r--r--generics/#.rand.pd40
-rw-r--r--generics/antireflexive-test.pd13
-rw-r--r--generics/associative-test.pd32
-rw-r--r--generics/commutative-test.pd39
-rw-r--r--generics/distributive-test.pd32
-rw-r--r--generics/f.rand.pd40
-rw-r--r--generics/invertible-test.pd31
-rw-r--r--generics/partialorder-test.pd14
-rw-r--r--generics/partialordereq-test.pd14
-rw-r--r--generics/protocols-tree.pd2
-rw-r--r--generics/reflexive-test.pd13
-rw-r--r--generics/totalorder-test.pd11
-rw-r--r--generics/totalordereq-test.pd11
-rw-r--r--generics/trichotomy-test.pd32
-rw-r--r--generics/twice.pd31
-rw-r--r--generics/~.rand.pd22
16 files changed, 103 insertions, 274 deletions
diff --git a/generics/#.rand.pd b/generics/#.rand.pd
new file mode 100644
index 0000000..0a295da
--- /dev/null
+++ b/generics/#.rand.pd
@@ -0,0 +1,40 @@
+#N canvas 0 0 450 300 10;
+#X obj 21 34 inlet;
+#X obj 21 223 *;
+#X obj 73 95 random 256;
+#X obj 183 87 random;
+#X msg 220 39 1;
+#X obj 220 20 loadbang;
+#X obj 220 58 << 23;
+#X obj 183 106 +;
+#X obj 21 53 t b b b;
+#X obj 21 136 random 2;
+#X obj 21 174 - 1;
+#X obj 73 114 - 150;
+#X obj 43 114 pow;
+#X obj 21 242 outlet;
+#X obj 43 76 t b b;
+#X msg 43 95 2;
+#X obj 21 199 *;
+#X obj 21 155 * 2;
+#X connect 0 0 8 0;
+#X connect 1 0 13 0;
+#X connect 2 0 11 0;
+#X connect 3 0 7 0;
+#X connect 4 0 6 0;
+#X connect 5 0 4 0;
+#X connect 6 0 3 1;
+#X connect 6 0 7 1;
+#X connect 7 0 16 1;
+#X connect 8 0 9 0;
+#X connect 8 1 14 0;
+#X connect 8 2 3 0;
+#X connect 9 0 17 0;
+#X connect 10 0 16 0;
+#X connect 11 0 12 1;
+#X connect 12 0 1 1;
+#X connect 14 0 15 0;
+#X connect 14 1 2 0;
+#X connect 15 0 12 0;
+#X connect 16 0 1 0;
+#X connect 17 0 10 0;
diff --git a/generics/antireflexive-test.pd b/generics/antireflexive-test.pd
deleted file mode 100644
index 7353dc6..0000000
--- a/generics/antireflexive-test.pd
+++ /dev/null
@@ -1,13 +0,0 @@
-#N canvas 0 0 450 164 10;
-#X obj 12 18 inlet;
-#X obj 12 118 outlet;
-#X obj 12 80 \$2;
-#X msg 12 37 2 2;
-#X obj 12 56 t a a;
-#X obj 12 99 == 0;
-#X connect 0 0 3 0;
-#X connect 2 0 5 0;
-#X connect 3 0 4 0;
-#X connect 4 0 2 0;
-#X connect 4 1 2 1;
-#X connect 5 0 1 0;
diff --git a/generics/associative-test.pd b/generics/associative-test.pd
deleted file mode 100644
index 1994c4e..0000000
--- a/generics/associative-test.pd
+++ /dev/null
@@ -1,32 +0,0 @@
-#N canvas 736 151 452 434 10;
-#X obj 40 15 inlet bang;
-#X obj 40 150 /;
-#X obj 40 169 t a a;
-#X text 167 24 with tolerance 0;
-#X obj 40 188 <= 0;
-#X text 167 9 This test verifies that (1+2)+3=1+(2+3);
-#X msg 40 34 1 2 3;
-#X obj 40 74 unpack 0 0 0;
-#X obj 40 245 outlet;
-#X obj 40 131 * 2;
-#X obj 40 112 \$1.norm;
-#X obj 147 112 \$1.norm;
-#X obj 40 93 associator \$1 \$2;
-#X obj 40 226 list append associative \$1 \$2;
-#X obj 40 207 pack 0 0 -1;
-#X connect 0 0 6 0;
-#X connect 1 0 2 0;
-#X connect 2 0 4 0;
-#X connect 2 1 14 1;
-#X connect 4 0 14 0;
-#X connect 6 0 7 0;
-#X connect 7 0 12 0;
-#X connect 7 1 12 1;
-#X connect 7 2 12 2;
-#X connect 9 0 1 0;
-#X connect 10 0 9 0;
-#X connect 11 0 1 1;
-#X connect 12 0 10 0;
-#X connect 12 1 11 0;
-#X connect 13 0 8 0;
-#X connect 14 0 13 0;
diff --git a/generics/commutative-test.pd b/generics/commutative-test.pd
deleted file mode 100644
index ec67417..0000000
--- a/generics/commutative-test.pd
+++ /dev/null
@@ -1,39 +0,0 @@
-#N canvas 555 5 452 322 10;
-#X obj 40 15 inlet bang;
-#X obj 101 102 unpack 0 0;
-#X obj 101 183 /;
-#X msg 40 34 1 3;
-#X text 216 9 This test verifies that 1+3=3+1;
-#X obj 101 202 t a a;
-#X obj 101 278 outlet;
-#X text 217 44 with tolerance 0;
-#X obj 101 221 <= 0;
-#X text 218 23 and 1*3=3*1 and...;
-#X obj 101 164 * 2;
-#X obj 101 145 \$1.norm;
-#X obj 208 145 \$1.norm;
-#X obj 101 126 commutator \$1 \$2;
-#X obj 41 53 t b l b;
-#X obj 43 95 rtimer;
-#X floatatom 44 125 5 0 0 0 - - -;
-#X obj 101 259 list append commutative \$1 \$2;
-#X obj 101 240 pack 0 0 -1;
-#X connect 0 0 3 0;
-#X connect 1 0 13 0;
-#X connect 1 1 13 1;
-#X connect 2 0 5 0;
-#X connect 3 0 14 0;
-#X connect 5 0 8 0;
-#X connect 5 1 18 1;
-#X connect 8 0 18 0;
-#X connect 10 0 2 0;
-#X connect 11 0 10 0;
-#X connect 12 0 2 1;
-#X connect 13 0 11 0;
-#X connect 13 1 12 0;
-#X connect 14 0 15 1;
-#X connect 14 1 1 0;
-#X connect 14 2 15 0;
-#X connect 15 0 16 0;
-#X connect 17 0 6 0;
-#X connect 18 0 17 0;
diff --git a/generics/distributive-test.pd b/generics/distributive-test.pd
deleted file mode 100644
index 8f6692a..0000000
--- a/generics/distributive-test.pd
+++ /dev/null
@@ -1,32 +0,0 @@
-#N canvas 665 86 471 430 10;
-#X obj 40 15 inlet bang;
-#X obj 37 160 /;
-#X obj 37 179 t a a;
-#X text 157 24 with tolerance 0;
-#X obj 37 198 <= 0;
-#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 255 outlet;
-#X obj 37 141 * 2;
-#X obj 37 122 \$1.norm;
-#X obj 172 122 \$1.norm;
-#X obj 37 103 distributor \$1 \$2 \$3;
-#X obj 37 236 list append distributive \$1 \$2 \$3;
-#X obj 37 217 pack 0 0 -1;
-#X connect 0 0 6 0;
-#X connect 1 0 2 0;
-#X connect 2 0 4 0;
-#X connect 2 1 14 1;
-#X connect 4 0 14 0;
-#X connect 6 0 7 0;
-#X connect 7 0 12 0;
-#X connect 7 1 12 1;
-#X connect 7 2 12 2;
-#X connect 9 0 1 0;
-#X connect 10 0 9 0;
-#X connect 11 0 1 1;
-#X connect 12 0 10 0;
-#X connect 12 1 11 0;
-#X connect 13 0 8 0;
-#X connect 14 0 13 0;
diff --git a/generics/f.rand.pd b/generics/f.rand.pd
new file mode 100644
index 0000000..f4372dc
--- /dev/null
+++ b/generics/f.rand.pd
@@ -0,0 +1,40 @@
+#N canvas 0 0 450 300 10;
+#X obj 11 14 inlet;
+#X obj 11 192 *;
+#X obj 63 75 random 256;
+#X obj 183 87 random;
+#X msg 220 39 1;
+#X obj 220 20 loadbang;
+#X obj 220 58 << 23;
+#X obj 183 106 +;
+#X obj 11 33 t b b b;
+#X obj 11 116 random 2;
+#X obj 11 154 - 1;
+#X obj 63 94 - 150;
+#X obj 33 94 pow;
+#X obj 11 211 outlet;
+#X obj 33 56 t b b;
+#X msg 33 75 2;
+#X obj 11 173 *;
+#X obj 11 135 * 2;
+#X connect 0 0 8 0;
+#X connect 1 0 13 0;
+#X connect 2 0 11 0;
+#X connect 3 0 7 0;
+#X connect 4 0 6 0;
+#X connect 5 0 4 0;
+#X connect 6 0 3 1;
+#X connect 6 0 7 1;
+#X connect 7 0 16 1;
+#X connect 8 0 9 0;
+#X connect 8 1 14 0;
+#X connect 8 2 3 0;
+#X connect 9 0 17 0;
+#X connect 10 0 16 0;
+#X connect 11 0 12 1;
+#X connect 12 0 1 1;
+#X connect 14 0 15 0;
+#X connect 14 1 2 0;
+#X connect 15 0 12 0;
+#X connect 16 0 1 0;
+#X connect 17 0 10 0;
diff --git a/generics/invertible-test.pd b/generics/invertible-test.pd
deleted file mode 100644
index d08abe9..0000000
--- a/generics/invertible-test.pd
+++ /dev/null
@@ -1,31 +0,0 @@
-#N canvas 665 86 452 291 10;
-#X obj 40 15 inlet bang;
-#X obj 40 79 unpack 0 0;
-#X obj 33 160 /;
-#X msg 40 34 1 3;
-#X obj 33 179 t a a;
-#X text 217 24 with tolerance 0;
-#X obj 33 198 <= 0;
-#X text 215 9 This test verifies that 1+3-3=1;
-#X obj 33 255 outlet;
-#X obj 33 141 * 2;
-#X obj 33 122 \$1.norm;
-#X obj 147 123 \$1.norm;
-#X obj 33 103 invertor \$1 \$2 \$3;
-#X obj 33 236 list append invertible \$1 \$2 \$3;
-#X obj 33 217 pack 0 0 -1;
-#X connect 0 0 3 0;
-#X connect 1 0 12 0;
-#X connect 1 1 12 1;
-#X connect 2 0 4 0;
-#X connect 3 0 1 0;
-#X connect 4 0 6 0;
-#X connect 4 1 14 1;
-#X connect 6 0 14 0;
-#X connect 9 0 2 0;
-#X connect 10 0 9 0;
-#X connect 11 0 2 1;
-#X connect 12 0 10 0;
-#X connect 12 1 11 0;
-#X connect 13 0 8 0;
-#X connect 14 0 13 0;
diff --git a/generics/partialorder-test.pd b/generics/partialorder-test.pd
deleted file mode 100644
index 65aff88..0000000
--- a/generics/partialorder-test.pd
+++ /dev/null
@@ -1,14 +0,0 @@
-#N canvas 118 56 450 189 10;
-#X obj 13 21 inlet;
-#X obj 13 141 outlet;
-#X obj 35 87 transitive-test \$1 \$2;
-#X obj 13 107 antisymmetric-test \$1 \$2;
-#X obj 57 67 antireflexive-test \$1 \$2;
-#X obj 13 41 t b b b;
-#X connect 0 0 5 0;
-#X connect 2 0 1 0;
-#X connect 3 0 1 0;
-#X connect 4 0 1 0;
-#X connect 5 0 3 0;
-#X connect 5 1 2 0;
-#X connect 5 2 4 0;
diff --git a/generics/partialordereq-test.pd b/generics/partialordereq-test.pd
deleted file mode 100644
index 39de970..0000000
--- a/generics/partialordereq-test.pd
+++ /dev/null
@@ -1,14 +0,0 @@
-#N canvas 118 56 450 182 10;
-#X obj 13 21 inlet;
-#X obj 13 131 outlet;
-#X obj 35 79 transitive-test \$1 \$2;
-#X obj 57 60 reflexive-test \$1 \$2;
-#X obj 13 98 antisymmetric-test \$1 \$2;
-#X obj 13 40 t b b b;
-#X connect 0 0 5 0;
-#X connect 2 0 1 0;
-#X connect 3 0 1 0;
-#X connect 4 0 1 0;
-#X connect 5 0 4 0;
-#X connect 5 1 2 0;
-#X connect 5 2 3 0;
diff --git a/generics/protocols-tree.pd b/generics/protocols-tree.pd
index 193b622..f4efcc3 100644
--- a/generics/protocols-tree.pd
+++ b/generics/protocols-tree.pd
@@ -19,7 +19,7 @@
#X obj 486 355 tree \$0 distributive;
#X obj 474 409 tree \$0 invertible;
#X obj 512 115 tree \$0 trichotomy;
-#X obj 385 220 tree \$0 transitive;
+#X obj 380 220 tree \$0 transitive;
#X obj 458 436 tree \$0 semigroup ?;
#X obj 458 381 tree \$0 group ?;
#X obj 622 184 tree \$0 antisymmetric2 ?;
diff --git a/generics/reflexive-test.pd b/generics/reflexive-test.pd
deleted file mode 100644
index 1ae836d..0000000
--- a/generics/reflexive-test.pd
+++ /dev/null
@@ -1,13 +0,0 @@
-#N canvas 0 0 450 161 10;
-#X obj 12 18 inlet;
-#X obj 12 120 outlet;
-#X obj 12 56 t a a;
-#X msg 12 37 2 2;
-#X obj 12 82 \$2;
-#X obj 12 101 == 1;
-#X connect 0 0 3 0;
-#X connect 2 0 4 0;
-#X connect 2 1 4 1;
-#X connect 3 0 2 0;
-#X connect 4 0 5 0;
-#X connect 5 0 1 0;
diff --git a/generics/totalorder-test.pd b/generics/totalorder-test.pd
deleted file mode 100644
index 9aa72fc..0000000
--- a/generics/totalorder-test.pd
+++ /dev/null
@@ -1,11 +0,0 @@
-#N canvas 118 56 418 157 10;
-#X obj 13 21 inlet;
-#X obj 13 101 outlet;
-#X obj 43 59 partialorder-test \$1 \$2;
-#X obj 13 78 trichotomy-test \$1 \$2;
-#X obj 13 40 t b b;
-#X connect 0 0 4 0;
-#X connect 2 0 1 0;
-#X connect 3 0 1 0;
-#X connect 4 0 3 0;
-#X connect 4 1 2 0;
diff --git a/generics/totalordereq-test.pd b/generics/totalordereq-test.pd
deleted file mode 100644
index 4c7372d..0000000
--- a/generics/totalordereq-test.pd
+++ /dev/null
@@ -1,11 +0,0 @@
-#N canvas 349 136 450 153 10;
-#X obj 13 21 inlet;
-#X obj 13 97 outlet;
-#X obj 13 78 trichotomy-test \$1 \$2;
-#X obj 43 59 partialordereq-test \$1 \$2;
-#X obj 13 40 t b b;
-#X connect 0 0 4 0;
-#X connect 2 0 1 0;
-#X connect 3 0 1 0;
-#X connect 4 0 2 0;
-#X connect 4 1 3 0;
diff --git a/generics/trichotomy-test.pd b/generics/trichotomy-test.pd
deleted file mode 100644
index 49aa8e7..0000000
--- a/generics/trichotomy-test.pd
+++ /dev/null
@@ -1,32 +0,0 @@
-#N canvas 174 185 553 302 10;
-#X obj 13 21 inlet;
-#X obj 13 255 outlet;
-#X msg 13 40 1 2 \, 2 2 \, 2 1;
-#X msg 38 78 \$2 \$1;
-#X obj 13 117 +;
-#X obj 13 59 t a a a;
-#X obj 13 97 \$3;
-#X obj 38 97 \$3;
-#X obj 91 100 \$2;
-#X obj 38 117 +;
-#X obj 13 136 - 1;
-#X obj 13 155 t a a;
-#X obj 13 174 == 0;
-#X obj 13 236 list append trichotomy \$1 \$2;
-#X obj 13 217 pack 0 0 -1;
-#X connect 0 0 2 0;
-#X connect 2 0 5 0;
-#X connect 3 0 7 0;
-#X connect 4 0 10 0;
-#X connect 5 0 6 0;
-#X connect 5 1 3 0;
-#X connect 5 2 8 0;
-#X connect 6 0 4 0;
-#X connect 7 0 9 0;
-#X connect 8 0 9 1;
-#X connect 9 0 4 1;
-#X connect 11 0 12 0;
-#X connect 11 1 14 1;
-#X connect 12 0 14 0;
-#X connect 13 0 1 0;
-#X connect 14 0 13 0;
diff --git a/generics/twice.pd b/generics/twice.pd
deleted file mode 100644
index 5f3eeec..0000000
--- a/generics/twice.pd
+++ /dev/null
@@ -1,31 +0,0 @@
-#N canvas 330 193 379 266 10;
-#X obj 20 16 inlet;
-#X obj 69 108 inlet;
-#X obj 108 108 inlet;
-#X obj 85 54 t a a;
-#X obj 20 35 route bang;
-#X obj 20 54 t b b;
-#X obj 118 211 pack s s;
-#X obj 46 209 pack 0 0;
-#X obj 46 241 outlet;
-#X obj 46 130 \$1 \$2;
-#X obj 85 130 \$1 \$3;
-#X obj 85 170 route float;
-#X obj 46 190 route float;
-#X connect 0 0 4 0;
-#X connect 1 0 9 1;
-#X connect 2 0 10 1;
-#X connect 3 0 9 0;
-#X connect 3 1 10 0;
-#X connect 4 0 5 0;
-#X connect 4 1 3 0;
-#X connect 5 0 9 0;
-#X connect 5 1 10 0;
-#X connect 6 0 8 0;
-#X connect 7 0 8 0;
-#X connect 9 0 12 0;
-#X connect 10 0 11 0;
-#X connect 11 0 7 1;
-#X connect 11 1 6 1;
-#X connect 12 0 7 0;
-#X connect 12 1 6 0;
diff --git a/generics/~.rand.pd b/generics/~.rand.pd
new file mode 100644
index 0000000..cb1bf37
--- /dev/null
+++ b/generics/~.rand.pd
@@ -0,0 +1,22 @@
+#N canvas 339 187 450 177 10;
+#X obj 105 118 pow;
+#X obj 105 80 t b b;
+#X msg 105 99 2;
+#X obj 22 98 env~;
+#X obj 11 14 inlet;
+#X obj 10 143 outlet~;
+#X text 52 14 banging the inlet does nothing for signals.;
+#X obj 37 62 noise~;
+#X obj 135 99 random 64;
+#X obj 135 118 - 64;
+#X obj 11 62 *~;
+#X connect 0 0 10 0;
+#X connect 1 0 2 0;
+#X connect 1 1 8 0;
+#X connect 2 0 0 0;
+#X connect 3 0 1 0;
+#X connect 7 0 10 1;
+#X connect 8 0 9 0;
+#X connect 9 0 0 1;
+#X connect 10 0 5 0;
+#X connect 10 0 3 0;