! EncZoomCalMag.scr
	! Calibrate magnifications

	! -----------------------------------------------------------------------------------------------
loadsub "EncZoomGlob.scr"
	! -----------------------------------------------------------------------------------------------

	gosub GET_QUIET_FLAG ! Sets var quietFlag%
	
	! -----------------------------------------------------------------------------------------------
	gosub CLR_STATUS_MSG_ALL
	gosub SET_SCRIPT_STATUS_FAIL
	
	! -----------------------------------------------------------------------------------------------
	if quietFlag% = 0 then
		msg$ = ""
		msg$ = msg$ & " Measure Mag Cal Data \n\n"
		msg$ = msg$ & " This will measure magnification calibration data. \n\n"
		msg$ = msg$ & " Requires the following: \n"
		msg$ = msg$ & "     Plano interference cavity \n"
		msg$ = msg$ & "     Tilt between " & val$(CalMinTiltPv) & " and " & val$(CalMaxTiltPv) & " fringes at lowest zoom mag \n\n"
		msg$ = msg$ & " This will take less than 10 minutes. \n\n"
		msg$ = msg$ & " Do you want to continue? "
		msgtype% = 6
		gosub SHOW_DIALOG ! Uses vars msg$ and msgtype%, sets var ok%
		if ok% = 0 then
			stop
		endif
	endif
	
	! -----------------------------------------------------------------------------------------------
	msg$ = "Measure Mag Cal Data"
	gosub SET_STATUS_MSG_1
	gosub LOG_DATE_TIME_MSG
	
	! -----------------------------------------------------------------------------------------------
	StartTime = timedate
	
	! -----------------------------------------------------------------------------------------------
	runscript(0, "EncZoomMeasRaw.scr")
	gosub VERIFY_SCRIPT_STATUS_PASS	
	
	! -----------------------------------------------------------------------------------------------
	runscript(0, "EncZoomCalcMag.scr")
	gosub VERIFY_SCRIPT_STATUS_PASS	

	! -----------------------------------------------------------------------------------------------
	msg$ = "Measure Mag Cal Data done"
	gosub SET_STATUS_MSG_2
	gosub LOG_DATE_TIME_MSG
	
	! -----------------------------------------------------------------------------------------------
	ElapsedTime = timedate - StartTime
	
	! -----------------------------------------------------------------------------------------------
	if quietFlag% = 0 then
		msg$ = " Measure Mag Cal Data done \n"
		ofmtr("%.1f")
		msg$ = msg$ & " Elapsed time = " & val$(ElapsedTime/60) & " min "
		gosub SHOW_MESSAGE_DIALOG
	endif
	
	! -----------------------------------------------------------------------------------------------
	end
	
	! -----------------------------------------------------------------------------------------------
loadsub "EncZoomSubs.scr"
	! -----------------------------------------------------------------------------------------------