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>
- Re: Locator 3D