macro "Crop_Helper" {
	s = File.separator;
	
	dir = getDirectory("Choose a Directory");
	list = getFileList(dir);
		for (i=0; i<list.length;i++) {
			print("checking object: "+list[i]);
			print(i+1+"/"+list.length + " in Folder");
			hilf = endsWith(list[i],".tif");
			print(hilf);
			if (hilf) {
				open(dir+s+list[i]);
			
		
	//path = File.openDialog("Choose File");
	//directory = File.getParent(path);
	//print(directory);
	//open(path);
		con = true;
		za = 0;
		while (con) {
			waitForUser("Selection", "Draw or change Selection, then click ok \nNo area Selection will turn the whole image");
			Dialog.create("Rotate Selection");
			Dialog.addSlider("Rotation in degrees", -90, 90, 0);
  			Dialog.show();
  			angle = Dialog.getNumber();
  			za = za + angle;
  			setupUndo();
			run("Rotate... ", "angle="+angle+" grid=1 interpolation=Bilinear");
  			happy = getBoolean("Happy?");
  			if (happy) con = false;
  			else {
  				undo = getBoolean("Undo Rotation?");
  				if (undo) run("Undo");
 	 		}
	}
		test = selectionType();
		while (test == -1) {
			waitForUser("Please make Selection before cropping");
			test = selectionType();
		}
	
		run("Crop");
		sav = getBoolean("Split and save automatically? \n(Will be saved in Subfolder of input Folder)\ndefault color order is blue -> green -> red");
		if (sav) {
			File.makeDirectory(dir+s+File.nameWithoutExtension);
			run("Split Channels");
			//wait(2000);
			saveAs("Tiff",dir+s+File.nameWithoutExtension+s+File.nameWithoutExtension+"_blue");
			close();
			//wait(2000);
			saveAs("Tiff",dir+s+File.nameWithoutExtension+s+File.nameWithoutExtension+"_green");
			close();
			//wait(2000);
			saveAs("Tiff",dir+s+File.nameWithoutExtension+s+File.nameWithoutExtension+"_red");
			close();
		}
}
else print("Not a Tif");

}
}