Jpp - the software that should make you happy
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Macros Pages
JCanberra.sh
Go to the documentation of this file.
1 #!/bin/zsh
2 script=${0##*/}
3 
4 if [ -z $JPP_DIR ]; then
5  echo "Variable JPP_DIR undefined."
6  exit
7 fi
8 
9 source $JPP_DIR/setenv.sh $JPP_DIR >& /dev/null
10 
12 set_variable WORKDIR ${ACOUSTICS_WORKDIR:-./}
13 set_variable XMIN -1.0e-3
14 set_variable XMAX +1.0e-3
15 
16 if ( do_usage $* ); then
17  usage "$script <detector file> <input file>"
18 fi
19 
20 if (( $# != 2 )); then
21  fatal "Wrong number of arguments."
22 fi
23 
26 
27 eval `JPrintDetector -a $DETECTOR -O IDENTIFIER`
28 eval `JPrintDetector -a $DETECTOR -O SUMMARY`
29 
30 source JAcoustics.sh $DETECTOR_ID
31 
32 CHECK_EXIT_CODE
33 
34 typeset -A TRIPODS
35 
36 get_tripods $WORKDIR/tripod.txt TRIPODS
37 
38 for EMITTER in ${(@k)TRIPODS}; do
39 
40  JCanberra \
41  -a $DETECTOR \
42  -f $INPUT_FILE \
43  -o $WORKDIR/canberra\[${EMITTER}\].root \
44  -T $WORKDIR/tripod.txt \
45  -V $WORKDIR/sound_velocity.txt \
46  -E $EMITTER \
47  -d $DEBUG --!
48 done
49 
50 kill_child_processes_at_exit
51 
52 attach getModule -a $DETECTOR
53 
54 typeset -Z 4 STRING
55 typeset -Z 2 FLOOR
56 
57 set_variable FIRST_FLOOR 1
58 
59 for STRING in $STRINGS[*]; do
60 
61  echo -n "Creating graphics for string $STRING.."
62 
63  set_variable FIRST_FLOOR 1
64 
65  for (( FLOOR = $FIRST_FLOOR; $FLOOR <= $LAST_FLOOR; FLOOR += 1 )); do
66 
67  sput $STRING $FLOOR
68  sget MODULE
69 
70  INPUT_FILES=(`ls $WORKDIR/canberra\[*\].root`)
71 
72  JPlot1D \
73  -f "${INPUT_FILES//\.root/.root:${MODULE}}" \
74  -\> "#Deltat [s]" \
75  -\^ "number of events [a.u.]" \
76  -x "$XMIN $XMAX" \
77  -N "X 505" \
78  -L TR \
79  -T "(${STRING},${FLOOR})" \
80  -o /tmp/toa_${STRING}_${FLOOR}.gif -B >& /dev/null
81  done
82 
83  montage \
84  -tile 6x3 \
85  -geometry +0+0 \
86  /tmp/toa_${STRING}_*.gif \ $WORKDIR/toa_${STRING}.gif >& /dev/null
87 
88  echo " -> $WORKDIR/toa_${STRING}.gif"
89 
90  rm -f /tmp/toa_${STRING}_*.gif
91 done
92 
void set_variable(const std::string &name, const std::string &value)
Set environment variable.
clean eval JPrintDetector a $DETECTOR O IDENTIFIER eval JPrintDetector a $DETECTOR O SUMMARY set_variable STRING
set_variable INPUT_FILE
then fatal No sound hydrophone file $HYDROPHONE_TXT fi JGraph f $HYDROPHONE_TXT o $HYDROPHONE_ROOT sort gr k
exit
Definition: JPizza.sh:36
do set_array DAQHEADER JPrintDAQHeader f
Definition: JTuneHV.sh:79
do JCanberra a $DETECTOR f $INPUT_FILE o $WORKDIR canberra[${EMITTER}\] root T $WORKDIR tripod txt V $WORKDIR sound_velocity txt E $EMITTER d $DEBUG!done kill_child_processes_at_exit attach getModule a $DETECTOR typeset Z STRING typeset Z FLOOR set_variable FIRST_FLOOR for STRING in $STRINGS[*]
Definition: JCanberra.sh:59
then echo
then fatal Invalid string $STRING
do set_variable OUTPUT_DIRECTORY $WORKDIR T
do $DIR JTransitTime o
Definition: JTransitTime.sh:44
* usage
then fatal Not enough arguments fi set_variable DETECTOR $argv[1] INPUT_FILES
then JFileTuna f $INPUT_FILE
Definition: file-Tuna.sh:66
then fatal Wrong number of arguments fi set_variable STRING $argv[1] set_variable DETECTOR_TXT $WORKDIR $DETECTOR_TXT tail read X Y Z RMS let XMIN
then echo Variable JPP_DIR undefined exit fi source $JPP_DIR setenv sh $JPP_DIR &dev null set_variable ACOUSTICS_DEBUG
Definition: JAcoustics.sh:17
*set_variable DETECTOR $argv[1] set_variable INPUT_FILE $argv[2,-2] set_variable OUTPUT_FILE $argv[-1]
Definition: JDomino.sh:39
then JMuonMCEvt f $INPUT_FILE o $INTERMEDIATE_FILE d
Definition: JMuonPath.sh:45
then JCalibrateToT a
Definition: JTuneHV.sh:108
alias put_queue eval echo n
Definition: qlib.csh:19
then display $WORKDIR
Definition: plot-Domino.sh:127
set_variable DETECTOR
then fatal Wrong number of arguments fi set_variable DETECTOR $argv[1] set_variable INPUT_FILE $argv[2] eval JPrintDetector a $DETECTOR O IDENTIFIER eval JPrintDetector a $DETECTOR O SUMMARY source JAcoustics sh $DETECTOR_ID CHECK_EXIT_CODE typeset A TRIPODS get_tripods $WORKDIR tripod txt TRIPODS for EMITTER in
Definition: JCanberra.sh:38
then usage $script[input file[working directory[option]]] nWhere option can be N
Definition: JMuonPostfit.sh:37
script
Definition: JAcoustics.sh:2
then usage $script< detector file >< inputfile > fi case set_variable WORKDIR
Definition: JLegolas.sh:28
source $JPP_DIR setenv csh $JPP_DIR eval JShellParser o a A
esac $JPP_BIN JLogger sh $LOGGER until pgrep JGetMessage</dev/null > dev null
const JModule & getModule(const JDetector &detector, const JModuleLocation &location)
find module with a given string and floor number
then usage $script[input file[working directory[option]]] nWhere option can be E
Definition: JMuonPostfit.sh:37
esac done
Definition: JAddHDE.sh:21
#define DEBUG(A)
Message macros.
Definition: JMessage.hh:62