Re: RE: Re: Re: 6.0 Get Graphics Coordinates...
- To: mathgroup at smc.vnet.net
- Subject: [mg78041] Re: [mg77971] RE: [mg77817] Re: [mg77755] Re: 6.0 Get Graphics Coordinates...
- From: DrMajorBob <drmajorbob at bigfoot.com>
- Date: Thu, 21 Jun 2007 06:02:01 -0400 (EDT)
- References: <f4on38$7sg$1@smc.vnet.net> <200706140911.FAA05973@smc.vnet.net> <f4tm2d$ira$1@smc.vnet.net> <200706160724.DAA25722@smc.vnet.net> <200706171011.GAA01990@smc.vnet.net> <27742346.1182337041260.JavaMail.root@m35>
- Reply-to: drmajorbob at bigfoot.com
That's way better than the old alt-click behavior, IMHO.
The palette doesn't get saved, though, unless I move it before closing.
Bobby
On Wed, 20 Jun 2007 05:19:41 -0500, Ingolf Dahl <ingolf.dahl at telia.com>
wrote:
> Here is my suggestion:
> I have created a Matematica-6 palette with three buttons, intended to
> mimic
> the GetGraphicsCoordinates from Mathematica 5.
> Use:
> 1. Select a graphics cell and press the "Add LocatorPane" button.
> 2. Press "Alt" and click the mouse to add or delete point ("locators") to
> the graphics.
> 3. Press the "Copy locator position" to copy a list of the locator
> coordinates to the Clipboard.
> 4. Select a graphics cell and phe "Remove LocatorPane" to reset the
> graphics
> to initial conditions (if you want to do that)
>
> You get the flexibility that it is possible to adjust the position of the
> locators. It seems necessary to start with one point present. I have
> chosen
> to put this point at {0,0}.
>
> Best regards
>
> Ingolf Dahl
>
> Code follows:
>
> CreatePalette[
> Column[{Button["Add LocatorPane",
> SelectionMove[InputNotebook[], All, CellContents];
> NotebookWrite[
> InputNotebook[], (DynamicModuleBox[{$CellContext`pts$$ = {{0.,
> 0.}}}, LocatorPaneBox[Dynamic[$CellContext`pts$$], #,
> LocatorAutoCreate -> True], DynamicModuleValues :> {}]) &@
> NotebookRead[InputNotebook[]]]],
> "Use Alt+Click to add or delete locators!",
> Button["Copy locator positions",
> FrontEndExecute[FrontEndToken["Copy"]];
> SelectionMove[InputNotebook[], All, CellContents];
> Module[{b}, b = NotebookRead[InputNotebook[]];
> If[And[Length[b] >= 3, MatchQ[b[[2]], _LocatorPaneBox]],
> b = b[[1, 1]];
> SelectionMove[ClipboardNotebook[], All, Notebook];
> NotebookWrite[ClipboardNotebook[], ToBoxes[b], All];
> SelectionMove[ClipboardNotebook[], All, Notebook]]]],
> Button["Remove LocatorPane",
> SelectionMove[InputNotebook[], All, CellContents];
> Module[{b}, b = NotebookRead[InputNotebook[]];
> If[And[Length[b] >= 3, MatchQ[b[[2]], _LocatorPaneBox]],
> NotebookWrite[InputNotebook[], b[[2, 2]]]]]],
> Dynamic[MousePosition["Graphics"]]}],
> WindowTitle -> "Get Graphics Coordinates"];
>
>> -----Original Message-----
>> From: Murray Eisenberg [mailto:murray at math.umass.edu]
>> Sent: den 17 juni 2007 12:12
>> To: mathgroup at smc.vnet.net
>> Subject: [mg77817] Re: [mg77755] Re: 6.0 Get Graphics Coordinates...
>>
>> That use of Tooltip merely displays the coordinates of the
>> point. It does not save it in a buffer from which one can
>> later paste it.
>>
>> David wrote:
>> > Murray Eisenberg wrote:
>> >> Useless?? Hardly! Surely just doing Plot[...] and then
>> >> Ctrl-clicking is a lot easier for a beginner (e.g., a
>> student using
>> >> Mathematica) than to deal with a Dynamic object.
>> >>
>> >> On the other hand, and apart from the issue of what to do with
>> >> Ctrl-click when the graphics object is dynamically
>> generated, there
>> >> would seem to be a design issue: Now, in 6.0,
>> Ctrl-mouse-button-down
>> >> is the start of a zoom-in/zoom-out for a 3D graphic.
>> >>
>> >> Jens-Peer Kuska 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
>> >>>>
>> >>>>
>> >
>> > How about the following simple alternative? It closely approximates
>> > the display of points available in pre-6.0, but only shows actual
>> > points on the curve (a benefit for me).
>> >
>> > Plot[Tooltip[Sin[x], Dynamic[MousePosition["Graphics"]]],
>> {x, 0, 10}]
>> >
>> >
>>
>> --
>> Murray Eisenberg murray at math.umass.edu
>> Mathematics & Statistics Dept.
>> Lederle Graduate Research Tower phone 413 549-1020 (H)
>> University of Massachusetts 413 545-2859 (W)
>> 710 North Pleasant Street fax 413 545-1801
>> Amherst, MA 01003-9305
>>
>>
>
>
>
>
--
DrMajorBob at bigfoot.com
- References:
- Re: 6.0 Get Graphics Coordinates...
- From: Jens-Peer Kuska <kuska@informatik.uni-leipzig.de>
- Re: 6.0 Get Graphics Coordinates...
- From: David <habud@hotmail.com>
- Re: Re: 6.0 Get Graphics Coordinates...
- From: Murray Eisenberg <murray@math.umass.edu>
- Re: 6.0 Get Graphics Coordinates...