From bcb36add25f5f7538ff13a0f9828db8a06830c03 Mon Sep 17 00:00:00 2001 From: Jonathan Wilkes Date: Tue, 16 Nov 2010 06:37:15 +0000 Subject: added META subpatch svn path=/trunk/externals/maxlib/; revision=14442 --- subst-help.pd | 156 +++++++++++++++++++++++++++++++--------------------------- 1 file changed, 84 insertions(+), 72 deletions(-) (limited to 'subst-help.pd') 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 ]; -#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; +#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; -- cgit v1.2.1