lgelman

// ******************************************************************************
//	Initialisation: Close all windows (images, results, etc)
// ******************************************************************************

	run("Set Measurements...", "center redirect=None decimal=9");
	// Close all windows
	run("Close All");
	// Clears Log Window
	print("\\Clear");
	// Close Result window

lgelman

//
// *** Start: White balance ***
//

name=getTitle();
run("Split Channels");
MeanColor=newArray(3);

maxi = 0;
for (u=1; u<4; u++) {