#N canvas 379 345 741 325 10;
#X obj 30 27 osc~ 440;
#X obj 194 239 dac~;
#X obj 29 55 delwrite~ linha 10000;
#X obj 195 210 delread4~ linha;
#X obj 195 156 vline~;
#X obj 198 113 hsl 512 15 0 10000 0 1 empty empty empty -2 -8 0 10
-262144 -1 -1 10220 1;
#X obj 206 183 cyclone/number~;
#X msg 195 35 \; d 1000 1000;
#X msg 195 133 \$1 10;
#X msg 555 34 \; d 5000 10000;
#X msg 281 34 \; d 1000 10000;
#N canvas 0 89 450 300 gerasigmoide 0;
#X obj 38 40 r d;
#X obj 38 130 line 1000 1;
#X obj 38 63 t l l;
#X obj 321 79 unpack f f;
#X obj 290 108 del;
#X obj 290 131 f;
#X obj 38 153 expr $f2+($f3-$f2)*(1-cos(acos(-1)*($f1-$f2)/($f3-$f2)))/2
;
#X obj 38 176 outlet;
#X obj 210 91 loadbang;
#X msg 210 114 2000;
#X msg 131 114 \; d 2000 100;
#X connect 0 0 2 0;
#X connect 1 0 6 0;
#X connect 2 0 1 0;
#X connect 2 1 3 0;
#X connect 3 0 5 1;
#X connect 3 0 6 2;
#X connect 3 1 4 0;
#X connect 4 0 5 0;
#X connect 5 0 6 1;
#X connect 6 0 7 0;
#X connect 8 0 9 0;
#X connect 8 0 10 0;
#X connect 9 0 6 1;
#X restore 195 88 pd gerasigmoide;
#X msg 376 34 \; d 2000 2000;
#X msg 466 34 \; d 2500 3000;
#X msg 122 121 4000 1000;
#X connect 0 0 2 0;
#X connect 3 0 1 0;
#X connect 3 0 1 1;
#X connect 4 0 3 0;
#X connect 4 0 6 0;
#X connect 5 0 8 0;
#X connect 8 0 4 0;
#X connect 11 0 5 0;
#X connect 14 0 4 0;