/* Goal:  take 12 images at 5 sec intervals. Combine as they are collected either
as max or min pasted.  Save and start again.  This will result in 1 minute intervals 
with guarrantee of catching events that pass through in less than a minute.  */

	totalMinutesToCollect = 5000;  // 1440 is 24 hours  4320 is 3 days
	newImage("timelapse", "RGB black", 793, 560, 1);
	setLocation(1111,100);  	// move new window away from webpage area
	for (n=0; n<totalMinutesToCollect; n++) {
		for (i=0; i<12; i++) {
			if (i==0) setPasteMode("Copy");
			else setPasteMode("Max");		// this would be min where planes and lines are dark
			run("Capture Screen");
			makeRectangle(7, 167, 793, 560);	// the size of this rectangle must be same size as timelapse window
			run("Copy");
			close();
			selectWindow("timelapse");		
			run("Paste");
			
			wait (5000);	// display on screen
		}  // for i
		run("Duplicate...", " ");
		setLocation(1111,100);  	// move new window away from webpage area
		saveAs("Tiff", "//research-cifs.nyumc.org/Research/MicroscopyCore/mcammer/Airplane Traffic/20220923 beginning approx 1700/tlps"+IJ.pad(n,4)+".tif");
		close();
		selectWindow("timelapse");	
		run("Add Slice");
	} // for n
	run("Delete Slice");
}


  /*   MonthNames = newArray("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec");
     DayNames = newArray("Sun", "Mon","Tue","Wed","Thu","Fri","Sat");
     getDateAndTime(year, month, dayOfWeek, dayOfMonth, hour, minute, second, msec);
     TimeString ="Date: "+DayNames[dayOfWeek]+" ";
     if (dayOfMonth<10) {TimeString = TimeString+"0";}
     TimeString = TimeString+dayOfMonth+"-"+MonthNames[month]+"-"+year+"\nTime: ";
     if (hour<10) {TimeString = TimeString+"0";}
     TimeString = TimeString+hour+":";
     if (minute<10) {TimeString = TimeString+"0";}
     TimeString = TimeString+minute+":";
     if (second<10) {TimeString = TimeString+"0";}
     TimeString = TimeString+second;
     showMessage(TimeString); */

     /*  snip time from lower right of screen and paste on image  */