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
8
#X obj 124 221 switch~ 64;
9
#N canvas 238 169 450 300 input 0;
10
#X obj 119 243 outlet~;
11
#X obj 117 145 table \$0-input 64;
12
#N canvas 0 0 450 300 send 0;
14
#X obj 96 255 outlet~;
15
#X obj 96 227 tabreceive~ \$0-input;
17
#X restore 119 218 pd send;
18
#N canvas 0 0 450 300 generate~ 0;
19
#X obj 120 133 tabsend~ \$0-input;
20
#X obj 120 111 noise~;
21
#X obj 112 182 outlet~;
23
#X restore 119 194 pd generate~;
26
#X restore 158 243 pd input;
27
#N canvas 0 0 631 415 compare 0;
28
#X obj 261 65 inlet~ processed;
29
#X obj 262 94 tabsend~ \$0-output;
30
#X obj 417 92 table \$0-output 64;
31
#X obj 51 378 outlet passed;
38
#X obj 52 229 tabread \$0-output;
39
#X obj 182 229 tabread \$0-reference;
42
#X obj 52 278 select 0;
43
#X obj 29 44 inlet doit;
70
#X restore 91 367 pd compare;
71
#N canvas 1456 193 714 565 reference 0;
72
#X obj 519 101 table \$0-reference 64;
73
#X obj 49 38 inlet doit;
74
#X obj 237 371 outlet in~;
75
#X obj 49 376 outlet done;
76
#X obj 240 86 inlet out~;
80
#X obj 69 229 tabread \$0-input;
82
#X obj 69 252 t b f b;
83
#X obj 69 300 pack 0 0;
84
#X obj 69 326 tabwrite \$0-reference;
87
#X obj 129 252 random 100;
103
#X connect 10 2 15 0;
104
#X connect 11 0 12 0;
108
#X connect 15 0 14 0;
110
#X connect 17 0 18 0;
111
#X connect 18 0 19 0;
112
#X connect 18 0 20 0;
113
#X connect 19 0 18 1;
115
#X connect 20 1 11 1;
116
#X restore 91 303 pd reference;
117
#X obj 91 396 outlet result;
120
#X obj 91 162 del 10;
121
#X obj 158 274 absgn~;
123
#X obj 261 317 select 0;
125
#X obj 314 337 moses 0;
129
#X obj 91 254 del 10;
139
#X connect 10 0 20 0;
141
#X connect 11 0 10 0;
143
#X connect 13 0 14 0;
144
#X connect 14 0 15 0;
145
#X connect 14 1 16 0;
146
#X connect 15 0 18 0;
147
#X connect 16 0 17 0;
148
#X connect 16 1 19 0;
149
#X connect 17 0 18 0;
151
#X connect 19 0 18 0;