MathGroup Archive 2007

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

Search the Archive

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


  • Prev by Date: Re: Are comments safe inside notebook cells in Mathematica 6?
  • Next by Date: Search works, but Search & Replace fails, with subscripts
  • Previous by thread: 6.0 Get Graphics Coordinates...
  • Next by thread: Re: Re: 6.0 Get Graphics Coordinates...