#Dieses Skript exportiert tdf files ins jpg-Format. Durch ändern von "jpg" in
#z.B. "tif" unter "expim" lässt sich das Format ändern. In der "foreach
#Schleife" kann der Input-File geändert werden (z.B. "noaa-16*"). Infos zu den einzelnen Modulen bekommt man mit "thelp Modulname" im
#Terminalfenster (Internet Browser muss gestartet sein). 
#Ein- und Ausgabepfad können ebenfalls angepasst werden (cd /usr/......)
#Die Farbpaletten befinden sich in /opt/terascan_3.1/terascan/refdata/palettes; 
#Statt des "dcw.coast" Files im Modul "coast" könnte z.B auch "dcw.streams" verwendet werden. 
#Momentan wird nur Kanal2 exportiert. Durch ersetzen von "avhrr_ch2" durch einen anderen Kanal im gesamten Skript kann dies geändert werden.
# GIUB RSRG  Stand:29.05.02

#! /bin/csh -fx

cd /usr/data/maroc/masked_files/

foreach file (noaa-1*)

bvhist \
        	hist_vars='avhrr_ch2' \
	        bin_counts='256' \
	        estimate_range='yes' \
        	count_outside='yes' \
	        log_scale='n' \
        	unit_scale='n' \
	        lookup_table='y' \
        	bin_centers='no' \
	$file \
	$file.histo.avhrr
	
enhance \
      		 include_vars='avhrr_ch2'\
      		 lookup_file=$file.histo.avhrr \
      		 value_var='avhrr_ch2' \
      		 index_var='histogram' \
      		 image_colors='256' \
      		 bad_index='255' \
	$file \
	$file.enh.avhrr

imscale \
        	include_vars='avhrr_ch2' \
	        image_colors='256' \
        	max_width='1250' \
	        max_height='1050' \
        	fixed_size='no' \
	        zoom_factor='1' \
        	real_resample='yes' \
	        est_range='y' \
        	#min_value='-7' \
	        #max_value='35' \
        	invert_scale='no' \
	        north_up='yes' \
	$file.enh.avhrr \
	$file.byte


coast \
        	master_file='/wolga/TERA_SCRIPT/MOROCCO/Master_marokko_utmwgs84.mas' \
	        reduce_factor='1' \
        	coast_file='dcw.coast' \
	$file.coast

llgrid \
		master_file='/wolga/TERA_SCRIPT/MOROCCO/Master_marokko_utmwgs84.mas' \
        	grid_type='lines' \
	        delta_lat='2.5' \
        	delta_lon='2.5' \
	$file.Ilgrid
	
	
set pass_date=`getinfo attr_name=pass_date $file` 
set projection_name=`getinfo attr_name=projection_name $file`
set satellite=`getinfo attr_name=satellite $file`

legend \
       		line_1=$pass_date \
      		line_2=$satellite\
		line_3=$projection_name.wgs84 \
		line_4='AVHRR channel2' \
		line_5= \
	        text_height='18' \
	        text_type='bold' \
        	line_offset='670' \
	        sample_offset='-1020' \
        	full_width='no' \
	        center_text='no' \
	        outline='n' \
	        solid_bg='no' \
	$file \
	$file.legend
	
xinject \
	        bg_var_name='avhrr_ch2' \
        	colors_per='1' \
	        meta_colors='240 241 242' \
        	line_widths='2 2 2' \
	        line_types='solid solid solid' \
        	marker_types='+ + +' \
	        marker_sizes='15 15 15' \
        	image_colors='256' \
	$file.byte \
	$file.coast \
	$file.Ilgrid \
	$file.legend \
	$file.xin

expim \
		image_format='jpeg' \
		jpeg_quality='90' \
		image_var='avhrr_ch2' \
		image_colors='255' \
		color_palette='black-white' \
		draw_indexes= \
	$file.xin \
	$file.jpg

mv -f $file.jpg /usr/data/maroc/jpg/channel/channel2/



rm $file.legend
rm $file.byte
rm $file.coast
rm $file.Ilgrid
rm $file.xin
rm $file.histo.avhrr
rm $file.enh.avhrr


end