光球

p1[θ_]:=RotationTransform[θ,{0,0,1}][{0,2,0}];
p2[θ_]:=RotationTransform[θ+Pi/2,{1,0,1}][{0,2,0}];
p3[θ_]:=RotationTransform[θ+Pi,{1,0,0}][{0,2,0}];
p4[θ_]:=RotationTransform[θ+5Pi/2,{1,0,-1}][{0,2,0}];
p5[θ_]:=RotationTransform[θ+3Pi/2,{1,0,-1}][{0,2,0}];
p6[θ_]:=RotationTransform[θ+7Pi/2,{0,0,-1}][{0,2,0}];
Animate[Graphics3D[Sphere[],
Lighting->{{"Point",RGBColor[0.941176, 0.588235, 0],p1[θ]},{"Point",Yellow,p2[θ]},{"Point",RGBColor[0.00392157, 0.00392157, 0.305882],p3[θ]},{"Point",RGBColor[0.141176, 1, 0.141176],p4[θ]},{"Point",Red,p5[θ]},{"Point",Blue,p6[θ]}}],{θ,0,10Pi},AnimationDirection->ForwardBackward,SaveDefinitions->True, AnimationRunning->False]