Services & ResourcesWolfram ForumsMathGroup Archive

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

How to connect one object to the other?

• To: mathgroup at smc.vnet.net
• Subject: [mg88893] How to connect one object to the other?
• From: "Gohar Sultan" <contact2gohar at gmail.com>
• Date: Tue, 20 May 2008 06:53:29 -0400 (EDT)

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

• Follow-Ups:
  • Re: Re: How to connect one object to the other?
    • From: "Gohar Sultan" <contact2gohar@gmail.com>
  • Re: How to connect one object to the other?
    • From: Syd Geraghty <sydgeraghty@mac.com>