blob: 7172ddbc81bbf284b5e36cf713f3063e12c23897 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
|
#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;
|
