Drexel dragonThe Math ForumDonate to the Math Forum



Search All of the Math Forum:

Views expressed in these public forums are not endorsed by Drexel University or The Math Forum.


Math Forum » Discussions » Software » comp.soft-sys.math.mathematica

Topic: 3D ViewPoint Selector (V5.2) in higher Mathematica versions ?
Replies: 2   Last Post: Apr 4, 2013 10:30 PM

Advanced Search

Back to Topic List Back to Topic List Jump to Tree View Jump to Tree View   Messages: [ Previous | Next ]
Alexei Boulbitch

Posts: 479
Registered: 2/28/08
Re: 3D ViewPoint Selector (V5.2) in higher Mathematica versions ?
Posted: Apr 4, 2013 10:30 PM
  Click to see the message monospaced in plain text Plain Text   Click to reply to this topic Reply

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@iee.lu








Point your RSS reader here for a feed of the latest messages in this topic.

[Privacy Policy] [Terms of Use]

© Drexel University 1994-2014. All Rights Reserved.
The Math Forum is a research and educational enterprise of the Drexel University School of Education.