File indexing completed on 2025-02-23 09:22:40
0001
0002
0003
0004
0005
0006
0007
0008
0009
0010
0011
0012
0013
0014
0015
0016
0017
0018
0019
0020
0021
0022
0023
0024
0025
0026
0027
0028
0029
0030
0031
0032
0033 #include "PrimaryGeneratorMessenger.hh"
0034
0035 #include "PrimaryGeneratorAction.hh"
0036
0037 #include "G4UIcmdWithADoubleAndUnit.hh"
0038 #include "G4UIcmdWithoutParameter.hh"
0039 #include "G4UIdirectory.hh"
0040
0041
0042
0043 PrimaryGeneratorMessenger::PrimaryGeneratorMessenger(PrimaryGeneratorAction* gun) : fAction(gun)
0044 {
0045 fGunDir = new G4UIdirectory("/testhadr/gun/");
0046 fGunDir->SetGuidance("gun control");
0047
0048 fDefaultCmd = new G4UIcmdWithoutParameter("/testhadr/gun/setDefault", this);
0049 fDefaultCmd->SetGuidance("set/reset kinematic defined in PrimaryGenerator");
0050 fDefaultCmd->AvailableForStates(G4State_PreInit, G4State_Idle);
0051
0052 fRndmCmd = new G4UIcmdWithADoubleAndUnit("/testhadr/gun/beamSize", this);
0053 fRndmCmd->SetGuidance("random lateral extension on the beam");
0054 fRndmCmd->SetParameterName("rBeam", false);
0055 fRndmCmd->SetRange("rBeam>=0.");
0056 fRndmCmd->SetUnitCategory("Length");
0057 fRndmCmd->AvailableForStates(G4State_PreInit, G4State_Idle);
0058
0059 fTimeCmd = new G4UIcmdWithADoubleAndUnit("/testhadr/gun/beamTime", this);
0060 fTimeCmd->SetGuidance("set time of exposure");
0061 fTimeCmd->SetParameterName("tBeam", false);
0062 fTimeCmd->SetRange("tBeam>=0.");
0063 fTimeCmd->SetUnitCategory("Time");
0064 fTimeCmd->AvailableForStates(G4State_PreInit, G4State_Idle);
0065 }
0066
0067
0068
0069 PrimaryGeneratorMessenger::~PrimaryGeneratorMessenger()
0070 {
0071 delete fDefaultCmd;
0072 delete fRndmCmd;
0073 delete fTimeCmd;
0074 delete fGunDir;
0075 }
0076
0077
0078
0079 void PrimaryGeneratorMessenger::SetNewValue(G4UIcommand* command, G4String newValue)
0080 {
0081 if (command == fDefaultCmd) {
0082 fAction->SetDefaultKinematic();
0083 }
0084
0085 if (command == fRndmCmd) {
0086 fAction->SetRndmBeam(fRndmCmd->GetNewDoubleValue(newValue));
0087 }
0088
0089 if (command == fTimeCmd) {
0090 fAction->SetTimeExposure(fTimeCmd->GetNewDoubleValue(newValue));
0091 }
0092 }
0093
0094