Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2005
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2005

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: Mouse controlled 3D rotations

  • To: mathgroup at smc.vnet.net
  • Subject: [mg57920] Re: Mouse controlled 3D rotations
  • From: David Bailey <dave at Remove_Thisdbailey.co.uk>
  • Date: Sun, 12 Jun 2005 04:34:51 -0400 (EDT)
  • References: <d8bcer$fec$1@smc.vnet.net> <d8e4tt$gmk$1@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

Hugh Goyder wrote:
> Dear Jim,
> 
> Surprisingly Mathematica does not support mouse controlled rotations. The
> graphics are composed in a manner that makes this possible but it is not
> implemented.
> 
> My normal approach is to use the free applet from Martin Kraus which works
> very well. It may be found at
> 
> http://www.vis.uni-stuttgart.de/~kraus/LiveGraphics3D/
> 
> However, Mathematica does now have a GUIkit and this should be the internal
> way of making mouse controlled rotations. I have had a go at making the
> GUIkit undertake this task. It works but it is not very successful because
> it is so slow. I enclose my development example, below, in case anyone can
> see a way to make this work quickly.
> 
> For your animations issues you should be aware that the normal route is to
> make a number of slides and then double click on one slide to get the
> animations to work. If you search the mathgroup archive you will find code
> for collapsing all the slides after they have been produced to give a neater
> effect.
> 
> Hugh Goyder
> 
> Needs["GUIKit`"]
> gg = Graphics3D[
> Plot3D[Sin[x y], {x, 0, Pi}, {y, 0, 2Pi}, PlotPoints -> {30, 30},
> ColorFunction -> Hue]];
> ex = Widget["Panel", {
> {Widget["Label", {"text" -> "x:"}],
> Widget["Slider",
> {BindEvent["change", Script[sliderFunc[];]]},
> Name -> "sx",
> WidgetLayout -> {"Stretching" -> {Maximize, False}}]},
> 
> {Widget["Label", {"text" -> "y:"}],
> Widget["Slider",
> {BindEvent["change", Script[sliderFunc[];]]},
> Name -> "sy",
> WidgetLayout -> {"Stretching" -> {Maximize, False}}]},
> 
> {Widget["Label", {"text" -> "z:"}],
> Widget["Slider",
> {BindEvent["change", Script[sliderFunc[];]]},
> Name -> "sz",
> WidgetLayout -> {"Stretching" -> {Maximize, False}}]},
> 
> Widget["MathPanel",
> {"preferredSize" ->
> Widget["Dimension", {"width" -> 288, "height" -> 288}]},
> Name -> "canvas",
> WidgetLayout -> {"Stretching" -> {True, Maximize}}],
> 
> 
> "preferredSize" ->
> Widget["Dimension", {"width" -> 288, "height" -> 340}],
> 
> BindEvent["componentResized", Script[sliderFunc[];]],
> 
> Script[
> sliderFunc[] := Module[{ax, ay, az },
> ax = ToExpression[PropertyValue[{"sx", "value"}]];
> ay = ToExpression[PropertyValue[{"sy", "value"}]];
> az = ToExpression[PropertyValue[{"sz", "value"}]];
> 
> 
> expr = Show[gg, PlotRange -> All, ViewPoint -> {ax, ay, az},
> DisplayFunction -> Identity];
> 
> SetPropertyValue[{"canvas", "mathCommand"},
> ToString[expr, InputForm]] ];
> sliderFunc[];
> ]
> 
> }];
> RealTimePlot[] := GUIRun[ex, IncludedScriptContexts -> {$Context}];
> 
> RealTimePlot[]
> 
> 
> 
> 
> 
> "Jim Hafner" <hafner at almaden.ibm.com> wrote in message
> news:d8bcer$fec$1 at smc.vnet.net...
> 
>>Is there a way to build a 3D graphics object (e.g., a simple
>>Tetrahedron) and manipulate it (e.g., rotate it in 3D) with the mouse?
>>
>>There is an example on webMathematica of just this, but I haven't
>>figured out how to do it at all in plain ol' Mathematica.
>>
>>Does it matter what system I'm on (AIX 5.1 or WinXP)?
>>
>>I noticed that on AIX5.1, starting math kernel (no notebooks) that I can
>>use Animate[] to make a movie of a rotating Tetrahedron.  In XP, the
>>same doesn't produce anything.  On either system, in a notebook, I just
>>get multiple graphics objects, one for each rotational position -- 
>>there's no live animation.
>>
>>Any guidance is appreciated.
>>
>>Jim Hafner
>>hafner at almaden.ibm.com
>>
> 
> 
> 
I have been working on my "Super Widget Package" designed to simplify 
and extend the use of GUIKit. In the version that I will release soon, 
there is a LiveGraphics3D super widget. This uses Martin Kraus' 
LiveGraphics3D applet, but embeds it in a larger GUIKit GUI. Please 
contact me for more details, or look on my website.

David Bailey
http://www.dbaileyconsultancy.co.uk


  • Prev by Date: Re: Re: Getting simple answers from Reduce, ComplexExpand and FullSimplify
  • Next by Date: ArrayPlot: ColorRules v. ColorFunction
  • Previous by thread: Re: Mouse controlled 3D rotations
  • Next by thread: Integration of function fails