MATHEMATICA CODE ParametricPlot3D[ {Cos[s]Cos[t],Cos[s]Sin[t],Sin[s]}, {s,-Pi/2,Pi/2},{t,0,2Pi}, Axes->False,Boxed->False, PlotPoints->{18,36}];

　　フレームの中でドラッグすると回転し、離すとそのまま回転を続けます。