puredata/resources/11_delay-feedback.pd

260 lines
8.0 KiB
Plaintext

#N canvas 272 1252 1312 798 10;
#X obj 1054 619 dac~;
#X obj 1225 641 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
#X obj 1224 575 env~;
#X obj 1224 607 - 100;
#X floatatom 368 498 5 0 0 0 - - -;
#X obj 1003 528 +~;
#X obj 856 236 *~;
#X obj 748 170 phasor~ 0;
#X obj 833 266 +~;
#X obj 774 235 *~;
#X text 827 538 Visu canal gauche seulement;
#X obj 744 545 metro 100;
#N canvas 0 22 450 278 (subpatch) 0;
#X array VisuSignal 1024 float 3;
#A 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0;
#A 1000 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0;
#X coords 0 1 1024 -1 200 140 1;
#X restore 746 623 graph;
#X obj 814 597 tabwrite~ VisuSignal;
#X obj 836 169 osc~ 0;
#X obj 797 205 *~ 0.8;
#X obj 398 224 key;
#X floatatom 398 253 5 0 0 0 - - -;
#X obj 11 374 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X text 22 394 Do;
#X text 60 393 Do#;
#X obj 53 374 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 96 374 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 140 374 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X text 112 393 Ré;
#X text 152 392 Ré#;
#X obj 182 374 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 224 374 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 267 374 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 311 374 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X text 196 392 Mi;
#X text 239 392 Fa;
#X text 277 392 Fa#;
#X text 319 393 Sol;
#X text 358 393 Sol#;
#X text 412 394 La;
#X text 452 393 La#;
#X text 496 394 Si;
#X text 540 394 Do;
#X text 578 393 Do#;
#X text 630 393 Ré;
#X text 670 392 Ré#;
#X text 714 392 Mi;
#X obj 354 373 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 396 373 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 439 373 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 483 373 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 525 373 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 567 373 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 610 373 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 654 373 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 697 373 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X text 367 20 Tempo défini ici (en BPM = Beats Per Minute);
#X obj 366 38 hsl 300 15 40 220 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 18100 1;
#X obj 407 64 send MasterBPM;
#X obj 385 166 send QuarterNoteDuration_ms;
#X floatatom 363 69 5 0 0 0 - - -;
#X floatatom 343 166 5 0 0 0 - - -;
#X obj 363 111 pow -1;
#X obj 364 137 * 1000;
#X obj 363 89 / 60;
#X msg 11 426 48;
#X msg 52 426 49;
#X msg 97 426 50;
#X msg 141 427 51;
#X msg 182 427 52;
#X msg 224 427 53;
#X msg 268 427 54;
#X msg 311 427 55;
#X msg 355 427 56;
#X msg 396 427 57;
#X msg 438 427 58;
#X msg 483 426 59;
#X msg 525 424 60;
#X msg 567 424 61;
#X msg 612 424 62;
#X msg 654 424 63;
#X msg 698 425 64;
#X obj 219 285 route 113 122 115 101 100 102 116 103 121 104 117 106
107 111 108 112 109;
#X text 422 497 Note de courante;
#X obj 772 148 * 2.0078;
#X text 777 427 Ajout d'un délai (avec feedback) au signal brut (dry)
;
#X text 1113 427 Max 1s de délai;
#X obj 1045 446 delwrite~ LigneDelai 1000;
#X obj 1035 342 delread~ LigneDelai 0;
#X floatatom 106 187 5 0 0 0 - - -;
#X obj 148 187 send EighthNoteDuration_ms;
#X obj 215 154 / 2;
#X obj 1038 315 receive EighthNoteDuration_ms;
#X obj 910 168 vline~;
#X obj 368 531 mtof;
#X obj 368 552 send NewNoteFrequency;
#X obj 797 8 receive NewNoteFrequency;
#X obj 910 90 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 797 62 trigger bang float;
#X floatatom 797 36 5 0 0 0 - - -;
#X msg 910 130 1 30 \, 0.6 100 30 \, 0 100 100;
#X obj 1083 555 clip~ -0.3 0.3;
#X obj 952 286 *~ 0.1;
#X obj 744 516 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 1045 417 +~;
#X obj 1065 382 *~ 0.5;
#X text 1114 382 Quantité de feedback;
#X text 425 121 Longueur d'une noire envoyée dans tout le patch pour
les séquenceurs et arpégiatteurs;
#X connect 2 0 3 0;
#X connect 3 0 1 0;
#X connect 4 0 90 0;
#X connect 5 0 97 0;
#X connect 6 0 8 1;
#X connect 7 0 9 1;
#X connect 8 0 98 0;
#X connect 9 0 8 0;
#X connect 11 0 13 0;
#X connect 14 0 6 1;
#X connect 15 0 9 0;
#X connect 16 0 17 0;
#X connect 17 0 78 0;
#X connect 18 0 61 0;
#X connect 21 0 62 0;
#X connect 22 0 63 0;
#X connect 23 0 64 0;
#X connect 26 0 65 0;
#X connect 27 0 66 0;
#X connect 28 0 67 0;
#X connect 29 0 68 0;
#X connect 43 0 69 0;
#X connect 44 0 70 0;
#X connect 45 0 71 0;
#X connect 46 0 72 0;
#X connect 47 0 73 0;
#X connect 48 0 74 0;
#X connect 49 0 75 0;
#X connect 50 0 76 0;
#X connect 51 0 77 0;
#X connect 53 0 54 0;
#X connect 53 0 56 0;
#X connect 56 0 60 0;
#X connect 58 0 59 0;
#X connect 59 0 57 0;
#X connect 59 0 55 0;
#X connect 59 0 87 0;
#X connect 60 0 58 0;
#X connect 61 0 4 0;
#X connect 62 0 4 0;
#X connect 63 0 4 0;
#X connect 64 0 4 0;
#X connect 65 0 4 0;
#X connect 66 0 4 0;
#X connect 67 0 4 0;
#X connect 68 0 4 0;
#X connect 69 0 4 0;
#X connect 70 0 4 0;
#X connect 71 0 4 0;
#X connect 72 0 4 0;
#X connect 73 0 4 0;
#X connect 74 0 4 0;
#X connect 75 0 4 0;
#X connect 76 0 4 0;
#X connect 77 0 4 0;
#X connect 78 0 18 0;
#X connect 78 1 21 0;
#X connect 78 2 22 0;
#X connect 78 3 23 0;
#X connect 78 4 26 0;
#X connect 78 5 27 0;
#X connect 78 6 28 0;
#X connect 78 7 29 0;
#X connect 78 8 43 0;
#X connect 78 9 44 0;
#X connect 78 10 45 0;
#X connect 78 11 46 0;
#X connect 78 12 47 0;
#X connect 78 13 48 0;
#X connect 78 14 49 0;
#X connect 78 15 50 0;
#X connect 78 16 51 0;
#X connect 80 0 7 0;
#X connect 84 0 101 0;
#X connect 84 0 5 1;
#X connect 87 0 85 0;
#X connect 87 0 86 0;
#X connect 88 0 84 0;
#X connect 89 0 6 0;
#X connect 89 0 15 0;
#X connect 90 0 91 0;
#X connect 92 0 95 0;
#X connect 93 0 96 0;
#X connect 94 0 93 0;
#X connect 94 1 80 0;
#X connect 94 1 14 0;
#X connect 95 0 94 0;
#X connect 96 0 89 0;
#X connect 97 0 0 0;
#X connect 97 0 2 0;
#X connect 97 0 0 1;
#X connect 97 0 13 0;
#X connect 98 0 5 0;
#X connect 98 0 100 0;
#X connect 99 0 11 0;
#X connect 100 0 83 0;
#X connect 101 0 100 1;