#N canvas 0 26 784 518 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 0 - - -; #X text 151 348 length of row; #X obj 541 228 noteout; #N canvas 0 0 450 300 (subpatch) 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 ]; #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 (subpatch) 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 ; #X text 244 241 substitute the Nth interval; #X text 187 272 substitute now \, choose interval by chance; #N canvas 292 198 494 344 META 0; #X text 12 160 HELP_PATCH_AUTHORS "pd meta" information added by Jonathan Wilkes for Pd version 0.42.; #X text 12 25 LICENSE GPL v2; #X text 12 140 AUTHOR Olaf Matthes ; #X text 12 5 KEYWORDS control list_op; #X text 12 45 DESCRIPTION self-similar substitution / diminuition of rows -- play it and you'll never get a note repetition; #X text 12 80 INLET_0 list load order set interval bang; #X text 12 100 OUTLET_0 list; #X text 12 120 OUTLET_1 float; #X restore 724 492 pd META; #X msg 138 241 interval 4; #X connect 1 0 22 0; #X connect 3 0 22 0; #X connect 4 0 22 0; #X connect 5 0 16 0; #X connect 9 0 20 0; #X connect 11 0 12 0; #X connect 11 0 15 0; #X connect 12 0 11 1; #X connect 15 0 19 0; #X connect 15 1 18 0; #X connect 17 0 15 1; #X connect 18 0 21 0; #X connect 19 0 11 1; #X connect 19 0 1 0; #X connect 20 0 11 0; #X connect 21 0 7 0; #X connect 21 1 7 1; #X connect 22 0 0 0; #X connect 22 1 5 0; #X connect 24 0 22 0; #X connect 26 0 22 0; #X connect 40 0 22 0;