// CircularQuadrantMeasure.txt // This tool creates an oval (or circular) selection centered around // where you click and measures and labels its four quadrants: // 1) top right, 2) top left, 3) bottom left 4) bottom right. // Double click on the tool icon to change the radius. var radiusw = 30; var radiush = 30; macro "Measure And Label Tool-C00bO11cc" { getCursorLoc(x, y, z, flags); xc=x-radiusw; yc= y-radiusw; makeOval(xc, yc, radiusw*2, radiush*2); getBoundingRect(x, y, width, height); midx = x + width/2; midy = y + height/2; getSelectionCoordinates(sx, sy); for (i=0; imidy) sy[i] = midy; makeSelection(3, sx, sy); //top right quadrant run("Measure"); makeOval(xc, yc, radiusw*2, radiush*2); getBoundingRect(x, y, width, height); midx = x + width/2; midy = y + height/2; getSelectionCoordinates(sx, sy); for (i=0; imidx) sx[i] = midx; for (i=0; imidy) sy[i] = midy; makeSelection(3, sx, sy); //top left quadrant run("Measure"); makeOval(xc, yc, radiusw*2, radiush*2); getBoundingRect(x, y, width, height); midx = x + width/2; midy = y + height/2; getSelectionCoordinates(sx, sy); for (i=0; imidx) sx[i] = midx; for (i=0; i