Services & Resources / Wolfram Forums / MathGroup Archive

MathGroup Archive 2007

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

Search the Archive

RE: Re: Re: 6.0 Get Graphics Coordinates...

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
> 
>
  • Prev by Date: Re: Maximum memory accessible by Mathematica 6.0 in Windows XP
  • Next by Date: Re: Re: 6.0 Standard Packages?, New Style Documentation?
  • Previous by thread: Re: Re: 6.0 Get Graphics Coordinates...
  • Next by thread: Re: RE: Re: Re: 6.0 Get Graphics Coordinates...