Extinctions

(*got this from: http://www.nature.com/nature/journal/v434/n7030/suppinfo/nature03339.html *)

data={{0, 190}, {1, 227}, {2, 161}, {3, 198}, {4, 114}, {5,
  151}, {6, -14}, {7, 22}, {8, 20}, {9, 56}, {10, 91}, {11, 126}, {12,
   183}, {13, 218}, {14, 252}, {15, 286}, {16, 92}, {17, 125}, {18,
  158}, {19, 191}, {20, 224}, {21, -2}, {22, 31}, {23,
  63}, {24, -91}, {25, -59}, {26, -28}, {27, 3}, {28,
  34}, {29, -122}, {30, -92}, {31, -62}, {32, -32}, {33, -3}, {34,
  125}, {35, 154}, {36, 183}, {37, 211}, {38, 20}, {39, 48}, {40,
  76}, {41, -73}, {42, -45}, {43, -18}, {44, 9}, {45, 36}, {46,
  62}, {47, 88}, {48,
  114}, {49, -169}, {50, -144}, {51, -118}, {52, -93}, {53, -68}, \
{54, -44}, {55, -19}, {56, -516}, {57, -492}, {58, -582}, {59, -558}, \
{60, -535}, {61, -693}, {62, -670}, {63, -729}, {64, -706}, {65, \
-684}, {66, -244}, {67, -222}, {68, -200}, {69, 52}, {70, 73}, {71,
  84}, {72, 105}, {73, 126}, {74, 146}, {75, 167}, {76, 187}, {77,
  206}, {78, 110}, {79, 129}, {80, 149}, {81, 168}, {82, 187}, {83,
  205}, {84, 49}, {85,
  5}, {86, -47}, {87, -29}, {88, -61}, {89, -43}, {90, -48}, {91, \
-31}, {92, -62}, {93, -45}, {94, -12}, {95,
  5}, {96, -38}, {97, -22}, {98, -32}, {99, -16}, {100, -68}, {101, \
-52}, {102, -37}, {103, -22}, {104, -98}, {105, -83}, {106, -69}, \
{107, -55}, {108, -78}, {109, -64}, {110, -51}, {111, -37}, {112, \
-56}, {113, -43}, {114, -30}, {115, -17}, {116, -5}, {117, 8}, {118,
  20}, {119, 9}, {120, 21}, {121, 33}, {122, 44}, {123, 56}, {124,
  67}, {125, 3}, {126, 14}, {127, 25}, {128, 4}, {129,
  15}, {130, -14}, {131, -4}, {132, 6}, {133, 16}, {134, 11}, {135,
  21}, {136, 30}, {137, 24}, {138, 33}, {139, 10}, {140,
  19}, {141, -7}, {142, 2}, {143, -4}, {144, 5}, {145, 13}, {146,
  124}, {147, 132}, {148, 140}, {149, 162}, {150, 169}, {151,
  190}, {152, 197}, {153, 204}, {154, 218}, {155, 225}, {156,
  234}, {157, 241}, {158, 191}, {159, 197}, {160, 208}, {161,
  214}, {162, 187}, {163, 184}, {164, 188}, {165, 184}, {166,
  139}, {167, 125}, {168, 122}, {169, 127}, {170, 70}, {171,
  75}, {172, 12}, {173, 17}, {174, 21}, {175,
  26}, {176, -36}, {177, -32}, {178, -28}, {179, -24}, {180, -9}, \
{181, -5}, {182, -2}, {183, 2}, {184, 5}, {185, 9}, {186,
  12}, {187, -19}, {188, -16}, {189, -13}, {190, -63}, {191, -61}, \
{192, -58}, {193, -56}, {194, -121}, {195, -119}, {196, -117}, {197, \
-171}, {198, -169}, {199, -209}, {200, -104}, {201, -102}, {202, \
-101}, {203, -99}, {204, -38}, {205, -36}, {206, -35}, {207, -34}, \
{208, -11}, {209, -10}, {210, -9}, {211, -8}, {212, -8}, {213,
  12}, {214, 12}, {215, 13}, {216, 13}, {217, 27}, {218, 27}, {219,
  27}, {220, 27}, {221, 27}, {222, 27}, {223, 19}, {224, 19}, {225,
  19}, {226, 18}, {227,
  18}, {228, -30}, {229, -31}, {230, -31}, {231, -32}, {232, -33}, \
{233, -120}, {234, -121}, {235, -122}, {236, -123}, {237, -179}, \
{238, -180}, {239, -181}, {240, -232}, {241, -234}, {242, -235}, \
{243, -291}, {244, -293}, {245, -343}, {246, -344}, {247, -346}, \
{248, -394}, {249, -395}, {250, -425}, {251, -212}, {252, -214}, \
{253, -217}, {254, -66}, {255, -68}, {256, -71}, {257, -73}, {258, \
-75}, {259, -78}, {260, -80}, {261, 178}, {262, 176}, {263,
  173}, {264, 170}, {265, 168}, {266, 261}, {267, 258}, {268,
  255}, {269, 253}, {270, 250}, {271, 280}, {272, 277}, {273,
  274}, {274, 272}, {275, 269}, {276, 229}, {277, 226}, {278,
  223}, {279, 220}, {280, 188}, {281, 185}, {282, 182}, {283,
  178}, {284, 175}, {285, 181}, {286, 178}, {287, 175}, {288,
  172}, {289, 168}, {290, 114}, {291, 110}, {292, 107}, {293,
  104}, {294, 100}, {295, 55}, {296, 52}, {297, 16}, {298, 12}, {299,
  60}, {300, 56}, {301, 53}, {302, 50}, {303, 46}, {304, 55}, {305,
  52}, {306, 48}, {307, 77}, {308, 73}, {309, 70}, {310, 35}, {311,
  32}, {312, -15}, {313, -19}, {314, -22}, {315, -55}, {316, -59}, \
{317, -62}, {318, -66}, {319, -75}, {320, -79}, {321, -82}, {322, \
-86}, {323, 92}, {324, 88}, {325, 85}, {326, 82}, {327, 174}, {328,
  170}, {329, 167}, {330, 164}, {331, 161}, {332, 157}, {333,
  154}, {334, 151}, {335, 148}, {336, 105}, {337, 102}, {338,
  99}, {339, 96}, {340, 93}, {341, 90}, {342, 87}, {343, 84}, {344,
  81}, {345, 78}, {346, 4}, {347,
  1}, {348, -2}, {349, -4}, {350, -7}, {351, -10}, {352, -13}, {353, \
-146}, {354, -149}, {355, -151}, {356, -154}, {357, -156}, {358, \
-159}, {359, -161}, {360, -248}, {361, -251}, {362, -253}, {363, \
-255}, {364, -257}, {365, -300}, {366, -302}, {367, -304}, {368, \
-306}, {369, -308}, {370, -332}, {371, -334}, {372, -336}, {373, \
-338}, {374, -339}, {375, -228}, {376, -230}, {377, -231}, {378, \
-233}, {379, -169}, {380, -170}, {381, -171}, {382, -124}, {383, \
-125}, {384, -126}, {385, -127}, {386, 23}, {387, 22}, {388,
  21}, {389, 100}, {390, 99}, {391, 99}, {392, 183}, {393, 183}, {394,
   182}, {395, 208}, {396, 208}, {397, 207}, {398, 236}, {399,
  236}, {400, 236}, {401, 236}, {402, 237}, {403, 196}, {404,
  197}, {405, 197}, {406, 198}, {407, 67}, {408, 68}, {409, 68}, {410,
   0}, {411,
  1}, {412, -42}, {413, -41}, {414, -83}, {415, -81}, {416, -48}, \
{417, -47}, {418, -45}, {419, 33}, {420, 35}, {421, 37}, {422,
  106}, {423, 122}, {424, 125}, {425, 127}, {426, 129}, {427,
  72}, {428,
  75}, {429, -44}, {430, -41}, {431, -38}, {432, -35}, {433, -32}, \
{434, -29}, {435, -25}, {436, -146}, {437, -143}, {438, -139}, {439, \
-210}, {440, -206}, {441, -202}, {442, -197}, {443, -193}, {444, \
-68}, {445, -63}, {446, 265}, {447, 269}, {448, 301}, {449,
  352}, {450, 357}, {451, 362}, {452, 367}, {453, 408}, {454,
  414}, {455, 420}, {456, 426}, {457, 398}, {458, 404}, {459,
  411}, {460, 417}, {461, 230}, {462, 236}, {463, 122}, {464,
  15}, {465, 22}, {466, 29}, {467, 36}, {468, -8}, {469, -1}, {470,
  7}, {471,
  15}, {472, -62}, {473, -54}, {474, -46}, {475, -37}, {476, -268}, \
{477, -259}, {478, -250}, {479, -362}, {480, -353}, {481, -343}, \
{482, -334}, {483, -324}, {484, -368}, {485, -358}, {486, -348}, \
{487, -338}, {488, -327}, {489, -362}, {490, -351}, {491, -354}, \
{492, -343}, {493, -346}, {494, -335}, {495, -337}, {496, -326}, \
{497, -320}, {498, -308}, {499, -284}, {500, -271}, {501, -226}, \
{502, -213}, {503, -214}, {504, -183}, {505, -144}, {506, -131}, \
{507, -129}, {508, -115}, {509, -104}, {510, -90}, {511, -75}, {512, \
-61}, {513, -40}, {514, -25}, {515, -10}, {516, 2}, {517, 18}, {518,
  33}, {519, 173}, {520, 189}, {521, 205}, {522, 297}, {523,
  313}, {524, 237}, {525, 254}, {526, 271}, {527, 139}, {528,
  157}, {529, 174}, {530, 137}, {531, 155}, {532, 132}, {533,
  150}, {534, 116}, {535, 135}, {536, 154}, {537, 173}, {538,
  161}, {539, 181}, {540, 200}, {541, 220}};


f = Interpolation[Map[{0, -Min[Last /@ data]} + # &, data]];
height = Max[Last /@ data] - Min[Last /@ data];

frame[t_] := Graphics[{
    Black,
    Reverse@Table[
      {Opacity[0.01 - (i/10000)], Disk[{0, 0}, f[t + i]/height]}
      , {i, Min[541 - t, 50]}]
    ,
    EdgeForm[Directive[Red, Thick]],
    FaceForm[Directive[Opacity[0.1], Red]],
    Disk[{0, 0}, f[t]/height],
    White,
    Text[Style[
      StringJoin[ToString[Round[t, 1]], "\nMillion years ago"], Large,
       Bold], {0, 0}],
    }
   , PlotRange -> 1, ImageSize -> {300}
   ];
Manipulate[frame[t], {t, 541, 1, 5.95}]