Mathematica code:
Animate[
Graphics[
Table[
{Thickness[.012],
Circle[{80*Cos[i*Pi/3], 80*Sin[i*Pi/3]},
t + (100 - n) (1 + Sign[100 - n])/2]}, {n, 0, 100, 1},
{i, 0, 5, 1}],
PlotRange -> 12, ImageSize -> 500],
{t, 0, 1}]
Gotta love dem Mathematicas. Maybe I'll just turn this in to my professor instead of deriving the Trapezoidal method for...
mathematica, man.