Animate[Graphics3D[{
    Thick, Green,
    {PointSize[Large], Point[{0, 0, 0 - Sin[d Degree]}],
     Point[{0 - Cos[d Degree], 0, 0}]},
    {Opacity[0.2],
     Sphere[{0, 0, 0}, 0.5], Orange},
    Thick, Blue,
    {PointSize[Large], Point[{0, 0, 0 - Sin[d Degree ]}],
     Point[{Sin[d Degree]/2, Cos[d Degree]/2, 0}],
     Point[{0 - Cos[d Degree], 0, 0}]},
    {Opacity[0.2],
     Sphere[{0, 0, 0.5}, 0.5], Yellow},
    Thick, Orange,
    {Opacity[0.2],
     Sphere[{0, 0, 0}, 1], Orange},
    {PointSize[Large], Point[{Cos[d Degree], 0, 0}],
     Point[{0, 0, Sin[d Degree ]}],
     Point[{Sin[d Degree], Cos[d Degree], 0}]
     }
    }] /.
  Sphere[x__] :> Rotate[Sphere[x], -d Degree, {0, 0, 0} {d, 0, 360}],
 AnimationRunning -> False]