Message Boards Message Boards

0
|
722 Views
|
0 Replies
|
0 Total Likes
View groups...
Share
Share this post:

ViewPoint Selector for wolfram notebook

Posted 1 year ago

I was having trouble with all the recommendations from posts that I saw for manually changing the View Point for 3D graphics in the notebook. I didn't have success with using Dynamic or Dynamic Module but this seemed to work for me. Maybe it will save someone some time and frustration:

g1 = Graphics3D[{Sphere[],Cuboid[]}];
    Manipulate[With[{v = RotationTransform[\[Theta]z[[1]]*-2Pi+Pi, {0, 0, 1}][{Pi, 0,Pi}]}, 
            g2= Show[g1, ViewPoint -> {v[[1]],v[[2]],\[Theta]z[[2]]*-40+20}, 
         SphericalRegion -> True]],{{\[Theta]z,{.5,.5}},Locator}]
Dynamic[Options[g2,ViewPoint]]
Dynamic[Show[g2]]
POSTED BY: Damien Waden
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Reply Preview
Attachments
Remove
or Discard

Group Abstract Group Abstract