Re: 3D ViewPoint Selector (V5.2) in higher Mathematica versions ?
- To: mathgroup at smc.vnet.net
- Subject: [mg130370] Re: 3D ViewPoint Selector (V5.2) in higher Mathematica versions ?
- From: Alexei Boulbitch <Alexei.Boulbitch at iee.lu>
- Date: Thu, 4 Apr 2013 22:35:36 -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
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 view point
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
Hi, Robert,
I do not know the answer to your precise question. However, few years ago somebody (whose name I cannot recall now) published on this site a nice handy code helping in such situations. Stressing that it is not mine (but belongs to the public domain, since it has been disclosed) I give it below along with a short explanation.
(* This is the code *)
extractViews[ll_] :=
Flatten[Union[Extract[ll, Position[ll, #]] & /@
{ViewPoint -> _, ViewCenter -> _, ViewVertical -> _,
ViewAngle -> _, ViewVector -> _, ViewRange -> _}]];
(* End of the code *)
How to operate:
1. Enter extractViews[] in a cell below the graphic.
2. Move the graphic to your liking.
3. Set the cursor between the brackets of ExtrahiereViews.
4. Make a "Copy output from above" (CtrlShiftL) and evaluate.
You'll get the values.
Have fun, Alexei
Alexei BOULBITCH, Dr., habil.
IEE S.A.
ZAE Weiergewan,
11, rue Edmond Reuter,
L-5326 Contern, LUXEMBOURG
Office phone : +352-2454-2566
Office fax: +352-2454-3566
mobile phone: +49 151 52 40 66 44
e-mail: alexei.boulbitch at iee.lu