//最初は自動で
rename("Source");
run("Scale...", "x=0.5 y=0.5 width=4841 height=7764 interpolation=Bilinear average create title=Scaled");
close("Source");
run("Rotate 90 Degrees Right");

//手動でROIを選択する
setTool("polygon");
waitForUser("ROI selection","Select ROI using polygon tool, then click \"OK\".");

//自動でThresholdingまで
setBackgroundColor(0, 0, 0);
run("Clear Outside");
run("Crop");
run("RGB Stack");
run("Stack to Images");
close("Green");
close("Blue");
selectWindow("Red");
run("Enhance Contrast", "saturated=0.35");
run("Threshold...");

//手動でROIを選択する
waitForUser("Thresholding","If necessary, use the \"Threshold\" tool to\nadjust the threshold, then click \"OK\".");

//再び自動でParticle Countまで
getThreshold(lower,upper);
setOption("BlackBackground", false);
run("Convert to Mask");
run("Watershed");
run("Analyze Particles...", "size=50-200 circularity=0.50-1.00 show=Masks clear summarize");