Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ttPoints = RandomReal[{-1, 1}, {15, 3}];
- Show[
- Graphics3D[Tooltip[Sphere[2 #, .1], #] & /@ ttPoints]
- , SphericalPlot3D[
- 1.5 + .1 Sin[5 ϕ], {θ, 0, Pi}, {ϕ, 0, 2 Pi}
- , Mesh -> None
- , PlotStyle -> Opacity[.25]
- , BoxRatios -> {1, 1, 1}
- ]
- ]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement