From 8de4ff0e0d412c0c78cf191efe159df8e572dbd3 Mon Sep 17 00:00:00 2001
From: Hans-Christoph Steiner <eighthave@users.sourceforge.net>
Date: Mon, 22 Nov 2010 22:10:41 +0000
Subject: added the code to use the full path to the embedded patch so that
 these objects can be installed like a normal libdir

svn path=/trunk/externals/many/; revision=14496
---
 instances.pd            |  17 ++++++-
 instances~.pd           |  50 +++++++--------------
 polypoly-voice~-help.pd |   8 ++--
 polypoly~-help.pd       |  36 +++++++--------
 polypoly~.pd            | 115 +++++++++++++++++++++++++++---------------------
 5 files changed, 120 insertions(+), 106 deletions(-)

diff --git a/instances.pd b/instances.pd
index 60630f2..b4a3271 100644
--- a/instances.pd
+++ b/instances.pd
@@ -73,6 +73,20 @@
 #X msg 18 326 connect \$1 1 3 0;
 #X obj 173 409 outlet;
 #X msg 173 176 obj 150 \$1 \$2 \$4 \$3 \$5 \$6 \$7 \$8 \$9;
+#N canvas 183 272 316 307 expandpath 0;
+#X obj 59 16 inlet;
+#X obj 55 271 outlet;
+#X obj 59 98 list append;
+#X obj 58 153 zexy/list2symbol /;
+#X obj 59 43 trigger bang anything;
+#X obj 58 67 ggee/getdir 2;
+#X connect 0 0 4 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 0;
+#X connect 4 0 5 0;
+#X connect 4 1 2 1;
+#X connect 5 0 2 0;
+#X restore 218 81 pd expandpath;
 #X connect 0 0 10 0;
 #X connect 1 0 4 2;
 #X connect 2 0 9 0;
@@ -82,7 +96,7 @@
 #X connect 3 0 4 0;
 #X connect 4 0 8 0;
 #X connect 5 0 16 0;
-#X connect 6 0 4 1;
+#X connect 6 0 17 0;
 #X connect 7 0 3 0;
 #X connect 8 0 5 0;
 #X connect 9 0 15 0;
@@ -97,6 +111,7 @@
 #X connect 13 0 15 0;
 #X connect 14 0 15 0;
 #X connect 16 0 15 0;
+#X connect 17 0 4 1;
 #X restore 106 363 pd create and link instances;
 #X obj 466 464 send;
 #X obj 99 278 trigger 0 bang;
diff --git a/instances~.pd b/instances~.pd
index c2f127f..8ec758b 100644
--- a/instances~.pd
+++ b/instances~.pd
@@ -51,7 +51,7 @@
 #X connect 9 3 4 0;
 #X connect 11 0 7 0;
 #X restore 292 363 pd make route;
-#N canvas 493 375 432 461 create 1;
+#N canvas 493 375 432 461 create 0;
 #X obj 29 10 inlet;
 #X obj 281 61 float \$1;
 #X obj 29 141 + 5;
@@ -70,6 +70,20 @@
 #X msg 18 326 connect \$1 1 3 0;
 #X obj 173 409 outlet;
 #X msg 173 176 obj 150 \$1 \$2 \$4 \$3 \$5 \$6 \$7 \$8 \$9;
+#N canvas 183 272 316 307 expandpath 0;
+#X obj 59 16 inlet;
+#X obj 55 271 outlet;
+#X obj 59 98 list append;
+#X obj 58 153 zexy/list2symbol /;
+#X obj 59 43 trigger bang anything;
+#X obj 58 67 ggee/getdir 2;
+#X connect 0 0 4 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 0;
+#X connect 4 0 5 0;
+#X connect 4 1 2 1;
+#X connect 5 0 2 0;
+#X restore 218 81 pd expandpath;
 #X connect 0 0 10 0;
 #X connect 1 0 4 2;
 #X connect 2 0 9 0;
@@ -79,7 +93,7 @@
 #X connect 3 0 4 0;
 #X connect 4 0 8 0;
 #X connect 5 0 16 0;
-#X connect 6 0 4 1;
+#X connect 6 0 17 0;
 #X connect 7 0 3 0;
 #X connect 8 0 5 0;
 #X connect 9 0 15 0;
@@ -94,6 +108,7 @@
 #X connect 13 0 15 0;
 #X connect 14 0 15 0;
 #X connect 16 0 15 0;
+#X connect 17 0 4 1;
 #X restore 106 363 pd create and link instances;
 #X obj 466 464 send;
 #X obj 99 278 trigger 0 bang;
@@ -119,37 +134,6 @@ receivers.;
 #X text 59 203 no need to generate anything for 0 instances;
 #X obj 487 338 symbol \$0-instances;
 #N canvas 48 22 633 512 \$0-instances 0;
-#X obj 10 10 receive 20641-message;
-#X obj 400 10 catch~ 20641-audio-in;
-#X obj 10 560 throw~ 20641-audio-out0;
-#X obj 380 560 throw~ 20641-audio-out1;
-#X obj 10 30 route 0 1 2 3 4;
-#X obj 150 130 instances-template~ 5 4 0 0 0 0 0;
-#X obj 150 50 instances-template~ 5 0 0 0 0 0 0;
-#X obj 150 70 instances-template~ 5 1 0 0 0 0 0;
-#X obj 150 90 instances-template~ 5 2 0 0 0 0 0;
-#X obj 150 110 instances-template~ 5 3 0 0 0 0 0;
-#X connect 0 0 4 0;
-#X connect 1 0 5 1;
-#X connect 1 0 6 1;
-#X connect 1 0 7 1;
-#X connect 1 0 8 1;
-#X connect 1 0 9 1;
-#X connect 4 0 6 0;
-#X connect 4 1 7 0;
-#X connect 4 2 8 0;
-#X connect 4 3 9 0;
-#X connect 4 4 5 0;
-#X connect 5 0 2 0;
-#X connect 5 1 3 0;
-#X connect 6 0 2 0;
-#X connect 6 1 3 0;
-#X connect 7 0 2 0;
-#X connect 7 1 3 0;
-#X connect 8 0 2 0;
-#X connect 8 1 3 0;
-#X connect 9 0 2 0;
-#X connect 9 1 3 0;
 #X restore 26 61 pd \$0-instances;
 #X obj 26 32 send \$0-message;
 #X obj 161 32 throw~ \$0-audio-in;
diff --git a/polypoly-voice~-help.pd b/polypoly-voice~-help.pd
index d8e1e2a..94db875 100644
--- a/polypoly-voice~-help.pd
+++ b/polypoly-voice~-help.pd
@@ -8,7 +8,7 @@ outlet~s. First argument will be the voice index number starting from
 0 \, second argument will be the total number of voices. Four more
 arguments can be passed as arguments to [polypoly~] and will be passed
 on to the custom abstraction.;
-#X obj 111 233 polypoly~-voice 1 8 four more arguments possible;
-#X text 98 36 polypoly~-voice is a basic patch here only to illustrate
-what a patch designed for [polypoly~] looks like. Feel free to use it
-as a template for your own voice patches.;
+#X text 98 36 polypoly-voice~ is a basic patch here only to illustrate
+what a patch designed for [polypoly~] looks like. Feel free to use
+it as a template for your own voice patches.;
+#X obj 111 234 polypoly-voice~ 1 8 four more arguments possible;
diff --git a/polypoly~-help.pd b/polypoly~-help.pd
index d370d57..e6f1bee 100644
--- a/polypoly~-help.pd
+++ b/polypoly~-help.pd
@@ -1,4 +1,4 @@
-#N canvas 587 22 616 708 10;
+#N canvas 145 22 616 708 10;
 #X msg 147 185 bang;
 #X obj 147 263 makenote 80 1000;
 #X obj 147 298 pack 0 0;
@@ -17,40 +17,40 @@ name> <arg1> <arg2> <arg3> <arg4>;
 #X text 17 20 [polypoly~];
 #X text 55 669 Also see:;
 #X obj 127 668 poly;
-#X obj 147 361 polypoly~ 12 1 polypoly~-voice;
 #X floatatom 228 315 5 0 0 2 decay - -;
 #X floatatom 283 264 5 0 0 0 - - -;
-#X text 418 321 recreate all abstractions;
+#X text 427 322 recreate all abstractions;
 #X text 395 560 extra inlet to customize freely;
-#X msg 310 323 12 polypoly~-voice;
 #X text 186 339 custom inlet;
 #X text 53 157 Example:;
-#X text 96 470 Your [polypoly~] abstraction needs two inlets and
-two outlet~s. First argument will be the voice index number starting
-from 0 \, second argument will be the total number of voices. Four
-more arguments can be passed as arguments to [polypoly~] and will
-be passed on to the custom abstraction.;
+#X text 96 470 Your [polypoly~] abstraction needs two inlets and two
+outlet~s. First argument will be the voice index number starting from
+0 \, second argument will be the total number of voices. Four more
+arguments can be passed as arguments to [polypoly~] and will be passed
+on to the custom abstraction.;
 #X text 54 121 Inlets: <pair: note velocity> <custom> <pair: num abstraction_name>
 ;
-#X obj 129 578 polypoly~-voice 1 8 four more arguments possible;
 #X msg 96 318 clear;
 #X msg 60 318 stop;
 #X text 55 44 [poly]-clone which automatically creates abstractions
 to be played based heavily on [polypoly] by Frank Barknecht.;
 #X obj 153 406 output~;
+#X obj 129 579 polypoly-voice~ 1 8 four more arguments possible;
+#X msg 310 323 12 polypoly-voice~;
+#X obj 147 361 polypoly~ 12 1 polypoly-voice~;
 #X connect 0 0 3 0;
 #X connect 1 0 2 0;
 #X connect 1 1 2 1;
-#X connect 2 0 16 0;
+#X connect 2 0 30 0;
 #X connect 3 0 4 0;
 #X connect 4 0 1 0;
 #X connect 5 0 1 0;
 #X connect 6 0 7 0;
 #X connect 7 0 3 0;
-#X connect 16 0 30 0;
-#X connect 16 1 30 1;
-#X connect 17 0 16 1;
-#X connect 18 0 1 2;
-#X connect 21 0 16 2;
-#X connect 27 0 16 0;
-#X connect 28 0 16 0;
+#X connect 16 0 30 1;
+#X connect 17 0 1 2;
+#X connect 24 0 30 0;
+#X connect 25 0 30 0;
+#X connect 29 0 30 2;
+#X connect 30 0 27 0;
+#X connect 30 1 27 1;
diff --git a/polypoly~.pd b/polypoly~.pd
index d97cfe3..fbe5271 100644
--- a/polypoly~.pd
+++ b/polypoly~.pd
@@ -1,7 +1,7 @@
-#N canvas 211 82 939 654 10;
+#N canvas 152 148 939 654 10;
 #X obj 36 31 inlet;
 #X obj 292 200 moses 1;
-#X text 495 67 your abstraction is ultimately called with the parameters:
+#X text 555 67 your abstraction is ultimately called with the parameters:
 <index> <number of objects> <arg1> <arg2> <arg3> <arg4>;
 #N canvas 7 455 362 318 \$0-poly 0;
 #X restore 36 254 pd \$0-poly;
@@ -29,8 +29,7 @@ as senders and receivers.;
 #X restore 343 108 pd init;
 #X obj 139 31 inlet;
 #X obj 256 63 loadbang;
-#X obj 256 108 f \$1;
-#N canvas 0 0 692 559 last-two 0;
+#N canvas 0 22 692 559 last-two 0;
 #X obj 153 175 cnv 15 150 80 empty empty empty 20 12 0 14 -233017 -66577
 0;
 #X text 378 110 first reset (b) \, then set new length (f).;
@@ -53,7 +52,6 @@ as senders and receivers.;
 #X restore 386 521 pd last-two;
 #X obj 386 562 list prepend;
 #X msg 386 589 \; \$1 connect \$3 0 \$2 0 \;;
-#X obj 434 359 r \$0-subname;
 #X obj 465 541 r \$0-subname;
 #N canvas 183 178 858 457 finish 0;
 #X obj 121 185 until;
@@ -94,29 +92,28 @@ as senders and receivers.;
 #X connect 15 0 3 0;
 #X connect 15 1 14 0;
 #X restore 274 260 pd finish;
-#X text 540 134 based on: nqpoly (v4) - pix.test.at;
+#X text 600 134 based on: nqpoly (v4) - pix.test.at;
 #X obj 343 135 s \$0-init;
 #X obj 458 494 r \$0-init;
-#X text 540 158 changes: fbar at footils.org 2006;
-#X obj 408 390 pack f s s f;
-#X msg 408 444 \; \$2 obj 50 100 polypoly-wrap~ \$3 \$1 \$4 \$5 \$6
+#X text 600 158 changes: fbar at footils.org 2006;
+#X msg 405 444 \; \$2 obj 50 100 polypoly-wrap~ \$3 \$1 \$4 \$5 \$6
 \$7 \$8 \;;
 #X obj 256 135 t b a a a b;
 #X obj 386 273 t a a b;
-#X obj 395 31 inlet;
+#X obj 343 31 inlet;
 #X obj 36 167 pack 0 0 0;
 #X obj 36 140 - 1;
 #X obj 36 344 outlet~;
-#X obj 460 332 symbol \$3;
-#X obj 408 417 list append \$4 \$5 \$6 \$7;
+#X obj 454 306 symbol \$3;
+#X obj 405 417 list append \$4 \$5 \$6 \$7;
 #X obj 386 494 + 4;
 #X obj 139 344 outlet~;
 #X obj 36 287 catch~ \$0-out0;
 #X obj 139 287 catch~ \$0-out1;
-#X text 495 30 usage: polypoly~ <number of objects> <voice stealing:
+#X text 555 30 usage: polypoly~ <number of objects> <voice stealing:
 0/1> <abstraction name> <up to 4 creation args>;
 #X obj 36 113 poly \$1 \$2;
-#N canvas 0 0 382 282 loadbang 0;
+#N canvas 0 22 382 282 loadbang 0;
 #X obj 130 64 inlet;
 #X obj 130 86 b;
 #X msg 130 141 \; \$1 loadbang;
@@ -128,8 +125,7 @@ as senders and receivers.;
 #X connect 4 0 2 0;
 #X restore 256 287 pd loadbang;
 #X obj 139 227 s \$0-in2;
-#X obj 395 58 unpack f s;
-#N canvas 0 0 227 234 countto 0;
+#N canvas 0 22 227 234 countto 0;
 #X obj 60 97 until;
 #X obj 95 124 + 1;
 #X obj 60 124 f;
@@ -146,38 +142,57 @@ as senders and receivers.;
 #X connect 4 1 3 0;
 #X connect 5 0 4 0;
 #X restore 386 246 pd countto;
-#X obj 487 216 f;
-#X connect 0 0 34 0;
-#X connect 1 1 38 0;
-#X connect 6 0 36 0;
-#X connect 7 0 8 0;
-#X connect 8 0 21 0;
+#N canvas 183 272 316 307 expandpath 0;
+#X obj 59 16 inlet;
+#X obj 55 271 outlet;
+#X obj 59 98 list append;
+#X obj 58 153 zexy/list2symbol /;
+#X obj 59 43 trigger bang anything;
+#X obj 58 67 ggee/getdir 2;
+#X connect 0 0 4 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 0;
+#X connect 4 0 5 0;
+#X connect 4 1 2 1;
+#X connect 5 0 2 0;
+#X restore 454 328 pd expandpath;
+#X obj 343 58 unpack float symbol;
+#X obj 448 359 receive \$0-subname;
+#X obj 405 390 pack 0 symbol symbol 0;
+#X obj 534 216 float;
+#X obj 256 108 float \$1;
+#X connect 0 0 31 0;
+#X connect 1 1 34 0;
+#X connect 6 0 33 0;
+#X connect 7 0 40 0;
+#X connect 8 0 9 0;
 #X connect 9 0 10 0;
-#X connect 10 0 11 0;
-#X connect 12 0 19 1;
-#X connect 13 0 10 1;
-#X connect 17 0 9 1;
-#X connect 19 0 28 0;
-#X connect 21 0 35 0;
-#X connect 21 1 14 0;
-#X connect 21 2 1 0;
-#X connect 21 3 39 0;
-#X connect 21 4 16 0;
-#X connect 22 0 29 0;
-#X connect 22 1 19 0;
-#X connect 22 2 27 0;
-#X connect 23 0 37 0;
-#X connect 24 0 4 0;
-#X connect 25 0 24 0;
-#X connect 27 0 19 2;
-#X connect 28 0 20 0;
-#X connect 29 0 9 0;
-#X connect 31 0 26 0;
-#X connect 32 0 30 0;
-#X connect 34 0 25 0;
-#X connect 34 1 24 1;
-#X connect 34 2 24 2;
-#X connect 37 0 8 0;
-#X connect 37 1 27 0;
-#X connect 38 0 22 0;
-#X connect 39 0 19 3;
+#X connect 11 0 9 1;
+#X connect 15 0 8 1;
+#X connect 18 0 32 0;
+#X connect 18 1 12 0;
+#X connect 18 2 1 0;
+#X connect 18 3 39 0;
+#X connect 18 4 14 0;
+#X connect 19 0 26 0;
+#X connect 19 1 38 0;
+#X connect 19 2 24 0;
+#X connect 20 0 36 0;
+#X connect 21 0 4 0;
+#X connect 22 0 21 0;
+#X connect 24 0 35 0;
+#X connect 25 0 17 0;
+#X connect 26 0 8 0;
+#X connect 28 0 23 0;
+#X connect 29 0 27 0;
+#X connect 31 0 22 0;
+#X connect 31 1 21 1;
+#X connect 31 2 21 2;
+#X connect 34 0 19 0;
+#X connect 35 0 38 2;
+#X connect 36 0 40 0;
+#X connect 36 1 24 0;
+#X connect 37 0 38 1;
+#X connect 38 0 25 0;
+#X connect 39 0 38 3;
+#X connect 40 0 18 0;
-- 
cgit v1.2.1