#N canvas 318 0 966 620 12;
#X msg 429 15 function Cosine_Interpolate(a \, b \, x) ft = x * 3.14159
f = (1 - cos(ft)) * 0.5 return a*(1-f) + b*f end of function;
#X obj 224 180 f;
#X obj 257 182 + 1;
#X obj 224 207 mod 100;
#X obj 253 270 * 0.01;
#X obj 296 229 /;
#X msg 296 206 1 \$1;
#X obj 253 346 expr (1-cos($f1*3.14159))*0.5;
#X obj 253 451 outlet;
#X obj 224 64 inlet;
#X obj 281 121 unpack;
#X obj 224 94 route bang list;
#X text 276 63 ((to \, nrofpoints) \, bang);
#X obj 253 383 expr $f2*(1-$f1)+$f3*$f1;
#X obj 274 421 f;
#X obj 334 312 t b b f;
#X obj 243 147 0;
#X connect 1 0 3 0;
#X connect 2 0 1 1;
#X connect 3 0 2 0;
#X connect 3 0 4 0;
#X connect 4 0 7 0;
#X connect 5 0 4 1;
#X connect 6 0 5 0;
#X connect 7 0 13 0;
#X connect 9 0 11 0;
#X connect 10 0 15 0;
#X connect 10 1 6 0;
#X connect 10 1 3 1;
#X connect 11 0 1 0;
#X connect 11 1 10 0;
#X connect 13 0 8 0;
#X connect 13 0 14 1;
#X connect 14 0 13 1;
#X connect 15 0 16 0;
#X connect 15 1 14 0;
#X connect 15 2 13 2;
#X connect 16 0 1 1;
