patches/live/cof-test.pd

#N canvas 215 59 798 509 16;
#X declare -path ../lib;
#X msg 342 223 b c#/db d#/eb e f#/gb g#/ab a#/bb b;
#X obj 421 153 notes;
#X obj 342 150 octave;
#X obj 343 183 list-set;
#X msg 618 372 \; pd dsp 1;
#X obj 23 266 list-map;
#X obj 22 338 list-reduce;
#X obj 23 371 notes~;
#X obj 17 443 dac~;
#X text 555 296 harmonic progression;
#X text 571 326 (a sort of counter?);
#X obj 344 111 circle-of-fifths;
#X obj 22 18 declare -path ../lib;
#X obj 68 302 list-ref;
#X obj 330 26 hradio 30 1 0 12 empty empty tone 0 -8 0 10 -262144 -1
-1 5;
#X obj 703 32 tgl 30 0 empty empty major? 0 -7 0 10 -262144 -1 -1 0
1;
#X msg 16 213 0 2 4 6;
#X obj 356 72 hradio 30 1 0 8 empty empty octave 0 -8 0 10 -262144
-1 -1 3;
#X msg 110 217 0 2;
#X msg 12 140 0 1 5;
#X msg 94 170 0 2 4;
#X msg 34 174 2 6;
#X text 585 274 dim and maj chords?;
#X obj 23 404 *~ 0.3;
#X connect 1 0 3 0;
#X connect 2 0 1 0;
#X connect 2 0 13 1;
#X connect 3 0 0 0;
#X connect 5 0 6 0;
#X connect 5 1 13 0;
#X connect 6 0 7 0;
#X connect 7 0 23 0;
#X connect 11 0 2 0;
#X connect 13 0 6 1;
#X connect 14 0 11 0;
#X connect 15 0 11 1;
#X connect 16 0 5 0;
#X connect 17 0 2 1;
#X connect 18 0 5 0;
#X connect 19 0 5 0;
#X connect 20 0 5 0;
#X connect 21 0 5 0;
#X connect 23 0 8 0;
#X connect 23 0 8 1;