4if [ -z $JPP_DIR ]; then
 
    5    echo "Variable JPP_DIR undefined."
 
    9source $JPP_DIR/setenv.sh $JPP_DIR >& /dev/null
 
   11set_variable:  DEBUG    ACOUSTICS_DEBUG    2
 
   12set_variable:  WORKDIR  ACOUSTICS_WORKDIR  ./
 
   15    usage "$script <detector file> <tripod file> <Tx> <Ty>"\
 
   16          "\nAuxiliary script to tilt footprint of system including detector and tripods."
 
   20    fatal "Wrong number of arguments."
 
   23set_variable  DETECTOR            $argv[1]
 
   24set_variable  TRIPOD              $argv[2]
 
   25set_variable  TX                  $argv[3]
 
   26set_variable  TY                  $argv[4]
 
   28if [[ ! -f $DETECTOR ]]; then
 
   29    fatal "No detector file $DETECTOR."
 
   32if [[ ! -f $TRIPOD ]]; then
 
   33    fatal "No tripod file $TRIPOD."
 
   36source JAcousticsToolkit.sh
 
   42get_tripods $TRIPOD TRIPODS
 
   44if (( ${#TRIPODS} == 0 )); then
 
   45    fatal "Number of tripods ${#TRIPODS}."
 
   51for _X _Y _Z in `echo ${(@v)TRIPODS}`; do
 
   52    let "X_CENTER = $X_CENTER + $_X"
 
   53    let "Y_CENTER = $Y_CENTER + $_Y"
 
   56let "X_CENTER = $X_CENTER / ${#TRIPODS}"
 
   57let "Y_CENTER = $Y_CENTER / ${#TRIPODS}"
 
   59printf "\ncenter %15.5f %15.5f\n\n"  $X_CENTER  $Y_CENTER
 
   61# Modify tripod positions
 
   63for ID in ${(k)TRIPODS}; do
 
   65    echo $TRIPODS[${ID}] | read X Y Z
 
   67    let "DZ = ${TX} * (${X} - ${X_CENTER}) + ${TY} * (${Y} - ${Y_CENTER})"
 
   69    JEditTripod -f $TRIPOD -T "$ID add 0.0 0.0 $DZ" -o $TRIPOD --!
 
   73# Modify module positions
 
   75eval `JPrintDetector -a $DETECTOR -O HEADER`
 
   79JPrintDetector -a $DETECTOR -O modules | while read KEY MODULE STRING FLOOR X Y Z T0; do
 
   81    let "DZ = $TX * ($X + $UTM_EAST - $X_CENTER)  +  $TY * ($Y + $UTM_NORTH - $Y_CENTER)"
 
   83    OPTION+=("$MODULE add 0.0 0.0 $DZ;")