Geant4 Cross Reference |
1 // 1 2 // ******************************************* 3 // * License and Disclaimer 4 // * 5 // * The Geant4 software is copyright of th 6 // * the Geant4 Collaboration. It is provided 7 // * conditions of the Geant4 Software License 8 // * LICENSE and available at http://cern.ch/ 9 // * include a list of copyright holders. 10 // * 11 // * Neither the authors of this software syst 12 // * institutes,nor the agencies providing fin 13 // * work make any representation or warran 14 // * regarding this software system or assum 15 // * use. Please see the license in the file 16 // * for the full disclaimer and the limitatio 17 // * 18 // * This code implementation is the result 19 // * technical work of the GEANT4 collaboratio 20 // * By using, copying, modifying or distri 21 // * any work based on the software) you ag 22 // * use in resulting scientific publicati 23 // * acceptance of all terms of the Geant4 Sof 24 // ******************************************* 25 // 26 // Hadrontherapy advanced example for Geant4 27 // See more at: https://twiki.cern.ch/twiki/bi 28 29 #include "HadrontherapyEventActionMessenger.hh 30 31 #include "HadrontherapyEventAction.hh" 32 #include "G4UIdirectory.hh" 33 #include "G4UIcmdWithAString.hh" 34 #include "G4UIcmdWithAnInteger.hh" 35 #include "G4SystemOfUnits.hh" 36 #include "G4RunManager.hh" 37 #include "G4UnitsTable.hh" 38 39 40 ////////////////////////////////////////////// 41 HadrontherapyEventActionMessenger::Hadronthera 42 :eventAction(EvAct) 43 { 44 eventDir = new G4UIdirectory("/event/"); 45 eventDir->SetGuidance("Permits controls on s 46 47 DrawCmd = new G4UIcmdWithAString("/event/dra 48 DrawCmd->SetGuidance("Draw the tracks in the 49 DrawCmd->SetGuidance(" Choice : none,charge 50 DrawCmd->SetParameterName("choice",true); 51 DrawCmd->SetDefaultValue("all"); 52 DrawCmd->SetCandidates("none charged all neu 53 DrawCmd->AvailableForStates(G4State_Idle); 54 55 PrintCmd = new G4UIcmdWithAnInteger("/event/ 56 PrintCmd->SetGuidance("Print the event numbe 57 PrintCmd->SetParameterName("EventNb",false); 58 PrintCmd->SetRange("EventNb>0"); 59 PrintCmd->AvailableForStates(G4State_Idle); 60 } 61 62 ////////////////////////////////////////////// 63 HadrontherapyEventActionMessenger::~Hadronther 64 { 65 delete DrawCmd; 66 delete PrintCmd; 67 delete eventDir; 68 } 69 70 ////////////////////////////////////////////// 71 void HadrontherapyEventActionMessenger::SetNew 72 G4St 73 { 74 if(command == DrawCmd) 75 {eventAction->SetDrawFlag(newValue);} 76 77 if(command == PrintCmd) 78 {eventAction->SetPrintModulo(PrintCmd->Get 79 } 80