Fun Mathematica Webcam image

Dynamic@Animate[
  SphericalPlot3D[1 , {u, 0, Pi}, {v, 0, Pi}, Mesh -> None,
   TextureCoordinateFunction -> ({#5, 1 - #4} &),
   PlotStyle ->
    Directive[Specularity[White, 10], Texture[CurrentImage[]]],
   Lighting -> "Neutral", Axes -> False, RotationAction -> "Clip",
   Boxed -> False,
   ViewPoint -> {0, -10 + 8 Cos[\[Theta]], 5 Sin[\[Theta]]}],
  {\[Theta], 0, 2 Pi}]