musrDetectorMessenger.cc

Go to the documentation of this file.

#include "musrDetectorMessenger.hh"
#include "musrDetectorConstruction.hh"
#include "G4UIdirectory.hh"
#include "G4UIcmdWithAString.hh"
#include "G4UIcmdWithADoubleAndUnit.hh"
#include "G4UIcmdWithAnInteger.hh"
#include "G4UIcmdWithoutParameter.hh"

#include "globals.hh"

//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......

musrDetectorMessenger::musrDetectorMessenger(musrDetectorConstruction* myDet)
:myDetector(myDet)
{ 
  alcDir = new G4UIdirectory("/musr/");
  alcDir->SetGuidance("UI commands specific to this example.");
  
  detDir = new G4UIdirectory("/musr/det/");
  detDir->SetGuidance("detector control.");
  
  TargetPosCmd = new G4UIcmdWithADoubleAndUnit("/musr/det/setTPos",this);
  TargetPosCmd->SetGuidance("Set position of the target");
  TargetPosCmd->SetParameterName("Pos",false);
  TargetPosCmd->SetUnitCategory("Length");    
  TargetPosCmd->AvailableForStates(G4State_PreInit,G4State_Idle);

  TargetLengthCmd = new G4UIcmdWithADoubleAndUnit("/musr/det/setTLength",this);
  TargetLengthCmd->SetGuidance("Set thickness of the target");
  TargetLengthCmd->SetParameterName("TT",false);
  TargetLengthCmd->SetUnitCategory("Length");    
  TargetLengthCmd->AvailableForStates(G4State_PreInit,G4State_Idle);

 
  TargetMaterCmd = new G4UIcmdWithAString("/musr/det/setTargetMat",this);
  TargetMaterCmd->SetGuidance("Select Material of the Target");
  TargetMaterCmd->SetParameterName("choice",false);
  TargetMaterCmd->AvailableForStates(G4State_PreInit,G4State_Idle);

  DetSepCmd = new G4UIcmdWithADoubleAndUnit("/musr/det/setDetSep",this);
  DetSepCmd->SetGuidance("Set detector separation");
  DetSepCmd->SetParameterName("Sep",false);
  DetSepCmd->SetUnitCategory("Length");    
  DetSepCmd->AvailableForStates(G4State_PreInit,G4State_Idle);

  RadialNumberCmd = new G4UIcmdWithAnInteger("/musr/det/setRadialNo",this);
  RadialNumberCmd->SetGuidance("Set number of radial pixels");
  RadialNumberCmd->SetParameterName("rno",false);
  RadialNumberCmd->AvailableForStates(G4State_PreInit,G4State_Idle);

  LengthNumberCmd = new G4UIcmdWithAnInteger("/musr/det/setLengthNo",this);
  LengthNumberCmd->SetGuidance("Set number of length pixels");
  LengthNumberCmd->SetParameterName("lno",false);
  LengthNumberCmd->AvailableForStates(G4State_PreInit,G4State_Idle);

  LRadiusCmd = new G4UIcmdWithADoubleAndUnit("/musr/det/setLRadius",this);
  LRadiusCmd->SetGuidance("Set large radius");
  LRadiusCmd->SetParameterName("lrad",false);
  LRadiusCmd->SetUnitCategory("Length");    
  LRadiusCmd->AvailableForStates(G4State_PreInit,G4State_Idle);

  SRadiusCmd = new G4UIcmdWithADoubleAndUnit("/musr/det/setSRadius",this);
  SRadiusCmd->SetGuidance("Set small radius");
  SRadiusCmd->SetParameterName("srad",false);
  SRadiusCmd->SetUnitCategory("Length");    
  SRadiusCmd->AvailableForStates(G4State_PreInit,G4State_Idle);


  ArrayLengthCmd = new G4UIcmdWithADoubleAndUnit("/musr/det/setArrayLength",this);
  ArrayLengthCmd->SetGuidance("Set array length");
  ArrayLengthCmd->SetParameterName("array",false);
  ArrayLengthCmd->SetUnitCategory("Length");    
  ArrayLengthCmd->AvailableForStates(G4State_PreInit,G4State_Idle);

  DetectorThicknessCmd = new G4UIcmdWithADoubleAndUnit("/musr/det/setDetectorThickness",this);
  DetectorThicknessCmd->SetGuidance("Set detector thickness");
  DetectorThicknessCmd->SetParameterName("detthick",false);
  DetectorThicknessCmd->SetUnitCategory("Length");    
  DetectorThicknessCmd->AvailableForStates(G4State_PreInit,G4State_Idle);

  BeampipeClearanceCmd = new G4UIcmdWithADoubleAndUnit("/musr/det/setBeampipeClearance",this);
  BeampipeClearanceCmd->SetGuidance("Set Beampipe clearance");
  BeampipeClearanceCmd->SetParameterName("bclear",false);
  BeampipeClearanceCmd->SetUnitCategory("Length");    
  BeampipeClearanceCmd->AvailableForStates(G4State_PreInit,G4State_Idle);

  ColRadiusCmd = new G4UIcmdWithADoubleAndUnit("/musr/det/setColRadius",this);
  ColRadiusCmd->SetGuidance("Set collimator radius");
  ColRadiusCmd->SetParameterName("crad",false);
  ColRadiusCmd->SetUnitCategory("Length");    
  ColRadiusCmd->AvailableForStates(G4State_PreInit,G4State_Idle);


  UpdateCmd = new G4UIcmdWithoutParameter("/musr/det/update",this);
  UpdateCmd->SetGuidance("Update calorimeter geometry.");
  UpdateCmd->SetGuidance("This command MUST be applied before \"beamOn\" ");
  UpdateCmd->SetGuidance("if you changed geometrical value(s).");
  UpdateCmd->AvailableForStates(G4State_Idle);
 
  FieldCmd = new G4UIcmdWithADoubleAndUnit("/musr/det/setField",this);  
  FieldCmd->SetGuidance("Define magnetic field.");
  FieldCmd->SetGuidance("Magnetic field will be in Z direction.");
  FieldCmd->SetParameterName("Bz",false);
  FieldCmd->SetUnitCategory("Magnetic flux density");
  FieldCmd->AvailableForStates(G4State_PreInit,G4State_Idle);  

  UFieldCmd = new G4UIcmdWithADoubleAndUnit("/musr/det/setUniformField",this);  
  UFieldCmd->SetGuidance("Define uniform magnetic field.");
  UFieldCmd->SetGuidance("Magnetic field will be in Z direction.");
  UFieldCmd->SetParameterName("Bz",false);
  UFieldCmd->SetUnitCategory("Magnetic flux density");
  UFieldCmd->AvailableForStates(G4State_PreInit,G4State_Idle);  





}

//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......

musrDetectorMessenger::~musrDetectorMessenger()
{
  delete TargetPosCmd;
  delete TargetMaterCmd;
  delete DetSepCmd;
  delete RadialNumberCmd;
  delete LengthNumberCmd;
  delete LRadiusCmd;
  delete SRadiusCmd;
  delete ArrayLengthCmd;
  delete DetectorThicknessCmd;
  delete ColRadiusCmd;
  delete BeampipeClearanceCmd;
  delete UpdateCmd;
  delete detDir;
  delete alcDir;
  delete FieldCmd;
  delete UFieldCmd;
  delete TargetLengthCmd;

}

//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......

void musrDetectorMessenger::SetNewValue(G4UIcommand* command,G4String newValue)
{ 

    if( command == TargetPosCmd )
   { myDetector->SetTargetPos(TargetPosCmd->GetNewDoubleValue(newValue));}

    if( command == TargetLengthCmd )
   { myDetector->SetTargetThickness(TargetLengthCmd->GetNewDoubleValue(newValue));}

  if( command == TargetMaterCmd )
   { myDetector->SetTargetMaterial(newValue);}

    if( command == DetSepCmd )
   { myDetector->SetDetSep(DetSepCmd->GetNewDoubleValue(newValue));}

    if( command == RadialNumberCmd )
   { myDetector->SetRadialNumber(RadialNumberCmd->GetNewIntValue(newValue));}

    if( command == LengthNumberCmd )
   { myDetector->SetLengthNumber(LengthNumberCmd->GetNewIntValue(newValue));}

    if( command == LRadiusCmd )
   { myDetector->SetLargeRadius(LRadiusCmd->GetNewDoubleValue(newValue));}

    if( command == SRadiusCmd )
   { myDetector->SetSmallRadius(SRadiusCmd->GetNewDoubleValue(newValue));}

    if( command == ArrayLengthCmd )
   { myDetector->SetArrayLength(ArrayLengthCmd->GetNewDoubleValue(newValue));}

    if( command == DetectorThicknessCmd )
   { myDetector->SetDetectorThickness(DetectorThicknessCmd->GetNewDoubleValue(newValue));}

    if( command == ColRadiusCmd )
   { myDetector->SetCollimatorRadius(ColRadiusCmd->GetNewDoubleValue(newValue));}
    
    if( command == BeampipeClearanceCmd )
   { myDetector->SetBeampipeClearance(BeampipeClearanceCmd->GetNewDoubleValue(newValue));}


  if( command == UpdateCmd )
   { myDetector->UpdateGeometry(); }

  if( command == FieldCmd )
   { myDetector->SetMagField(FieldCmd->GetNewDoubleValue(newValue));}

  if( command == UFieldCmd )
   { myDetector->SetUniformMagField(UFieldCmd->GetNewDoubleValue(newValue));}

}

//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......

---