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 // This is the *BASIC* version of IORT, a Gean 27 // 28 // Main Authors: G.Russo(a,b), C.Casarino*(c), 29 // Contributor Authors: S.Guatelli(e) 30 // Past Authors: G.Arnetta(c), S.E.Mazzaglia(d 31 // 32 // (a) Fondazione Istituto San Raffaele G.Gi 33 // (b) IBFM-CNR , Segrate (Milano), Italy 34 // (c) LATO (Laboratorio di Tecnologie Oncol 35 // (d) Laboratori Nazionali del Sud of the I 36 // (e) University of Wallongong, Australia 37 // 38 // *Corresponding author, email to carlo.cas 39 ////////////////////////////////////////////// 40 41 #include "Collimator70BeamLineMessenger.hh" 42 #include "Collimator70BeamLine.hh" 43 #include "G4UIdirectory.hh" 44 #include "G4UIcmdWithADoubleAndUnit.hh" 45 #include "G4UIcmdWithAString.hh" 46 47 48 Collimator70BeamLineMessenger::Collimator7 49 :collimator70(beamLine) 50 51 { 52 53 beamLineDir = new G4UIdirectory("/beamLine 54 beamLineDir -> SetGuidance("set specificat 55 56 FinalCollimatorIORTDir = new G4UIdirectory 57 FinalCollimatorIORTDir -> SetGuidance("set 58 59 60 innerRadiusFinalCollimatorIORTCmd = new G4 61 innerRadiusFinalCollimatorIORTCmd -> SetGu 62 innerRadiusFinalCollimatorIORTCmd -> SetPa 63 innerRadiusFinalCollimatorIORTCmd -> SetDe 64 innerRadiusFinalCollimatorIORTCmd -> SetUn 65 innerRadiusFinalCollimatorIORTCmd -> Avail 66 67 OuterRadiusFinalCollimatorIORTCmd = new G4 68 OuterRadiusFinalCollimatorIORTCmd -> SetGu 69 OuterRadiusFinalCollimatorIORTCmd -> SetPa 70 OuterRadiusFinalCollimatorIORTCmd -> SetDe 71 OuterRadiusFinalCollimatorIORTCmd -> SetUn 72 OuterRadiusFinalCollimatorIORTCmd -> Avail 73 74 } 75 76 Collimator70BeamLineMessenger::~Collimator70Be 77 { 78 79 delete OuterRadiusFinalCollimatorIORTCmd; 80 delete innerRadiusFinalCollimatorIORTCmd; 81 delete FinalCollimatorIORTDir; 82 delete beamLineDir; 83 84 85 } 86 87 88 89 90 void Collimator70BeamLineMessenger::SetNewValu 91 { 92 93 94 if( command == innerRadiusFinalCollimatorI 95 { collimator70 -> SetInnerRadiusFinalColli 96 (innerRadiusFinalCollimatorIORTCmd -> GetNew 97 98 else if( command == OuterRadiusFinalCollim 99 { collimator70 -> SetOuterRadiusFinalColli 100 (OuterRadiusFinalCollimatorIORTCmd -> GetNew 101 102 } 103 104