From f18d063d9312c95e25294e0777bc135ee9a3fd8a Mon Sep 17 00:00:00 2001 From: Thomas O Fredericks Date: Sun, 25 Oct 2009 00:39:13 +0000 Subject: Adding mtl svn path=/trunk/abstractions/mtl/; revision=12667 --- gemsPolygon.pd | 147 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 147 insertions(+) create mode 100644 gemsPolygon.pd (limited to 'gemsPolygon.pd') diff --git a/gemsPolygon.pd b/gemsPolygon.pd new file mode 100644 index 0000000..9cfc40d --- /dev/null +++ b/gemsPolygon.pd @@ -0,0 +1,147 @@ +#N canvas 199 246 1022 520 10; +#N canvas 1 57 681 330 \$0-dynamicpatch 0; +#X obj 150 40 route 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 +19 20 21 22 23 24 25 26 27 28 29; +#X obj 150 15 r 1052xyz; +#X obj 10 15 r 1052gem; +#X obj 150 150 polygon 30; +#X obj 10 60 s 1052gemout; +#X obj 150 40 route 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 +19 20 21 22 23 24 25 26 27 28 29; +#X connect 0 0 3 1; +#X connect 0 1 3 2; +#X connect 0 2 3 3; +#X connect 0 3 3 4; +#X connect 0 4 3 5; +#X connect 0 5 3 6; +#X connect 0 6 3 7; +#X connect 0 7 3 8; +#X connect 0 8 3 9; +#X connect 0 9 3 10; +#X connect 0 10 3 11; +#X connect 0 11 3 12; +#X connect 0 12 3 13; +#X connect 0 13 3 14; +#X connect 0 14 3 15; +#X connect 0 15 3 16; +#X connect 0 16 3 17; +#X connect 0 17 3 18; +#X connect 0 18 3 19; +#X connect 0 19 3 20; +#X connect 0 20 3 21; +#X connect 0 21 3 22; +#X connect 0 22 3 23; +#X connect 0 23 3 24; +#X connect 0 24 3 25; +#X connect 0 25 3 26; +#X connect 0 26 3 27; +#X connect 0 27 3 28; +#X connect 0 28 3 29; +#X connect 0 29 3 30; +#X connect 1 0 0 0; +#X connect 2 0 3 0; +#X connect 3 0 4 0; +#X restore 647 22 pd \$0-dynamicpatch; +#X obj 81 123 until; +#X obj 287 6 inlet; +#X obj 80 11 loadbang; +#X obj -113 14 inlet gemchain; +#X obj -113 45 s \$0gem; +#X msg 125 124 0; +#X obj 335 135 symbol; +#X msg 335 159 \; \$1 clear; +#X obj 335 73 f \$0; +#X text 359 114 id of the dynamic subpatch; +#X obj 81 145 f 0; +#X obj 119 147 + 1; +#X obj 268 191 f \$0; +#X obj 176 -1 inlet knot_xyz; +#X obj 176 20 s \$0xyz; +#X obj -102 487 outlet gemchain; +#X obj -102 460 r \$0gemout; +#X msg 666 221 set; +#X msg 667 242 addsemi; +#X msg 668 312 add2 \$1; +#X obj 548 214 until; +#X msg 588 220 0; +#X obj 548 244 f 0; +#X obj 578 243 + 1; +#X obj 530 315 symbol; +#X msg 670 263 adddollar 1; +#X msg 531 373 \; \$1 obj 150 40 route 0 1 2 3 4 5 6 7 8 9 10 11 12 +13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29; +#X msg 670 288 add2 obj 150 40 route; +#X obj 531 178 t b f b b b b b; +#X obj 268 212 pack f s f; +#X obj 289 31 t f b b f b f; +#X obj 80 33 t b b b b b; +#X text 608 353 This message can become very long !; +#X text 18 408 dollars: 1:route number \, 2:previous object \, 3:current +inlet; +#X obj 116 194 + 1; +#X obj 79 220 pack f f s; +#X obj 111 170 t f f; +#X msg 77 251 \; \$3 connect 0 \$1 3 \$2 \;; +#X text 142 470 objects: 0:route 0 1 2 3 4...n-1 \, 1:receive 0xyz +\, 2:receive 0gem \, 3: polygon n \, 4 send 0gemout; +#X msg 269 234 \; \$2 obj 150 15 r \$1xyz \; \$2 obj 10 15 r \$1gem +\; \$2 obj 150 150 polygon \$3 \; \$2 obj 10 60 s \$1gemout \; \$2 +connect 1 0 0 0 \; \$2 connect 2 0 3 0 \; \$2 connect 3 0 4 0 \;; +#X obj 79 85 tof/argument 1 1; +#X obj 382 201 tof/argument 1 1; +#X obj 530 150 tof/argument 1 1; +#X obj 335 93 zexy/makesymbol pd-%s-dynamicpatch; +#X connect 1 0 11 0; +#X connect 2 0 31 0; +#X connect 3 0 32 0; +#X connect 4 0 5 0; +#X connect 6 0 11 1; +#X connect 7 0 8 0; +#X connect 9 0 44 0; +#X connect 11 0 12 0; +#X connect 11 0 37 0; +#X connect 12 0 11 1; +#X connect 13 0 30 0; +#X connect 14 0 15 0; +#X connect 17 0 16 0; +#X connect 18 0 27 0; +#X connect 19 0 27 0; +#X connect 20 0 27 0; +#X connect 21 0 23 0; +#X connect 22 0 23 1; +#X connect 23 0 24 0; +#X connect 23 0 20 0; +#X connect 24 0 23 1; +#X connect 25 0 27 0; +#X connect 26 0 27 0; +#X connect 28 0 27 0; +#X connect 29 0 25 0; +#X connect 29 1 21 0; +#X connect 29 2 28 0; +#X connect 29 3 26 0; +#X connect 29 4 19 0; +#X connect 29 5 18 0; +#X connect 29 6 22 0; +#X connect 30 0 40 0; +#X connect 31 0 1 0; +#X connect 31 1 6 0; +#X connect 31 2 13 0; +#X connect 31 3 29 0; +#X connect 31 4 7 0; +#X connect 31 5 30 2; +#X connect 32 0 41 0; +#X connect 32 1 13 0; +#X connect 32 2 43 0; +#X connect 32 3 9 0; +#X connect 32 4 42 0; +#X connect 35 0 36 1; +#X connect 36 0 38 0; +#X connect 37 0 36 0; +#X connect 37 1 35 0; +#X connect 41 0 1 0; +#X connect 42 0 30 2; +#X connect 43 0 29 0; +#X connect 44 0 7 0; +#X connect 44 0 25 1; +#X connect 44 0 30 1; +#X connect 44 0 36 2; -- cgit v1.2.1