Services & ResourcesWolfram ForumsMathGroup Archive

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

Re: Re: Locator 3D

• To: mathgroup at smc.vnet.net
• Subject: [mg83523] Re: [mg83508] Re: Locator 3D
• From: "Szabolcs HorvÃt" <szhorvat at gmail.com>
• Date: Thu, 22 Nov 2007 04:44:54 -0500 (EST)
• References: <fi0ndv$5c5$1@smc.vnet.net> <200711211059.FAA13110@smc.vnet.net>

Hmmm ... this might be a good start:

DynamicModule[{pos = {{0, 0, 0}, {0, 0, 0}}},
 EventHandler[
  Graphics3D[{Sphere[Dynamic[First@pos], .1]}, PlotRange -> 1],
  {"MouseMoved" :> (pos =
      MousePosition["Graphics3DBoxIntercepts"])}
 ]]

(Example "stolen" from the doc page of EventHandler[].)

Szabolcs

On Nov 21, 2007 3:06 PM, Ingolf Dahl <ingolf.dahl at telia.com> wrote:
> One could also think of locators with "object snap", in such a way that the
> movement in the 3D case is confined to some graphic elements (points, lines
> or surfaces), present in the 3D graphics. The movement of the locator can
> then be controlled by the 2D position of the mouse in the image plane. But I
> do not know how to implement that in Mathematica in a good way. One could
> maybe imagine working on a freezed(=fixed viewpoint) 2D projection of the 3D
> image, with ordinary 2D locators, and then search the graphics for 3D
> objects with 2D projections in the neighborhood of the locator positions.
> Another possibility is to have two freezed 2D projections from different
> directions, with a common list of 3D locators, coupled to the 2D locators of
> the two projections.
> A third possibility is to use the mouse wheel, available on many mice. But
> how to see where the locator is in the depth direction?
> With all the clever programmers following MathGroup, maybe someone...
>
> Best regards
>
> Ingolf Dahl
>
> -----Original Message-----
> From: Szabolcs Horvát [mailto:szhorvat at gmail.com]
> Sent: 21 November 2007 12:00
> To: mathgroup at smc.vnet.net
> Subject: [mg83508] Re: Locator 3D
>
> roby.nowak at gmail.com wrote:
> > Hi everybody,
> >
> > is there something like a 3D Locator in Mathematica 6.0 ?
> > how could such a thing be realised ?
>
> The advantage of a Locator over something like
>
> Manipulate[
>   Graphics[Point[{x, y}], PlotRange -> 1],
>   {x, -1, 1}, {y, -1, 1}]
>
> is that it can be directly moved with the mouse.  To easily move a point in
> 3D, one needs a special input device.  If you do have such a device, then
> you might want to look at the documentation page
> guide/GamepadAndDeviceInterface .  It should be possible to use it to move a
> point in 3D, but I never had the chance to try this because I do not have
> access to game pads.
>
> --
> Szabolcs
>
>
>
>

• References:
  • Re: Locator 3D
    • From: Szabolcs Horvát <szhorvat@gmail.com>