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 0 0 631 415 compare 0;
7
#X obj 261 65 inlet~ processed;
8
#X obj 262 94 tabsend~ \$0-output;
9
#X obj 417 92 table \$0-output 64;
10
#X obj 51 378 outlet passed;
17
#X obj 52 229 tabread \$0-output;
18
#X obj 182 229 tabread \$0-reference;
21
#X obj 52 278 select 0;
22
#X obj 29 44 inlet doit;
49
#X restore 91 367 pd compare;
50
#N canvas 1456 193 714 565 reference 0;
51
#X obj 519 101 table \$0-reference 64;
52
#X obj 49 38 inlet doit;
53
#X obj 237 371 outlet in~;
54
#X obj 49 376 outlet done;
55
#X obj 240 86 inlet out~;
60
#X obj 69 252 t b f b;
61
#X obj 69 300 pack 0 0;
62
#X obj 69 326 tabwrite \$0-reference;
65
#X obj 129 252 random 100;
72
#X obj 69 229 tabread \$0-input1;
73
#X obj 199 229 tabread \$0-input2;
100
#X connect 22 0 23 1;
102
#X restore 91 303 pd reference;
103
#X obj 91 396 outlet result;
107
#X obj 250 303 unpack;
108
#X obj 134 162 s \$0-init;
110
#X obj 91 138 t b b b;
112
#N canvas 238 169 450 300 input1 0;
113
#X obj 119 243 outlet~;
114
#N canvas 0 0 450 300 send 0;
116
#X obj 96 255 outlet~;
117
#X obj 258 255 outlet~;
118
#X obj 96 227 tabreceive~ \$0-input1;
119
#X obj 258 227 tabreceive~ \$0-input2;
122
#X restore 119 218 pd send;
123
#N canvas 0 0 450 300 generate~ 0;
124
#X obj 120 111 noise~;
125
#X obj 112 182 outlet~;
126
#X obj 120 133 tabsend~ \$0-input1;
127
#X obj 259 134 tabsend~ \$0-input2;
130
#X restore 119 194 pd generate~;
131
#X obj 117 145 table \$0-input1 64;
132
#X obj 257 145 table \$0-input2 64;
133
#X obj 178 243 outlet~;
137
#X restore 158 253 pd input1;
150
#X connect 12 0 11 0;