1
#N canvas 217 0 977 584 10;
2
#X obj 91 117 inlet bang;
3
#X text 37 51 may people think that it is a bad idea to not create
4
[repeat] if there is no argument. so this test fails when the object
6
#N canvas 238 169 688 300 input 0;
7
#X obj 119 243 outlet~;
8
#N canvas 0 0 450 300 send 0;
10
#X obj 96 255 outlet~;
11
#X obj 258 255 outlet~;
12
#X obj 96 227 tabreceive~ \$0-input1;
13
#X obj 258 227 tabreceive~ \$0-input2;
16
#X restore 119 218 pd send;
17
#N canvas 0 0 450 300 generate~ 0;
18
#X obj 120 111 noise~;
19
#X obj 112 182 outlet~;
20
#X obj 120 133 tabsend~ \$0-input1;
21
#X obj 259 134 tabsend~ \$0-input2;
24
#X restore 119 194 pd generate~;
25
#X obj 117 145 table \$0-input1 64;
26
#X obj 257 145 table \$0-input2 64;
27
#X obj 178 243 outlet~;
28
#X obj 447 128 r \$0-init;
30
#X obj 447 172 random 100;
32
#X msg 447 216 const \$1;
33
#X obj 447 238 s \$0-input1;
34
#X obj 538 172 random 100;
36
#X msg 538 216 const \$1;
37
#X obj 537 238 s \$0-input2;
50
#X restore 158 243 pd input;
51
#N canvas 0 0 1020 415 compare 0;
52
#X obj 261 65 inlet~ processed;
53
#X obj 262 94 tabsend~ \$0-output;
54
#X obj 417 92 table \$0-output 64;
55
#X obj 51 398 outlet passed;
61
#X obj 52 229 tabread \$0-output;
62
#X obj 182 229 tabread \$0-reference;
65
#X obj 52 278 select 0;
66
#X obj 29 44 inlet doit;
72
#X obj 52 197 t f f f;
73
#X obj 342 321 print diff;
74
#X obj 342 293 pack 0 0 0;
75
#X obj 447 128 r \$0-init;
76
#X obj 447 172 random 100;
78
#X msg 447 216 const \$1;
79
#X obj 447 238 s \$0-result;
100
#X connect 16 0 11 1;
103
#X connect 19 0 11 1;
105
#X connect 20 1 10 0;
106
#X connect 20 2 22 2;
107
#X connect 23 0 28 0;
108
#X connect 24 0 25 0;
109
#X connect 25 0 26 0;
110
#X connect 26 0 27 0;
111
#X connect 28 0 24 0;
112
#X restore 91 367 pd compare;
113
#N canvas 1456 193 714 565 reference 0;
114
#X obj 519 101 table \$0-reference 64;
115
#X obj 49 38 inlet doit;
116
#X obj 237 371 outlet in~;
117
#X obj 49 376 outlet done;
118
#X obj 240 86 inlet out~;
123
#X obj 69 252 t b f b;
124
#X obj 69 300 pack 0 0;
125
#X obj 69 326 tabwrite \$0-reference;
127
#X obj 128 273 / 100;
128
#X obj 128 251 random 100;
135
#X obj 69 229 tabread \$0-input1;
136
#X obj 199 229 tabread \$0-input2;
138
#X obj 447 128 r \$0-init;
139
#X obj 447 150 t b b;
140
#X obj 447 172 random 100;
141
#X obj 447 194 / 100;
142
#X msg 447 216 const \$1;
143
#X obj 447 238 s \$0-reference;
154
#X connect 10 0 11 0;
158
#X connect 14 0 13 0;
160
#X connect 16 0 17 0;
161
#X connect 17 0 18 0;
162
#X connect 17 0 19 0;
163
#X connect 18 0 17 1;
164
#X connect 19 0 20 0;
165
#X connect 19 1 10 1;
166
#X connect 20 0 21 0;
167
#X connect 20 1 22 0;
169
#X connect 22 0 23 1;
171
#X connect 24 0 25 0;
172
#X connect 25 0 26 0;
173
#X connect 26 0 27 0;
174
#X connect 27 0 28 0;
175
#X connect 28 0 29 0;
176
#X restore 91 303 pd reference;
177
#X obj 91 396 outlet result;
179
#X obj 250 303 unpack;
182
#X obj 134 162 s \$0-init;
184
#X obj 91 138 t b b b;
198
#X connect 12 1 10 0;
200
#X connect 13 0 12 0;