#N canvas 5 140 311 321 10;
#N canvas 322 138 514 645 in 1;
#X obj 20 462 outlet;
#X obj 51 8 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1
;
#X obj 44 60 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#N canvas 3 94 332 662 for_X_Y 0;
#X obj 61 60 inlet;
#X obj 71 223 until;
#X msg 125 177 0;
#X obj 72 261 f;
#X obj 106 260 + 1;
#X obj 68 141 t b b;
#X obj 78 418 until;
#X msg 132 372 0;
#X obj 79 456 f;
#X obj 113 455 + 1;
#X obj 75 336 t b b;
#X obj 73 297 t b f;
#X obj 82 502 pack f f;
#X msg 77 528 \$2 \$1;
#X obj 74 589 outlet;
#X msg 72 177 32;
#X msg 79 372 32;
#X connect 0 0 5 0;
#X connect 1 0 3 0;
#X connect 2 0 3 1;
#X connect 3 0 4 0;
#X connect 3 0 11 0;
#X connect 4 0 3 1;
#X connect 5 0 15 0;
#X connect 5 1 2 0;
#X connect 6 0 8 0;
#X connect 7 0 8 1;
#X connect 8 0 9 0;
#X connect 8 0 12 0;
#X connect 9 0 8 1;
#X connect 10 0 16 0;
#X connect 10 1 7 0;
#X connect 11 0 10 0;
#X connect 11 1 12 1;
#X connect 12 0 13 0;
#X connect 13 0 14 0;
#X connect 15 0 1 0;
#X connect 16 0 6 0;
#X restore 50 125 pd for_X_Y;
#X obj 78 270 sin;
#X obj 78 227 / 64;
#X obj 51 154 unpack f f;
#X obj 107 190 t f f;
#X obj 21 422 pack f f f;
#X msg 21 442 setcell \$1 \$2 \$3;
#X obj 76 297 + 0.5;
#X obj 151 277 sin;
#X obj 149 255 / 16;
#X obj 79 321 +;
#X obj 49 189 t f f f;
#X obj 79 249 +;
#X obj 228 155 f;
#X obj 263 154 + 0.1;
#X obj 49 94 t b b;
#X obj 78 360 wrap;
#X obj 77 401 i;
#X obj 148 230 expr sqrt(pow(sin($f3)*32-$f1 \, 2)+pow(cos($f3)*34-$f2
\, 2));
#X obj 79 380 * 1.8;
#X obj 79 341 * 1.2;
#X obj 151 299 + 0.6;
#X obj 52 35 metro 40;
#X connect 1 0 25 0;
#X connect 2 0 18 0;
#X connect 3 0 6 0;
#X connect 4 0 10 0;
#X connect 5 0 15 0;
#X connect 6 0 14 0;
#X connect 6 1 7 0;
#X connect 7 0 8 1;
#X connect 7 1 21 1;
#X connect 8 0 9 0;
#X connect 9 0 0 0;
#X connect 10 0 13 0;
#X connect 11 0 24 0;
#X connect 12 0 11 0;
#X connect 13 0 23 0;
#X connect 14 0 8 0;
#X connect 14 1 5 0;
#X connect 14 2 21 0;
#X connect 15 0 4 0;
#X connect 16 0 17 0;
#X connect 16 0 21 2;
#X connect 17 0 16 1;
#X connect 18 0 3 0;
#X connect 18 1 16 0;
#X connect 19 0 22 0;
#X connect 20 0 8 2;
#X connect 21 0 12 0;
#X connect 22 0 20 0;
#X connect 23 0 19 0;
#X connect 24 0 13 1;
#X connect 25 0 18 0;
#X restore 17 10 pd in;
#X obj 17 34 bitmap -uwidth 32 -uheight 32 -cellsize 8 -label empty
-labelpos top -sendsymbol empty -receivesymbol empty -fgcolor #000000
-bgcolor #ffffff -lblcolor #000000;
#X connect 0 0 1 0;
