#N canvas -10 28 450 300 12;
#X obj 65 40 inlet;
#X obj 372 70 inlet;
#X obj 373 96 b;
#X obj 353 133 t b b;
#X obj 73 245 f;
#X obj 356 170 0;
#X obj 71 277 outlet;
#X obj 66 74 t f f;
#X obj 112 74 tabread bonk-out;
#X obj 52 200 f;
#X obj 86 207 +;
#X obj 53 167 t b f;
#X obj 54 142 expr cos(3.14159*($f1+0.5)*$f3/$f2)*$f4;
#X obj 65 111 pack 0 \$1 \$2;
#X obj 182 255 print a;
#X connect 0 0 7 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 3 0 5 0;
#X connect 3 1 4 0;
#X connect 4 0 6 0;
#X connect 5 0 9 1;
#X connect 7 0 13 0;
#X connect 7 1 8 0;
#X connect 8 0 12 3;
#X connect 9 0 10 0;
#X connect 9 0 4 1;
#X connect 10 0 9 1;
#X connect 11 0 9 0;
#X connect 11 1 10 1;
#X connect 12 0 11 0;
#X connect 13 0 12 0;