chord-unique.pd

#N canvas 272 114 503 636 10;
#X text 15 64 invert order to replace higher repetitions with lower
notes;
#X obj -8 11 inlet;
#X obj 11 230 list length;
#X obj -8 35 t l l b;
#X obj -21 222 + 1;
#X msg 31 97 1;
#X obj -51 222 f 1;
#X obj -51 251 ==;
#X obj -51 275 sel 1;
#X obj -38 64 sort -1;
#X obj -38 107 t b f f;
#X obj 22 208 tabwrite \$0-chord;
#X obj 121 161 mod 12;
#X obj -51 353 until;
#X msg -51 319 12;
#X obj -4 383 + 1;
#X obj -51 297 t b b;
#X obj -4 433 tabread \$0-chord;
#X obj -31 408 t f f;
#X obj 2 529 list;
#X obj 169 185 s \$0-chord;
#X msg 169 161 const 0;
#X obj 2 552 sort;
#X obj 2 575 outlet;
#X obj 23 500 add2list prepend;
#X obj 131 207 table \$0-chord 13;
#X obj -31 500 sel 11;
#X obj -4 457 sel 0;
#X obj 22 183 + 1;
#X msg -16 322 0;
#X obj -31 382 f 0;
#X obj 23 479 - 1;
#X obj -38 85 list-dripv;
#X connect 1 0 3 0;
#X connect 2 0 7 1;
#X connect 3 0 9 0;
#X connect 3 1 2 0;
#X connect 3 2 5 0;
#X connect 3 2 21 0;
#X connect 3 2 24 1;
#X connect 4 0 6 1;
#X connect 5 0 6 1;
#X connect 6 0 4 0;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 8 0 16 0;
#X connect 9 0 32 0;
#X connect 10 0 6 0;
#X connect 10 1 28 0;
#X connect 10 2 12 0;
#X connect 12 0 11 1;
#X connect 13 0 30 0;
#X connect 14 0 13 0;
#X connect 15 0 30 1;
#X connect 16 0 14 0;
#X connect 16 1 29 0;
#X connect 17 0 27 0;
#X connect 18 0 26 0;
#X connect 18 1 17 0;
#X connect 19 0 22 0;
#X connect 21 0 20 0;
#X connect 22 0 23 0;
#X connect 24 0 19 1;
#X connect 26 0 19 0;
#X connect 27 1 31 0;
#X connect 28 0 11 0;
#X connect 29 0 30 1;
#X connect 30 0 15 0;
#X connect 30 0 18 0;
#X connect 31 0 24 0;
#X connect 32 0 10 0;