macro "Noisy Demo Image[1]"{ newImage("Demo", "16-bit black", 500, 500, 1); makeOval(225, 225, 50, 50); run("Add...", "value=5000"); run("Select None"); run("Gaussian Blur...", "sigma=70"); run("Add Noise"); run("Enhance Contrast", "saturated=0.35"); makeLine(150, 150, 350, 350); } //Expects a straight line ROI with center on object center //-Creates normal profile and radial profile macro "Create radial profile[2]"{ id = getImageID; run("Plot Profile"); selectImage(id); getSelectionCoordinates(xx, yy); len= xx.length; cx = round((xx[0] + xx[len-1])/2); cy = round((yy[0] + yy[len-1])/2); rr = round(0.5*sqrt(pow(xx[0] - xx[len-1], 2) + pow(yy[0] - yy[len-1], 2))); amp = newArray(rr); counts = newArray(rr); for(y = -rr; y