Re: Re: 6.0 Get Graphics Coordinates...
- To: mathgroup at smc.vnet.net
- Subject: [mg77704] Re: [mg77609] Re: 6.0 Get Graphics Coordinates...
- From: DrMajorBob <drmajorbob at bigfoot.com>
- Date: Fri, 15 Jun 2007 04:34:51 -0400 (EDT)
- References: <f4on38$7sg$1@smc.vnet.net> <8611945.1181817130956.JavaMail.root@m35>
- Reply-to: drmajorbob at bigfoot.com
Nice.
I'd eliminate Append and Prepend, though:
DynamicModule[{pnt = {0, 0}},
gr /. Graphics[gg_, opts___] :>
Graphics[{gg,
Tooltip[Locator@Dynamic@pnt,
Dynamic@pnt]}, {AxesLabel -> {Dynamic@First@pnt,
Dynamic@Last@pnt}, PlotLabel -> Dynamic@pnt, opts}]]
Bobby
On Thu, 14 Jun 2007 04:11:31 -0500, Jens-Peer Kuska
<kuska at informatik.uni-leipzig.de> wrote:
> 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
>>
>>
>
>
--
DrMajorBob at bigfoot.com