;;;;;;;;;;;;;;;   syori1.pro   ;;;;;;;;;;;;;;;;
; This is a sample program
;  ダーク＆フラット補正
outdir='c:\data\25cm Aug2001\reduced\010816\'
;goto,dc

nkrsyori,	 $
	dir	='',		$	; 生データ
	caldir	='calib\',		$	; 較正用データのディレクトリ
	outdir	=outdir,		$	; 出力先ディレクトリ
	ext	='',			$	; 出力ファイル拡張子(fts 可能)
	fname	='ir1_*.pmi',		$	; ファイル名
	dark	='drk30.pmi',		$	; ダークファイル名
	flat	='irflt'+['2','3','4']+'.pmi',		$	
	fdark	='drk2.pmi',		$	; フラット用ダークファイル名
	flt=flt;	$			; フラット画像取得
;	xcbin=1,ycbin=1
stop

dc:
nkrsyori,	 $
	dir	='',		$
	caldir	='calib\',		$
	outdir	=outdir,		$
	ext	='',			$
	fname	='irdc*.pmi',	$
	dark	='drk2.pmi',		$
	flat	='irflt'+['2','3','4']+'.pmi',		$	
	fdark	='' ,			$	; フラットも共通ダーク
	flt=flt


end