Search All of the Math Forum:
Views expressed in these public forums are not endorsed by
NCTM or The Math Forum.



Re: 3D ViewPoint Selector (V5.2) in higher Mathematica versions ?
Posted:
Apr 4, 2013 10:29 PM


Hi,
> in Mathematica V 5.2 there was a useful graphics tool being envoked by Menu > > Input > *3D ViewPoint Selector*. With this interactive palette/notebook one > could easily determine the Cartesian or Spherical coordinates (i.e. {theta, phi, > r} resp. {x,y,} ) of a wireframe cube and then paste these values for the > optimized view of the rotated cube into another Mathematica graphics. > > Unfortunately this tool became obsolete from version 6.0. on (which is mainly > due to the fact that 3D graphics can be manipulated interactively in higher > Mathematica versions.) Nevertheless, in order to determine the optimum viewpoint > coordinates I sometimes miss this tool. And I just searched in the installation > tree structure of Mathematica V5.2 (and higher versions too) for a notebook > resp. palette with the name 3DViewPointSelector (or similar) but could not find > this tool even in V5.2. Of course, one could write a litte application with > Manipulate for rotating a wireframe cube and read out the viewpoint coordinates. > But if this tool already exists why do additional efforts... > > Does anyone know where to look for this nice graphics tool which (if available) > would certainly be applicable in other Mathematica versions too. Help would be > appreciated.
There are many different ways how this could be realized with newer versions. Here is a palette that copies the ViewPoint of the currently selected Graphics3D to the clipboard:
CreatePalette[Button["Copy Viewpoint", Replace[ Cases[NotebookRead[SelectedNotebook[]], _[ ViewPoint, _], \[Infinity]], {v : (ViewPoint > _)} :> CopyToClipboard[v] ] ]]
If nothing is selected or the selection is not a Graphics3D (or contains exactly one of those) it won't change the clipboard content...
hth,
albert



