Manipulate[Graphics3D[ {
  {White,Sphere[{0, 0, 0}, 1]}, 
  {Yellow, Cone[{{0, 0, -.1}, {-0.7-a, 0, -.1}}, .8]},
  {White,Tube[{{0, 0, -2}, {0, 0, -3}}, 1.5]},
  {White,Tube[{{0, -0.9, -.9}, {0, -1.8, -3}}, 0.5]},
  {White,Tube[{{0, +0.9, -.9}, {0, +1.8, -3}}, 0.5]}, 
  {Black, Sphere[{-.65, -.5, .3}, .1+a/10], Sphere[{-.65, .5, .3}, .1+a/10]}, 
  {White, Sphere[{-.8, -.55, .35}, a/20+(a-1)/20], Sphere[{-.8, .55, .35}, a/20+(a-1)/20]},
  {Yellow,Polygon[{{-1.8, -1, -4.3}, {-1.8, 1, -4.3}, {0, 0, -4.3}}]},
  {Yellow,Polygon[{{0.5, 0.4, -4.4}, {0.5, -0.4, -4.4}, {4.2, -1.5, -1.5}, {3, 0, -2.3}, {4.2, 1.5, -1.5}}]}, 
  {Black, Line[{{-1.8, 0, -4.3}, {0, 0, -4.3}}]},
  {Black, Line[{{-1.8, -.3, -4.3}, {-1.2, -.25, -4.3}}]},
  {Black, Line[{{-1.8, -.6, -4.3}, {-1.3, -.45, -4.3}}]},
  {Black, Line[{{-1.8, .25, -4.3}, {-1.3, .2, -4.3}}]},
  {Black, Line[{{-1.8, .6, -4.3}, {-1.3, .45, -4.3}}]},
  {Black, Line[{{3, 0, -2.3}, {2, -0.1, -3.2}}]}}, 
 ImageSize->600, ViewPoint -> {-2.5, 2.2, 0.8}, ViewVertical -> {0,0,1},
Boxed -> False],{a,1,2}]