From 4335ef21f6d89d39b88b9b911f78ea0ee4a23912 Mon Sep 17 00:00:00 2001 From: Hans-Christoph Steiner Date: Sun, 28 Nov 2010 05:58:32 +0000 Subject: converted [bundle] back to giving instance# and instance_count, and made example for it svn path=/trunk/externals/many/; revision=14533 --- bundle.pd | 217 +++++++++++++++++++++++++++++++++++++++++++++---- examples/petal-test.pd | 68 ++++++++++++++++ examples/petal.pd | 67 +++++++++++++++ 3 files changed, 337 insertions(+), 15 deletions(-) create mode 100644 examples/petal-test.pd create mode 100644 examples/petal.pd 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; -- cgit v1.2.1