converted [bundle] back to giving instance# and instance_count, and made example for it

svn path=/trunk/externals/many/; revision=14533

3 files changed, 337 insertions, 15 deletions

diff --git a/bundle.pd b/bundle.pd
index 2fccb46..61dc8fd 100644
--- a/bundle.pd
+++ b/bundle.pd
@@ -1,4 +1,6 @@
 #N canvas 604 370 622 492 10;
+#X declare -path /Users/hans/code/pure-data/trunk/externals/many/examples
+;
 #X obj 26 8 inlet;
 #X obj 99 306 until;
 #X obj 137 333 + 1;
@@ -10,10 +12,10 @@
 #X obj 7 181 float \$1;
 #X obj 136 114 outlet;
 #X text 122 62 <-- open this subpatch to see the instances;
-#N canvas 863 482 400 437 create 0;
+#N canvas 863 482 400 437 create 1;
 #X obj 29 10 inlet;
 #X obj 173 153 list trim;
-#X obj 260 71 symbol \$2;
+#X obj 242 71 symbol \$2;
 #X obj 173 409 outlet;
 #X obj 173 61 * 20;
 #X obj 173 83 + 70;
@@ -22,15 +24,15 @@
 #X msg 25 259 connect \$1 1 4 0;
 #X obj 29 141 + 5;
 #X msg 61 193 connect 1 0 \$1 0;
-#X obj 173 108 pack float symbol;
-#X obj 29 37 trigger anything anything anything bang;
-#X obj 173 132 list append \$3 \$4 \$5 \$6 \$7 \$8 \$9;
 #X msg 173 176 obj 150 \$1 \$2 \$3 \$4 \$5 \$6 \$7 \$8 \$9;
-#X connect 0 0 12 0;
-#X connect 1 0 14 0;
-#X connect 2 0 11 1;
+#X obj 173 132 list append \$3 \$4 \$5 \$6 \$7;
+#X obj 173 108 pack float symbol float \$1;
+#X obj 29 37 trigger anything anything anything bang anything;
+#X connect 0 0 14 0;
+#X connect 1 0 11 0;
+#X connect 2 0 13 1;
 #X connect 4 0 5 0;
-#X connect 5 0 11 0;
+#X connect 5 0 13 0;
 #X connect 6 0 3 0;
 #X connect 7 0 3 0;
 #X connect 8 0 3 0;
@@ -39,12 +41,13 @@
 #X connect 9 0 8 0;
 #X connect 9 0 10 0;
 #X connect 10 0 3 0;
-#X connect 11 0 13 0;
-#X connect 12 0 9 0;
-#X connect 12 2 4 0;
-#X connect 12 3 2 0;
-#X connect 13 0 1 0;
-#X connect 14 0 3 0;
+#X connect 11 0 3 0;
+#X connect 12 0 1 0;
+#X connect 13 0 12 0;
+#X connect 14 0 9 0;
+#X connect 14 2 4 0;
+#X connect 14 3 2 0;
+#X connect 14 4 13 2;
 #X restore 106 363 pd create and link instances;
 #X obj 376 464 send;
 #X obj 99 278 trigger 0 bang;
@@ -55,6 +58,187 @@
 #X obj 7 205 moses 1;
 #X text 59 203 no need to generate anything for 0 instances;
 #N canvas 48 22 633 512 \$0-instances 0;
+#X obj 10 5 declare -path /Users/hans/code/pure-data/trunk/externals/many/examples
+;
+#X obj 10 40 receive 8755-in1;
+#X obj 400 40 receive 8755-in2;
+#X obj 10 560 send 8755-out1;
+#X obj 380 560 send 8755-out2;
+#X obj 150 70 petal 0 0 0 0 0 0 0;
+#X obj 150 90 petal 0 0 0 0 0 0 0;
+#X obj 150 110 petal 0 0 0 0 0 0 0;
+#X obj 150 130 petal 0 0 0 0 0 0 0;
+#X obj 150 150 petal 0 0 0 0 0 0 0;
+#X obj 150 170 petal 0 0 0 0 0 0 0;
+#X obj 150 190 petal 0 0 0 0 0 0 0;
+#X obj 150 210 petal 0 0 0 0 0 0 0;
+#X obj 150 230 petal 0 0 0 0 0 0 0;
+#X obj 150 250 petal 0 0 0 0 0 0 0;
+#X obj 150 270 petal 0 0 0 0 0 0 0;
+#X obj 150 290 petal 0 0 0 0 0 0 0;
+#X obj 150 310 petal 0 0 0 0 0 0 0;
+#X obj 150 330 petal 0 0 0 0 0 0 0;
+#X obj 150 350 petal 0 0 0 0 0 0 0;
+#X obj 150 370 petal 0 0 0 0 0 0 0;
+#X obj 150 390 petal 0 0 0 0 0 0 0;
+#X obj 150 410 petal 0 0 0 0 0 0 0;
+#X obj 150 430 petal 0 0 0 0 0 0 0;
+#X obj 150 450 petal 0 0 0 0 0 0 0;
+#X obj 150 470 petal 0 0 0 0 0 0 0;
+#X obj 150 490 petal 0 0 0 0 0 0 0;
+#X obj 150 510 petal 0 0 0 0 0 0 0;
+#X obj 150 530 petal 0 0 0 0 0 0 0;
+#X obj 150 550 petal 0 0 0 0 0 0 0;
+#X obj 150 570 petal 0 0 0 0 0 0 0;
+#X obj 150 590 petal 0 0 0 0 0 0 0;
+#X obj 150 610 petal 0 0 0 0 0 0 0;
+#X obj 150 630 petal 0 0 0 0 0 0 0;
+#X obj 150 650 petal 0 0 0 0 0 0 0;
+#X obj 150 670 petal 0 0 0 0 0 0 0;
+#X obj 150 690 petal 0 0 0 0 0 0 0;
+#X obj 150 710 petal 0 0 0 0 0 0 0;
+#X obj 150 730 petal 0 0 0 0 0 0 0;
+#X obj 150 750 petal 0 0 0 0 0 0 0;
+#X connect 1 0 5 0;
+#X connect 1 0 6 0;
+#X connect 1 0 7 0;
+#X connect 1 0 8 0;
+#X connect 1 0 9 0;
+#X connect 1 0 10 0;
+#X connect 1 0 11 0;
+#X connect 1 0 12 0;
+#X connect 1 0 13 0;
+#X connect 1 0 14 0;
+#X connect 1 0 15 0;
+#X connect 1 0 16 0;
+#X connect 1 0 17 0;
+#X connect 1 0 18 0;
+#X connect 1 0 19 0;
+#X connect 1 0 20 0;
+#X connect 1 0 21 0;
+#X connect 1 0 22 0;
+#X connect 1 0 23 0;
+#X connect 1 0 24 0;
+#X connect 1 0 25 0;
+#X connect 1 0 26 0;
+#X connect 1 0 27 0;
+#X connect 1 0 28 0;
+#X connect 1 0 29 0;
+#X connect 1 0 30 0;
+#X connect 1 0 31 0;
+#X connect 1 0 32 0;
+#X connect 1 0 33 0;
+#X connect 1 0 34 0;
+#X connect 1 0 35 0;
+#X connect 1 0 36 0;
+#X connect 1 0 37 0;
+#X connect 1 0 38 0;
+#X connect 1 0 39 0;
+#X connect 2 0 5 1;
+#X connect 2 0 6 1;
+#X connect 2 0 7 1;
+#X connect 2 0 8 1;
+#X connect 2 0 9 1;
+#X connect 2 0 10 1;
+#X connect 2 0 11 1;
+#X connect 2 0 12 1;
+#X connect 2 0 13 1;
+#X connect 2 0 14 1;
+#X connect 2 0 15 1;
+#X connect 2 0 16 1;
+#X connect 2 0 17 1;
+#X connect 2 0 18 1;
+#X connect 2 0 19 1;
+#X connect 2 0 20 1;
+#X connect 2 0 21 1;
+#X connect 2 0 22 1;
+#X connect 2 0 23 1;
+#X connect 2 0 24 1;
+#X connect 2 0 25 1;
+#X connect 2 0 26 1;
+#X connect 2 0 27 1;
+#X connect 2 0 28 1;
+#X connect 2 0 29 1;
+#X connect 2 0 30 1;
+#X connect 2 0 31 1;
+#X connect 2 0 32 1;
+#X connect 2 0 33 1;
+#X connect 2 0 34 1;
+#X connect 2 0 35 1;
+#X connect 2 0 36 1;
+#X connect 2 0 37 1;
+#X connect 2 0 38 1;
+#X connect 2 0 39 1;
+#X connect 5 0 3 0;
+#X connect 5 1 4 0;
+#X connect 6 0 3 0;
+#X connect 6 1 4 0;
+#X connect 7 0 3 0;
+#X connect 7 1 4 0;
+#X connect 8 0 3 0;
+#X connect 8 1 4 0;
+#X connect 9 0 3 0;
+#X connect 9 1 4 0;
+#X connect 10 0 3 0;
+#X connect 10 1 4 0;
+#X connect 11 0 3 0;
+#X connect 11 1 4 0;
+#X connect 12 0 3 0;
+#X connect 12 1 4 0;
+#X connect 13 0 3 0;
+#X connect 13 1 4 0;
+#X connect 14 0 3 0;
+#X connect 14 1 4 0;
+#X connect 15 0 3 0;
+#X connect 15 1 4 0;
+#X connect 16 0 3 0;
+#X connect 16 1 4 0;
+#X connect 17 0 3 0;
+#X connect 17 1 4 0;
+#X connect 18 0 3 0;
+#X connect 18 1 4 0;
+#X connect 19 0 3 0;
+#X connect 19 1 4 0;
+#X connect 20 0 3 0;
+#X connect 20 1 4 0;
+#X connect 21 0 3 0;
+#X connect 21 1 4 0;
+#X connect 22 0 3 0;
+#X connect 22 1 4 0;
+#X connect 23 0 3 0;
+#X connect 23 1 4 0;
+#X connect 24 0 3 0;
+#X connect 24 1 4 0;
+#X connect 25 0 3 0;
+#X connect 25 1 4 0;
+#X connect 26 0 3 0;
+#X connect 26 1 4 0;
+#X connect 27 0 3 0;
+#X connect 27 1 4 0;
+#X connect 28 0 3 0;
+#X connect 28 1 4 0;
+#X connect 29 0 3 0;
+#X connect 29 1 4 0;
+#X connect 30 0 3 0;
+#X connect 30 1 4 0;
+#X connect 31 0 3 0;
+#X connect 31 1 4 0;
+#X connect 32 0 3 0;
+#X connect 32 1 4 0;
+#X connect 33 0 3 0;
+#X connect 33 1 4 0;
+#X connect 34 0 3 0;
+#X connect 34 1 4 0;
+#X connect 35 0 3 0;
+#X connect 35 1 4 0;
+#X connect 36 0 3 0;
+#X connect 36 1 4 0;
+#X connect 37 0 3 0;
+#X connect 37 1 4 0;
+#X connect 38 0 3 0;
+#X connect 38 1 4 0;
+#X connect 39 0 3 0;
+#X connect 39 1 4 0;
 #X restore 26 61 pd \$0-instances;
 #X obj 26 113 outlet;
 #X obj 26 89 receive \$0-out1;
@@ -103,6 +287,8 @@ receivers.;
 #X connect 7 1 5 0;
 #X connect 8 0 1 0;
 #X restore 289 363 pd setup;
+#X obj 67 160 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
+-1;
 #X connect 0 0 5 0;
 #X connect 1 0 3 0;
 #X connect 2 0 3 1;
@@ -127,3 +313,4 @@ receivers.;
 #X connect 23 0 9 0;
 #X connect 24 0 12 1;
 #X connect 25 0 12 0;
+#X connect 26 0 8 0;
diff --git a/examples/petal-test.pd b/examples/petal-test.pd
new file mode 100644
index 0000000..710eee3
--- /dev/null
+++ b/examples/petal-test.pd
@@ -0,0 +1,68 @@
+#N canvas 562 93 676 425 10;
+#X declare -path /Users/hans/code/pure-data/trunk/externals/many/examples
+;
+#X obj 579 71 gemwin;
+#X obj 574 22 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
+;
+#X obj 128 337 gemhead;
+#X obj 227 215 line;
+#X msg 227 195 \$1 1000;
+#X msg 221 161 21;
+#X msg 247 161 13;
+#X msg 277 161 8;
+#X text 281 366 make 35 petal objects waiting for commands;
+#X text 415 152 radius of the flower;
+#X text 333 131 radius of the petals;
+#X text 167 141 number of petals;
+#N canvas 0 22 450 300 pak 0;
+#X obj 107 37 inlet;
+#X obj 209 35 inlet;
+#X obj 209 57 t b a;
+#X obj 107 122 pack 0 0 0;
+#X obj 107 158 outlet;
+#X obj 149 35 inlet;
+#X obj 149 57 t b a;
+#X connect 0 0 3 0;
+#X connect 1 0 2 0;
+#X connect 2 0 3 0;
+#X connect 2 1 3 2;
+#X connect 3 0 4 0;
+#X connect 5 0 6 0;
+#X connect 6 0 3 0;
+#X connect 6 1 3 1;
+#X restore 316 241 pd pak;
+#X obj 320 144 vsl 15 60 0 2 0 1 empty empty empty 0 -9 0 10 -261682
+-1 -1 5500 0;
+#X floatatom 321 211 5 0 0 0 - - -;
+#X obj 397 157 vsl 15 60 0 4 0 1 empty empty empty 0 -9 0 10 -203904
+-1 -1 3300 0;
+#X floatatom 398 224 5 0 0 0 - - -;
+#X text 127 25 draw a shape using many instances and a little math
+;
+#X msg 586 41 create \, 1;
+#X msg 192 161 40;
+#X msg 194 296 draw fill;
+#X msg 215 317 draw line;
+#X msg 175 277 draw point;
+#X obj 175 255 loadbang;
+#X obj 128 364 many/bundle 250 petal;
+#X msg 153 161 250;
+#X connect 1 0 0 0;
+#X connect 2 0 24 0;
+#X connect 3 0 12 0;
+#X connect 4 0 3 0;
+#X connect 5 0 4 0;
+#X connect 6 0 4 0;
+#X connect 7 0 4 0;
+#X connect 12 0 24 1;
+#X connect 13 0 14 0;
+#X connect 14 0 12 1;
+#X connect 15 0 16 0;
+#X connect 16 0 12 2;
+#X connect 18 0 0 0;
+#X connect 19 0 4 0;
+#X connect 20 0 24 1;
+#X connect 21 0 24 1;
+#X connect 22 0 24 1;
+#X connect 23 0 22 0;
+#X connect 25 0 4 0;
diff --git a/examples/petal.pd b/examples/petal.pd
new file mode 100644
index 0000000..eaf0960
--- /dev/null
+++ b/examples/petal.pd
@@ -0,0 +1,67 @@
+#N canvas 602 416 942 484 10;
+#X obj 99 196 separator;
+#X obj 99 429 circle;
+#X obj 522 239 * 360;
+#X obj 99 312 rotateXYZ 0 0 0;
+#X obj 522 190 t b f;
+#X obj 39 35 inlet;
+#X obj 32 455 outlet;
+#X obj 99 340 translateXYZ 1 0 0;
+#X obj 424 310 * 1;
+#X obj 592 262 t b f;
+#X obj 522 218 / 1;
+#X obj 424 247 <= 0;
+#X text 82 458 this object just ignores triggers;
+#X text 483 130 \$1 is this objects index \, we use it to work out
+if we need to render;
+#X text 14 73 draw a petal (really just a circle)..;
+#X text 460 246 if we aren't needed \, scale ourselves to 0 is there
+a better way? email me.;
+#X obj 99 368 scaleXYZ 1;
+#X obj 522 33 inlet;
+#X obj 347 455 outlet;
+#X text 82 34 we connect to the global gemhead;
+#X obj 522 89 unpack float float float;
+#X text 683 87 petal# petalsize petalradius;
+#X obj 427 144 float \$1;
+#X obj 427 120 loadbang;
+#X obj 99 284 colorRGB 0.5 0 1;
+#X obj 168 245 % 8;
+#X obj 168 264 / 7;
+#X obj 522 58 route list;
+#X obj 285 108 route draw;
+#X obj 280 381 list prepend draw;
+#X obj 280 401 list trim;
+#X connect 0 0 24 0;
+#X connect 2 0 3 3;
+#X connect 3 0 7 0;
+#X connect 4 0 10 0;
+#X connect 4 0 11 0;
+#X connect 4 1 10 1;
+#X connect 4 1 11 1;
+#X connect 5 0 0 0;
+#X connect 7 0 16 0;
+#X connect 8 0 16 1;
+#X connect 8 0 16 2;
+#X connect 8 0 16 3;
+#X connect 9 0 8 0;
+#X connect 9 1 8 1;
+#X connect 10 0 2 0;
+#X connect 11 0 8 0;
+#X connect 16 0 1 0;
+#X connect 17 0 27 0;
+#X connect 20 0 4 0;
+#X connect 20 1 9 0;
+#X connect 20 2 7 1;
+#X connect 22 0 11 0;
+#X connect 22 0 10 0;
+#X connect 22 0 25 0;
+#X connect 23 0 22 0;
+#X connect 24 0 3 0;
+#X connect 25 0 26 0;
+#X connect 26 0 24 3;
+#X connect 27 0 20 0;
+#X connect 27 1 28 0;
+#X connect 28 0 29 0;
+#X connect 29 0 30 0;
+#X connect 30 0 1 0;