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 "Collimator40BeamLineMessenger.hh" 42 #include "Collimator40BeamLine.hh" 43 #include "G4UIdirectory.hh" 44 #include "G4UIcmdWithADoubleAndUnit.hh" 45 #include "G4UIcmdWithAString.hh" 46 47 48 Collimator40BeamLineMessenger::Collimator40Bea 49 :collimator40(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 Collimator40BeamLineMessenger::~Collimator40Be 77 { 78 79 delete OuterRadiusFinalCollimatorIORTCmd; 80 delete innerRadiusFinalCollimatorIORTCmd; 81 delete FinalCollimatorIORTDir; 82 delete beamLineDir; 83 84 85 } 86 87 88 89 90 void Collimator40BeamLineMessenger::SetNewValu 91 { 92 93 if( command == innerRadiusFinalCollimatorI 94 { collimator40 -> SetInnerRadiusFinalColli 95 (innerRadiusFinalCollimatorIORTCmd -> GetNew 96 97 else if( command == OuterRadiusFinalCollim 98 { collimator40 -> SetOuterRadiusFinalColli 99 (OuterRadiusFinalCollimatorIORTCmd -> GetNew 100 101 } 102 103