#N canvas 249 69 784 504 12;
#X obj 19 346 print;
#X msg 143 272 bang;
#X text 190 180 minimum order of substitution;
#X msg 122 181 order 2;
#X msg 19 118 72 68 67 64 69 71 77 75 70 73 74 78;
#X floatatom 98 347 5 0 0;
#X text 151 348 length of row;
#X msg 138 241 intervall 4;
#X obj 541 228 noteout;
#N canvas 0 0 450 300 graph1 0;
#X array array01 100 float 0;
#X coords 0 127 99 0 200 140 1;
#X restore 564 321 graph;
#X obj 506 43 tgl 20 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
;
#X text 537 42 << switch playback on/off;
#X obj 506 93 int 0;
#X obj 558 93 + 1;
#X text 27 19 subst :: self-similar substitution / diminuition of rows
;
#X text 87 307 [subst <order>];
#X obj 506 146 sel 0;
#X obj 98 374 s length;
#X obj 541 120 r length;
#X obj 541 173 tabread array01;
#X msg 506 173 0;
#X obj 506 67 metro 250;
#X obj 541 201 makenote 100 250;
#X obj 19 306 subst 2;
#X text 99 35 play it and you'll never get a note repetition;
#X msg 125 212 set array01;
#N canvas 0 0 450 300 graph1 0;
#X array array00 12 float 1;
#A 0 72 68 67 64 69 71 77 75 70 73 74 78;
#X coords 0 127 11 0 200 140 1;
#X restore 291 321 graph;
#X msg 118 146 load array00;
#X text 222 211 set array for processing and output;
#X obj 21 417 subst array00 3;
#X text 295 464 THE INPUT;
#X text 574 464 THE OUTPUT;
#X text 315 119 send it a list;
#X text 226 147 or load values from array;
#X text 18 444 use creation arguments to set;
#X text 18 458 name of output array and order;
#X text 17 472 of substitution;
#X text 99 55 written by Olaf Matthes <olaf.matthes@gmx.de>;
#X text 244 241 substitute the Nth interval;
#X text 187 272 substitute now \, choose interval by chance;
#X connect 1 0 23 0;
#X connect 3 0 23 0;
#X connect 4 0 23 0;
#X connect 5 0 17 0;
#X connect 7 0 23 0;
#X connect 10 0 21 0;
#X connect 12 0 13 0;
#X connect 12 0 16 0;
#X connect 13 0 12 1;
#X connect 16 0 20 0;
#X connect 16 1 19 0;
#X connect 18 0 16 1;
#X connect 19 0 22 0;
#X connect 20 0 12 1;
#X connect 20 0 1 0;
#X connect 21 0 12 0;
#X connect 22 0 8 0;
#X connect 22 1 8 1;
#X connect 23 0 0 0;
#X connect 23 1 5 0;
#X connect 25 0 23 0;
#X connect 27 0 23 0;