path: root/examples/67_scann_synth.pd

#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;