| Geant4 Cross Reference |
1 //
2 // ********************************************************************
3 // * License and Disclaimer *
4 // * *
5 // * The Geant4 software is copyright of the Copyright Holders of *
6 // * the Geant4 Collaboration. It is provided under the terms and *
7 // * conditions of the Geant4 Software License, included in the file *
8 // * LICENSE and available at http://cern.ch/geant4/license . These *
9 // * include a list of copyright holders. *
10 // * *
11 // * Neither the authors of this software system, nor their employing *
12 // * institutes,nor the agencies providing financial support for this *
13 // * work make any representation or warranty, express or implied, *
14 // * regarding this software system or assume any liability for its *
15 // * use. Please see the license in the file LICENSE and URL above *
16 // * for the full disclaimer and the limitation of liability. *
17 // * *
18 // * This code implementation is the result of the scientific and *
19 // * technical work of the GEANT4 collaboration. *
20 // * By using, copying, modifying or distributing the software (or *
21 // * any work based on the software) you agree to acknowledge its *
22 // * use in resulting scientific publications, and indicate your *
23 // * acceptance of all terms of the Geant4 Software license. *
24 // ********************************************************************
25 //
26 //
27 // ------------------------------------------------------------
28 // GEANT 4 class implementation file
29 // ------------------------------------------------------------
30 //
31
32 #include "G4ErrorMessenger.hh"
33 #include "G4ErrorStepLengthLimitProcess.hh"
34 #include "G4ErrorMagFieldLimitProcess.hh"
35 #include "G4ErrorEnergyLoss.hh"
36
37 #include "G4UIdirectory.hh"
38 #include "G4UIcmdWithADoubleAndUnit.hh"
39 #include "G4UIcmdWithADouble.hh"
40 #include "globals.hh"
41
42 #ifdef G4VERBOSE
43 # include "G4ErrorPropagatorData.hh" //for verbosity checking
44 #endif
45
46 //------------------------------------------------------------------------
47 G4ErrorMessenger::G4ErrorMessenger(G4ErrorStepLengthLimitProcess* lengthAct,
48 G4ErrorMagFieldLimitProcess* magAct,
49 G4ErrorEnergyLoss* elossAct)
50 : StepLengthAction(lengthAct)
51 , MagFieldAction(magAct)
52 , EnergyLossAction(elossAct)
53 {
54 myDir = new G4UIdirectory("/geant4e/");
55 myDir->SetGuidance("GEANT4e control commands");
56
57 myDirLimits = new G4UIdirectory("/geant4e/limits/");
58 myDirLimits->SetGuidance("GEANT4e commands to limit the step");
59
60 StepLengthLimitCmd =
61 new G4UIcmdWithADoubleAndUnit("/geant4e/limits/stepLength", this);
62 StepLengthLimitCmd->SetGuidance("Limit the length of an step");
63 StepLengthLimitCmd->SetDefaultUnit("mm");
64 StepLengthLimitCmd->AvailableForStates(G4State_PreInit, G4State_Idle,
65 G4State_GeomClosed, G4State_EventProc);
66
67 MagFieldLimitCmd = new G4UIcmdWithADouble("/geant4e/limits/magField", this);
68 MagFieldLimitCmd->SetGuidance("Limit the length of an step");
69 MagFieldLimitCmd->AvailableForStates(G4State_PreInit, G4State_Idle,
70 G4State_GeomClosed, G4State_EventProc);
71
72 EnergyLossCmd = new G4UIcmdWithADouble("/geant4e/limits/energyLoss", this);
73 EnergyLossCmd->SetGuidance("Limit the length of an step");
74 EnergyLossCmd->AvailableForStates(G4State_PreInit, G4State_Idle,
75 G4State_GeomClosed, G4State_EventProc);
76 }
77
78 //------------------------------------------------------------------------
79 G4ErrorMessenger::~G4ErrorMessenger()
80 {
81 delete StepLengthLimitCmd;
82 delete MagFieldLimitCmd;
83 delete EnergyLossCmd;
84 delete myDir;
85 delete myDirLimits;
86 }
87
88 //------------------------------------------------------------------------
89 void G4ErrorMessenger::SetNewValue(G4UIcommand* command, G4String newValue)
90 {
91 if(command == StepLengthLimitCmd)
92 {
93 #ifdef G4VERBOSE
94 if(G4ErrorPropagatorData::verbose() >= 3)
95 {
96 G4cout << " G4ErrorMessenger::StepLengthAction SetStepLimit "
97 << StepLengthLimitCmd->GetNewDoubleValue(newValue) << G4endl;
98 }
99 #endif
100 StepLengthAction->SetStepLimit(
101 StepLengthLimitCmd->GetNewDoubleValue(newValue));
102 }
103 else if(command == MagFieldLimitCmd)
104 {
105 #ifdef G4VERBOSE
106 if(G4ErrorPropagatorData::verbose() >= 3)
107 {
108 G4cout << " G4ErrorMessenger::MagFieldAction SetStepLimit "
109 << MagFieldLimitCmd->GetNewDoubleValue(newValue) << G4endl;
110 }
111 #endif
112 MagFieldAction->SetStepLimit(MagFieldLimitCmd->GetNewDoubleValue(newValue));
113 }
114 else if(command == EnergyLossCmd)
115 {
116 #ifdef G4VERBOSE
117 if(G4ErrorPropagatorData::verbose() >= 3)
118 {
119 G4cout << " G4ErrorMessenger::EnergyLossAction SetStepLimit "
120 << EnergyLossCmd->GetNewDoubleValue(newValue) << G4endl;
121 }
122 #endif
123 EnergyLossAction->SetStepLimit(EnergyLossCmd->GetNewDoubleValue(newValue));
124 }
125 }
126