Hi,
I had wrote a macro that can be used to measure distances between one point and its surrounding points. It will also draw overlay lines to connect that point and its surrounding points. Maybe you can modify the macro to suit your needs. The macro is attached below. To run this macro, copy it into a blank macro window and run it.
//open an example image
run("Blobs (25K)");
run("Find Maxima...", "noise=25 output=[Point Selection]");
run("ROI Manager...");
roiManager("Add");
function length (x1, y1, x2, y2) {
sum_difference_squared = pow((x2 - x1),2) + pow((y2 - y1),2);
output = pow(sum_difference_squared, 0.5);
return output;
}
ROI=1; //To select the point / ROI
run("Remove Overlay");
getVoxelSize(width, height, depth, unit);
run("Clear Results");
run("Set Measurements...", " centroid display redirect=None decimal=3");
roiManager("Deselect");
roiManager("Measure");
r=nResults();
Label=newArray(r);
X=newArray(r);
Y=newArray(r);
for(i=0;i<r;i++) {
Label[i]=getResultLabel(i);
X[i]=getResult("X",i)/width; //convert to pixel for use with makeLine
Y[i]=getResult("Y",i)/width; //convert to pixel for use with makeLine
}
//Draw overlay line
for(i=0;i<r;i++) {
makeLine(X[ROI-1], Y[ROI-1], X[i], Y[i], 1);
run("Add Selection...", "stroke=white width=2");
}
run("Select None");
d=newArray(r);
for(i=0;i<r;i++) {
d[i]=length(X[ROI-1],Y[ROI-1],X[i],Y[i]); //index starts at 0
setResult(Label[ROI-1], i, d[i]); //index starts at 0
}
Best Regards,
John Lim
________________________________________
From: ImageJ Interest Group [
[hidden email]] On Behalf Of David Webster [
[hidden email]]
Sent: Friday, May 06, 2011 5:33 AM
To:
[hidden email]
Subject: Re: How to automatically draw lines between a point and it's nearest neighbours
If you already have the xy coordinates of each point's nearest neighbors,
then hoe about using the "*drawLine(x1, y1, x2, y2)" *macro functon. Note,
this function should/will
be applied to the currently active image.
David Wewbtser
On Wed, May 4, 2011 at 9:35 AM, mattbenton123 <
[hidden email]>wrote:
Locked
