Wolfram Research

Function Repository Resource:

SpinShow

Source Notebook

Create a dynamically rotating Graphics3D object

Contributed by: Jon McLoone

ResourceFunction["SpinShow"][gr]

displays Graphics3D object gr so that it rotates dynamically.

ResourceFunction["SpinShow"][gr,n]

displays Graphics3D object gr so that it rotates dynamically with a period of n seconds.

Examples

Basic Examples

Create a rotating 3D plot:

In[1]:=
ResourceFunction["SpinShow"][Plot3D[Sin[x y], {x, 0, 4}, {y, 0, 4}]]
Out[1]=

Scope

The default rotation period is 10 seconds, but you can create plots that rotate more slowly:

In[2]:=
ResourceFunction["SpinShow"][
 Plot3D[Sin[x y], {x, 0, 4}, {y, 0, 4}], 60]
Out[2]=

Or more quickly:

In[3]:=
ResourceFunction["SpinShow"][Plot3D[Sin[x y], {x, 0, 4}, {y, 0, 4}],
  4]
Out[3]=

Requirements

Wolfram Language 11.3 (March 2018) or above

Resource History

License Information