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 Wollongong, Australia 37 // 38 // *Corresponding author, email to carlo.cas 39 ////////////////////////////////////////////// 40 41 #include "Collimator100BeamLineMessenger.hh" 42 #include "Collimator100BeamLine.hh" 43 #include "G4UIdirectory.hh" 44 #include "G4UIcmdWithADoubleAndUnit.hh" 45 #include "G4UIcmdWithAString.hh" 46 47 48 Collimator100BeamLineMessenger::Collimator 49 :collimator100(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 innerRadiusFinalCollimatorIORTCmd = new G4 60 innerRadiusFinalCollimatorIORTCmd -> SetGu 61 innerRadiusFinalCollimatorIORTCmd -> SetPa 62 innerRadiusFinalCollimatorIORTCmd -> SetDe 63 innerRadiusFinalCollimatorIORTCmd -> SetUn 64 innerRadiusFinalCollimatorIORTCmd -> Avail 65 66 OuterRadiusFinalCollimatorIORTCmd = new G4 67 OuterRadiusFinalCollimatorIORTCmd -> SetGu 68 OuterRadiusFinalCollimatorIORTCmd -> SetPa 69 OuterRadiusFinalCollimatorIORTCmd -> SetDe 70 OuterRadiusFinalCollimatorIORTCmd -> SetUn 71 OuterRadiusFinalCollimatorIORTCmd -> Avail 72 73 } 74 75 Collimator100BeamLineMessenger::~Collimator100 76 { 77 78 delete OuterRadiusFinalCollimatorIORTCmd; 79 delete innerRadiusFinalCollimatorIORTCmd; 80 delete FinalCollimatorIORTDir; 81 delete beamLineDir; 82 83 84 } 85 86 87 88 89 void Collimator100BeamLineMessenger::SetNewVal 90 { 91 92 93 if( command == innerRadiusFinalCollimatorI 94 { collimator100 -> SetInnerRadiusFinalColl 95 (innerRadiusFinalCollimatorIORTCmd -> GetNew 96 97 else if( command == OuterRadiusFinalCollim 98 { collimator100 -> SetOuterRadiusFinalColl 99 (OuterRadiusFinalCollimatorIORTCmd -> GetNew 100 101 } 102 103