算命用琥珀水晶球

h = DensityPlot3D[
  Sin[x] Cos[y] Sin[z], {x, y, z} \[Element] Ball[{0, 0, 0}, 5], 
  PlotTheme -> "Classic", ColorFunction -> "Rainbow", Boxed -> False, 
  Axes -> False, PlotPoints -> 100]

rotateMeHarder1[g_, vertical_, viewpoint0_, center_List: {0, 0, 0}, 
  nframes_Integer: 15, opts : OptionsPattern[]] := 
 Module[{grlist}, 
  grlist = Table[Show[g, ViewVertical -> vertical,ViewVector -> {RotationMatrix[2 Pi/nframes i, vertical].(viewpoint0 - center) + center, center}, SphericalRegion -> True, opts], {i, 0, nframes - 1}]]

h01list = 
 rotateMeHarder1[h, {0, 0, 1}, {8, 8, 8}, {0, 0, 0}, 50, 
  ViewAngle -> 50 Degree]

Export["amber-crystallBall.gif", h01list, "TransparentColor" -> White, 
 "TransitionEffect" -> "Background", "DisplayDurations" -> 0.1, 
 "AnimationRepetitions" -> Infinity]

ListAnimate@h01list