path: root/patches/test-harmonizer2.pd

#N canvas 14 34 915 687 12;
#X symbolatom 731 341 18 0 0 2 next_chord - -;
#N canvas 39 349 531 328 readme 0;
#X text 59 31 howto populate the graph: play the chord \, when the
output of [chord] is ok bang the "add" message. bang it each time you
change chord \, it will store the transitions;
#X text 56 120 howto ask for the next chord: play the chord \, bang
the "set" message \, this will set the current chord without adding
it to the graph's memory \, now bang the next 1 message. this chord_graph
will respond with the chord you played most of the times after the
current chord. you can send "next x" where x is from 0 to 1 \, 0 =
max novelty \, 1= min novelty;
#X text 56 259 you can save graph state sending the write message;
#X restore 607 47 pd readme;
#X obj 121 329 harmonizer;
#X msg 44 298 current \$1;
#X msg 158 283 target \$1;
#X obj 44 274 symbol;
#X obj 44 254 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 157 261 symbol;
#X obj 289 261 int 36;
#X obj 355 262 int 60;
#X obj 426 260 int 67;
#X obj 494 259 int 76;
#X obj 566 262 int 84;
#X obj 335 289 pack f f f f f;
#X obj 358 233 t b b b b b;
#X obj 245 347 unpack f f f f f;
#X obj 153 97 symbol;
#X obj 98 43 bng 15 250 50 0 empty empty change_chord 0 -6 0 8 -262144
-1 -1;
#X msg 153 121 set \$1;
#N canvas 0 0 718 428 midi 0;
#X obj 141 253 outlet;
#X obj 271 31 notein;
#X obj 271 66 chord 59;
#X msg 175 149 add \$1;
#X obj 175 121 symbol;
#X obj 176 94 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 248 163 symbol;
#X obj 249 136 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X msg 248 191 set \$1;
#X symbolatom 311 101 25 0 0 0 - - -;
#X connect 1 0 2 0;
#X connect 1 1 2 1;
#X connect 2 2 4 1;
#X connect 2 2 6 1;
#X connect 2 2 9 0;
#X connect 3 0 0 0;
#X connect 4 0 3 0;
#X connect 5 0 4 0;
#X connect 6 0 8 0;
#X connect 7 0 6 0;
#X connect 8 0 0 0;
#X restore 423 135 pd midi;
#N canvas 0 0 466 316 fileIO 0;
#X obj 143 225 outlet;
#X msg 175 135 init 1;
#X msg 115 77 write strani;
#X msg 145 105 read strani;
#X connect 1 0 0 0;
#X connect 2 0 0 0;
#X connect 3 0 0 0;
#X restore 340 134 pd fileIO;
#X obj 100 73 t b b;
#X obj 157 228 t b a;
#X obj 49 348 bang;
#X obj 190 607 dac~;
#X obj 74 111 f 1;
#X msg 59 135 next \$1;
#X obj 63 70 vsl 15 30 0 1 0 0 empty empty empty 0 -8 0 8 -262144 -1
-1 2900 1;
#X floatatom 32 112 5 0 0 0 - - -;
#X obj 178 571 csoundapi~ bay.orc;
#X msg 463 545 event i 10 0 17000 10 30;
#X msg 463 568 event i 30 0 17000 2 30;
#X msg 464 521 event i 25 0 17000 0.98 0.8 20000;
#X obj 466 497 loadbang;
#X msg 171 522 event i 9 0 10 \$1 80 0.5;
#X obj 462 22 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1
;
#X obj 462 41 metro 7000;
#X obj 13 32 r novelty;
#X obj 599 121 int 0;
#X obj 646 120 + 1;
#X obj 600 171 tabread tab-novelty;
#X obj 600 194 s novelty;
#X obj 685 119 table tab-novelty;
#X obj 600 147 % 10;
#X obj 462 63 t b b;
#X msg 463 457 \; tab-novelty 0 1 1 0.8 0.7 0.3 0.5 0.9 0.1 0 0.2;
#X obj 220 96 symbol;
#X msg 220 124 tonality \$1;
#X obj 220 72 bng 15 250 50 0 empty empty change 0 -6 0 8 -262144 -1
-1;
#X obj 19 160 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X symbolatom 305 204 15 0 0 2 tonality - -;
#X text 529 392 this transposes of a + minor 3rd;
#X obj 458 348 loadbang;
#X msg 457 395 3;
#X symbolatom 575 339 18 0 0 2 curr_chord - -;
#X obj 42 218 symbol;
#X obj 42 194 t s b;
#X obj 64 604 outlet~;
#X obj 124 605 outlet~;
#X obj 578 358 outlet;
#X obj 733 360 outlet;
#N canvas 0 0 812 538 prepare_voice 0;
#X obj 48 57 inlet;
#X obj 392 55 inlet;
#X obj 46 422 outlet;
#X obj 52 95 + 0;
#X obj 49 184 mtof;
#X obj 52 129 t f b;
#X obj 50 154 int 60;
#X text 399 138 this adds a 1 chord delay;
#X obj 115 55 inlet;
#X obj 113 420 outlet;
#X obj 119 93 + 0;
#X obj 116 179 mtof;
#X obj 119 127 t f b;
#X obj 117 152 int 60;
#X obj 176 52 inlet;
#X obj 174 417 outlet;
#X obj 180 90 + 0;
#X obj 177 179 mtof;
#X obj 180 124 t f b;
#X obj 178 149 int 60;
#X obj 242 54 inlet;
#X obj 240 419 outlet;
#X obj 246 92 + 0;
#X obj 243 181 mtof;
#X obj 246 126 t f b;
#X obj 244 151 int 60;
#X obj 307 54 inlet;
#X obj 305 419 outlet;
#X obj 311 92 + 0;
#X obj 308 181 mtof;
#X obj 311 126 t f b;
#X obj 309 151 int 60;
#X text 383 38 semitones;
#X obj 47 313 spigot;
#X obj 505 268 loadbang;
#X msg 506 291 1;
#X obj 63 290 r v1;
#X obj 119 313 spigot;
#X obj 180 314 spigot;
#X obj 247 313 spigot;
#X obj 312 313 spigot;
#X obj 135 290 r v2;
#X obj 196 291 r v3;
#X obj 263 291 r v4;
#X obj 328 290 r v5;
#X connect 0 0 3 0;
#X connect 1 0 3 1;
#X connect 1 0 28 1;
#X connect 1 0 22 1;
#X connect 1 0 10 1;
#X connect 1 0 16 1;
#X connect 3 0 5 0;
#X connect 4 0 33 0;
#X connect 5 0 6 1;
#X connect 5 1 6 0;
#X connect 6 0 4 0;
#X connect 8 0 10 0;
#X connect 10 0 12 0;
#X connect 11 0 37 0;
#X connect 12 0 13 1;
#X connect 12 1 13 0;
#X connect 13 0 11 0;
#X connect 14 0 16 0;
#X connect 16 0 18 0;
#X connect 17 0 38 0;
#X connect 18 0 19 1;
#X connect 18 1 19 0;
#X connect 19 0 17 0;
#X connect 20 0 22 0;
#X connect 22 0 24 0;
#X connect 23 0 39 0;
#X connect 24 0 25 1;
#X connect 24 1 25 0;
#X connect 25 0 23 0;
#X connect 26 0 28 0;
#X connect 28 0 30 0;
#X connect 29 0 40 0;
#X connect 30 0 31 1;
#X connect 30 1 31 0;
#X connect 31 0 29 0;
#X connect 33 0 2 0;
#X connect 34 0 35 0;
#X connect 35 0 33 1;
#X connect 35 0 37 1;
#X connect 35 0 38 1;
#X connect 35 0 39 1;
#X connect 35 0 40 1;
#X connect 36 0 33 1;
#X connect 37 0 9 0;
#X connect 38 0 15 0;
#X connect 39 0 21 0;
#X connect 40 0 27 0;
#X connect 41 0 37 1;
#X connect 42 0 38 1;
#X connect 43 0 39 1;
#X connect 44 0 40 1;
#X restore 237 387 pd prepare_voice;
#X obj 45 415 tgl 20 0 v1 empty toggle_v1 0 -6 0 8 -262144 -1 -1 1
1;
#X obj 44 446 tgl 20 0 v2 empty toggle_v2 0 -6 0 8 -262144 -1 -1 1
1;
#X obj 43 476 tgl 20 0 v3 empty toggle_v3 0 -6 0 8 -262144 -1 -1 1
1;
#X obj 43 507 tgl 20 0 v4 empty toggle_v4 0 -6 0 8 -262144 -1 -1 1
1;
#X obj 40 537 tgl 20 0 v5 empty toggle_v5 0 -6 0 8 -262144 -1 -1 1
1;
#X obj 7 376 loadbang;
#X msg 8 399 1;
#X obj 83 169 chords_memory strani;
#X connect 2 0 15 0;
#X connect 3 0 2 0;
#X connect 4 0 2 0;
#X connect 5 0 3 0;
#X connect 6 0 5 0;
#X connect 7 0 4 0;
#X connect 8 0 13 0;
#X connect 9 0 13 1;
#X connect 10 0 13 2;
#X connect 11 0 13 3;
#X connect 12 0 13 4;
#X connect 13 0 2 0;
#X connect 14 0 8 0;
#X connect 14 1 9 0;
#X connect 14 2 10 0;
#X connect 14 3 11 0;
#X connect 14 4 12 0;
#X connect 15 0 8 1;
#X connect 15 0 23 0;
#X connect 15 0 61 0;
#X connect 15 1 9 1;
#X connect 15 1 61 1;
#X connect 15 2 10 1;
#X connect 15 2 61 2;
#X connect 15 3 11 1;
#X connect 15 3 61 3;
#X connect 15 4 12 1;
#X connect 15 4 61 4;
#X connect 16 0 18 0;
#X connect 17 0 21 0;
#X connect 18 0 69 0;
#X connect 19 0 69 0;
#X connect 20 0 69 0;
#X connect 21 0 25 0;
#X connect 22 0 14 0;
#X connect 22 1 7 0;
#X connect 23 0 5 0;
#X connect 25 0 26 0;
#X connect 26 0 69 0;
#X connect 27 0 25 1;
#X connect 27 0 28 0;
#X connect 29 0 24 0;
#X connect 29 0 57 0;
#X connect 29 1 24 1;
#X connect 29 1 58 0;
#X connect 30 0 29 0;
#X connect 31 0 29 0;
#X connect 32 0 29 0;
#X connect 33 0 32 0;
#X connect 33 0 30 0;
#X connect 33 0 31 0;
#X connect 33 0 45 0;
#X connect 34 0 29 0;
#X connect 35 0 36 0;
#X connect 36 0 44 0;
#X connect 37 0 27 0;
#X connect 38 0 39 0;
#X connect 38 0 43 0;
#X connect 39 0 38 1;
#X connect 40 0 41 0;
#X connect 43 0 40 0;
#X connect 44 0 21 0;
#X connect 44 1 38 0;
#X connect 46 0 47 0;
#X connect 47 0 69 0;
#X connect 48 0 46 0;
#X connect 49 0 69 0;
#X connect 53 0 61 5;
#X connect 55 0 54 0;
#X connect 55 0 59 0;
#X connect 56 0 55 1;
#X connect 56 1 55 0;
#X connect 61 0 34 0;
#X connect 61 1 34 0;
#X connect 61 2 34 0;
#X connect 61 3 34 0;
#X connect 61 4 34 0;
#X connect 67 0 68 0;
#X connect 68 0 62 0;
#X connect 68 0 63 0;
#X connect 68 0 64 0;
#X connect 68 0 65 0;
#X connect 68 0 66 0;
#X connect 69 0 0 0;
#X connect 69 0 5 1;
#X connect 69 0 22 0;
#X connect 69 0 46 1;
#X connect 69 0 16 0;
#X connect 69 0 56 0;
#X connect 69 0 60 0;
#X connect 69 1 50 0;