I don't really know what 'fancy' means in this context, here is an
example with [sigmund~], it's supposed to detect 3 notes chords
Le 29/03/2017 à 11:02, Simon Iten a écrit :
this is far from trivial without a hex pickup and i doubt that something useful
will be possible to do with puredata. but i would be very happy to be proven
wrong!
On 29 Mar 2017, at 02:51, Alexandre Torres Porres <por...@gmail.com> wrote:
howdy, getting involved in a research that needs to detect notes from guitar
chords (no hex pickup solutions, unfortunately). No need to do anything fancy
with the spectra, or process it in any way like with celemony melodyne's DNA
stuff. Do any of you know of some nice stuff done in Pd or Max or SC or
whatever on that?
thanks
_______________________________________________
Pd-list@lists.iem.at mailing list
UNSUBSCRIBE and account-management ->
https://lists.puredata.info/listinfo/pd-list
_______________________________________________
Pd-list@lists.iem.at mailing list
UNSUBSCRIBE and account-management ->
https://lists.puredata.info/listinfo/pd-list
#N canvas 643 50 603 460 10;
#X obj 63 323 dac~;
#X msg 107 20 60 64 67;
#X obj 63 302 *~;
#X obj 40 189 tgl 15 0 empty chord~init empty 17 7 0 10 -262144 -1
-1 1 1;
#X obj 40 229 pack 0 50;
#X obj 40 250 line~;
#X msg 41 122 \; pd dsp \$1;
#X obj 41 96 tgl 15 0 empty chord~init empty 17 7 0 10 -262144 -1 -1
1 1;
#N canvas 215 50 427 700 chordDetector_3sounds 0;
#X msg 53 45 \$1;
#X obj 53 64 ftom;
#X msg 84 45 \$1;
#X obj 84 64 ftom;
#X msg 113 45 \$1;
#X obj 115 65 ftom;
#X obj 53 7 inlet;
#X obj 56 618 list prepend set;
#X obj 56 638 list trim;
#X obj 56 659 outlet;
#X obj 53 136 pack f f f;
#X obj 56 599 l2s;
#X msg 71 580 symbol;
#X obj 71 560 r chord~init;
#X obj 53 173 t a a;
#X obj 86 346 list-compare;
#N canvas 926 498 374 296 templates 0;
#X obj 69 17 inlet;
#X obj 114 283 outlet;
#X obj 196 77 list prepend M;
#X obj 195 118 list prepend m;
#X msg 196 57 2 7 4 0 \, 1 9 5 0 \, 0 8 3 0;
#X msg 195 98 2 7 3 0 \, 1 8 5 0 \, 0 9 4 0;
#X obj 194 163 list prepend mb5;
#X msg 194 142 2 6 3 0 \, 1 9 6 0 \, 0 9 3 0;
#X obj 192 219 list prepend sus4;
#X msg 192 198 2 7 5 0 \, 1 10 5 0 \, 0 7 2 0;
#X obj 70 35 t b b b b a;
#X obj 177 281 outlet;
#X connect 0 0 10 0;
#X connect 2 0 1 0;
#X connect 3 0 1 0;
#X connect 4 0 2 0;
#X connect 5 0 3 0;
#X connect 6 0 1 0;
#X connect 7 0 6 0;
#X connect 8 0 1 0;
#X connect 9 0 8 0;
#X connect 10 0 9 0;
#X connect 10 1 7 0;
#X connect 10 2 5 0;
#X connect 10 3 4 0;
#X connect 10 4 11 0;
#X restore 52 288 pd templates;
#X obj 53 324 list split 2;
#X obj 53 154 list-sort desc;
#X obj 193 376 list;
#X obj 53 366 spigot;
#X obj 53 384 list split 1;
#X obj 192 477 list split;
#X obj 46 437 t a b;
#X obj 220 495 list split 1;
#X obj 54 542 list prepend;
#X obj 46 483 sel M;
#X obj 57 26 route 0 1 2 3;
#X obj 337 578 outlet bass;
#X obj 193 394 t a a;
#N canvas 1106 179 256 291 note 0;
#X obj 22 12 inlet;
#X obj 39 253 outlet;
#X obj 21 59 route 0 1 2 3 4 5 6 7 8 9 10 11;
#X msg 21 83 C;
#X msg 31 104 C#;
#X msg 21 83 C;
#X msg 31 104 C#;
#X msg 53 82 D;
#X msg 63 103 D#;
#X msg 82 81 E;
#X msg 93 103 C;
#X msg 103 124 C#;
#X msg 93 103 F;
#X msg 103 124 F#;
#X msg 120 81 C;
#X msg 130 102 C#;
#X msg 120 81 G;
#X msg 130 102 G#;
#X msg 155 82 C;
#X msg 165 103 C#;
#X msg 155 82 A;
#X msg 165 103 A#;
#X msg 189 132 B;
#X obj 22 35 mod 12;
#X connect 0 0 23 0;
#X connect 2 0 3 0;
#X connect 2 1 6 0;
#X connect 2 2 7 0;
#X connect 2 3 8 0;
#X connect 2 4 9 0;
#X connect 2 5 12 0;
#X connect 2 6 13 0;
#X connect 2 7 16 0;
#X connect 2 8 17 0;
#X connect 2 9 20 0;
#X connect 2 10 21 0;
#X connect 2 11 22 0;
#X connect 3 0 1 0;
#X connect 4 0 1 0;
#X connect 5 0 1 0;
#X connect 6 0 1 0;
#X connect 7 0 1 0;
#X connect 8 0 1 0;
#X connect 9 0 1 0;
#X connect 10 0 1 0;
#X connect 11 0 1 0;
#X connect 12 0 1 0;
#X connect 13 0 1 0;
#X connect 14 0 1 0;
#X connect 15 0 1 0;
#X connect 16 0 1 0;
#X connect 17 0 1 0;
#X connect 18 0 1 0;
#X connect 19 0 1 0;
#X connect 20 0 1 0;
#X connect 21 0 1 0;
#X connect 22 0 1 0;
#X connect 23 0 2 0;
#X restore 220 513 pd note;
#X obj 337 538 list prepend set;
#X obj 336 558 list trim;
#X obj 305 498 list split 2;
#X obj 53 87 expr rint($f1) \; rint($f2) \; rint($f3);
#N canvas 710 340 450 300 note 0;
#X obj 177 15 inlet;
#X obj 194 256 outlet;
#X obj 176 62 route 0 1 2 3 4 5 6 7 8 9 10 11;
#X msg 176 86 C;
#X msg 186 107 C#;
#X msg 176 86 C;
#X msg 186 107 C#;
#X msg 208 85 D;
#X msg 218 106 D#;
#X msg 237 84 E;
#X msg 248 106 C;
#X msg 258 127 C#;
#X msg 248 106 F;
#X msg 258 127 F#;
#X msg 275 84 C;
#X msg 285 105 C#;
#X msg 275 84 G;
#X msg 285 105 G#;
#X msg 310 85 C;
#X msg 320 106 C#;
#X msg 310 85 A;
#X msg 320 106 A#;
#X msg 344 135 B;
#X obj 177 38 mod 12;
#X connect 0 0 23 0;
#X connect 2 0 3 0;
#X connect 2 1 6 0;
#X connect 2 2 7 0;
#X connect 2 3 8 0;
#X connect 2 4 9 0;
#X connect 2 5 12 0;
#X connect 2 6 13 0;
#X connect 2 7 16 0;
#X connect 2 8 17 0;
#X connect 2 9 20 0;
#X connect 2 10 21 0;
#X connect 2 11 22 0;
#X connect 3 0 1 0;
#X connect 4 0 1 0;
#X connect 5 0 1 0;
#X connect 6 0 1 0;
#X connect 7 0 1 0;
#X connect 8 0 1 0;
#X connect 9 0 1 0;
#X connect 10 0 1 0;
#X connect 11 0 1 0;
#X connect 12 0 1 0;
#X connect 13 0 1 0;
#X connect 14 0 1 0;
#X connect 15 0 1 0;
#X connect 16 0 1 0;
#X connect 17 0 1 0;
#X connect 18 0 1 0;
#X connect 19 0 1 0;
#X connect 20 0 1 0;
#X connect 21 0 1 0;
#X connect 22 0 1 0;
#X connect 23 0 2 0;
#X restore 338 519 pd note;
#N canvas 645 558 280 171 offset 0;
#X obj 148 6 inlet;
#X obj 146 141 outlet;
#X obj 146 35 unpack f f f;
#X obj 220 83 -;
#X obj 215 55 t a a;
#X obj 146 88 -;
#X obj 173 87 -;
#X obj 146 118 pack f f f;
#X connect 0 0 2 0;
#X connect 2 0 5 0;
#X connect 2 1 6 0;
#X connect 2 2 4 0;
#X connect 3 0 7 2;
#X connect 4 0 3 0;
#X connect 4 1 3 1;
#X connect 4 1 6 1;
#X connect 4 1 5 1;
#X connect 5 0 7 0;
#X connect 6 0 7 1;
#X connect 7 0 1 0;
#X restore 52 266 pd offset;
#X connect 0 0 1 0;
#X connect 1 0 34 0;
#X connect 2 0 3 0;
#X connect 3 0 34 1;
#X connect 4 0 5 0;
#X connect 5 0 34 2;
#X connect 6 0 27 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 10 0 18 0;
#X connect 11 0 7 0;
#X connect 12 0 11 1;
#X connect 13 0 12 0;
#X connect 14 0 36 0;
#X connect 14 1 19 1;
#X connect 15 0 20 1;
#X connect 16 0 17 0;
#X connect 16 1 15 1;
#X connect 17 0 20 0;
#X connect 17 1 15 0;
#X connect 18 0 14 0;
#X connect 19 0 29 0;
#X connect 20 0 21 0;
#X connect 21 0 23 0;
#X connect 21 1 22 1;
#X connect 22 1 24 0;
#X connect 23 0 26 0;
#X connect 23 1 19 0;
#X connect 24 0 30 0;
#X connect 25 0 11 0;
#X connect 26 0 25 0;
#X connect 26 1 25 0;
#X connect 27 0 0 0;
#X connect 27 1 2 0;
#X connect 27 2 4 0;
#X connect 29 0 22 0;
#X connect 29 1 33 0;
#X connect 30 0 25 1;
#X connect 31 0 32 0;
#X connect 32 0 28 0;
#X connect 33 1 35 0;
#X connect 34 0 10 0;
#X connect 34 1 10 1;
#X connect 34 2 10 2;
#X connect 35 0 31 0;
#X connect 36 0 16 0;
#X restore 148 314 pd chordDetector_3sounds;
#X msg 148 369 G;
#X msg 121 39 64 67 71;
#X msg 135 57 65 69 72;
#X msg 149 76 67 71 74;
#X msg 262 101 60 65 67;
#X msg 163 96 71 74 77;
#X obj 463 11 loadbang;
#X msg 463 35 \; chord~init 1 \;;
#X obj 40 209 * 0.05;
#X msg 324 103 60 65 68;
#X msg 393 106 60 63 68;
#X obj 147 267 sigmund~ -npts 2048 -hop 8192 -npeak 3 tracks;
#N canvas 370 96 272 289 makeChord~ 0;
#X obj 40 237 outlet~;
#X obj 12 126 mtof;
#X obj 44 126 mtof;
#X obj 78 126 mtof;
#X obj 11 86 list split 1;
#X obj 44 105 list split 1;
#X obj 12 147 phasor~;
#X obj 66 147 phasor~;
#X obj 118 147 phasor~;
#X obj 170 147 vline~;
#X obj 40 215 *~;
#X obj 11 45 t a b;
#X obj 10 18 inlet;
#X msg 127 84 1 100 \, 0 1200 1100;
#X obj 11 172 +~;
#X obj 26 192 +~;
#X connect 1 0 6 0;
#X connect 2 0 7 0;
#X connect 3 0 8 0;
#X connect 4 0 1 0;
#X connect 4 1 5 0;
#X connect 5 0 2 0;
#X connect 5 1 3 0;
#X connect 6 0 14 0;
#X connect 7 0 14 1;
#X connect 8 0 15 1;
#X connect 9 0 10 1;
#X connect 10 0 0 0;
#X connect 11 0 4 0;
#X connect 11 1 13 0;
#X connect 12 0 11 0;
#X connect 13 0 9 0;
#X connect 14 0 15 0;
#X connect 15 0 10 0;
#X restore 152 200 pd makeChord~;
#X msg 290 368 G;
#X text 253 370 bass;
#X text 104 369 chord;
#X connect 1 0 21 0;
#X connect 2 0 0 0;
#X connect 2 0 0 1;
#X connect 3 0 17 0;
#X connect 4 0 5 0;
#X connect 5 0 2 0;
#X connect 7 0 6 0;
#X connect 8 0 9 0;
#X connect 8 1 22 0;
#X connect 10 0 21 0;
#X connect 11 0 21 0;
#X connect 12 0 21 0;
#X connect 13 0 21 0;
#X connect 14 0 21 0;
#X connect 15 0 16 0;
#X connect 17 0 4 0;
#X connect 18 0 21 0;
#X connect 19 0 21 0;
#X connect 20 0 8 0;
#X connect 21 0 20 0;
#X connect 21 0 2 1;
_______________________________________________
Pd-list@lists.iem.at mailing list
UNSUBSCRIBE and account-management ->
https://lists.puredata.info/listinfo/pd-list
