#N canvas 396 187 651 537 10;
#X obj 34 489 print set-class;
#X obj 61 389 print set;
#X obj 34 33 list-random 24 8;
#X floatatom 109 421 5 0 0 0 - - -;
#X obj 34 445 list-setclass;
#X text 260 19 list-setclass: Find the set-class of the incoming set
for the given modulus.;
#X text 148 422 <-- modulus \, defaults to 12;
#X obj 34 363 t a a;
#X msg 53 76 60 62 64 65 67 69 71;
#X text 189 77 <- C-major scale;
#X msg 69 102 58 60 61 63 65 66 68;
#X msg 86 148 55 51 54 49;
#X msg 86 173 79 72 75 73;
#X text 172 164 <- All-interval tetrachords;
#X msg 86 220 48 66 81 39;
#X text 174 220 <- Diminished 7th chord;
#X text 205 103 <- Bb-aeolian;
#X msg 115 265 53 59 63 68;
#X msg 115 293 53 59 63 69;
#X msg 115 319 52 56 62 70;
#X msg 115 346 52 56 62 71;
#X text 216 305 <- Tristan progression;
#X msg 34 8 bang;
#X text 339 501 Matt Barber;
#X connect 2 0 7 0;
#X connect 3 0 4 1;
#X connect 4 0 0 0;
#X connect 7 0 4 0;
#X connect 7 1 1 0;
#X connect 8 0 7 0;
#X connect 10 0 7 0;
#X connect 11 0 7 0;
#X connect 12 0 7 0;
#X connect 14 0 7 0;
#X connect 17 0 7 0;
#X connect 18 0 7 0;
#X connect 19 0 7 0;
#X connect 20 0 7 0;
#X connect 22 0 2 0;
