# Script for the Brazilian program SO2011A-016 v. 2011-03-18
# Sergio Scarano Jr - scaranojr@ctio.noao.edu

#camera 1
#immode 
#slit 6
#filter 1
#prefilter 8

# H2 exposure and focus

exp 135
#camfoc 473

string obj '?Object prefix name?'
  object '{obj}'

ask 'Number of cycles?' n_cycle

	do j=1,n_cycle
       printf ' '
	   printf 'Position 1'
	   printf '=========='
	   printf ' '
  
	   printf '- filter H2'
       string objname '{obj} H2 pos 1'
	   object '{objname}'
	   go

  
  printf 'Position 2'
	   printf '=========='
	   printf ' '
	   
	   printf '... moving the telescope 10 arcsec E'
	   east 10
	   printf ' '
	   
 
	   printf '- filter H2'
       string objname '{obj} H2 pos 2'
	   object '{objname}'
	   go
	
	   
	   printf 'Position 3'
	   printf '=========='
	   printf ' '
	   
	   printf '... moving the telescope 10 arcsec N'
	   north 10
	   printf ' '
	   
  
	   printf '- filter H2'
       string objname '{obj} H2 pos 3'
	   object '{objname}'
	   go
	
	 	 
	   printf 'Position 4'
	   printf '=========='
	   printf ' '
	   
	   printf '... moving the telescope 10 arcsec W'
	   west 10
	   printf ' '
	   
   
	   printf '- filter H2'
       string objname '{obj} H2 pos 4'
	   object '{objname}'
	   go
		   
	   printf '... going back to the original position'
	   printf ' '
	   
	   south 10
	   
	end_do

	alert 'SCAN COMPLETED' 3 1

return