Services & ResourcesWolfram ForumsMathGroup Archive

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

Re: 6.0 Get Graphics Coordinates...

• To: mathgroup at smc.vnet.net
• Subject: [mg77996] Re: 6.0 Get Graphics Coordinates...
• From: "alexxx.magni at gmail.com" <alexxx.magni at gmail.com>
• Date: Thu, 21 Jun 2007 05:38:48 -0400 (EDT)
• References: <f4on38$7sg$1@smc.vnet.net><200706140911.FAA05973@smc.vnet.net>

This is a beautiful solution!
Can you please help me to understand how to install it under the
"Palettes" menu?
If I do simply Install Palette -> From Clipboard (after having copied
there your code) it crashes Mathematica with SIGSEGV ...

thanks!

Alessandro Magni

On 20 Giu, 12:21, "Ingolf Dahl" <ingolf.d... 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:mur... at math.umass.edu]
> > Sent: den 17 juni 2007 12:12
> > To: mathgr... at smc.vnet.net
> > Subject:  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.no... 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                     mur... 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

• Follow-Ups:
  • RE: Re: 6.0 Get Graphics Coordinates...
    • From: "Ingolf Dahl" <ingolf.dahl@telia.com>

• References:
  • Re: 6.0 Get Graphics Coordinates...
    • From: Jens-Peer Kuska <kuska@informatik.uni-leipzig.de>