################################################################################
#
# Escan
#
# Taken from standard.mac and modified to write the Q-positions into the data 
# file
#
# dw 01.20.2000 
#
################################################################################
#
def Escan '
	if ($# != 4 && $# != 5 || $# == 5 && "$5" != "fixQ") {
		eprint "\
Usage: Escan start finish intervals time [fixQ]\n\
       (Units are KeV)\n\
       (the literal \"fixQ\" means keep HKL constant)"
		exit
	} 

	{ _s1 = $1; _f1 = $2; _n1 = int($3); _ctime = $4; }

	if (_n1 <= 0) {
		eprint "Number of Intervals <= 0"
		exit
	} 
	if (_s1 <= 0 || _f1 <= 0) {
		eprint "Can only deal with positive energies."
		exit
	}

	_bad_lim = 0
	_chk_mlim _s1
	_chk_mlim _f1
	if (_bad_lim) exit

	HEADING = sprintf("Escan %g %g %g %g%s",$1,$2,$3,$4,$#>4?" $5":"")
	_d1 = (_f1 - _s1) / _n1++
	X_L = "Energy (keV)"
	Y_L = cnt_name(DET)
	_sx = _s1; _fx = _f1

	FPRNT=sprintf("Energy  %s  ",motor_name(Mono))
	PPRNT=sprintf("%9.9s %9.9s ", "Energy",motor_name(Mono))
	_stype = 1|(1<<8)
	_cols=2
	if (mono_type == 2) {
		FPRNT=sprintf("%s%s  ",FPRNT,motor_name(mon_y))
		PPRNT=sprintf("%s%9.9s ",PPRNT,motor_name(mon_y))
		_stype = 1|(2<<8)
		_cols=3
	}
	if (mono_type == 3 || mono_type == 4) {
		FPRNT=sprintf("%s%s  %s  ",FPRNT,\
		  motor_name(montrav),motor_name(mond))
		PPRNT=sprintf("%s%9.9s %9.9s ",PPRNT,\
		  motor_name(montrav),motor_name(mond))
		_stype = 1|(3<<8)
		_cols=4
	}
	FPRNT=sprintf("%s%s  ",FPRNT,_hkl_sym1)
	VPRNT=PPRNT
	_cols+=3

	scan_head
	def _scan_on \'
	 {
	   local h_ca k_ca l_ca
	   if ("$5" == "fixQ") {
		h_ca = H
		k_ca = K
		l_ca = L
	   }
	   for (; NPTS < _n1; NPTS++) {
		local   E
		get_angles
		E = _s1 + NPTS * _d1
		calcM E; calcE
		if ("$5" == "fixQ") {
			H = h_ca
			K = k_ca
			L = l_ca
			calcA
		}
		scan_move
		calcE; E = hc_over_e / LAMBDA
		FPRNT=sprintf("%g %.8g ",E,A[Mono])
		PPRNT=sprintf("%9.4f %9.4f ",E,A[Mono])
		if (mono_type == 2) {
		    FPRNT=sprintf("%s%.8g ",FPRNT,A[mon_y])
		    PPRNT=sprintf("%s%9.4f ",PPRNT,A[mon_y])
		}
		if (mono_type == 3 || mono_type == 4) {
		    FPRNT=sprintf("%s%.8g %.8g ",FPRNT,A[montrav],A[mond])
		    PPRNT=sprintf("%s%9.4f %9.4f ",PPRNT,A[montrav],A[mond])
		}
		FPRNT=sprintf("%s%s ",FPRNT,_hkl_val)
		VPRNT=PPRNT
		scan_loop
		scan_data(NPTS, E)
		scan_plot
	   }
	 }
	 scan_tail
	\'
	_scan_on
'
#
#
#
#