patches/lib/harmony/harmonics.pd

#N canvas 0 85 725 568 16;
#X declare -path ../list;
#X obj 220 320 pick;
#X floatatom 306 144 5 0 0 2 mode - -;
#X floatatom 175 131 5 0 0 2 root - -;
#X obj 446 234 * 12;
#X obj 228 364 +;
#X obj 169 475 outlet;
#X obj 53 58 inlet;
#X obj 118 276 %;
#X obj 166 235 list length;
#X obj 344 38 inlet;
#X obj 182 47 inlet;
#X obj 35 277 /;
#X obj 34 324 int;
#X obj 46 366 t b f;
#X obj 45 190 t f f;
#X floatatom 20 230 5 0 0 0 - - -;
#X obj 452 185 +;
#X obj 504 47 inlet;
#X obj 165 412 reduce;
#X obj 46 97 map;
#X obj 195 204 scala;
#X obj 508 121 int;
#X obj 9 12 declare -path ../list;
#X connect 0 0 4 0;
#X connect 1 0 20 1;
#X connect 2 0 20 0;
#X connect 3 0 4 1;
#X connect 4 0 18 1;
#X connect 6 0 19 0;
#X connect 7 0 0 0;
#X connect 8 0 11 1;
#X connect 8 0 7 1;
#X connect 9 0 1 0;
#X connect 10 0 2 0;
#X connect 11 0 12 0;
#X connect 12 0 13 0;
#X connect 13 0 2 0;
#X connect 13 1 16 0;
#X connect 14 0 7 0;
#X connect 14 0 15 0;
#X connect 14 1 11 0;
#X connect 16 0 3 0;
#X connect 17 0 21 0;
#X connect 18 0 5 0;
#X connect 19 0 18 0;
#X connect 19 1 14 0;
#X connect 20 0 0 1;
#X connect 20 0 8 0;
#X connect 21 0 16 1;