#N canvas 0 0 450 300 10;
#X obj 34 284 #out window;
#X floatatom 48 71 5 0 0 0 - - -;
#X obj 34 16 metro 30;
#X obj 6 19 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1;
#X obj 34 42 f;
#X obj 95 34 + 1;
#X msg 34 265 set_geometry \$1 \$2 200 200;
#X obj 34 93 t f f;
#X obj 34 246 pack 0 0;
#X obj 64 136 expr $f1-int($f1);
#X obj 64 156 expr 2*if($f1>=.5 \, $f1 \, (1-$f1));
#X obj 64 176 expr $f1*400;
#X obj 64 115 / 200;
#X obj 95 53 % 1000;
#X obj 34 206 expr 400-200*abs(sin($f1/3.1416/5));
#X connect 2 0 4 0;
#X connect 3 0 2 0;
#X connect 4 0 5 0;
#X connect 4 0 1 0;
#X connect 4 0 7 0;
#X connect 5 0 13 0;
#X connect 6 0 0 0;
#X connect 7 0 14 0;
#X connect 7 1 12 0;
#X connect 8 0 6 0;
#X connect 9 0 10 0;
#X connect 10 0 11 0;
#X connect 11 0 8 1;
#X connect 12 0 9 0;
#X connect 13 0 4 1;
#X connect 14 0 8 0;