PrimaryGeneratorMessenger.cc

Go to the documentation of this file.

#include "PrimaryGeneratorMessenger.hh"

PrimaryGeneratorMessenger::PrimaryGeneratorMessenger(
                                          PrimaryGeneratorAction* Gun)
:Action(Gun)
{
  gunDir = new G4UIdirectory("/PIBIDS/gun/");
  gunDir->SetGuidance("PrimaryGenerator control");
   
  RndmCmd = new G4UIcmdWithAString("/PIBIDS/gun/rndm",this);
  RndmCmd->SetGuidance("Shoot randomly the incident particle.");
  RndmCmd->SetGuidance("  Choice : on(default), off");
  RndmCmd->SetParameterName("choice",true);
  RndmCmd->SetDefaultValue("on");
  RndmCmd->SetCandidates("on off");
  RndmCmd->AvailableForStates(G4State_PreInit,G4State_Idle);

  gunZ = new G4UIcmdWithAnInteger("/PIBIDS/gun/Z",this);
  gunZ->SetGuidance("Set the atomic number of the incident particle");
  gunZ->SetParameterName("Z",true);
  gunZ->SetDefaultValue(6);
  currentGunZ = 6;
  gunZ->SetRange("Z>=0");

  gunA = new G4UIcmdWithAnInteger("/PIBIDS/gun/A",this);
  gunA->SetGuidance("Set the atomic number of the incident particle");
  gunA->SetParameterName("A",true);
  gunA->SetDefaultValue(17);
  currentGunA = 17;
  gunA->SetRange("A>=0");

  gunE = new G4UIcmdWithADouble("/PIBIDS/gun/E",this);
  gunE->SetGuidance("Set the excitation energy of the incident particle");
  gunE->SetParameterName("E",true);
  gunE->SetDefaultValue(0.);
  currentGunE = 0.;

  gunQ = new G4UIcmdWithADouble("/PIBIDS/gun/Q",this);
  gunQ->SetGuidance("Set the charge of the incident particle");
  gunQ->SetParameterName("E",true);
  gunQ->SetDefaultValue(0.);
  currentGunQ = 0.;

  targetArea = new G4UIcmdWithoutParameter("/PIBIDS/gun/area",this);
  targetArea->SetGuidance("Show target area");
}

PrimaryGeneratorMessenger::~PrimaryGeneratorMessenger()
{
  delete gunE;
  delete gunQ;
  delete gunA;
  delete gunZ;
  delete targetArea;
  delete RndmCmd;
  delete gunDir;
}

void PrimaryGeneratorMessenger::SetNewValue(G4UIcommand* command, G4String newValue)
{ 
  if( command == RndmCmd )
    { Action->SetRndmFlag(newValue);}
  bool set = false;
  if (command == gunZ)
    {
      currentGunZ=gunZ->GetNewIntValue(newValue);
      set=true;
    }
  if(command == gunA) 
    {
      currentGunA=gunA->GetNewIntValue(newValue);
      set=true;
    }
  if(command == gunE)
    {
      currentGunE=gunE->GetNewDoubleValue(newValue);
      set=true;
    }
  if(command == gunQ)
    {
      currentGunQ=gunQ->GetNewDoubleValue(newValue);
      set=true;
    }
  if(command == targetArea)
    {
      Action->PrintTargetSize();
    }
  


  if(set)
    Action->SetParticle(currentGunZ,currentGunA,currentGunE,currentGunQ);
}