From a6abeda0b2af2621099716cab1dd2b7e99808f70 Mon Sep 17 00:00:00 2001 From: "N.N." Date: Wed, 4 Jan 2006 00:01:00 +0000 Subject: self-awareness svn path=/trunk/abstractions/pureunity/; revision=4355 --- generics/protocols-tree.pd | 61 ++++++++++++++++++++++++++++++++++++++++++++++ generics/tree.pd | 38 +++++++++++++++++++++++++++++ 2 files changed, 99 insertions(+) create mode 100644 generics/protocols-tree.pd create mode 100644 generics/tree.pd (limited to 'generics') 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; -- cgit v1.2.1