;;;;;;;;;;;;;;;   syori1.pro   ;;;;;;;;;;;;;;;;
; This is a sample program
date='001024'	; <== 日付をここで指定します
dirorig='c:\pmidata\'+date
dirred='c:\reduced\'+date
goto,g1

g1:
nkrsyori,	 $
	dir	=dirorig+'\calib\',	$
	caldir	=dirorig+'\calib\',	$
	outdir	=dirred+'\g3\',	$
	ext	='fts',			$
	fname	='g2dc2.pmi',	$
	dark	='drk4g.pmi',		$
	flat	='g2flt.pmi',		$
	fdark	='drk15g.pmi' , flt=flt, $
	ccdarea=dirorig+'\g3\g3_000.pmi',	$
	xcbin=2,ycbin=2
stop

g3:
nkrsyori,	 $
	dir	=dirorig+'\g3\',	$
	caldir	=dirorig+'\calib\',	$
	outdir	=dirred+'\g3\',	$
	ext	='fts',			$
	fname	='g3_*.pmi',	$
	dark	='drk20g3.pmi',		$
	flat	='g2flt.pmi',		$
	fdark	='drk15g.pmi' , flt=flt, $
	xcbin=2,ycbin=2
stop

g2dc:
nkrsyori,	 $
	dir	=dirorig+'\calib\',	$
	caldir	=dirorig+'\calib\',	$
	outdir	=dirred+'\g2\',	$
	ext	='fts',			$
	fname	='g2dc2.pmi',	$
	dark	='drk4g.pmi',		$
	flat	='g2flt.pmi',		$
	fdark	='drk15g.pmi' , flt=flt, $
	ccdarea=dirorig+'\g2\g2_000.pmi',	$
	xcbin=2,ycbin=2
stop

g2:
nkrsyori,	 $
	dir	=dirorig+'\g2\',	$
	caldir	=dirorig+'\calib\',	$
	outdir	=dirred+'\g2\',	$
	ext	='fts',			$
	fname	='g2_*.pmi',	$
	dark	='drk15g.pmi',		$
	flat	='g2flt.pmi',		$
	fdark	='drk15g.pmi' , flt=flt, $
	xcbin=2,ycbin=2
stop

g1dc:
nkrsyori,	 $
	dir	=dirorig+'\calib\',	$
	caldir	=dirorig+'\calib\',	$
	outdir	=dirred+'\g1\',	$
	ext	='fts',			$
	fname	='gdc2.pmi',	$
	dark	='drk4g.pmi',		$
	flat	='g2flt.pmi',		$
	fdark	='drk15g.pmi' , flt=flt, $
	ccdarea=dirorig+'\g1\g1_000.pmi',	$
	xcbin=2,ycbin=2
stop

g1:
nkrsyori,	 $
	dir	=dirorig+'\g1\',	$
	caldir	=dirorig+'\calib\',	$
	outdir	=dirred+'\g1\',	$
	ext	='fts',			$
	fname	='g1_*.pmi',	$
	dark	='drk20g.pmi',		$
	flat	='g2flt.pmi',		$
	fdark	='drk15g.pmi' , flt=flt, $
	xcbin=2,ycbin=2
stop

r1dc:
nkrsyori,	 $
	dir	=dirorig+'\calib\',	$
	caldir	=dirorig+'\calib\',	$
	outdir	=dirred+'\r1\',	$
	ext	='fts',			$
	fname	='dc2.pmi',	$
	dark	='drk4.pmi',		$
	flat	='flt'+['1','2']+'.pmi',		$
	fdark	='drk2.pmi' , $
	ccdarea=dirorig+'\r1\r1_000.pmi',	$
	flt=flt,xcbin=2,ycbin=2
stop

r1:
nkrsyori,	 $
	dir	=dirorig+'\r1\',	$
	caldir	=dirorig+'\calib\',	$
	outdir	=dirred+'\r1\',	$
	ext	='fts',			$
	fname	='r1_*.pmi',	$
	dark	='drk20.pmi',		$
	flat	='flt'+['1','2']+'.pmi',		$
	fdark	='drk2.pmi' , flt=flt, $
	xcbin=2,ycbin=2
stop

Ha:
nkrsyori,	 $
	dir	=dirorig+'\ha',	$
	caldir	=dirorig+'\calib',	$
	outdir	=dirred+'\ha',	$
	ext	='fts',			$
	fname	='ha'+['1','2']+'.pmi',	$
	dark	='drk60.pmi',		$
	flat	='',		$
	fdark	='' 
nkrsyori,	 $
	dir	=dirorig+'\ha',	$
	caldir	=dirorig+'\calib',	$
	outdir	=dirred+'\ha',	$
	ext	='fts',			$
	fname	='hadc.pmi',	$
	dark	='drk004.pmi',		$
	flat	='',		$
	fdark	='' 
stop

end