7 # ------------------------------------------------------------------------------------------ 
    9 #                         Example script to plot JFitK40 results. 
   11 # ------------------------------------------------------------------------------------------ 
   13 if [ -z $JPP_DIR ]; 
then 
   14     echo "Variable JPP_DIR undefined." 
   18 source $JPP_DIR/setenv.sh $JPP_DIR  >&  /dev/
null 
   20 if ( do_usage $* ); 
then 
   21     usage "$script <detector file> <input file>" 
   27     *)  fatal 
"Invalid number of arguments" 
   32 eval `JPrintDetector -
a $DETECTOR -O SUMMARY`
 
   43     for (( FLOOR = $FIRST_FLOOR; $FLOOR <= $LAST_FLOOR; FLOOR += 1 )); 
do 
   45         print -
u $FD_O 
"$STRING $FLOOR" 
   49         echo "($STRING,$FLOOR) $MODULE" 
   57             -
T "($STRING,$FLOOR)"                  \
 
   59             -
o /tmp/${TYPE}_${
STRING}_${FLOOR}.gif \
 
   67         /tmp/${TYPE}_${
STRING}_*.gif    \
 
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
 
bool read(Vec &v, std::istream &is)
Read a Vec(tor) from a stream. 
 
do set_array DAQHEADER JPrintDAQHeader f
 
do set_variable OUTPUT_DIRECTORY $WORKDIR T
 
then $JPP_DIR software JCalibrate JCalibrateToT a
 
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 typeset A TRIPODS get_tripods $WORKDIR tripod txt TRIPODS for EMITTER in
 
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 
 
do eval JCanberra a $DETECTOR f $INPUT_FILE o $WORKDIR canberra[${EMITTER}\] root T print_tripods V print_velocity E $EMITTER d $DEBUG!done attach getModule a $DETECTOR typeset Z STRING typeset Z FLOOR set_variable FIRST_FLOOR for STRING in $STRINGS[*]