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     ./
 
   13set_variable:  XMIN        CANBERRA_XMIN         -1.0e-3
 
   14set_variable:  XMAX        CANBERRA_XMAX         +1.0e-3
 
   15set_variable:  ZMIN        CANBERRA_ZMIN         -0.5
 
   16set_variable:  ZMAX        CANBERRA_ZMAX         +0.5
 
   17set_variable+  DISABLE     CANBERRA_DISABLE      -! $WORKDIR/disable.txt
 
   18set_variable+  REVERT      CANBERRA_REVERT       -r
 
   19set_variable:  OPTION      CANBERRA_OPTION       -O HIST
 
   20set_variable:  FORMAT      GRAPHICS_FORMAT       gif
 
   21set_variable+  BATCH       GRAPHICS_BATCH        -B
 
   24    usage "$script <detector file> (input file)+"\
 
   25          "\nInput file corresponds to the output of JKatoomba[.sh]."
 
   29    fatal "Wrong number of arguments."
 
   32set_variable  DETECTOR            $argv[1]
 
   33set_array     INPUT_FILES         $argv[2,-1]
 
   35eval `JPrintDetector -a $DETECTOR -O IDENTIFIER`
 
   36eval `JPrintDetector -a $DETECTOR -O SUMMARY`
 
   38JAcoustics.sh   $DETECTOR_ID
 
   40JCanberra.sh  $DETECTOR  $INPUT_FILES[*]  $WORKDIR/canberra\[%\].root
 
   42source JAcousticsToolkit.sh
 
   48get_tripods+       $WORKDIR/tripod.txt       EMITTERS
 
   49get_transmitters+  $WORKDIR/transmitter.txt  EMITTERS
 
   51kill_child_processes_at_exit
 
   53attach getModule -a $DETECTOR
 
   58for STRING in $STRINGS[*]; do
 
   60    echo -n "Creating graphics for string $STRING.."
 
   62    for (( FLOOR = $FIRST_FLOOR; $FLOOR <= $LAST_FLOOR; FLOOR += 1 )); do
 
   67        INPUT_FILES=(`ls $WORKDIR/canberra\[*\].root`)
 
   70            -f${^INPUT_FILES}:${MODULE}                         \
 
   72            -\^ "number of events [a.u.]"                       \
 
   77            -T "(${STRING},${FLOOR})"                           \
 
   78            -o ${TMPDIR:-/tmp}/toa_${STRING}_${FLOOR}.$FORMAT   $BATCH
 
   84        ${TMPDIR:-/tmp}/toa_${STRING}_{01..18}.$FORMAT          \
 
   85        $WORKDIR/toa_${STRING}${REVERT}.$FORMAT                 >& /dev/null
 
   87    mv  ${TMPDIR:-/tmp}/toa_${STRING}_00.$FORMAT                \
 
   88        $WORKDIR/toa_${STRING}_00${REVERT}.$FORMAT
 
   90    echo " -> $WORKDIR/toa_${STRING}${REVERT}.$FORMAT"
 
   92    rm -f ${TMPDIR:-/tmp}/toa_${STRING}_*.$FORMAT
 
   97for EMITTER in ${(@k)EMITTERS}; do
 
  100        -f $WORKDIR/canberra\[${EMITTER}\].root:mean      \
 
  109        -o $WORKDIR/mean_${EMITTER}${REVERT}.$FORMAT      $BATCH
 
  112        -f $WORKDIR/canberra\[${EMITTER}\].root:sigma     \
 
  121        -o $WORKDIR/sigma_${EMITTER}${REVERT}.$FORMAT     $BATCH
 
  124for KEY in mean sigma; do
 
  129        $WORKDIR/${KEY}_*${REVERT}.$FORMAT                \
 
  130        $WORKDIR/${KEY}${REVERT}.$FORMAT                  >& /dev/null
 
  134rm -f $WORKDIR/canberra\[*\].root