4 if [ -z $JPP_DIR ]; then
 
    5     echo "Variable JPP_DIR undefined."
 
    9 source $JPP_DIR/setenv.sh $JPP_DIR >& /dev/null
 
   11 set_variable:  DEBUG    ACOUSTICS_DEBUG    2
 
   12 set_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."
 
   19 if (( $# != 4 )); then
 
   20     fatal "Wrong number of arguments."
 
   23 set_variable  DETECTOR            $argv[1]
 
   24 set_variable  TRIPOD              $argv[2]
 
   25 set_variable  TX                  $argv[3]
 
   26 set_variable  TY                  $argv[4]
 
   28 if [[ ! -f $DETECTOR ]]; then
 
   29     fatal "No detector file $DETECTOR."
 
   32 if [[ ! -f $TRIPOD ]]; then
 
   33     fatal "No tripod file $TRIPOD."
 
   36 source JAcousticsToolkit.sh
 
   42 get_tripods $TRIPOD TRIPODS
 
   44 if (( ${#TRIPODS} == 0 )); then
 
   45     fatal "Number of tripods ${#TRIPODS}."
 
   51 for _X _Y _Z in `echo ${(@v)TRIPODS}`; do
 
   52     let "X_CENTER = $X_CENTER + $_X"
 
   53     let "Y_CENTER = $Y_CENTER + $_Y"
 
   56 let "X_CENTER = $X_CENTER / ${#TRIPODS}"
 
   57 let "Y_CENTER = $Y_CENTER / ${#TRIPODS}"
 
   59 printf "\ncenter %15.5f %15.5f\n\n"  $X_CENTER  $Y_CENTER
 
   61 # Modify tripod positions
 
   63 for 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
 
   75 eval `JPrintDetector -a $DETECTOR -O HEADER`
 
   79 JPrintDetector -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;")