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

Re: 6.0 Get Graphics Coordinates...

• To: mathgroup at smc.vnet.net
• Subject: [mg77609] Re: 6.0 Get Graphics Coordinates...
• From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
• Date: Thu, 14 Jun 2007 05:11:31 -0400 (EDT)
• References: <f4on38$7sg$1@smc.vnet.net>

Hi,

it has been droped because it is useless try

gr = Plot[Sin[x^2], {x, 0, 2 Pi}];

and

DynamicModule[{pnt = {0, 0}},
  gr /. Graphics[gg_, opts___] :>
    Graphics[Append[gg, Tooltip[Locator[Dynamic@ pnt], Dynamic@ pnt]],
     Prepend[Prepend[{opts}, PlotLabel -> Dynamic[pnt]],
      AxesLabel -> {Dynamic[First[pnt]], Dynamic[Last[pnt]]}]]
  ]

and

DynamicModule[{pts = {{0, 1/2}, {2, 1/2}}}, LocatorPane[Dynamic[pts],
   gr, LocatorAutoCreate -> True]]

Alt-Mouse click will add points ..

Regards
   Jens

roby.nowak at gmail.com wrote:
> hello, what happened to:
> 5.2  Get Graphics Coordinates...
> 
> in version 5.2 you could click inside a graphic and when holding down
> the <Ctrl> key the coordinates of the cursor within the graphics would
> be displayed. you could then click with the mouse and every clicked
> position got saved in a buffer. then you could copy and paste the
> saved coordinates as a list of number pairs.
> 
> regards robert
> 
> 

• Follow-Ups:
  • Re: : 6.0 Get Graphics Coordinates...
    • From: s-sanam@talk21.com
  • Re: 6.0 Get Graphics Coordinates...
    • From: "alexxx.magni@gmail.com" <alexxx.magni@gmail.com>
  • Re: Re: 6.0 Get Graphics Coordinates...
    • From: "Thomas Dowling" <thomasgdowling@gmail.com>
  • Re: 6.0 Get Graphics Coordinates...
    • From: roby.nowak@gmail.com
  • Re: 6.0 Get Graphics Coordinates...
    • From: Pratik Desai <pratikd@wolfram.com>
  • Re: Re: 6.0 Get Graphics Coordinates...
    • From: Murray Eisenberg <murray@math.umass.edu>