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

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

# H exposure and focus

exp 224
camfoc 525

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 H'
       string objname '{obj} H pos 1'
	   object '{objname}'
	   go
	   
  
  printf 'Position 2'
	   printf '=========='
	   printf ' '
	   
	   printf '... moving the telescope 5 arcsec N'
	   north 5
	   printf ' '
	   
	   printf '- filter H'
       string objname '{obj} H pos 2'
	   object '{objname}'
	   go
	
	   
	   printf 'Position 3'
	   printf '=========='
	   printf ' '
	   
	   printf '... moving the telescope 10 arcsec S'
	   south 10
	   printf ' '
	   
	   printf '- filter H'
       string objname '{obj} H pos 3'
	   object '{objname}'
	   go
	 	 
	   printf '... going back to the original position'
	   printf ' '
   
	   north 5
	   
	end_do

	alert 'SCAN COMPLETED' 3 1

return