Player.pd

#N canvas 155 140 429 268 10;
#X declare -path absGAMME -path ../absGAMME -path ../RecallSong;
#N canvas 482 701 457 279 MicrophonePitch 0;
#X floatatom 19 110 5 0 0 3 pitch - - 0;
#X floatatom 352 117 5 0 0 3 env - - 0;
#X obj 230 139 > 70;
#X obj 65 108 sel -1500;
#X msg 65 134 0;
#X obj 65 160 *, f 28;
#X obj 65 184 s Player\$1-pitch;
#X obj 296 94 s Player\$1-env;
#X obj 251 116 r MicSeuil;
#X obj 65 39 adc~;
#X obj 65 71 sigmund~ -hop 4096 -npts 4096 pitch env;
#X obj 284 175 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X connect 2 0 5 1;
#X connect 2 0 11 0;
#X connect 3 0 4 0;
#X connect 3 1 5 0;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 8 0 2 1;
#X connect 9 0 10 0;
#X connect 10 0 3 0;
#X connect 10 1 2 0;
#X connect 10 1 7 0;
#X restore 20 42 pd MicrophonePitch;
#N canvas 429 274 904 635 SynthMono 0;
#X obj 69 182 t f f, f 18;
#X obj 69 207 sel 0;
#X obj 99 373 *~;
#X obj 176 260 sel 0;
#X msg 176 281 0 300;
#X obj 176 302 line~;
#X obj 176 323 *~;
#X obj 97 591 throw~ master;
#X obj 98 453 *~ 1, f 16;
#X obj 69 141 gammeRound /GAM2 300;
#X obj 118 481 delwrite~ \$0-dm 1000;
#X obj 97 286 mtof~;
#X obj 28 414 bp~ 700 10;
#X obj 99 412 bp~ 1600 10;
#X obj 348 85 + 0.5;
#X obj 348 106 i;
#X obj 348 127 change;
#X obj 348 169 line~;
#X obj 277 227 *~, f 11;
#X obj 96 233 + 12;
#X msg 348 148 0.1 \, 1 2000;
#X obj 244 67 +~ 5;
#X obj 244 46 *~ 1;
#X obj 355 20 osc~ 0.13;
#X obj 245 91 osc~ 5;
#X obj 211 20 osc~ 0.113;
#X obj 280 20 osc~ 0.1273;
#X obj 69 95 r Player\$1-pitch;
#X obj 117 505 delread~ \$0-dm 800;
#X obj 117 530 bp~ 1300 10;
#X obj 117 554 *~ 0.8;
#X obj 200 418 r mix-SynthMono;
#X obj 277 278 r bpf1;
#X obj 277 341 mtof;
#X obj 277 299 * 80;
#X obj 277 320 + 50;
#X obj 330 340 mtof;
#X obj 330 298 * 80;
#X obj 330 319 + 50;
#X obj 330 277 r bpf2;
#X obj 326 473 mtof;
#X obj 326 431 * 80;
#X obj 326 452 + 50;
#X obj 326 410 r bpfecho;
#X floatatom 225 449 5 0 0 0 - - - 0;
#X obj 348 190 *~ 0.5;
#X obj 522 572 table \$0-wavtable;
#X obj 35 321 tabosc4~ \$0-wavtable;
#X obj 542 261 until;
#X obj 523 233 t b f b;
#X obj 542 330 f;
#X msg 587 262 0.5;
#X obj 542 386 list prepend;
#X obj 542 410 t a;
#X obj 523 435 list;
#X obj 523 483 list trim;
#X msg 523 208 40;
#X obj 523 459 list prepend sinesum 4096;
#X obj 572 330 / 1.5;
#X obj 523 546 s \$0-wavtable;
#X msg 669 251 1.2;
#X msg 523 524 normalize;
#X obj 523 504 t b a;
#X obj 562 177 t b f;
#X floatatom 565 141 5 0 0 0 - - - 0;
#X obj 608 128 loadbang;
#X msg 608 149 1.35;
#X obj 653 319 f;
#X obj 682 319 == 0;
#X obj 542 295 t b b, f 19;
#X msg 680 293 0;
#X obj 542 358 *;
#X obj 653 340 sel 0 1;
#X obj 731 322 * -1;
#X obj 731 341 + 1;
#X obj 731 298 f;
#X obj 751 193 hsl 128 15 0 1 0 0 empty empty empty -2 -8 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 748 213 t b f;
#X obj 35 344 lop~ 1000;
#X obj 521 91 hsl 128 15 0 1 0 0 empty empty empty -2 -8 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 518 111 * 2;
#X obj 518 132 + 1;
#X obj 653 363 f 0.5;
#X obj 694 363 f 0.5;
#X msg 217 282 1 100;
#X obj 518 66 r smooth;
#X obj 748 169 r wavform;
#X obj 97 258 lop~ 5;
#X obj 407 189 r lfoamp;
#X obj 383 282 r portamento;
#X obj 386 302 hsl 128 15 0 1 0 0 empty empty empty -2 -8 0 10 #fcfcfc #000000 #000000 0 1;
#X floatatom 399 399 5 0 0 0 - - - 0;
#X obj 383 343 * -8;
#X obj 383 322 pow 0.5;
#X obj 383 364 + 8.1;
#X connect 0 0 1 0;
#X connect 0 1 3 0;
#X connect 1 1 19 0;
#X connect 2 0 13 0;
#X connect 2 0 12 0;
#X connect 3 0 4 0;
#X connect 3 1 84 0;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 5 0 6 1;
#X connect 6 0 2 1;
#X connect 8 0 7 0;
#X connect 8 0 10 0;
#X connect 9 0 0 0;
#X connect 9 0 14 0;
#X connect 11 0 47 0;
#X connect 12 0 8 0;
#X connect 13 0 8 0;
#X connect 14 0 15 0;
#X connect 15 0 16 0;
#X connect 16 0 20 0;
#X connect 17 0 45 0;
#X connect 18 0 11 0;
#X connect 19 0 87 0;
#X connect 20 0 17 0;
#X connect 21 0 24 0;
#X connect 22 0 21 0;
#X connect 23 0 22 0;
#X connect 24 0 18 0;
#X connect 25 0 22 0;
#X connect 26 0 22 0;
#X connect 27 0 9 0;
#X connect 28 0 29 0;
#X connect 29 0 30 0;
#X connect 30 0 7 0;
#X connect 31 0 8 1;
#X connect 31 0 44 0;
#X connect 32 0 34 0;
#X connect 33 0 12 1;
#X connect 34 0 35 0;
#X connect 35 0 33 0;
#X connect 36 0 13 1;
#X connect 37 0 38 0;
#X connect 38 0 36 0;
#X connect 39 0 37 0;
#X connect 40 0 29 1;
#X connect 41 0 42 0;
#X connect 42 0 40 0;
#X connect 43 0 41 0;
#X connect 45 0 18 1;
#X connect 47 0 78 0;
#X connect 48 0 69 0;
#X connect 49 0 54 0;
#X connect 49 1 48 0;
#X connect 49 2 51 0;
#X connect 49 2 52 1;
#X connect 49 2 70 0;
#X connect 50 0 58 0;
#X connect 50 0 71 0;
#X connect 51 0 50 1;
#X connect 52 0 53 0;
#X connect 53 0 52 1;
#X connect 53 0 54 1;
#X connect 54 0 57 0;
#X connect 55 0 62 0;
#X connect 56 0 49 0;
#X connect 57 0 55 0;
#X connect 58 0 50 1;
#X connect 60 0 58 1;
#X connect 61 0 59 0;
#X connect 62 0 61 0;
#X connect 62 1 59 0;
#X connect 63 0 56 0;
#X connect 63 1 58 1;
#X connect 64 0 63 0;
#X connect 65 0 66 0;
#X connect 66 0 63 0;
#X connect 67 0 68 0;
#X connect 67 0 72 0;
#X connect 68 0 67 1;
#X connect 69 0 50 0;
#X connect 69 1 67 0;
#X connect 70 0 67 1;
#X connect 71 0 52 0;
#X connect 72 0 82 0;
#X connect 72 1 83 0;
#X connect 73 0 74 0;
#X connect 74 0 83 1;
#X connect 75 0 73 0;
#X connect 75 0 82 1;
#X connect 76 0 77 0;
#X connect 77 0 56 0;
#X connect 77 1 75 0;
#X connect 78 0 2 0;
#X connect 79 0 80 0;
#X connect 80 0 81 0;
#X connect 81 0 63 0;
#X connect 82 0 71 1;
#X connect 83 0 71 1;
#X connect 84 0 5 0;
#X connect 85 0 79 0;
#X connect 86 0 76 0;
#X connect 87 0 11 0;
#X connect 88 0 45 1;
#X connect 89 0 90 0;
#X connect 90 0 93 0;
#X connect 92 0 94 0;
#X connect 93 0 92 0;
#X connect 94 0 91 0;
#X connect 94 0 87 1;
#X restore 21 74 pd SynthMono;
#N canvas 258 126 538 625 Nappe 0;
#X obj 61 57 sel 0;
#X obj 88 78 - 12;
#X obj 115 132 gammeRound /GAMME 300;
#X obj 88 198 i;
#X obj 88 176 + 0.5;
#X obj 61 225 change;
#X msg 61 81 0;
#X obj 88 102 t b f;
#X obj 88 152 f, f 5;
#X msg 116 56 12;
#X obj 61 34 r Player\$1-pitch;
#X obj 61 303 list prepend;
#X obj 114 252 + 1;
#X msg 61 324 play \$1 \$2;
#X obj 61 247 t f b;
#X obj 88 269 f;
#X obj 114 270 mod 16;
#X obj 61 348 s Player\$1-nappe;
#X obj 61 385 clone nappeVoice 16 Player\$1-nappe;
#X obj 61 419 *~;
#X obj 98 434 pow 2;
#X obj 101 413 hsl 128 15 0 1 0 1 empty empty empty -2 -8 0 10 #fcfcfc #000000 #000000 4572 1;
#X obj 61 593 throw~ master;
#X obj 95 565 rev1~ 92, f 58;
#X obj 267 523 loadbang;
#X msg 267 544 92;
#X obj 95 544 *~, f 21;
#X obj 218 523 pow 2;
#X obj 221 502 hsl 128 15 0 2 0 1 empty empty empty -2 -8 0 10 #fcfcfc #000000 #000000 8700 1;
#X obj 94 520 lop~ 8000;
#X obj 227 363 r mix-Nappe;
#X obj 243 478 r nappeRev;
#X obj 286 84 loadbang;
#X obj 286 105 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 286 126 metro 20;
#X obj 286 147 s LFOrnd-bang;
#X obj 86 454 delwrite~ \$0-preDel 1000;
#X obj 95 481 delread~ \$0-preDel 500;
#X connect 0 0 6 0;
#X connect 0 1 1 0;
#X connect 1 0 7 0;
#X connect 2 0 8 1;
#X connect 3 0 5 0;
#X connect 4 0 3 0;
#X connect 5 0 14 0;
#X connect 6 0 5 0;
#X connect 7 0 8 0;
#X connect 7 1 2 0;
#X connect 8 0 4 0;
#X connect 9 0 1 1;
#X connect 10 0 0 0;
#X connect 11 0 13 0;
#X connect 12 0 16 0;
#X connect 13 0 17 0;
#X connect 14 0 11 0;
#X connect 14 1 15 0;
#X connect 15 0 12 0;
#X connect 15 0 11 1;
#X connect 16 0 15 1;
#X connect 18 0 19 0;
#X connect 19 0 22 0;
#X connect 19 0 36 0;
#X connect 20 0 19 1;
#X connect 21 0 20 0;
#X connect 23 0 22 0;
#X connect 24 0 25 0;
#X connect 25 0 23 1;
#X connect 26 0 23 0;
#X connect 27 0 26 1;
#X connect 28 0 27 0;
#X connect 29 0 26 0;
#X connect 30 0 21 0;
#X connect 31 0 28 0;
#X connect 32 0 33 0;
#X connect 33 0 34 0;
#X connect 34 0 35 0;
#X connect 37 0 29 0;
#X restore 23 116 pd Nappe;
#X obj 23 148 catch~ master;
#X obj 23 169 dac~;
#X obj 20 15 declare -path absGAMME -path ../absGAMME -path ../RecallSong;
#X obj 155 71 loadbang;
#X msg 155 92 \; pd dsp 1;
#X msg 231 100 _loaded;
#X obj 231 121 stdout;
#N canvas 274 140 694 576 analyse 0;
#X obj 140 105 gammeRound /GAM2 300;
#X obj 113 82 t f f;
#X obj 78 152 -;
#X obj 78 178 abs;
#X obj 67 455 hsl 128 15 0 100 0 0 empty empty empty -2 -8 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 113 48 r Player\$1-pitch;
#X obj 78 198 - 0.2;
#X obj 51 108 f;
#X obj 51 77 metro 50;
#X obj 51 32 loadbang;
#X obj 51 53 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 51 129 sel 0;
#X msg 51 265 0;
#X obj 51 286 f;
#X obj 78 218 * -200;
#X obj 78 241 + 120;
#X obj 78 267 clip 0 150;
#X obj 51 386 clip 0 100;
#X obj 51 524 stdout;
#X obj 51 407 i;
#X obj 51 428 change;
#X msg 51 502 justesse \$1;
#X obj 296 183 r Player\$1-env;
#X obj 312 409 hsl 128 15 0 100 0 0 empty empty empty -2 -8 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 296 340 clip 0 100;
#X obj 295 484 stdout;
#X obj 296 361 i;
#X obj 296 382 change;
#X msg 295 462 force \$1;
#X obj 296 204 - 70;
#X obj 296 227 * 8;
#X obj 296 273 clip 0 130;
#X obj 551 218 r Player\$1-env;
#X obj 551 239 t f f;
#X obj 551 271 -;
#X obj 551 313 change;
#X obj 551 334 sel 1;
#X obj 551 292 > 26, f 8;
#X obj 596 270 r ImpactSeuil;
#X obj 551 377 stdout;
#X obj 438 131 hsl 128 15 0 100 0 0 empty empty empty -2 -8 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 420 175 f;
#X obj 412 123 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 296 250 spigot 1;
#X obj 387 151 == 0;
#X obj 420 154 metro 92;
#X obj 337 69 hsl 128 15 0 150 0 0 empty empty empty -2 -8 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 319 113 f;
#X obj 311 61 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 51 311 spigot 1;
#X obj 286 89 == 0;
#X obj 319 92 metro 92;
#X obj 51 340 asymFilter 0.04 0.04 juste_speed;
#X obj 51 361 asymFilter 0.04 0.04 juste_speed;
#X obj 296 295 asymFilter 0.4 0.2 force_speed;
#X obj 296 316 asymFilter 0.4 0.2 force_speed;
#X obj 51 481 / 100;
#X obj 295 436 / 100;
#X msg 551 355 impact 1;
#X connect 0 0 2 1;
#X connect 1 0 7 1;
#X connect 1 1 0 0;
#X connect 2 0 3 0;
#X connect 3 0 6 0;
#X connect 5 0 1 0;
#X connect 6 0 14 0;
#X connect 7 0 11 0;
#X connect 8 0 7 0;
#X connect 9 0 10 0;
#X connect 10 0 8 0;
#X connect 11 0 12 0;
#X connect 11 1 2 0;
#X connect 12 0 13 0;
#X connect 13 0 49 0;
#X connect 14 0 15 0;
#X connect 15 0 16 0;
#X connect 16 0 13 0;
#X connect 17 0 19 0;
#X connect 19 0 20 0;
#X connect 20 0 4 0;
#X connect 20 0 56 0;
#X connect 21 0 18 0;
#X connect 22 0 29 0;
#X connect 24 0 26 0;
#X connect 26 0 27 0;
#X connect 27 0 23 0;
#X connect 27 0 57 0;
#X connect 28 0 25 0;
#X connect 29 0 30 0;
#X connect 30 0 43 0;
#X connect 31 0 54 0;
#X connect 32 0 33 0;
#X connect 33 0 34 1;
#X connect 33 1 34 0;
#X connect 34 0 37 0;
#X connect 35 0 36 0;
#X connect 36 0 58 0;
#X connect 37 0 35 0;
#X connect 38 0 37 1;
#X connect 40 0 41 1;
#X connect 41 0 31 0;
#X connect 42 0 44 0;
#X connect 42 0 45 0;
#X connect 43 0 31 0;
#X connect 44 0 43 1;
#X connect 45 0 41 0;
#X connect 46 0 47 1;
#X connect 47 0 52 0;
#X connect 48 0 50 0;
#X connect 48 0 51 0;
#X connect 49 0 52 0;
#X connect 50 0 49 1;
#X connect 51 0 47 0;
#X connect 52 0 53 0;
#X connect 53 0 17 0;
#X connect 54 0 55 0;
#X connect 55 0 24 0;
#X connect 56 0 21 0;
#X connect 57 0 28 0;
#X connect 58 0 39 0;
#X restore 22 227 pd analyse;
#X connect 3 0 4 0;
#X connect 6 0 7 0;
#X connect 6 0 8 0;
#X connect 8 0 9 0;