self-awareness

svn path=/trunk/abstractions/pureunity/; revision=4355

2 files changed, 99 insertions, 0 deletions

diff --git a/generics/protocols-tree.pd b/generics/protocols-tree.pd
new file mode 100644
index 0000000..79b7a30
--- /dev/null
+++ b/generics/protocols-tree.pd
@@ -0,0 +1,61 @@
+#N canvas 436 170 813 546 10;
+#X obj 19 43 inlet;
+#X obj 19 152 r \$0-out;
+#X obj 79 100 symbol \$0-out;
+#X obj 19 171 outlet;
+#X text 20 15 the direction of flow indicates "inherits from";
+#X obj 192 146 tree \$0 commutative;
+#X obj 19 100 pack s s;
+#X obj 79 81 loadbang;
+#X obj 19 62 makefilename \$0-%s;
+#X obj 86 222 print;
+#X obj 423 157 tree \$0 reflexive;
+#X obj 594 157 tree \$0 antireflexive;
+#X obj 423 135 tree \$0 partialorder;
+#X obj 594 135 tree \$0 partialordereq;
+#X obj 423 90 tree \$0 totalorder;
+#X obj 594 91 tree \$0 totalordereq;
+#X obj 380 54 tree \$0 equivalence;
+#X obj 458 455 tree \$0 associative;
+#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 458 436 tree \$0 semigroup ?;
+#X obj 458 381 tree \$0 group ?;
+#X obj 622 184 tree \$0 antisymmetric2 ?;
+#X obj 480 330 tree \$0 ring ?;
+#X obj 432 185 tree \$0 antisymmetric ?;
+#X obj 192 166 tree \$0 anticommutative;
+#X obj 480 310 tree \$0 field ?;
+#X obj 423 276 tree \$0 relation;
+#X msg 19 119 \; \$1 symbol \$2;
+#X connect 0 0 8 0;
+#X connect 0 0 9 0;
+#X connect 1 0 3 0;
+#X connect 2 0 6 1;
+#X connect 6 0 30 0;
+#X connect 7 0 2 0;
+#X connect 8 0 6 0;
+#X connect 10 0 29 0;
+#X connect 11 0 24 0;
+#X connect 11 0 29 0;
+#X connect 12 0 10 0;
+#X connect 12 0 21 0;
+#X connect 12 0 26 0;
+#X connect 13 0 11 0;
+#X connect 13 0 21 0;
+#X connect 14 0 12 0;
+#X connect 14 0 20 0;
+#X connect 15 0 13 0;
+#X connect 15 0 20 0;
+#X connect 16 0 5 0;
+#X connect 16 0 10 0;
+#X connect 16 0 21 0;
+#X connect 21 0 29 0;
+#X connect 22 0 17 0;
+#X connect 23 0 19 0;
+#X connect 23 0 22 0;
+#X connect 25 0 18 0;
+#X connect 25 0 23 0;
+#X connect 28 0 25 0;
diff --git a/generics/tree.pd b/generics/tree.pd
new file mode 100644
index 0000000..dca6d0c
--- /dev/null
+++ b/generics/tree.pd
@@ -0,0 +1,38 @@
+#N canvas 165 73 474 293 10;
+#X obj 19 4 inlet;
+#X obj 41 93 outlet;
+#X obj 19 53 t s s s;
+#X obj 128 15 loadbang;
+#X obj 63 72 pack s s s;
+#X obj 95 53 symbol begin;
+#X obj 19 132 pack s s s;
+#X obj 51 113 symbol end;
+#X msg 64 184 \; \$1 \$2 \$3;
+#X obj 128 34 symbol \$2;
+#X obj 206 51 loadbang;
+#X obj 206 89 makefilename \$1-%s;
+#X obj 206 70 symbol \$2;
+#N canvas 0 0 450 300 1370-bitch 0;
+#X obj 16 75 outlet;
+#X obj 282 12 namecanvas \$0-bitch;
+#X restore 30 24 pd \$0-bitch;
+#X obj 206 157 s \$0-bitch;
+#X msg 206 138 obj 0 0 r \$1 \, connect 2 0 0 0;
+#X connect 0 0 2 0;
+#X connect 2 0 6 0;
+#X connect 2 1 1 0;
+#X connect 2 2 4 0;
+#X connect 3 0 5 0;
+#X connect 3 0 7 0;
+#X connect 3 0 9 0;
+#X connect 4 0 8 0;
+#X connect 5 0 4 1;
+#X connect 6 0 8 0;
+#X connect 7 0 6 1;
+#X connect 9 0 4 2;
+#X connect 9 0 6 2;
+#X connect 10 0 12 0;
+#X connect 11 0 15 0;
+#X connect 12 0 11 0;
+#X connect 13 0 2 0;
+#X connect 15 0 14 0;