Re: How to connect one object to the other?
- To: mathgroup at smc.vnet.net
- Subject: [mg88933] Re: How to connect one object to the other?
- From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
- Date: Wed, 21 May 2008 14:53:24 -0400 (EDT)
- Organization: Uni Leipzig
- References: <g0uait$4uv$1@smc.vnet.net>
- Reply-to: kuska at informatik.uni-leipzig.de
Hi,
smomething like:
DynamicModule[{p = {0.5, 0.5}},
Graphics[
{Locator[Dynamic[p]], Arrow[{{0, 0}, Dynamic[p]}]},
PlotRange -> {{-1, 1}, {-1, 1}}
]
]
??
Regards
Jens
Gohar Sultan wrote:
> i am using Mathematica 6 on Window XP
>
> this code makes disk drag able disk objects, i want to connect them with
> arrow, how con i achieve this, any ideas?
>
> plotObject[G_] := Locator[{RandomReal[30], RandomReal[30]},
> Graphics[G], ImageSize -> 20]
>
> p = {
> RGBColor[RandomReal[1], RandomReal[1], RandomReal[1], 0.5],
> Disk[{5, 5}, 5]
> }
>
> Framed@Graphics[
> Table[plotObject[{RGBColor[RandomReal[1], RandomReal[1],
> RandomReal[1], 0.5], Disk[{5, 5}, 5]}], {i, 10}],
> PlotRange -> 50]
>
>
>
>
> Thanks in advance,
> Gohar Sultan
>
>