Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2007
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2007

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

Search the Archive

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

  • To: mathgroup at smc.vnet.net
  • Subject: [mg77981] Re: [mg77817] Re: [mg77755] Re: 6.0 Get Graphics Coordinates...
  • From: Murray Eisenberg <murray at math.umass.edu>
  • Date: Thu, 21 Jun 2007 05:30:59 -0400 (EDT)
  • Organization: Mathematics & Statistics, Univ. of Mass./Amherst
  • 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> <002f01c7b310$60432410$6400a8c0@dahl1>
  • Reply-to: murray at math.umass.edu

Very nice!

But how can one save this palette?  If I close it, it just goes away -- 
never asks to be saved -- even if I add the Saveable->True option.

Ingolf Dahl 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
>>
>>
> 
> 

-- 
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: RE: Re: Re: 6.0 Get Graphics Coordinates...
  • Next by Date: Quick Question
  • Previous by thread: Re: RE: Re: Re: 6.0 Get Graphics Coordinates...
  • Next by thread: Re: 6.0 Get Graphics Coordinates...