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

camera 0
immode 
slit 4

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

	alert 'SCAN COMPLETED' 3 1

return