! EncZoomCalcMag.scr
	! Calculate magnification calibration data

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

	gosub CLR_STATUS_MSG_2
	gosub SET_SCRIPT_STATUS_FAIL
	
	! -----------------------------------------------------------------------------------------------
	gosub GET_1X_POS ! Gets control value into var OneXPos
	if OneXPos <= 0 then
		msg$ = " The 1X Pos control is not set "
		gosub SHOW_ERROR_DIALOG
		stop
	endif
	
	! -----------------------------------------------------------------------------------------------
	gosub LOAD_RAW_CAL_DATA			! Uses var RawCalDataFile$
									! Sets vars NumCalPos%, TargPosAry(), ActualPosAry()
									! PosErrorAry(), MeasPvAry() and GenPvAry()
	
	! -----------------------------------------------------------------------------------------------
	gosub CALCULATE_1X_PV			! Uses vars OneXPos, ActualPosAry() and NumCalPos%
									! Sets var OneXPv
	
	! -----------------------------------------------------------------------------------------------
	gosub CALCULATE_MAG_DATA		! Uses vars OneXPv, GenPvAry() and NumCalPos%
									! Sets var MagAry()
	
	! -----------------------------------------------------------------------------------------------
	gosub SAVE_ZOOM_CAL_DATA		! Uses vars ZoomCalDataFile$, NumCalPos%, ActualPosAry(), MagAry()
	
	! -----------------------------------------------------------------------------------------------
	msg$ = "Saved file " & ZoomCalDataFile$
	gosub SET_STATUS_MSG_2
	
	! -----------------------------------------------------------------------------------------------
	gosub SET_SCRIPT_STATUS_PASS
	
	! -----------------------------------------------------------------------------------------------
	end

	! -----------------------------------------------------------------------------------------------
loadsub "EncZoomSubs.scr"
	! -----------------------------------------------------------------------------------------------