macro2.ijm

resetThreshold();
run("Remove Overlay");
n = roiManager("count");
Dialog.create("Choix");
Dialog.addChoice("paramètre", newArray("Area","Mean","Circ."),"");
Dialog.show();
param = Dialog.getChoice();
m=moy(param);
for (i=0;i<n;i++) {
	roiManager("select",i);
   if (getResult(param,i)<m) {
	run("Properties... ", "name=[] position=none stroke=none width=0 fill=red");
	} else {
	run("Properties... ", "name=[] position=none stroke=none width=0 fill=green");
	}
	run("Add Selection...");
}
run("Select None");

function moy(param) {
	n = roiManager("count");
	t=0;
	for (i=0;i<n;i++) {
		t=t+getResult(param,i);
	}
	return (t/n);
}