Skip to main content
1 of 4
mdcq
  • 247
  • 3
  • 6

Rotate 3D plot into animation

I know this is not the first question on creating an animation of a 3D plot, but I found no answere to the following question: How can I create an animated rotating plot with axes labels that are readable? What I currently have doesn't look good and the axes labels are not readable since they jump around to different axes. Also it's not centered and doesn't rotate a full rotation.

enter image description here

My code currently is adapted from this answer

anim = Table[ RegionPlot3D[ 0 <= x <= y <= z <= 1, {x, 0, 1}, {y, 0, 1}, {z, 0, 1}, PlotRange -> {{0, n}, {0, n}, {0, n}}, PlotStyle -> Opacity[0.7], AxesStyle ->}, Boxed -> False, ViewCenter -> {0.5, 0.5, 0.5}, ViewVector -> {Sin[t], Cos[t], 0} ], {t, 0, 2*Pi, Pi/30}]; Export["animated.gif", anim] 

I want it to look similar to the following, which is centered and has a slight view from above. Also the plot should rotate exactly once around its axis so that the loop of the gif isn't noticeable.

enter image description here

mdcq
  • 247
  • 3
  • 6