;+
; NAME:
;	vu_vox_sequence
; PURPOSE:
;	Processes group of t3d files for Volume Pro board
; CATEGORY:
;	sat/idl/util/vupack
; CALLING SEQUENCE:
	PRO vu_vox_sequence, hdr, ff, _extra=_extra
; INPUTS:
;	hdr				array[k]; type: structure
;						information about the tomographic reconstruction
;						(single file or time-dependent sequence)
;						if 'hdr' does not exist, then user is prompted for
;						a data file using the 'pickfile' dialog.
;	ff				array[n,m,l,k,2]; type: float
;						3D volume data associated with 'hdr'
;						if not present then the files
;						specified in the 'hdr' argument are read.
; OPTIONAL INPUT PARAMETERS:
;	All keywords of href=vu_vox_write= are permitted.
; OUTPUTS:
;	(vox files, one voxlist file)
; INCLUDE:
	@compile_opt.pro		; On error, return to caller
; CALLS:
;	vu_vox_write, GetFileSpec
; RESTRICTIONS:
;	M. Bailey's Volume Explorer program vx.exe must be located in
;	%SWW_SMEI%\win\exe
; PROCEDURE:
; MODIFICATION HISTORY:
;	JUL-2001, Paul Hick (UCSD/CASS)
;	NOV-2005, Paul Hick (UCSD/CASS; pphick@ucsd.edu)
;		Substantial rewrite. Instead of creating a DOS batch file
;		to run the vx.exe program with a list of input files on the
;		command line, now an ASCII file *.voxlist is created with
;		the names of all the vox files in it. The list files is written
;		into the same directory as the vox files themselves.
;-

vu_vox_write, hdr, ff, _extra=_extra, vox_files=vox_files

; The vox files should be sorted into the proper order already

nvox = n_elements(vox_files)
name = GetFileSpec(vox_files,from='name') ; Drop directory

openw, /get_lun, iu, GetFileSpec(vox_files[0],upto='name')+'.voxlist'
FOR n=0,nvox-1 DO printf, iu, name[n]
free_lun, iu

message, /info, 'created'+strcompress(nvox)+' VolumePro vox files'

RETURN  &  END