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

parameter size1

	   usetip=2

	if (size1==0.0)
	  ask 'What is the separation between spectra (arcsec)?' size1
	end_if

	call set_theta	
#	theta=r0-rot
	theta=-theta
#
# This is the basic step.
#
	stepe=size1*cosd[theta]
	stepn=-size1*sind[theta]

#east stepe
printf '%f6' stepe
#north stepn
printf '%f6' stepn