File indexing completed on 2025-04-10 08:06:18
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
0034 #include "DetectorMessenger.hh"
0035
0036 #include "DetectorConstruction.hh"
0037
0038 #include "G4UIcmdWithADoubleAndUnit.hh"
0039 #include "G4UIcmdWithAString.hh"
0040 #include "G4UIcmdWithoutParameter.hh"
0041 #include "G4UIdirectory.hh"
0042 #include "globals.hh"
0043
0044
0045
0046 DetectorMessenger::DetectorMessenger(DetectorConstruction* myDet) : fDetector(myDet)
0047 {
0048 fDetectorDir = new G4UIdirectory("/mydet/");
0049 fDetectorDir->SetGuidance("Detector control.");
0050
0051 fMaterial = new G4UIcmdWithAString("/mydet/material", this);
0052 fMaterial->SetGuidance("Choice of the material:");
0053 fMaterial->SetGuidance(" a Geant4 NIST material, e.g. G4_Fe ");
0054 fMaterial->SetParameterName("choiceMaterial", true);
0055 fMaterial->SetDefaultValue("G4_Fe");
0056 fMaterial->AvailableForStates(G4State_PreInit, G4State_Idle);
0057
0058 fRadius = new G4UIcmdWithADoubleAndUnit("/mydet/radius", this);
0059 fRadius->SetParameterName("choiceRadius", true);
0060 fRadius->SetGuidance("Target sphere radius");
0061 fRadius->SetDefaultValue(1000.0);
0062 fRadius->AvailableForStates(G4State_PreInit, G4State_Idle);
0063
0064 fUpdateCommand = new G4UIcmdWithoutParameter("/mydet/update", this);
0065 fUpdateCommand->SetGuidance("Update geometry.");
0066 fUpdateCommand->SetGuidance("This command MUST be applied before \"beamOn\" ");
0067 fUpdateCommand->SetGuidance("if you changed geometrical value(s).");
0068 fUpdateCommand->AvailableForStates(G4State_Idle);
0069 }
0070
0071
0072
0073 DetectorMessenger::~DetectorMessenger()
0074 {
0075 delete fDetectorDir;
0076 delete fMaterial;
0077 delete fRadius;
0078 delete fUpdateCommand;
0079 }
0080
0081
0082
0083 void DetectorMessenger::SetNewValue(G4UIcommand* command, G4String newValue)
0084 {
0085 if (command == fMaterial) {
0086 fDetector->SetMaterial(newValue);
0087 }
0088 if (command == fRadius) {
0089 fDetector->SetRadius(fRadius->GetNewDoubleValue(newValue));
0090 }
0091 if (command == fUpdateCommand) {
0092 fDetector->UpdateGeometry();
0093 }
0094 }
0095
0096