adding a scann synthesis example

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

2 files changed, 577 insertions, 0 deletions

diff --git a/examples/67_scann_synth.pd b/examples/67_scann_synth.pd
new file mode 100644
index 0000000..043d8bc
--- /dev/null
+++ b/examples/67_scann_synth.pd
@@ -0,0 +1,473 @@
+#N canvas 707 467 975 500 10;
+#N canvas 724 239 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;
+#X obj 168 7 inlet;
+#X obj 184 32 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
+-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;
+#X obj 41 44 inlet;
+#X obj 87 202 until;
+#X obj 87 244 f;
+#X obj 105 270 + 1;
+#X msg 148 212 0;
+#X obj 87 321 outlet;
+#X obj 87 151 t f b;
+#X obj 41 67 route bang float;
+#X obj 41 95 t b b;
+#X obj 87 178 f 128;
+#X connect 0 0 7 0;
+#X connect 1 0 2 0;
+#X connect 2 0 3 0;
+#X connect 2 0 5 0;
+#X connect 3 0 2 1;
+#X connect 4 0 2 1;
+#X connect 6 0 9 0;
+#X connect 6 1 4 0;
+#X connect 7 0 8 0;
+#X connect 7 1 6 0;
+#X connect 8 0 9 0;
+#X connect 8 1 4 0;
+#X connect 9 0 1 0;
+#X restore 293 193 pd _until;
+#X obj 293 233 + 1;
+#X obj 293 213 t f f;
+#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 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 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 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 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 77 122 r \$0-pmpd;
+#N canvas 756 311 787 602 sound 0;
+#X obj 103 18 loadbang;
+#X floatatom 103 145 5 0 0 0 - - -, f 5;
+#X floatatom 317 147 5 0 0 0 - - -, f 5;
+#X floatatom 537 146 5 0 0 0 - - -, f 5;
+#X obj 255 381 *~ 0.3;
+#X obj 235 405 hip~ 19;
+#X obj 426 378 *~ 0.3;
+#X obj 406 402 hip~ 19;
+#X obj 317 126 * 1.201;
+#X obj 537 126 * 1.424;
+#X floatatom 103 65 5 0 0 0 - - -, f 5;
+#X obj 103 85 f;
+#X msg 103 41 55;
+#X obj 235 430 outlet~;
+#X obj 406 426 outlet~;
+#X obj 103 163 ping_pong_play corde_table 131 86;
+#X obj 317 165 ping_pong_play corde_table 131 90;
+#X obj 537 164 ping_pong_play corde_table 131 88;
+#X obj 738 17 loadbang;
+#X connect 0 0 12 0;
+#X connect 1 0 15 0;
+#X connect 2 0 16 0;
+#X connect 3 0 17 0;
+#X connect 4 0 5 0;
+#X connect 5 0 13 0;
+#X connect 6 0 7 0;
+#X connect 7 0 14 0;
+#X connect 8 0 2 0;
+#X connect 9 0 3 0;
+#X connect 10 0 11 0;
+#X connect 11 0 1 0;
+#X connect 11 0 8 0;
+#X connect 11 0 9 0;
+#X connect 12 0 10 0;
+#X connect 15 0 5 0;
+#X connect 15 0 7 0;
+#X connect 16 0 5 0;
+#X connect 16 0 6 0;
+#X connect 17 0 4 0;
+#X connect 17 0 7 0;
+#X connect 18 0 15 1;
+#X connect 18 0 16 1;
+#X connect 18 0 17 1;
+#X restore 574 277 pd sound;
+#N canvas 805 430 528 522 render_gem 0;
+#X obj 51 32 gemhead;
+#N canvas 784 146 473 504 gemlist 0;
+#X obj 58 45 inlet;
+#X obj 255 47 inlet;
+#X obj 58 252 spigot 0;
+#X msg 103 229 0;
+#X text 106 187 last gemhead;
+#X obj 103 205 gemhead -1e+33;
+#X obj 58 290 gemlist;
+#X obj 255 68 t a a;
+#X obj 255 118 route float;
+#X msg 318 142 1;
+#X obj 58 333 outlet;
+#X obj 255 94 route gem_state;
+#X connect 0 0 2 0;
+#X connect 1 0 7 0;
+#X connect 2 0 6 0;
+#X connect 3 0 2 1;
+#X connect 5 0 3 0;
+#X connect 6 0 10 0;
+#X connect 7 0 11 0;
+#X connect 7 1 6 1;
+#X connect 8 1 9 0;
+#X connect 9 0 2 1;
+#X connect 11 0 8 0;
+#X restore 51 115 pd gemlist;
+#X obj 51 94 until;
+#X msg 51 73 128;
+#X msg 102 210 360;
+#X obj 102 190 loadbang;
+#X obj 51 254 rotateXYZ;
+#X obj 70 279 loadbang;
+#X obj 217 219 f;
+#X obj 255 254 + 1;
+#X obj 51 52 t b a b;
+#X msg 232 196 0;
+#X obj 51 138 t a b;
+#X msg 217 306 \$1 3 0;
+#X obj 51 371 curve 3;
+#X obj 102 231 / 128;
+#X msg 86 329 0 1 0;
+#X msg 70 300 0.2 0.5 0;
+#X obj 217 279 tabread corde_table;
+#X connect 0 0 10 0;
+#X connect 1 0 12 0;
+#X connect 2 0 1 0;
+#X connect 3 0 2 0;
+#X connect 4 0 15 0;
+#X connect 5 0 4 0;
+#X connect 6 0 14 0;
+#X connect 7 0 17 0;
+#X connect 7 0 16 0;
+#X connect 8 0 9 0;
+#X connect 8 0 18 0;
+#X connect 9 0 8 1;
+#X connect 10 0 3 0;
+#X connect 10 1 1 1;
+#X connect 10 2 11 0;
+#X connect 11 0 8 1;
+#X connect 12 0 6 0;
+#X connect 12 1 8 0;
+#X connect 13 0 14 3;
+#X connect 15 0 6 3;
+#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 obj 102 407 table corde_table 131;
+#X obj 66 210 route mob;
+#X obj 66 234 route 0 1 2;
+#X obj 66 281 tabwrite corde_table;
+#X msg 183 259 128;
+#X obj 87 328 tabwrite corde_table;
+#X obj 108 374 tabwrite corde_table;
+#X msg 204 306 129;
+#X msg 225 353 130;
+#X obj 225 225 loadbang;
+#X msg 66 259 \$1;
+#X msg 87 305 \$1;
+#X msg 108 353 \$1;
+#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
+-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
+-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 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
+1;
+#X obj 574 102 route 1 0;
+#X text 86 43 reset;
+#X connect 0 0 3 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 39 0 40 0;
+#X connect 40 0 38 0;
+#X connect 41 0 46 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;
diff --git a/examples/ping_pong_play.pd b/examples/ping_pong_play.pd
new file mode 100755
index 0000000..40a81d1
--- /dev/null
+++ b/examples/ping_pong_play.pd
@@ -0,0 +1,104 @@
+#N canvas 828 465 986 552 10;
+#X obj 36 30 inlet;
+#X obj 499 424 tabread \$1;
+#X obj 498 23 table \$0-\$1-a \$2;
+#X obj 498 45 table \$0-\$1-b \$2;
+#X obj 525 120 loadbang;
+#X obj 499 308 until;
+#X obj 498 292 \$2;
+#X obj 499 358 f;
+#X obj 525 381 + 1;
+#X msg 517 331 0;
+#X obj 499 264 t b b;
+#X obj 499 401 t f f;
+#X obj 517 215 == 0;
+#X obj 498 197 f;
+#X obj 499 239 sel 0 1;
+#X obj 499 448 tabwrite \$0-\$1-a;
+#X obj 639 424 tabread \$1;
+#X obj 639 308 until;
+#X obj 639 286 \$2;
+#X obj 639 352 f;
+#X obj 665 381 + 1;
+#X msg 657 331 0;
+#X obj 639 264 t b b;
+#X obj 639 401 t f f;
+#X obj 36 429 *~;
+#X obj 54 302 line~;
+#X obj 498 169 metro;
+#X obj 54 279 pack f \$3;
+#X obj 183 432 *~;
+#X obj 202 305 line~;
+#X obj 202 282 pack f \$3;
+#X obj 37 483 outlet~;
+#X obj 639 449 tabwrite \$0-\$1-b;
+#X obj 525 143 \$3;
+#X obj 54 367 cos~;
+#X obj 54 324 *~ 0.25;
+#X obj 55 346 +~ 0.75;
+#X obj 201 370 cos~;
+#X obj 201 327 *~ 0.25;
+#X obj 202 349 +~ 0.75;
+#X obj 55 394 *~;
+#X obj 200 395 *~;
+#X obj 448 24 inlet;
+#X obj 36 171 tabosc4~ \$0-\$1-a \$2;
+#X obj 183 171 tabosc4~ \$0-\$1-b \$2;
+#X text 501 481 copy input table in 2 distinc table;
+#X text 138 516 read the 2 table alternativlly to avoid click when
+changing table tada;
+#X text 53 192 tabosc4c~ have a etter sound and should be used if the
+nusmuk-audio lib is installed on your computer;
+#X connect 0 0 43 0;
+#X connect 0 0 44 0;
+#X connect 1 0 15 0;
+#X connect 4 0 33 0;
+#X connect 5 0 7 0;
+#X connect 6 0 5 0;
+#X connect 7 0 8 0;
+#X connect 7 0 11 0;
+#X connect 8 0 7 1;
+#X connect 9 0 7 1;
+#X connect 10 0 6 0;
+#X connect 10 1 9 0;
+#X connect 11 0 1 0;
+#X connect 11 1 15 1;
+#X connect 12 0 13 1;
+#X connect 12 0 27 0;
+#X connect 13 0 12 0;
+#X connect 13 0 14 0;
+#X connect 13 0 30 0;
+#X connect 14 0 10 0;
+#X connect 14 1 22 0;
+#X connect 16 0 32 0;
+#X connect 17 0 19 0;
+#X connect 18 0 17 0;
+#X connect 19 0 20 0;
+#X connect 19 0 23 0;
+#X connect 20 0 19 1;
+#X connect 21 0 19 1;
+#X connect 22 0 18 0;
+#X connect 22 1 21 0;
+#X connect 23 0 16 0;
+#X connect 23 1 32 1;
+#X connect 24 0 31 0;
+#X connect 25 0 35 0;
+#X connect 26 0 13 0;
+#X connect 27 0 25 0;
+#X connect 28 0 31 0;
+#X connect 29 0 38 0;
+#X connect 30 0 29 0;
+#X connect 33 0 26 1;
+#X connect 34 0 40 0;
+#X connect 34 0 40 1;
+#X connect 35 0 36 0;
+#X connect 36 0 34 0;
+#X connect 37 0 41 0;
+#X connect 37 0 41 1;
+#X connect 38 0 39 0;
+#X connect 39 0 37 0;
+#X connect 40 0 24 1;
+#X connect 41 0 28 1;
+#X connect 42 0 26 0;
+#X connect 43 0 24 0;
+#X connect 44 0 28 0;