! EncZoomArtifMeas.scr
	! Encoded Zoom Artifact Measurment
	! Measures a zone of the Zoom Calibrate Artifact.

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

	gosub CLR_STATUS_MSG_ALL
	gosub SET_SCRIPT_STATUS_FAIL
	
	! -----------------------------------------------------------------------------------------------
	msg$ = "Measure Zone"
	gosub SET_STATUS_MSG_1
	
	! -----------------------------------------------------------------------------------------------
	gosub MEASURE_ARTIF_ZONE
	
	! -----------------------------------------------------------------------------------------------
	gosub SET_SCRIPT_STATUS_PASS

	! -----------------------------------------------------------------------------------------------
	end

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