'this macro opens all image files in a directory, does something to them and stores them someplace else.
'Chaitanya Athale, 2013
macro "Batch Convert Imgs" {batchconvert("Tiff")}

function batchconvert( frmt ){
	dir1 = getDirectory("Choose Input Directory ");
	list = getFileList(dir1);
	print("No. of files:", list.length );
	dir2 = getDirectory("Choose Output Directory to save Images into");
	setBatchMode(true);
	for (i=0; i<list.length; i++) {
    	    print(dir1+list[i]);
    	    open(dir1+list[i]); 
    	    showProgress(i, list.length); 

          'Image #1
          selectWindow(list[i]+"  Ch1");
          run("8-bit");
      run("Enhance Contrast", "saturated=0.4 normalize");
          ofname1=dir2+"Fl_"+list[i];
          print(ofname1);
          saveAs(frmt, ofname1 );
          
          'Image #2
          ofname2=dir2+"Dic_"+list[i];
          selectWindow(list[i]+"  Ch0");
          run("8-bit");
      run("Enhance Contrast", "saturated=0.4 normalize");
          saveAs(frmt, ofname2);
     	    close();
   }
}


function convertTo8Bit() {
      if (bitDepth==24)
          run("8-bit Color", "number=256");
      else
          run("8-bit");
}