From 8b0873392ad0db55fdb9d0cdfc670366bc96a9c9 Mon Sep 17 00:00:00 2001 From: Hans-Christoph Steiner Date: Mon, 26 Apr 2010 03:10:47 +0000 Subject: converted maxlib to use libdir template, in preparations for debianizing it svn path=/trunk/externals/maxlib/; revision=13476 --- subst-help.pd | 72 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 72 insertions(+) create mode 100644 subst-help.pd (limited to 'subst-help.pd') diff --git a/subst-help.pd b/subst-help.pd new file mode 100644 index 0000000..405ea20 --- /dev/null +++ b/subst-help.pd @@ -0,0 +1,72 @@ +#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 ]; +#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 ; +#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; -- cgit v1.2.1