File indexing completed on 2026-04-28 07:17:53
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 #include "PrimaryGeneratorMessenger.hh"
0030
0031 #include "PrimaryGeneratorAction.hh"
0032
0033 #include "G4SystemOfUnits.hh"
0034 #include "G4UIcmdWithABool.hh"
0035 #include "G4UIcmdWithADoubleAndUnit.hh"
0036 #include "G4UIdirectory.hh"
0037
0038
0039
0040 PrimaryGeneratorMessenger::PrimaryGeneratorMessenger(PrimaryGeneratorAction* Gun)
0041 : G4UImessenger(), fPrimaryAction(Gun)
0042 {
0043 fGunDir = new G4UIdirectory("/opnovice2/gun/");
0044 fGunDir->SetGuidance("PrimaryGenerator control");
0045
0046 fPolarCmd = new G4UIcmdWithADoubleAndUnit("/opnovice2/gun/optPhotonPolar", this);
0047 fPolarCmd->SetGuidance("Set linear polarization angle w.r.t. (k,n) plane");
0048 fPolarCmd->SetParameterName("angle", true);
0049 fPolarCmd->SetUnitCategory("Angle");
0050 fPolarCmd->SetDefaultValue(-360.0);
0051 fPolarCmd->SetDefaultUnit("deg");
0052 fPolarCmd->AvailableForStates(G4State_Idle);
0053
0054 fRandomDirectionCmd = new G4UIcmdWithABool("/opnovice2/gun/randomDirection", this);
0055 fRandomDirectionCmd->SetGuidance("Set direction of each primary particle randomly.");
0056 fRandomDirectionCmd->SetDefaultValue(true);
0057 fRandomDirectionCmd->AvailableForStates(G4State_Idle, G4State_PreInit);
0058 }
0059
0060
0061
0062 PrimaryGeneratorMessenger::~PrimaryGeneratorMessenger()
0063 {
0064 delete fPolarCmd;
0065 delete fGunDir;
0066 delete fRandomDirectionCmd;
0067 }
0068
0069
0070
0071 void PrimaryGeneratorMessenger::SetNewValue(G4UIcommand* command, G4String newValue)
0072 {
0073 if (command == fPolarCmd) {
0074 G4double angle = fPolarCmd->GetNewDoubleValue(newValue);
0075 if (angle == -360.0 * deg) {
0076 fPrimaryAction->SetOptPhotonPolar();
0077 }
0078 else {
0079 fPrimaryAction->SetOptPhotonPolar(angle);
0080 }
0081 }
0082 else if (command == fRandomDirectionCmd) {
0083 fPrimaryAction->SetRandomDirection(true);
0084 }
0085 }
0086
0087