MATHEMATICA CODE << Graphics`ParametricPlot3D`; ParametricPlot3D[ {Cos[s],Sin[t],Sin[s-t]}, {s, 0,Pi},{t, 0,2Pi}, PlotPoints -> {25, 25}, Boxed -> False, Axes -> None]

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