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>