MathGroup Archive 2008

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

Search the Archive

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
> 
> 


  • Prev by Date: Re: sending programatically output to clipboard
  • Next by Date: Re: Implementing a array assignment for custom data structure
  • Previous by thread: Re: How to connect one object to the other?
  • Next by thread: sending programatically output to clipboard