x  =  ((1/2)*(-7.1)*(2*t)^2) + (60*t) - 
          31;
niji1  =  {
Table[{Hue[i*2/30],  
              Disk[{0,  0},  i,  {-Pi/2,  Pi*t}]}, {i,  30,  
              15,  -1}], 
{RGBColor[1,  1,  1],  
            Disk[{0,  0},  
              15,  {0,  
                2  Pi}]}
};

    
niji2  =  {
Table[{Hue[i*2/30,  2 - t,  1],  
              Disk[{0,  0},  i,  {-Pi/2,  Pi*t}]}, {i,  30,  
              15,  -1}], 
{RGBColor[1,  1,  1],  
            Disk[{0,  0},  
              15,  {0,  
                2  Pi}]}
};

    
yama  =  {
{RGBColor[0,  0.6,  0.4],  
            Disk[{-17,  0},  {7,  10},  {0,  
                Pi}]}, 
{RGBColor[0.3,  0.7,  0.5],  
            Disk[{-30,  0},  {8,  15},  {0,  
                Pi}]}, 
{RGBColor[0.3,  0.6,  0.4],  
            Disk[{28,  0},  {8,  15},  {0,  
                Pi}]}, 
{RGBColor[0,  0.7,  0.5],  
            Disk[{16,  0},  {6,  8},  {0,  
                Pi}]}
};

    
miti  =  {
{RGBColor[1,  1,  
              1],  
Polygon[{{-31,  0},  {31,  
                  0},  {31,  -31},  {-31,  -31},  {-31,  0}}]}, 
{RGBColor[0.8,  0.8,  
              0.8],  
Polygon[{{-31,  -15},  {31,  -15},  {31,  -20},  {-31,  -20},  {-31,  -15}}]}
};

    
kuruma  =  {
{RGBColor[0,  0,  0],  
            Disk[{x,  -17},  1]}, 
{RGBColor[0,  
              0,  0],  
            Disk[{x + 3,  -17},  1]}, 
{RGBColor[0,  
              0,  1],  
            Polygon[{{x - 1.5,  -16},  {x + 4.5,  -16},  {x + 
                    4.5,  -17},  {x - 1.5,  -17}, {x - 
                    1.5,  -16}}]},  {RGBColor[0,  0,  1],  
            Polygon[{{x - 1,  -14},  {x + 3.5,  -14},  {x + 
                    4,  -16},  {x - 1,  -16}, {x - 
                    1,  -14}}]}, 
{RGBColor[1,  1,  
              1],  Polygon[{{x + 1.5,  -14.5},  {x + 
                    3.2,  -14.5},  {x + 3.5,  -15.5},  {x + 
                    1.5,  -15.5}, {x + 
                    1.5,  -14.5}}]}
};

    
kumo  =  {
{RGBColor[0,  1,  1],  
            Disk[{30,  27},  3]}, 
{RGBColor[0.5,  1,  
              1],  Disk[{22 - t,  30},  3]}, 
{RGBColor[
              0,  1,  1],  
            Disk[{21,  30},  3]}, 
{RGBColor[0,  1,  
              1],  Disk[{29 - t,  30},  3]}, 
{RGBColor[
              0.5,  1,  1],  
            Disk[{29,  28},  3]}, 
{RGBColor[0.5,  1,  
              1],  Disk[{26 - t,  26},  2]}, 
{RGBColor[
              0.2,  1,  1],  
            Disk[{26,  28},  3]}, 
{RGBColor[0.5,  1,  
              1],  Disk[{23 - t,  25},  2]}, 
{RGBColor[
              0,  1,  1],  
            Disk[{22,  25},  2]}, 
{RGBColor[0.2,  1,  
              1],  Disk[{21 - t,  26},  
              2]}
};

    
Do[
        Show[Graphics[{niji1,  yama,  miti,  kuruma,  
              kumo}, 
{PlotRange -> {{-31,  
                    31},  {-31,  31}}, 
              AspectRatio -> Automatic}]], {t,  0, 1,  
          Pi/200}
];

Do[
        Show[Graphics[{niji2,  yama,  miti,  kuruma,  
              kumo}, 
{PlotRange -> {{-31,  
                    31},  {-31,  31}}, 
              AspectRatio -> Automatic}]], {t,  1,  2,  
          Pi/200}
];