number of voices is now settable

svn path=/trunk/externals/frankenstein/; revision=4459

1 files changed, 585 insertions, 575 deletions

diff --git a/test-harmonizer2.pd b/test-harmonizer2.pd
index a3bf592..099e127 100755
--- a/test-harmonizer2.pd
+++ b/test-harmonizer2.pd
@@ -1,575 +1,585 @@
-#N canvas 194 23 939 711 10;
-#X symbolatom 157 205 18 0 0 2 next_chord - -;
-#N canvas 39 349 535 332 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 52 286 current \$1;
-#X msg 158 283 target \$1;
-#X obj 52 262 symbol;
-#X obj 52 242 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 264 329 unpack f f f f f;
-#X obj 127 108 symbol;
-#X obj 98 43 bng 15 250 50 0 empty empty change_chord 0 -6 0 8 -262144
--1 -1;
-#X msg 127 132 set \$1;
-#N canvas 0 22 714 424 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 512 135 pd midi;
-#N canvas 0 22 462 312 fileIO 0;
-#X obj 143 225 outlet;
-#X msg 115 77 write test.graph;
-#X msg 145 105 read test.graph;
-#X msg 175 135 init 1;
-#X connect 1 0 0 0;
-#X connect 2 0 0 0;
-#X connect 3 0 0 0;
-#X restore 429 134 pd fileIO;
-#X obj 100 73 t b b;
-#X obj 157 228 t b a;
-#X obj 63 359 bang;
-#X obj 221 380 mtof;
-#X obj 270 379 mtof;
-#X obj 355 383 mtof;
-#X obj 144 386 print;
-#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 0 1;
-#X floatatom 32 112 5 0 0 0 - - -;
-#X obj 527 400 loadbang;
-#X obj 313 382 mtof;
-#X obj 399 384 mtof;
-#X obj 462 22 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 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 489 365 \; tab-novelty 0 1 1 0.8 0.7 0.3 0.5 0.9 0.1 0 0.2;
-#X obj 203 97 symbol;
-#X msg 203 125 tonality \$1;
-#X obj 203 73 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 obj 307 94 symbol;
-#X obj 307 70 bng 15 250 50 0 empty empty change 0 -6 0 8 -262144 -1
--1;
-#X msg 307 122 modulation \$1;
-#X obj 445 189 print sequence;
-#X msg 235 15 search 9 1 5 0.9;
-#X msg 262 407 i9 0 10 \$1 80 0.5;
-#X msg 502 440 i25 0 17000 0.98 0.8 20000;
-#X msg 500 464 i10 0 17000 10 30;
-#X msg 500 487 i30 0 17000 2 30;
-#X obj 172 422 print;
-#X obj 265 445 s csound;
-#N canvas 0 25 807 561 bay 0;
-#X obj 12 83 loadbang;
-#N canvas 0 22 759 336 ascoltaHits 0;
-#X obj 161 223 outlet;
-#X obj 146 33 r 1-hit;
-#X obj 147 54 bang;
-#X msg 147 83 60;
-#X obj 198 57 bang;
-#X obj 197 36 r 2-hit;
-#X msg 198 86 72;
-#X obj 254 57 bang;
-#X msg 254 86 48;
-#X obj 253 36 r 3-hit;
-#X obj 303 60 bang;
-#X msg 303 89 67;
-#X obj 303 39 r 4-hit;
-#X obj 359 60 bang;
-#X obj 422 60 bang;
-#X obj 422 39 r 6-hit;
-#X obj 359 39 r 5-hit;
-#X msg 359 89 76;
-#X msg 422 89 36;
-#X connect 1 0 2 0;
-#X connect 2 0 3 0;
-#X connect 3 0 0 0;
-#X connect 4 0 6 0;
-#X connect 5 0 4 0;
-#X connect 6 0 0 0;
-#X connect 7 0 8 0;
-#X connect 8 0 0 0;
-#X connect 9 0 7 0;
-#X connect 10 0 11 0;
-#X connect 11 0 0 0;
-#X connect 12 0 10 0;
-#X connect 13 0 17 0;
-#X connect 14 0 18 0;
-#X connect 15 0 14 0;
-#X connect 16 0 13 0;
-#X connect 17 0 0 0;
-#X connect 18 0 0 0;
-#X restore 428 102 pd ascoltaHits;
-#X obj 430 164 mtof;
-#N canvas 0 22 462 312 chords 0;
-#X obj 132 43 inlet;
-#X obj 131 240 outlet;
-#X obj 262 31 loadbang;
-#X obj 260 74 metro 20000;
-#X obj 257 115 int 0;
-#X obj 303 117 + 1;
-#X obj 257 136 % 2;
-#X obj 246 162 select 0 1;
-#X obj 131 214 + 0;
-#X msg 243 182 0;
-#X msg 270 184 7;
-#X msg 260 54 1;
-#X connect 0 0 8 0;
-#X connect 2 0 11 0;
-#X connect 3 0 4 0;
-#X connect 4 0 5 0;
-#X connect 4 0 6 0;
-#X connect 5 0 4 1;
-#X connect 6 0 7 0;
-#X connect 7 0 9 0;
-#X connect 7 1 10 0;
-#X connect 8 0 1 0;
-#X connect 9 0 8 1;
-#X connect 10 0 8 1;
-#X connect 11 0 3 0;
-#X restore 430 131 pd chords;
-#N canvas 0 22 940 672 ascolta-valori 0;
-#X obj 135 554 outlet;
-#X obj 28 146 line;
-#X msg 27 123 \$1 100;
-#X msg 27 175 control amp1 \$1;
-#X obj 146 100 line;
-#X msg 145 77 \$1 100;
-#X obj 144 26 + 1;
-#X obj 143 51 / 2;
-#X obj 265 143 line;
-#X msg 264 119 \$1 100;
-#X obj 382 135 line;
-#X msg 381 112 \$1 100;
-#X obj 380 61 + 1;
-#X obj 379 86 / 2;
-#X msg 264 171 control amp2 \$1;
-#X obj 297 304 line;
-#X msg 296 281 \$1 100;
-#X obj 414 288 line;
-#X msg 413 265 \$1 100;
-#X obj 412 214 + 1;
-#X obj 411 239 / 2;
-#X obj 533 331 line;
-#X msg 532 307 \$1 100;
-#X obj 650 323 line;
-#X msg 649 300 \$1 100;
-#X obj 648 249 + 1;
-#X obj 647 274 / 2;
-#X msg 296 324 control amp3 \$1;
-#X msg 531 359 control amp4 \$1;
-#N canvas 0 22 678 338 graph16 0;
-#X array vol 100 float 3;
-#A 0 0.382146 0.444444 0.527258 0.5757 0.610071 0.636731 0.658514 0.676931
-0.692884 0.706956 0.719544 0.730931 0.741327 0.75089 0.759744 0.767987
-0.775698 0.782941 0.78977 0.796229 0.802357 0.808187 0.813745 0.819055
-0.82414 0.829017 0.833703 0.838212 0.842557 0.84675 0.8508 0.854718
-0.858511 0.862187 0.865754 0.869217 0.872583 0.875856 0.879043 0.882146
-0.885171 0.888121 0.891 0.893811 0.896558 0.899243 0.901869 0.904438
-0.906954 0.909417 0.911831 0.914197 0.916517 0.918792 0.921026 0.923218
-0.925371 0.927485 0.929563 0.931605 0.933613 0.935588 0.937531 0.939443
-0.941324 0.943177 0.945001 0.946797 0.948567 0.950311 0.952031 0.953725
-0.955396 0.957044 0.95867 0.960273 0.961856 0.963418 0.964959 0.966481
-0.967984 0.969468 0.970934 0.972382 0.973813 0.975227 0.976624 0.978006
-0.979371 0.980721 0.982056 0.983376 0.984682 0.985974 0.987252 0.988516
-0.989767 0.991005 0.99223 1.0615;
-#X coords 0 1 99 0 200 140 1;
-#X restore 532 24 graph;
-#X obj 26 101 tabread vol;
-#X obj 28 76 * 100;
-#X obj 265 97 tabread vol;
-#X obj 262 75 * 100;
-#X obj 28 48 clip 0 1;
-#X obj 262 40 clip 0 1;
-#X obj 307 264 tabread vol;
-#X obj 307 242 * 100;
-#X obj 308 222 clip 0 1;
-#X obj 534 284 tabread vol;
-#X obj 534 262 * 100;
-#X obj 535 242 clip 0 1;
-#X msg 149 129 control pos1 \$1;
-#X msg 385 164 control pos2 \$1;
-#X msg 417 317 control pos3 \$1;
-#X msg 653 352 control pos4 \$1;
-#X obj 434 493 line;
-#X msg 433 469 \$1 100;
-#X obj 551 485 line;
-#X msg 550 462 \$1 100;
-#X obj 549 411 + 1;
-#X obj 548 436 / 2;
-#X obj 435 446 tabread vol;
-#X obj 435 424 * 100;
-#X obj 436 404 clip 0 1;
-#X msg 432 521 control amp5 \$1;
-#X msg 553 514 control pos5 \$1;
-#X obj 28 13 r 1-velo;
-#X obj 145 6 r 1-x;
-#X obj 264 17 r 2-velo;
-#X obj 296 202 r 3-velo;
-#X obj 412 194 r 3-x;
-#X obj 528 216 r 4-velo;
-#X obj 649 229 r 4-x;
-#X obj 429 378 r 5-velo;
-#X obj 550 391 r 5-x;
-#X obj 382 40 r 2-x;
-#X obj 839 58 + 1;
-#X obj 761 97 log;
-#X obj 803 59 int 1;
-#X obj 759 119 / 4.65;
-#X obj 807 83 t f f;
-#X obj 785 33 metro 10;
-#X obj 785 14 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
-;
-#X obj 763 183 tabwrite vol;
-#X msg 848 32 1;
-#X obj 758 141 + 0.8;
-#X obj 757 160 / 1.8;
-#X connect 1 0 3 0;
-#X connect 2 0 1 0;
-#X connect 3 0 0 0;
-#X connect 4 0 42 0;
-#X connect 5 0 4 0;
-#X connect 6 0 7 0;
-#X connect 7 0 5 0;
-#X connect 8 0 14 0;
-#X connect 9 0 8 0;
-#X connect 10 0 43 0;
-#X connect 11 0 10 0;
-#X connect 12 0 13 0;
-#X connect 13 0 11 0;
-#X connect 14 0 0 0;
-#X connect 15 0 27 0;
-#X connect 16 0 15 0;
-#X connect 17 0 44 0;
-#X connect 18 0 17 0;
-#X connect 19 0 20 0;
-#X connect 20 0 18 0;
-#X connect 21 0 28 0;
-#X connect 22 0 21 0;
-#X connect 23 0 45 0;
-#X connect 24 0 23 0;
-#X connect 25 0 26 0;
-#X connect 26 0 24 0;
-#X connect 27 0 0 0;
-#X connect 28 0 0 0;
-#X connect 30 0 2 0;
-#X connect 31 0 30 0;
-#X connect 32 0 9 0;
-#X connect 33 0 32 0;
-#X connect 34 0 31 0;
-#X connect 35 0 33 0;
-#X connect 36 0 16 0;
-#X connect 37 0 36 0;
-#X connect 38 0 37 0;
-#X connect 39 0 22 0;
-#X connect 40 0 39 0;
-#X connect 41 0 40 0;
-#X connect 42 0 0 0;
-#X connect 43 0 0 0;
-#X connect 44 0 0 0;
-#X connect 45 0 0 0;
-#X connect 46 0 55 0;
-#X connect 47 0 46 0;
-#X connect 48 0 56 0;
-#X connect 49 0 48 0;
-#X connect 50 0 51 0;
-#X connect 51 0 49 0;
-#X connect 52 0 47 0;
-#X connect 53 0 52 0;
-#X connect 54 0 53 0;
-#X connect 55 0 0 0;
-#X connect 56 0 0 0;
-#X connect 57 0 34 0;
-#X connect 58 0 6 0;
-#X connect 59 0 35 0;
-#X connect 60 0 38 0;
-#X connect 61 0 19 0;
-#X connect 62 0 41 0;
-#X connect 63 0 25 0;
-#X connect 64 0 54 0;
-#X connect 65 0 50 0;
-#X connect 66 0 12 0;
-#X connect 67 0 69 1;
-#X connect 68 0 70 0;
-#X connect 69 0 67 0;
-#X connect 69 0 71 0;
-#X connect 70 0 76 0;
-#X connect 71 0 68 0;
-#X connect 71 1 74 1;
-#X connect 72 0 69 0;
-#X connect 73 0 72 0;
-#X connect 75 0 69 0;
-#X connect 76 0 77 0;
-#X connect 77 0 74 0;
-#X restore 592 84 pd ascolta-valori;
-#X obj 567 118 bay --------;
-#X obj 367 279 catch~ mainL;
-#X obj 491 281 catch~ mainR;
-#X obj 376 318 *~ 0.01;
-#X obj 467 319 *~ 0.01;
-#X obj 701 211 vsl 15 128 0 0.8 0 0 empty empty empty 0 -8 0 8 -262144
--1 -1 317 1;
-#X floatatom 700 346 5 0 0 0 - - -;
-#X obj 750 195 loadbang;
-#X msg 750 216 0.02;
-#X obj 265 365 csound~ 2 2;
-#X obj 332 137 r csound;
-#X msg 156 24 i9 0 8 400 90 0.3;
-#X msg 23 159 i30 0 17000 2 30;
-#X msg 23 136 i10 0 17000 10 30;
-#X msg 24 112 i25 0 17000 0.98 0.8 20000;
-#X msg 1 182 bang \; csound bin /usr/local/bin/csound \; csound orc
-bay.orc \; csound sco bay.sco \; csound csound -dm0 \; csound bang
-\; pd dsp 1;
-#X msg 267 58 i9 0 8 450 90 0.3;
-#X msg 293 20 i9 0 8 500 90 0.3;
-#X obj 255 392 /~ 32767;
-#X obj 324 391 /~ 32767;
-#N canvas 77 25 718 506 note---- 0;
-#X obj 95 284 outlet;
-#X obj 95 222 mtof;
-#X obj 202 211 mtof;
-#X obj 309 220 mtof;
-#X obj 412 221 mtof;
-#X obj 120 133 inlet;
-#X obj 195 140 inlet;
-#X obj 310 163 inlet;
-#X obj 414 170 inlet;
-#X obj 533 224 mtof;
-#X obj 535 173 inlet;
-#X obj 204 283 outlet;
-#X obj 303 284 outlet;
-#X obj 408 280 outlet;
-#X obj 539 274 outlet;
-#X connect 1 0 0 0;
-#X connect 2 0 11 0;
-#X connect 3 0 12 0;
-#X connect 4 0 13 0;
-#X connect 5 0 1 0;
-#X connect 6 0 2 0;
-#X connect 7 0 3 0;
-#X connect 8 0 4 0;
-#X connect 9 0 14 0;
-#X connect 10 0 9 0;
-#X restore 567 142 pd note----;
-#X obj 324 411 /~ 1.5;
-#X obj 255 412 /~ 1.5;
-#X obj 235 450 outlet~;
-#X obj 328 446 outlet~;
-#X msg 404 197 i9 0 14 \$1 90 0.3;
-#X obj 408 242 inlet~;
-#X obj 479 243 inlet~;
-#X connect 0 0 20 0;
-#X connect 0 0 17 0;
-#X connect 0 0 18 0;
-#X connect 0 0 19 0;
-#X connect 1 0 3 0;
-#X connect 2 0 30 0;
-#X connect 3 0 2 0;
-#X connect 5 0 25 0;
-#X connect 5 1 25 1;
-#X connect 5 2 25 2;
-#X connect 5 3 25 3;
-#X connect 5 4 25 4;
-#X connect 6 0 8 0;
-#X connect 7 0 9 0;
-#X connect 8 0 14 0;
-#X connect 9 0 14 1;
-#X connect 10 0 9 1;
-#X connect 10 0 8 1;
-#X connect 10 0 11 0;
-#X connect 12 0 13 0;
-#X connect 13 0 10 0;
-#X connect 14 0 23 0;
-#X connect 14 1 24 0;
-#X connect 15 0 14 0;
-#X connect 16 0 14 0;
-#X connect 17 0 14 0;
-#X connect 18 0 14 0;
-#X connect 19 0 14 0;
-#X connect 21 0 14 0;
-#X connect 22 0 14 0;
-#X connect 23 0 27 0;
-#X connect 24 0 26 0;
-#X connect 25 0 30 0;
-#X connect 25 1 30 0;
-#X connect 25 2 30 0;
-#X connect 25 3 30 0;
-#X connect 25 4 30 0;
-#X connect 26 0 29 0;
-#X connect 27 0 28 0;
-#X connect 30 0 14 0;
-#X connect 31 0 8 0;
-#X connect 32 0 9 0;
-#X restore 195 544 pd bay;
-#X obj 242 683 dac~;
-#X obj 194 629 +~;
-#X obj 294 632 +~;
-#X obj 151 527 vsl 15 128 0.01 1 1 0 empty empty empty 0 -8 0 8 -262144
--1 -1 8262 1;
-#X obj 186 599 *~ 0.5;
-#X obj 238 600 *~ 0.5;
-#X obj 87 563 loadbang;
-#X floatatom 149 660 5 0 0 0 - - -;
-#X obj 380 526 vsl 15 128 0.1 3 0 0 empty empty empty 0 -8 0 8 -262144
--1 -1 8321 1;
-#X floatatom 378 659 5 0 0 0 - - -;
-#X obj 217 653 *~ 1;
-#X obj 269 654 *~ 1;
-#X obj 311 574 loadbang;
-#X text 67 620 volume bay;
-#X msg 313 597 2;
-#X msg 104 594 0.2;
-#X obj 83 169 chords_memory test.graph;
-#X connect 2 0 15 0;
-#X connect 2 0 27 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 24 0;
-#X connect 15 1 9 1;
-#X connect 15 1 25 0;
-#X connect 15 2 10 1;
-#X connect 15 2 33 0;
-#X connect 15 3 11 1;
-#X connect 15 3 26 0;
-#X connect 15 4 12 1;
-#X connect 15 4 34 0;
-#X connect 16 0 18 0;
-#X connect 17 0 21 0;
-#X connect 18 0 79 0;
-#X connect 19 0 79 0;
-#X connect 20 0 79 0;
-#X connect 21 0 28 0;
-#X connect 22 0 14 0;
-#X connect 22 1 7 0;
-#X connect 23 0 5 0;
-#X connect 24 0 56 0;
-#X connect 25 0 56 0;
-#X connect 26 0 56 0;
-#X connect 28 0 29 0;
-#X connect 29 0 79 0;
-#X connect 30 0 28 1;
-#X connect 30 0 31 0;
-#X connect 32 0 57 0;
-#X connect 32 0 58 0;
-#X connect 32 0 59 0;
-#X connect 32 0 45 0;
-#X connect 33 0 56 0;
-#X connect 34 0 56 0;
-#X connect 35 0 36 0;
-#X connect 36 0 44 0;
-#X connect 37 0 30 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 79 0;
-#X connect 48 0 46 0;
-#X connect 49 0 79 0;
-#X connect 51 0 53 0;
-#X connect 52 0 51 0;
-#X connect 53 0 79 0;
-#X connect 55 0 79 0;
-#X connect 56 0 61 0;
-#X connect 56 0 60 0;
-#X connect 57 0 61 0;
-#X connect 58 0 61 0;
-#X connect 59 0 61 0;
-#X connect 62 0 67 0;
-#X connect 62 1 68 0;
-#X connect 64 0 73 0;
-#X connect 65 0 74 0;
-#X connect 66 0 67 1;
-#X connect 66 0 68 1;
-#X connect 66 0 70 0;
-#X connect 67 0 64 0;
-#X connect 68 0 65 0;
-#X connect 69 0 78 0;
-#X connect 71 0 72 0;
-#X connect 71 0 73 1;
-#X connect 71 0 74 1;
-#X connect 73 0 63 0;
-#X connect 74 0 63 1;
-#X connect 75 0 77 0;
-#X connect 77 0 71 0;
-#X connect 78 0 66 0;
-#X connect 79 0 0 0;
-#X connect 79 0 5 1;
-#X connect 79 0 22 0;
-#X connect 79 0 46 1;
-#X connect 79 0 16 0;
-#X connect 79 0 51 1;
-#X connect 79 1 50 0;
-#X connect 79 2 54 0;
+#N canvas 194 23 947 709 10;

+#X symbolatom 157 205 18 0 0 2 next_chord - -;

+#N canvas 39 349 535 332 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 msg 52 286 current \$1;

+#X msg 158 283 target \$1;

+#X obj 52 262 symbol;

+#X obj 52 242 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 264 329 unpack f f f f f;

+#X obj 127 108 symbol;

+#X obj 98 43 bng 15 250 50 0 empty empty change_chord 0 -6 0 8 -262144

+-1 -1;

+#X msg 127 132 set \$1;

+#N canvas 0 22 714 424 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 512 135 pd midi;

+#N canvas 0 22 462 312 fileIO 0;

+#X obj 143 225 outlet;

+#X msg 115 77 write test.graph;

+#X msg 145 105 read test.graph;

+#X msg 175 135 init 1;

+#X connect 1 0 0 0;

+#X connect 2 0 0 0;

+#X connect 3 0 0 0;

+#X restore 429 134 pd fileIO;

+#X obj 100 73 t b b;

+#X obj 157 228 t b a;

+#X obj 63 359 bang;

+#X obj 221 380 mtof;

+#X obj 270 379 mtof;

+#X obj 355 383 mtof;

+#X obj 67 504 print;

+#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 0 1;

+#X floatatom 32 112 5 0 0 0 - - -;

+#X obj 527 400 loadbang;

+#X obj 313 382 mtof;

+#X obj 399 384 mtof;

+#X obj 462 22 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 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 489 365 \; tab-novelty 0 1 1 0.8 0.7 0.3 0.5 0.9 0.1 0 0.2;

+#X obj 203 97 symbol;

+#X msg 203 125 tonality \$1;

+#X obj 203 73 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 obj 307 94 symbol;

+#X obj 307 70 bng 15 250 50 0 empty empty change 0 -6 0 8 -262144 -1

+-1;

+#X msg 307 122 modulation \$1;

+#X obj 445 189 print sequence;

+#X msg 235 15 search 9 1 5 0.9;

+#X msg 262 407 i9 0 10 \$1 80 0.5;

+#X msg 502 440 i25 0 17000 0.98 0.8 20000;

+#X msg 500 464 i10 0 17000 10 30;

+#X msg 500 487 i30 0 17000 2 30;

+#X obj 172 422 print;

+#X obj 265 445 s csound;

+#N canvas 0 25 807 561 bay 0;

+#X obj 12 83 loadbang;

+#N canvas 0 22 759 336 ascoltaHits 0;

+#X obj 161 223 outlet;

+#X obj 146 33 r 1-hit;

+#X obj 147 54 bang;

+#X msg 147 83 60;

+#X obj 198 57 bang;

+#X obj 197 36 r 2-hit;

+#X msg 198 86 72;

+#X obj 254 57 bang;

+#X msg 254 86 48;

+#X obj 253 36 r 3-hit;

+#X obj 303 60 bang;

+#X msg 303 89 67;

+#X obj 303 39 r 4-hit;

+#X obj 359 60 bang;

+#X obj 422 60 bang;

+#X obj 422 39 r 6-hit;

+#X obj 359 39 r 5-hit;

+#X msg 359 89 76;

+#X msg 422 89 36;

+#X connect 1 0 2 0;

+#X connect 2 0 3 0;

+#X connect 3 0 0 0;

+#X connect 4 0 6 0;

+#X connect 5 0 4 0;

+#X connect 6 0 0 0;

+#X connect 7 0 8 0;

+#X connect 8 0 0 0;

+#X connect 9 0 7 0;

+#X connect 10 0 11 0;

+#X connect 11 0 0 0;

+#X connect 12 0 10 0;

+#X connect 13 0 17 0;

+#X connect 14 0 18 0;

+#X connect 15 0 14 0;

+#X connect 16 0 13 0;

+#X connect 17 0 0 0;

+#X connect 18 0 0 0;

+#X restore 428 102 pd ascoltaHits;

+#X obj 430 164 mtof;

+#N canvas 0 22 462 312 chords 0;

+#X obj 132 43 inlet;

+#X obj 131 240 outlet;

+#X obj 262 31 loadbang;

+#X obj 260 74 metro 20000;

+#X obj 257 115 int 0;

+#X obj 303 117 + 1;

+#X obj 257 136 % 2;

+#X obj 246 162 select 0 1;

+#X obj 131 214 + 0;

+#X msg 243 182 0;

+#X msg 270 184 7;

+#X msg 260 54 1;

+#X connect 0 0 8 0;

+#X connect 2 0 11 0;

+#X connect 3 0 4 0;

+#X connect 4 0 5 0;

+#X connect 4 0 6 0;

+#X connect 5 0 4 1;

+#X connect 6 0 7 0;

+#X connect 7 0 9 0;

+#X connect 7 1 10 0;

+#X connect 8 0 1 0;

+#X connect 9 0 8 1;

+#X connect 10 0 8 1;

+#X connect 11 0 3 0;

+#X restore 430 131 pd chords;

+#N canvas 0 22 940 672 ascolta-valori 0;

+#X obj 135 554 outlet;

+#X obj 28 146 line;

+#X msg 27 123 \$1 100;

+#X msg 27 175 control amp1 \$1;

+#X obj 146 100 line;

+#X msg 145 77 \$1 100;

+#X obj 144 26 + 1;

+#X obj 143 51 / 2;

+#X obj 265 143 line;

+#X msg 264 119 \$1 100;

+#X obj 382 135 line;

+#X msg 381 112 \$1 100;

+#X obj 380 61 + 1;

+#X obj 379 86 / 2;

+#X msg 264 171 control amp2 \$1;

+#X obj 297 304 line;

+#X msg 296 281 \$1 100;

+#X obj 414 288 line;

+#X msg 413 265 \$1 100;

+#X obj 412 214 + 1;

+#X obj 411 239 / 2;

+#X obj 533 331 line;

+#X msg 532 307 \$1 100;

+#X obj 650 323 line;

+#X msg 649 300 \$1 100;

+#X obj 648 249 + 1;

+#X obj 647 274 / 2;

+#X msg 296 324 control amp3 \$1;

+#X msg 531 359 control amp4 \$1;

+#N canvas 0 22 678 338 graph16 0;

+#X array vol 100 float 3;

+#A 0 0.382146 0.444444 0.527258 0.5757 0.610071 0.636731 0.658514 0.676931

+0.692884 0.706956 0.719544 0.730931 0.741327 0.75089 0.759744 0.767987

+0.775698 0.782941 0.78977 0.796229 0.802357 0.808187 0.813745 0.819055

+0.82414 0.829017 0.833703 0.838212 0.842557 0.84675 0.8508 0.854718

+0.858511 0.862187 0.865754 0.869217 0.872583 0.875856 0.879043 0.882146

+0.885171 0.888121 0.891 0.893811 0.896558 0.899243 0.901869 0.904438

+0.906954 0.909417 0.911831 0.914197 0.916517 0.918792 0.921026 0.923218

+0.925371 0.927485 0.929563 0.931605 0.933613 0.935588 0.937531 0.939443

+0.941324 0.943177 0.945001 0.946797 0.948567 0.950311 0.952031 0.953725

+0.955396 0.957044 0.95867 0.960273 0.961856 0.963418 0.964959 0.966481

+0.967984 0.969468 0.970934 0.972382 0.973813 0.975227 0.976624 0.978006

+0.979371 0.980721 0.982056 0.983376 0.984682 0.985974 0.987252 0.988516

+0.989767 0.991005 0.99223 1.0615;

+#X coords 0 1 99 0 200 140 1;

+#X restore 532 24 graph;

+#X obj 26 101 tabread vol;

+#X obj 28 76 * 100;

+#X obj 265 97 tabread vol;

+#X obj 262 75 * 100;

+#X obj 28 48 clip 0 1;

+#X obj 262 40 clip 0 1;

+#X obj 307 264 tabread vol;

+#X obj 307 242 * 100;

+#X obj 308 222 clip 0 1;

+#X obj 534 284 tabread vol;

+#X obj 534 262 * 100;

+#X obj 535 242 clip 0 1;

+#X msg 149 129 control pos1 \$1;

+#X msg 385 164 control pos2 \$1;

+#X msg 417 317 control pos3 \$1;

+#X msg 653 352 control pos4 \$1;

+#X obj 434 493 line;

+#X msg 433 469 \$1 100;

+#X obj 551 485 line;

+#X msg 550 462 \$1 100;

+#X obj 549 411 + 1;

+#X obj 548 436 / 2;

+#X obj 435 446 tabread vol;

+#X obj 435 424 * 100;

+#X obj 436 404 clip 0 1;

+#X msg 432 521 control amp5 \$1;

+#X msg 553 514 control pos5 \$1;

+#X obj 28 13 r 1-velo;

+#X obj 145 6 r 1-x;

+#X obj 264 17 r 2-velo;

+#X obj 296 202 r 3-velo;

+#X obj 412 194 r 3-x;

+#X obj 528 216 r 4-velo;

+#X obj 649 229 r 4-x;

+#X obj 429 378 r 5-velo;

+#X obj 550 391 r 5-x;

+#X obj 382 40 r 2-x;

+#X obj 839 58 + 1;

+#X obj 761 97 log;

+#X obj 803 59 int 1;

+#X obj 759 119 / 4.65;

+#X obj 807 83 t f f;

+#X obj 785 33 metro 10;

+#X obj 785 14 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1

+;

+#X obj 763 183 tabwrite vol;

+#X msg 848 32 1;

+#X obj 758 141 + 0.8;

+#X obj 757 160 / 1.8;

+#X connect 1 0 3 0;

+#X connect 2 0 1 0;

+#X connect 3 0 0 0;

+#X connect 4 0 42 0;

+#X connect 5 0 4 0;

+#X connect 6 0 7 0;

+#X connect 7 0 5 0;

+#X connect 8 0 14 0;

+#X connect 9 0 8 0;

+#X connect 10 0 43 0;

+#X connect 11 0 10 0;

+#X connect 12 0 13 0;

+#X connect 13 0 11 0;

+#X connect 14 0 0 0;

+#X connect 15 0 27 0;

+#X connect 16 0 15 0;

+#X connect 17 0 44 0;

+#X connect 18 0 17 0;

+#X connect 19 0 20 0;

+#X connect 20 0 18 0;

+#X connect 21 0 28 0;

+#X connect 22 0 21 0;

+#X connect 23 0 45 0;

+#X connect 24 0 23 0;

+#X connect 25 0 26 0;

+#X connect 26 0 24 0;

+#X connect 27 0 0 0;

+#X connect 28 0 0 0;

+#X connect 30 0 2 0;

+#X connect 31 0 30 0;

+#X connect 32 0 9 0;

+#X connect 33 0 32 0;

+#X connect 34 0 31 0;

+#X connect 35 0 33 0;

+#X connect 36 0 16 0;

+#X connect 37 0 36 0;

+#X connect 38 0 37 0;

+#X connect 39 0 22 0;

+#X connect 40 0 39 0;

+#X connect 41 0 40 0;

+#X connect 42 0 0 0;

+#X connect 43 0 0 0;

+#X connect 44 0 0 0;

+#X connect 45 0 0 0;

+#X connect 46 0 55 0;

+#X connect 47 0 46 0;

+#X connect 48 0 56 0;

+#X connect 49 0 48 0;

+#X connect 50 0 51 0;

+#X connect 51 0 49 0;

+#X connect 52 0 47 0;

+#X connect 53 0 52 0;

+#X connect 54 0 53 0;

+#X connect 55 0 0 0;

+#X connect 56 0 0 0;

+#X connect 57 0 34 0;

+#X connect 58 0 6 0;

+#X connect 59 0 35 0;

+#X connect 60 0 38 0;

+#X connect 61 0 19 0;

+#X connect 62 0 41 0;

+#X connect 63 0 25 0;

+#X connect 64 0 54 0;

+#X connect 65 0 50 0;

+#X connect 66 0 12 0;

+#X connect 67 0 69 1;

+#X connect 68 0 70 0;

+#X connect 69 0 67 0;

+#X connect 69 0 71 0;

+#X connect 70 0 76 0;

+#X connect 71 0 68 0;

+#X connect 71 1 74 1;

+#X connect 72 0 69 0;

+#X connect 73 0 72 0;

+#X connect 75 0 69 0;

+#X connect 76 0 77 0;

+#X connect 77 0 74 0;

+#X restore 592 84 pd ascolta-valori;

+#X obj 567 118 bay --------;

+#X obj 367 279 catch~ mainL;

+#X obj 491 281 catch~ mainR;

+#X obj 376 318 *~ 0.01;

+#X obj 467 319 *~ 0.01;

+#X obj 701 211 vsl 15 128 0 0.8 0 0 empty empty empty 0 -8 0 8 -262144

+-1 -1 317 1;

+#X floatatom 700 346 5 0 0 0 - - -;

+#X obj 750 195 loadbang;

+#X msg 750 216 0.02;

+#X obj 265 365 csound~ 2 2;

+#X obj 332 137 r csound;

+#X msg 156 24 i9 0 8 400 90 0.3;

+#X msg 23 159 i30 0 17000 2 30;

+#X msg 23 136 i10 0 17000 10 30;

+#X msg 24 112 i25 0 17000 0.98 0.8 20000;

+#X msg 1 182 bang \; csound bin /usr/local/bin/csound \; csound orc

+bay.orc \; csound sco bay.sco \; csound csound -dm0 \; csound bang

+\; pd dsp 1;

+#X msg 267 58 i9 0 8 450 90 0.3;

+#X msg 293 20 i9 0 8 500 90 0.3;

+#X obj 255 392 /~ 32767;

+#X obj 324 391 /~ 32767;

+#N canvas 77 25 718 506 note---- 0;

+#X obj 95 284 outlet;

+#X obj 95 222 mtof;

+#X obj 202 211 mtof;

+#X obj 309 220 mtof;

+#X obj 412 221 mtof;

+#X obj 120 133 inlet;

+#X obj 195 140 inlet;

+#X obj 310 163 inlet;

+#X obj 414 170 inlet;

+#X obj 533 224 mtof;

+#X obj 535 173 inlet;

+#X obj 204 283 outlet;

+#X obj 303 284 outlet;

+#X obj 408 280 outlet;

+#X obj 539 274 outlet;

+#X connect 1 0 0 0;

+#X connect 2 0 11 0;

+#X connect 3 0 12 0;

+#X connect 4 0 13 0;

+#X connect 5 0 1 0;

+#X connect 6 0 2 0;

+#X connect 7 0 3 0;

+#X connect 8 0 4 0;

+#X connect 9 0 14 0;

+#X connect 10 0 9 0;

+#X restore 567 142 pd note----;

+#X obj 324 411 /~ 1.5;

+#X obj 255 412 /~ 1.5;

+#X obj 235 450 outlet~;

+#X obj 328 446 outlet~;

+#X msg 404 197 i9 0 14 \$1 90 0.3;

+#X obj 408 242 inlet~;

+#X obj 479 243 inlet~;

+#X connect 0 0 20 0;

+#X connect 0 0 17 0;

+#X connect 0 0 18 0;

+#X connect 0 0 19 0;

+#X connect 1 0 3 0;

+#X connect 2 0 30 0;

+#X connect 3 0 2 0;

+#X connect 5 0 25 0;

+#X connect 5 1 25 1;

+#X connect 5 2 25 2;

+#X connect 5 3 25 3;

+#X connect 5 4 25 4;

+#X connect 6 0 8 0;

+#X connect 7 0 9 0;

+#X connect 8 0 14 0;

+#X connect 9 0 14 1;

+#X connect 10 0 9 1;

+#X connect 10 0 8 1;

+#X connect 10 0 11 0;

+#X connect 12 0 13 0;

+#X connect 13 0 10 0;

+#X connect 14 0 23 0;

+#X connect 14 1 24 0;

+#X connect 15 0 14 0;

+#X connect 16 0 14 0;

+#X connect 17 0 14 0;

+#X connect 18 0 14 0;

+#X connect 19 0 14 0;

+#X connect 21 0 14 0;

+#X connect 22 0 14 0;

+#X connect 23 0 27 0;

+#X connect 24 0 26 0;

+#X connect 25 0 30 0;

+#X connect 25 1 30 0;

+#X connect 25 2 30 0;

+#X connect 25 3 30 0;

+#X connect 25 4 30 0;

+#X connect 26 0 29 0;

+#X connect 27 0 28 0;

+#X connect 30 0 14 0;

+#X connect 31 0 8 0;

+#X connect 32 0 9 0;

+#X restore 195 544 pd bay;

+#X obj 242 683 dac~;

+#X obj 194 629 +~;

+#X obj 294 632 +~;

+#X obj 151 527 vsl 15 128 0.01 1 1 0 empty empty empty 0 -8 0 8 -262144

+-1 -1 8262 1;

+#X obj 186 599 *~ 0.5;

+#X obj 238 600 *~ 0.5;

+#X obj 87 563 loadbang;

+#X floatatom 149 660 5 0 0 0 - - -;

+#X obj 380 526 vsl 15 128 0.1 3 0 0 empty empty empty 0 -8 0 8 -262144

+-1 -1 8321 1;

+#X floatatom 378 659 5 0 0 0 - - -;

+#X obj 217 653 *~ 1;

+#X obj 269 654 *~ 1;

+#X obj 311 574 loadbang;

+#X text 67 620 volume bay;

+#X msg 313 597 2;

+#X msg 104 594 0.2;

+#X obj 83 169 chords_memory test.graph;

+#X obj 91 411 print;

+#X msg 23 420 voices \$1;

+#X floatatom 23 399 5 0 0 0 - - -;

+#X obj 88 478 voicing_analyzer 4;

+#X obj 121 330 harmonizer 4;

+#X msg 64 443 help;

+#X connect 2 0 83 0;

+#X connect 3 0 83 0;

+#X connect 4 0 2 0;

+#X connect 5 0 4 0;

+#X connect 6 0 3 0;

+#X connect 7 0 12 0;

+#X connect 8 0 12 1;

+#X connect 9 0 12 2;

+#X connect 10 0 12 3;

+#X connect 11 0 12 4;

+#X connect 12 0 83 0;

+#X connect 13 0 7 0;

+#X connect 13 1 8 0;

+#X connect 13 2 9 0;

+#X connect 13 3 10 0;

+#X connect 13 4 11 0;

+#X connect 14 0 7 1;

+#X connect 14 0 22 0;

+#X connect 14 0 23 0;

+#X connect 14 1 8 1;

+#X connect 14 1 24 0;

+#X connect 14 2 9 1;

+#X connect 14 2 32 0;

+#X connect 14 3 10 1;

+#X connect 14 3 25 0;

+#X connect 14 4 11 1;

+#X connect 14 4 33 0;

+#X connect 15 0 17 0;

+#X connect 16 0 20 0;

+#X connect 17 0 78 0;

+#X connect 18 0 78 0;

+#X connect 19 0 78 0;

+#X connect 20 0 27 0;

+#X connect 21 0 13 0;

+#X connect 21 1 6 0;

+#X connect 22 0 4 0;

+#X connect 23 0 55 0;

+#X connect 24 0 55 0;

+#X connect 25 0 55 0;

+#X connect 27 0 28 0;

+#X connect 28 0 78 0;

+#X connect 29 0 27 1;

+#X connect 29 0 30 0;

+#X connect 31 0 56 0;

+#X connect 31 0 57 0;

+#X connect 31 0 58 0;

+#X connect 31 0 44 0;

+#X connect 32 0 55 0;

+#X connect 33 0 55 0;

+#X connect 34 0 35 0;

+#X connect 35 0 43 0;

+#X connect 36 0 29 0;

+#X connect 37 0 38 0;

+#X connect 37 0 42 0;

+#X connect 38 0 37 1;

+#X connect 39 0 40 0;

+#X connect 42 0 39 0;

+#X connect 43 0 20 0;

+#X connect 43 1 37 0;

+#X connect 45 0 46 0;

+#X connect 46 0 78 0;

+#X connect 47 0 45 0;

+#X connect 48 0 78 0;

+#X connect 50 0 52 0;

+#X connect 51 0 50 0;

+#X connect 52 0 78 0;

+#X connect 54 0 78 0;

+#X connect 55 0 60 0;

+#X connect 55 0 59 0;

+#X connect 56 0 60 0;

+#X connect 57 0 60 0;

+#X connect 58 0 60 0;

+#X connect 61 0 66 0;

+#X connect 61 1 67 0;

+#X connect 63 0 72 0;

+#X connect 64 0 73 0;

+#X connect 65 0 66 1;

+#X connect 65 0 67 1;

+#X connect 65 0 69 0;

+#X connect 66 0 63 0;

+#X connect 67 0 64 0;

+#X connect 68 0 77 0;

+#X connect 70 0 71 0;

+#X connect 70 0 72 1;

+#X connect 70 0 73 1;

+#X connect 72 0 62 0;

+#X connect 73 0 62 1;

+#X connect 74 0 76 0;

+#X connect 76 0 70 0;

+#X connect 77 0 65 0;

+#X connect 78 0 0 0;

+#X connect 78 0 4 1;

+#X connect 78 0 21 0;

+#X connect 78 0 45 1;

+#X connect 78 0 15 0;

+#X connect 78 0 50 1;

+#X connect 78 1 49 0;

+#X connect 78 2 53 0;

+#X connect 80 0 83 0;

+#X connect 81 0 80 0;

+#X connect 82 0 26 0;

+#X connect 83 0 14 0;

+#X connect 83 0 79 0;

+#X connect 83 0 82 0;

+#X connect 84 0 82 0;