ScaleImagePlane function

fn scaleImagePlane _theImagePlane _refPointA _refPointB=
		(
			_refPointA.parent = _theImagePlane
			_refPointB.parent = _theImagePlane
			local targetDistance = spnTargetDistance.value
			local theDistance = (distance _refPointA _refPointB)
			local scaleAmt = undefined
			if theDistance != targetDistance do
			(
				scaleAmt = targetDistance / theDistance
				scale _theImagePlane [scaleAmt, scaleAmt, scaleAmt]
			)
			select _theImagePlane
			max zoomext sel all
			print ("The distance is " + distance refPointA refPointB as string)
		)