// Plot Radial Mean Versus Angle // This macro generates a plot of mean radial pixel value // wersus angle. Before running it, use the straight line // tool to create a radial line at the starting angle. requires("1.37u"); getLine(x1, y1, x2, y2, width); if (x1<0) exit("Straight line selection (a radial line) required"); increment = getNumber("Angle Increment (degrees): ", 1)*PI/180; radii = 2*PI/increment; means = newArray(radii); angles = newArray(radii); dx = x2 - x1; dy = y2 - y1; r = sqrt(dx*dx + dy*dy); startingAngle = atan2(dy, dx); for (i=0; i