Services & Resources / Wolfram Forums / MathGroup Archive

MathGroup Archive 2007

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

Search the Archive

Re: Errant post?

  • To: mathgroup at
  • Subject: [mg82665] Re: Errant post?
  • From: Brainiac at
  • Date: Sun, 28 Oct 2007 03:55:25 -0500 (EST)

Here's a function I wrote that seems to solve the problem.

clickCoordinateList[g_Graphics]:=DynamicModule[{pts = {}},
       Graphics[{Black, Point /@ pts}]], (pts = Append[pts, #]) &],
     "\nStart clicking on the graph above.  The list below will grow, \
with one new x-y coordinate pair for each click.  When you're done, \
highlight the list from just before the first brace to just past the \
last one.  Next, use Edit/Copy on the front end menu bar to put the \
list on the clipboard.  Then you can Edit/Paste the list into a new \
input cell for further manipulation.  If you highlight much beyond \
the list, you'll just get a string with the name of the internal \
coordinate list variable (pts$$) when you paste into a new cell, \
rather than the coordinates themselves.  \n\n You may find it useful \
to copy this function into the init.m file in the \
$UserBaseDirectory/Kernel subdirectory so it's available every time \
you start Mathematica.\n", FontFamily -> "Helvetica", FontSize -> 12,
     FontWeight -> Bold, FontColor -> Red],
Here's an example of how to use this function:
pastedPoints=**** paste list from above here ****;

---Joe DeWitte

  • Prev by Date: Re: Ordering function weird?
  • Next by Date: Re: Re: Re: What am I doing wrong with this code?
  • Previous by thread: Re: Why is NonCommutativeMultiply Protected?
  • Next by thread: Solving Inequality