ヴィラソーの円を回転して

作ったトーラス

MATHEMATICA CODE

a = 3;
b = 6;
c = Sqrt[b^2 - a^2];

fx[s_, t_] := (a + b*Cos[s])*Cos[t] - c*Sin[s]*Sin[t];
fy[s_, t_] := (a + b*Cos[s])*Sin[t] + c*Sin[s]*Cos[t];
fz[s_, t_] := a Sin[s];

gr = ParametricPlot3D[{fx[s, t], fy[s, t], fz[s, t]},
{s, 0, 2Pi},
{t, 0, 2Pi},
Axes -> False,
PlotPoints -> {25, 25},
Boxed -> False,
DisplayFunction -> $DisplayFunction]

  フレームの中でドラッグすると回転し、離すとそのまま回転を続けます。
  右クリックのドラッグ(上から下)で、トーラスの皮がめくれるよ???




JAVAなので、セキュリティ・レベルが高いと動きません。