svn path=/trunk/externals/pmpd/; revision=17314

1 files changed, 98 insertions, 288 deletions

diff --git a/examples/67_scann_synth.pd b/examples/67_scann_synth.pd
index 043d8bc..9cedade 100644
--- a/examples/67_scann_synth.pd
+++ b/examples/67_scann_synth.pd
@@ -1,5 +1,5 @@
-#N canvas 707 467 975 500 10;
-#N canvas 724 239 694 538 create_corde 0;
+#N canvas 928 576 807 445 10;
+#N canvas 766 276 694 538 create_corde 0;
 #X obj 352 461 t a;
 #X msg 505 158 reset;
 #X obj 167 55 t b b b b b b;
@@ -8,13 +8,7 @@
 -1;
 #X obj 352 485 outlet;
 #X obj 293 256 % 128;
-#X msg 208 351 setL souple 0.001;
-#X msg 159 380 link souple2 fix mob 0.003 0.16;
 #X obj 293 278 pack f f;
-#X msg 293 299 link souple \$1 \$2 0.01 0.2 0.5;
-#X msg 415 211 mass mob 1 1 0 0;
-#X msg 381 237 Xmax 2 \, Xmin -2 \, Ymin 0 \, Ymax 0;
-#X msg 240 331 mass fix 0 0 0 0;
 #X msg 416 150 128;
 #X obj 416 185 until;
 #N canvas 157 402 342 362 _until 0;
@@ -44,225 +38,47 @@
 #X restore 293 193 pd _until;
 #X obj 293 233 + 1;
 #X obj 293 213 t f f;
+#X msg 292 299 link souple \$1 \$2 0.01 0.2;
+#X msg 208 351 setL souple 0;
+#X msg 416 211 mass mob 1 1 0;
+#X msg 241 331 mass fix 0 0 0;
+#X msg 383 237 Xmax 5 \, Xmin -5;
+#X msg 159 380 link souple2 fix mob 0.0001 0.001;
 #X connect 0 0 5 0;
 #X connect 1 0 0 0;
-#X connect 2 0 8 0;
-#X connect 2 0 7 0;
-#X connect 2 1 13 0;
-#X connect 2 2 16 0;
-#X connect 2 3 12 0;
-#X connect 2 4 14 0;
+#X connect 2 0 18 0;
+#X connect 2 0 14 0;
+#X connect 2 1 16 0;
+#X connect 2 2 10 0;
+#X connect 2 3 17 0;
+#X connect 2 4 8 0;
 #X connect 2 5 1 0;
 #X connect 3 0 2 0;
 #X connect 4 0 2 0;
-#X connect 6 0 9 0;
-#X connect 7 0 0 0;
-#X connect 8 0 0 0;
-#X connect 9 0 10 0;
-#X connect 10 0 0 0;
-#X connect 11 0 0 0;
-#X connect 12 0 0 0;
+#X connect 6 0 7 0;
+#X connect 7 0 13 0;
+#X connect 8 0 9 0;
+#X connect 9 0 15 0;
+#X connect 10 0 12 0;
+#X connect 11 0 6 0;
+#X connect 12 0 11 0;
+#X connect 12 1 7 1;
 #X connect 13 0 0 0;
-#X connect 14 0 15 0;
-#X connect 15 0 11 0;
-#X connect 16 0 18 0;
-#X connect 17 0 6 0;
-#X connect 18 0 17 0;
-#X connect 18 1 9 1;
+#X connect 14 0 0 0;
+#X connect 15 0 0 0;
+#X connect 16 0 0 0;
+#X connect 17 0 0 0;
+#X connect 18 0 0 0;
 #X restore 66 97 pd create_corde;
 #X obj 66 43 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
 -1;
 #X obj 173 91 metro 3;
-#X obj 66 168 pmpd2d --------;
-#X msg 322 384 forceX \$1 \$2;
-#X floatatom 338 253 5 0 0 0 - - -, f 5;
-#X floatatom 355 270 5 0 0 0 - - -, f 5;
-#X floatatom 371 287 5 0 0 0 - - -, f 5;
-#X floatatom 388 304 5 0 0 0 - - -, f 5;
-#X floatatom 404 321 5 0 0 0 - - -, f 5;
-#N canvas 639 421 970 723 bass 0;
-#X obj 24 707 outlet;
-#X obj 41 191 f;
-#X obj 70 221 + 1;
-#X msg 49 108 0;
-#X obj 39 167 until;
-#X obj 26 687 pack f f;
-#X obj 72 508 *;
-#X obj 39 249 t f f;
-#X obj 70 296 * 6.283;
-#X obj 67 478 sin;
-#X obj 122 151 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
-1;
-#X obj 122 217 line;
-#X obj 66 449 +;
-#X obj 264 35 inlet;
-#X obj 323 36 inlet;
-#X obj 383 35 inlet;
-#X obj 442 37 inlet;
-#X obj 105 508 *;
-#X obj 100 478 sin;
-#X obj 140 509 *;
-#X obj 135 479 sin;
-#X obj 175 509 *;
-#X obj 96 363 * 2;
-#X obj 112 536 +;
-#X obj 111 562 +;
-#X obj 80 582 +;
-#X obj 240 150 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
-1;
-#X obj 240 216 line;
-#X obj 355 152 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
-1;
-#X obj 355 218 line;
-#X obj 473 155 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
-1;
-#X obj 473 221 line;
-#X obj 97 449 +;
-#X obj 133 449 +;
-#X obj 169 451 +;
-#X obj 238 240 * -1;
-#X obj 475 247 * -1;
-#X obj 251 438 random 1000;
-#X obj 250 460 - 500;
-#X obj 251 482 / 500;
-#X obj 538 38 inlet;
-#X obj 80 604 +;
-#X obj 252 504 * 1e-05;
-#X msg 39 145 128;
-#X obj 71 271 / 127;
-#X obj 240 170 metro 13043;
-#X msg 239 194 0 \, 6.283 13043;
-#X obj 122 171 metro 13524;
-#X msg 121 193 0 \, 6.283 13524;
-#X obj 355 172 metro 8554;
-#X msg 356 197 0 \, 6.283 8554;
-#X obj 473 175 metro 12026;
-#X msg 473 198 0 \, 6.283 12026;
-#X obj 170 479 sin;
-#X obj 345 440 random 5;
-#X obj 255 540 *;
-#X obj 348 465 > 1;
-#X obj 78 647 / 7;
-#X obj 131 364 * 3.5;
-#X obj 179 364 * 5;
-#X obj 80 625 +;
-#X obj 438 464 random 1000;
-#X obj 437 544 *;
-#X obj 436 438 t b;
-#X obj 611 44 inlet;
-#X obj 436 489 - 500;
-#X obj 433 517 / 500;
-#X obj 52 6 inlet;
-#X obj 57 79 t b;
-#X obj 124 128 loadbang;
-#X obj 242 127 loadbang;
-#X obj 357 129 loadbang;
-#X obj 475 132 loadbang;
-#X msg 479 429 seed 2.73255e+07;
-#X obj 99 310 t f f f f f f f b f;
-#X obj 262 58 / 3000;
-#X obj 323 59 / 3000;
-#X obj 384 58 / 5000;
-#X obj 444 60 / 5000;
-#X obj 538 61 / 500;
-#X obj 609 65 / 3000;
-#X connect 1 0 2 0;
-#X connect 1 0 7 0;
-#X connect 2 0 1 1;
-#X connect 3 0 1 1;
-#X connect 3 0 43 0;
-#X connect 4 0 1 0;
-#X connect 5 0 0 0;
-#X connect 6 0 25 0;
-#X connect 7 0 5 0;
-#X connect 7 1 44 0;
-#X connect 8 0 74 0;
-#X connect 9 0 6 0;
-#X connect 10 0 47 0;
-#X connect 11 0 12 1;
-#X connect 12 0 9 0;
-#X connect 13 0 75 0;
-#X connect 14 0 76 0;
-#X connect 15 0 77 0;
-#X connect 16 0 78 0;
-#X connect 17 0 23 0;
-#X connect 18 0 17 0;
-#X connect 19 0 23 1;
-#X connect 20 0 19 0;
-#X connect 21 0 24 1;
-#X connect 22 0 32 0;
-#X connect 23 0 24 0;
-#X connect 24 0 25 1;
-#X connect 25 0 41 0;
-#X connect 26 0 45 0;
-#X connect 27 0 35 0;
-#X connect 28 0 49 0;
-#X connect 29 0 33 1;
-#X connect 30 0 51 0;
-#X connect 31 0 36 0;
-#X connect 32 0 18 0;
-#X connect 33 0 20 0;
-#X connect 34 0 53 0;
-#X connect 35 0 32 1;
-#X connect 36 0 34 1;
-#X connect 37 0 38 0;
-#X connect 38 0 39 0;
-#X connect 39 0 42 0;
-#X connect 40 0 79 0;
-#X connect 41 0 60 0;
-#X connect 42 0 55 0;
-#X connect 43 0 4 0;
-#X connect 44 0 8 0;
-#X connect 45 0 46 0;
-#X connect 46 0 27 0;
-#X connect 47 0 48 0;
-#X connect 48 0 11 0;
-#X connect 49 0 50 0;
-#X connect 50 0 29 0;
-#X connect 51 0 52 0;
-#X connect 52 0 31 0;
-#X connect 53 0 21 0;
-#X connect 54 0 56 0;
-#X connect 55 0 41 1;
-#X connect 56 0 55 1;
-#X connect 57 0 5 1;
-#X connect 58 0 33 0;
-#X connect 59 0 34 0;
-#X connect 60 0 57 0;
-#X connect 61 0 65 0;
-#X connect 62 0 60 1;
-#X connect 63 0 61 0;
-#X connect 64 0 80 0;
-#X connect 65 0 66 0;
-#X connect 66 0 62 0;
-#X connect 67 0 68 0;
-#X connect 68 0 3 0;
-#X connect 68 0 54 0;
-#X connect 68 0 73 0;
-#X connect 69 0 10 0;
-#X connect 70 0 26 0;
-#X connect 71 0 28 0;
-#X connect 72 0 30 0;
-#X connect 73 0 61 0;
-#X connect 74 0 12 0;
-#X connect 74 1 22 0;
-#X connect 74 2 58 0;
-#X connect 74 3 59 0;
-#X connect 74 7 37 0;
-#X connect 74 8 63 0;
-#X connect 75 0 6 1;
-#X connect 76 0 17 1;
-#X connect 77 0 19 1;
-#X connect 78 0 21 1;
-#X connect 79 0 42 1;
-#X connect 80 0 62 1;
-#X restore 322 362 pd bass ---------;
-#X obj 574 217 gemwin;
-#X msg 627 154 destroy;
+#X msg 657 241 forceX \$1 \$2;
+#X obj 314 295 gemwin;
+#X msg 367 232 destroy;
 #X obj 82 70 loadbang;
-#X floatatom 421 339 5 0 0 0 - - -, f 5;
-#X obj 575 337 dac~;
-#X obj 322 406 s \$0-pmpd;
+#X obj 458 277 dac~;
+#X obj 657 263 s \$0-pmpd;
 #X obj 77 122 r \$0-pmpd;
 #N canvas 756 311 787 602 sound 0;
 #X obj 103 18 loadbang;
@@ -308,7 +124,7 @@
 #X connect 18 0 15 1;
 #X connect 18 0 16 1;
 #X connect 18 0 17 1;
-#X restore 574 277 pd sound;
+#X restore 457 217 pd sound;
 #N canvas 805 430 528 522 render_gem 0;
 #X obj 51 32 gemhead;
 #N canvas 784 146 473 504 gemlist 0;
@@ -376,7 +192,7 @@
 #X connect 16 0 14 2;
 #X connect 17 0 14 1;
 #X connect 18 0 13 0;
-#X restore 575 381 pd render_gem;
+#X restore 316 328 pd render_gem;
 #X obj 102 407 table corde_table 131;
 #X obj 66 210 route mob;
 #X obj 66 234 route 0 1 2;
@@ -393,81 +209,75 @@
 #X msg 173 115 bang \, massesPosXT corde_table \, massPos 0 \, massPos
 1 \, massPos 2;
 #X obj 66 189 route massPos;
-#X obj 575 300 *~ 0.1;
-#X obj 620 300 *~ 0.1;
-#X msg 764 342 setK souple \$1;
-#X obj 764 323 / 100;
-#X obj 764 283 / 10;
-#X obj 764 303 + 1;
-#X msg 861 341 setD souple2 \$1;
-#X obj 792 141 vsl 15 128 0 127 0 0 empty empty empty 0 -9 0 10 -262144
+#X obj 458 240 *~ 0.1;
+#X obj 503 240 *~ 0.1;
+#X msg 577 353 setK souple \$1;
+#X obj 577 314 + 1;
+#X obj 605 152 vsl 15 128 0 127 0 0 empty empty empty 0 -9 0 10 -262144
 -1 -1 0 1;
-#X obj 861 317 / 95;
-#X obj 764 141 vsl 15 128 0 127 0 0 empty empty empty 0 -9 0 10 -262144
+#X obj 577 152 vsl 15 128 0 127 0 0 empty empty empty 0 -9 0 10 -262144
 -1 -1 0 1;
-#X msg 574 131 reset \, create \, 1;
-#X obj 861 362 s \$0-pmpd;
-#X obj 764 362 s \$0-pmpd;
-#X text 764 114 K;
-#X text 794 113 D;
+#X msg 314 209 reset \, create \, 1;
+#X obj 674 373 s \$0-pmpd;
+#X obj 577 373 s \$0-pmpd;
+#X text 577 125 K;
+#X text 607 124 D;
 #X text 311 4 scann synthesis example;
-#X text 237 453 instrument based on chdh vivarium patch;
-#X msg 593 186 dsp 1;
-#X obj 641 217 s pd;
-#X msg 641 186 dsp 0;
-#X obj 574 39 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
+#X msg 333 264 dsp 1;
+#X obj 381 295 s pd;
+#X msg 381 264 dsp 0;
+#X obj 314 51 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
 1;
-#X obj 574 102 route 1 0;
+#X obj 314 180 route 1 0;
 #X text 86 43 reset;
-#X connect 0 0 3 0;
+#X obj 66 168 pmpd --------;
+#X msg 674 352 setD souple \$1;
+#X floatatom 657 201 5 -1 1 0 - - -, f 5;
+#X msg 657 219 0 \$1;
+#X obj 579 333 / 500;
+#X obj 674 328 / 500;
+#X connect 0 0 45 0;
 #X connect 1 0 0 0;
-#X connect 2 0 33 0;
-#X connect 2 0 10 0;
-#X connect 3 0 34 0;
-#X connect 4 0 16 0;
-#X connect 5 0 10 1;
-#X connect 6 0 10 2;
-#X connect 7 0 10 3;
-#X connect 8 0 10 4;
-#X connect 9 0 10 5;
-#X connect 10 0 4 0;
-#X connect 12 0 11 0;
-#X connect 13 0 0 0;
-#X connect 14 0 10 6;
-#X connect 17 0 3 0;
-#X connect 18 0 35 0;
-#X connect 18 1 36 0;
-#X connect 21 0 22 0;
-#X connect 22 0 30 0;
-#X connect 22 1 31 0;
-#X connect 22 2 32 0;
-#X connect 24 0 23 1;
-#X connect 27 0 25 1;
-#X connect 28 0 26 1;
-#X connect 29 0 24 0;
-#X connect 29 0 27 0;
-#X connect 29 0 28 0;
-#X connect 30 0 23 0;
-#X connect 31 0 25 0;
-#X connect 32 0 26 0;
-#X connect 33 0 3 0;
-#X connect 34 0 21 0;
-#X connect 35 0 15 0;
-#X connect 36 0 15 1;
-#X connect 37 0 47 0;
-#X connect 38 0 37 0;
+#X connect 2 0 25 0;
+#X connect 3 0 8 0;
+#X connect 5 0 4 0;
+#X connect 6 0 0 0;
+#X connect 9 0 45 0;
+#X connect 10 0 27 0;
+#X connect 10 1 28 0;
+#X connect 13 0 14 0;
+#X connect 14 0 22 0;
+#X connect 14 1 23 0;
+#X connect 14 2 24 0;
+#X connect 16 0 15 1;
+#X connect 19 0 17 1;
+#X connect 20 0 18 1;
+#X connect 21 0 16 0;
+#X connect 21 0 19 0;
+#X connect 21 0 20 0;
+#X connect 22 0 15 0;
+#X connect 23 0 17 0;
+#X connect 24 0 18 0;
+#X connect 25 0 45 0;
+#X connect 26 0 13 0;
+#X connect 27 0 7 0;
+#X connect 28 0 7 1;
+#X connect 29 0 35 0;
+#X connect 30 0 49 0;
+#X connect 31 0 50 0;
+#X connect 32 0 30 0;
+#X connect 33 0 4 0;
 #X connect 39 0 40 0;
-#X connect 40 0 38 0;
-#X connect 41 0 46 0;
+#X connect 41 0 40 0;
 #X connect 42 0 43 0;
-#X connect 43 0 41 0;
-#X connect 44 0 39 0;
-#X connect 45 0 11 0;
-#X connect 52 0 53 0;
-#X connect 54 0 53 0;
-#X connect 55 0 56 0;
-#X connect 55 0 2 0;
-#X connect 56 0 45 0;
-#X connect 56 0 52 0;
-#X connect 56 1 54 0;
-#X connect 56 1 12 0;
+#X connect 42 0 2 0;
+#X connect 43 0 33 0;
+#X connect 43 0 39 0;
+#X connect 43 1 41 0;
+#X connect 43 1 5 0;
+#X connect 45 0 26 0;
+#X connect 46 0 34 0;
+#X connect 47 0 48 0;
+#X connect 48 0 3 0;
+#X connect 49 0 29 0;
+#X connect 50 0 46 0;