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

camera 1
immode 
slit 6
filter 2
prefilter 1

# Cont2 exposure and focus

camfoc 370
exp 135

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

	alert 'SCAN COMPLETED' 3 1

return