blob: 4d0bb1dc8190464340a276645df6b21efe28e387 (
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
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
|
#N canvas 217 0 977 584 10;
#X obj 91 117 inlet bang;
#X text 37 51 may people think that it is a bad idea to not create
[repeat] if there is no argument. so this test fails when the object
cannot instantiate;
#N canvas 238 169 450 300 input 0;
#X obj 119 243 outlet~;
#N canvas 0 0 450 300 send 0;
#X obj 82 48 inlet~;
#X obj 96 255 outlet~;
#X obj 258 255 outlet~;
#X obj 96 227 tabreceive~ \$0-input1;
#X obj 258 227 tabreceive~ \$0-input2;
#X connect 3 0 1 0;
#X connect 4 0 2 0;
#X restore 119 218 pd send;
#N canvas 0 0 450 300 generate~ 0;
#X obj 120 111 noise~;
#X obj 112 182 outlet~;
#X obj 120 133 tabsend~ \$0-input1;
#X obj 259 112 noise~;
#X obj 259 134 tabsend~ \$0-input2;
#X connect 0 0 2 0;
#X connect 3 0 4 0;
#X restore 119 194 pd generate~;
#X obj 117 145 table \$0-input1 64;
#X obj 257 145 table \$0-input2 64;
#X obj 178 243 outlet~;
#X connect 1 0 0 0;
#X connect 1 1 5 0;
#X connect 2 0 1 0;
#X restore 158 243 pd input;
#N canvas 0 0 631 415 compare 0;
#X obj 261 65 inlet~ processed;
#X obj 262 94 tabsend~ \$0-output;
#X obj 417 92 table \$0-output 64;
#X obj 51 378 outlet passed;
#X obj 52 169 i;
#X obj 83 169 + 1;
#X obj 52 103 t b b;
#X msg 52 124 64;
#X msg 84 123 0;
#X obj 52 197 t f f;
#X obj 52 229 tabread \$0-output;
#X obj 182 229 tabread \$0-reference;
#X obj 51 309 f;
#X obj 52 257 -;
#X obj 52 278 select 0;
#X obj 29 44 inlet doit;
#X obj 29 71 t b b b;
#X msg 127 275 0;
#X obj 51 336 == 0;
#X obj 52 144 until;
#X connect 0 0 1 0;
#X connect 4 0 5 0;
#X connect 4 0 9 0;
#X connect 5 0 4 1;
#X connect 6 0 7 0;
#X connect 6 1 8 0;
#X connect 7 0 19 0;
#X connect 8 0 4 1;
#X connect 9 0 10 0;
#X connect 9 1 11 0;
#X connect 10 0 13 0;
#X connect 11 0 13 1;
#X connect 12 0 18 0;
#X connect 13 0 14 0;
#X connect 14 1 12 1;
#X connect 15 0 16 0;
#X connect 16 0 12 0;
#X connect 16 1 6 0;
#X connect 16 2 17 0;
#X connect 17 0 12 1;
#X connect 18 0 3 0;
#X connect 19 0 4 0;
#X restore 91 367 pd compare;
#N canvas 1456 193 714 565 reference 0;
#X obj 519 101 table \$0-reference 64;
#X obj 49 38 inlet doit;
#X obj 237 371 outlet in~;
#X obj 49 376 outlet done;
#X obj 240 86 inlet out~;
#X obj 69 92 t b b;
#X msg 69 112 64;
#X msg 101 112 0;
#X obj 69 274 f;
#X obj 69 252 t b f b;
#X obj 69 300 pack 0 0;
#X obj 69 326 tabwrite \$0-reference;
#X obj 49 61 t b b;
#X obj 129 274 / 100;
#X obj 129 252 random 100;
#X msg 99 59 bang;
#X obj 69 136 until;
#X obj 69 162 i;
#X obj 99 162 + 1;
#X obj 69 186 t f f;
#X obj 69 208 t f f;
#X obj 69 229 tabread \$0-input1;
#X obj 199 229 tabread \$0-input2;
#X obj 237 348 pack;
#X connect 1 0 12 0;
#X connect 4 0 8 1;
#X connect 5 0 6 0;
#X connect 5 1 7 0;
#X connect 6 0 16 0;
#X connect 7 0 17 1;
#X connect 8 0 10 0;
#X connect 9 0 8 0;
#X connect 9 1 23 0;
#X connect 9 2 14 0;
#X connect 10 0 11 0;
#X connect 12 0 3 0;
#X connect 12 1 5 0;
#X connect 13 0 8 1;
#X connect 14 0 13 0;
#X connect 15 0 5 0;
#X connect 16 0 17 0;
#X connect 17 0 18 0;
#X connect 17 0 19 0;
#X connect 18 0 17 1;
#X connect 19 0 20 0;
#X connect 19 1 10 1;
#X connect 20 0 21 0;
#X connect 20 1 22 0;
#X connect 21 0 9 0;
#X connect 22 0 23 1;
#X connect 23 0 2 0;
#X restore 91 303 pd reference;
#X obj 91 396 outlet result;
#X msg 210 390 -1;
#X obj 250 303 unpack;
#X obj 158 274 &&~;
#X obj 250 326 &&;
#X obj 134 162 s \$0-init;
#X obj 91 162 bang~;
#X obj 91 138 t b b b;
#X connect 0 0 12 0;
#X connect 2 0 8 0;
#X connect 2 1 8 1;
#X connect 3 0 5 0;
#X connect 4 0 3 0;
#X connect 4 1 7 0;
#X connect 6 0 5 0;
#X connect 7 0 9 0;
#X connect 7 1 9 1;
#X connect 8 0 3 1;
#X connect 9 0 4 1;
#X connect 11 0 4 0;
#X connect 12 1 10 0;
#X connect 12 2 6 0;
|
