Re: 3D ViewPoint Selector (V5.2) in higher Mathematica versions ?

*To*: mathgroup at smc.vnet.net*Subject*: [mg130346] Re: 3D ViewPoint Selector (V5.2) in higher Mathematica versions ?*From*: "djmpark" <djmpark at comcast.net>*Date*: Wed, 3 Apr 2013 22:52:57 -0400 (EDT)*Delivered-to*: l-mathgroup@mail-archive0.wolfram.com*Delivered-to*: l-mathgroup@wolfram.com*Delivered-to*: mathgroup-newout@smc.vnet.net*Delivered-to*: mathgroup-newsend@smc.vnet.net*References*: <33161264.84076.1364976772343.JavaMail.root@m06>

Robert, Here is a plot: Graphics3D[{Cuboid[{0, 0, 0}]}] In the Output Cell, place the curser before the plot and type "AbsoluteOptions[". Then after the plot type ", ViewPoint]". This will turn the Output Cell into an Input Cell. You can then evaluate to obtain the Viewpoint. You can actively rotate the plot to obtain new values upon re-evaluation. You could also use a list of options. David Park djmpark at comcast.net http://home.comcast.net/~djmpark/index.html From: Dr. Robert Kragler [mailto:kragler at hs-weingarten.de] 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. Thanks R. Kragler -- Prof. Dr. Robert Kragler Email : kragler at hs-weingarten.de URL : http://portal.hs-weingarten.de/web/kragler