added META subpatch

svn path=/trunk/externals/maxlib/; revision=14442

1 files changed, 84 insertions, 72 deletions

diff --git a/subst-help.pd b/subst-help.pd
index 405ea20..7172ddb 100644
--- a/subst-help.pd
+++ b/subst-help.pd
@@ -1,72 +1,84 @@
-#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;

+#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 <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 (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 <olaf.matthes@gmx.de>;
+#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 <olaf.matthes@gmx.de>;
+#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;