;+
; NAME:
;	smei_star_update
; PURPOSE:
;	Update star subtractions in SMEI data base
; CATEGORY:
;	camera/idl/star
; CALLING SEQUENCE:
	PRO smei_star_update, camera=camera, mode=mode
; INPUTS:
;	(none)
; OPTIONAL INPUT PARAMETERS:
; OUTPUTS:
; OPTIONAL OUTPUT PARAMETERS:
; INCLUDE:
	@compile_opt.pro		; On error, return to caller
; CALLS:
;	InitVar, IsType, FindAllFiles, smei_star_remove
; PROCEDURE:
; MODIFICATION HISTORY:
;	NOV-2006, Paul Hick (UCSD/CASS; pphick@ucsd.edu)
;-

InitVar, camera, [1,2,3]

root = getenv('SMEISKY0')
sky_root = filepath(root=root,'sky')
equ_root = filepath(root=root,'equ')
pnt_root = filepath(root=root,'pnt')

IF IsType(mode,/defined) THEN BEGIN
	IF mode EQ 0 THEN cmode = 'm0' ELSE cmode = ''
ENDIF

FOR icam=0,n_elements(camera)-1 DO BEGIN

	cam = 'c'+strcompress(camera[icam],/rem)

	sky = FindAllFiles( path=filepath(root=sky_root,cam+cmode), count=nsky )

	destination =	$
		[filepath(root=equ_root,cam+cmode), $
		 filepath(root=pnt_root,cam+cmode)]

	FOR isky=0,nsky-1 DO	$
		smei_star_remove, sky[isky]  , $
			destination = destination, $
			/fixcentroid	, $
			/keepbkgnd		, $
			/checkversion	, $
			/noplane 	 	, $
			/degrees		, $
			bkgnd_radius = [1.25,1.45], $
			bkgnd_count  = 25

ENDFOR

RETURN  &  END