//This macro provides all signal intensity values for a region of interest.
//It appends the information to the results table and
//creates a file to store the information.

macro "getHistogramValues [f2]"{
requires("1.42j");
run("8-bit");
getHistogram (values, counts, 256); 

position = 0;
j=0;
temp=0;
v=0;
i=0;

//find the total number of counts to make a larger array
count_total = 0;

for (v=0; v < counts.length; v++){
	count_total = count_total + counts[v];
}
print(count_total);

a = newArray(count_total);

for(j=0; j < values.length; j++){
	count_local = counts[j];
	while(temp < count_local){
		a[position] = values[j];
		position++;
		temp++;
	}
	temp = 0;
}

Array.sort(a);
run("Clear Results"); 
setBatchMode(true); 
row = 0; 
for(i=0; i<count_total; i++){
	setResult("intensity", row, a[i]);
	row++;
}
updateResults;
s = getString("Enter a string:",s);
path = getDirectory("home") + s + ".xls";
saveChoicePath="Ask for the file destination";
saveAs("Results", path);

}