Geant4 Cross Reference

Cross-Referencing   Geant4
Geant4/examples/advanced/hadrontherapy/src/PassiveCarbonBeamLineMessenger.cc

Version: [ ReleaseNotes ] [ 1.0 ] [ 1.1 ] [ 2.0 ] [ 3.0 ] [ 3.1 ] [ 3.2 ] [ 4.0 ] [ 4.0.p1 ] [ 4.0.p2 ] [ 4.1 ] [ 4.1.p1 ] [ 5.0 ] [ 5.0.p1 ] [ 5.1 ] [ 5.1.p1 ] [ 5.2 ] [ 5.2.p1 ] [ 5.2.p2 ] [ 6.0 ] [ 6.0.p1 ] [ 6.1 ] [ 6.2 ] [ 6.2.p1 ] [ 6.2.p2 ] [ 7.0 ] [ 7.0.p1 ] [ 7.1 ] [ 7.1.p1 ] [ 8.0 ] [ 8.0.p1 ] [ 8.1 ] [ 8.1.p1 ] [ 8.1.p2 ] [ 8.2 ] [ 8.2.p1 ] [ 8.3 ] [ 8.3.p1 ] [ 8.3.p2 ] [ 9.0 ] [ 9.0.p1 ] [ 9.0.p2 ] [ 9.1 ] [ 9.1.p1 ] [ 9.1.p2 ] [ 9.1.p3 ] [ 9.2 ] [ 9.2.p1 ] [ 9.2.p2 ] [ 9.2.p3 ] [ 9.2.p4 ] [ 9.3 ] [ 9.3.p1 ] [ 9.3.p2 ] [ 9.4 ] [ 9.4.p1 ] [ 9.4.p2 ] [ 9.4.p3 ] [ 9.4.p4 ] [ 9.5 ] [ 9.5.p1 ] [ 9.5.p2 ] [ 9.6 ] [ 9.6.p1 ] [ 9.6.p2 ] [ 9.6.p3 ] [ 9.6.p4 ] [ 10.0 ] [ 10.0.p1 ] [ 10.0.p2 ] [ 10.0.p3 ] [ 10.0.p4 ] [ 10.1 ] [ 10.1.p1 ] [ 10.1.p2 ] [ 10.1.p3 ] [ 10.2 ] [ 10.2.p1 ] [ 10.2.p2 ] [ 10.2.p3 ] [ 10.3 ] [ 10.3.p1 ] [ 10.3.p2 ] [ 10.3.p3 ] [ 10.4 ] [ 10.4.p1 ] [ 10.4.p2 ] [ 10.4.p3 ] [ 10.5 ] [ 10.5.p1 ] [ 10.6 ] [ 10.6.p1 ] [ 10.6.p2 ] [ 10.6.p3 ] [ 10.7 ] [ 10.7.p1 ] [ 10.7.p2 ] [ 10.7.p3 ] [ 10.7.p4 ] [ 11.0 ] [ 11.0.p1 ] [ 11.0.p2 ] [ 11.0.p3, ] [ 11.0.p4 ] [ 11.1 ] [ 11.1.1 ] [ 11.1.2 ] [ 11.1.3 ] [ 11.2 ] [ 11.2.1 ] [ 11.2.2 ] [ 11.3.0 ]

  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 // Hadrontherapy advanced example for Geant4
 27 // See more at: https://twiki.cern.ch/twiki/bin/view/Geant4/AdvancedExamplesHadrontherapy
 28 
 29 #include "PassiveCarbonBeamLineMessenger.hh"
 30 #include "PassiveCarbonBeamLine.hh"
 31 #include "G4UIdirectory.hh"
 32 #include "G4UIcmdWithADoubleAndUnit.hh"
 33 #include "G4UIcmdWithAString.hh"
 34 #include "G4SystemOfUnits.hh"
 35 
 36 PassiveCarbonBeamLineMessenger::PassiveCarbonBeamLineMessenger(PassiveCarbonBeamLine* beamLine)
 37 :passiveCarbon(beamLine)
 38 
 39 {
 40     beamLineDir = new G4UIdirectory("/beamLine/");
 41     beamLineDir -> SetGuidance("set specification of ripple filter");
 42 
 43     RippleFilterDir = new G4UIdirectory("/beamLine/RippleFilter/");
 44     RippleFilterDir -> SetGuidance("set specification of ripple filter");
 45 
 46     finalCollimatorDir = new G4UIdirectory("/beamLine/FinalCollimator/");
 47     finalCollimatorDir -> SetGuidance("set specification of final collimator");
 48 
 49     RippleFilterMatCmd = new G4UIcmdWithAString("/beamLine/RippleFilter/RFMat",this);
 50     RippleFilterMatCmd -> SetGuidance("Set material of ripple filter");
 51     RippleFilterMatCmd -> SetParameterName("choice",false);
 52     RippleFilterMatCmd -> AvailableForStates(G4State_Idle);
 53 
 54     RippleFilterXPositionCmd = new G4UIcmdWithADoubleAndUnit("/beamLine/RippleFilter/position",this);
 55     RippleFilterXPositionCmd -> SetGuidance("Set position of ripple filter");
 56     RippleFilterXPositionCmd -> SetParameterName("Size",false);
 57     RippleFilterXPositionCmd -> SetDefaultUnit("mm");  
 58     RippleFilterXPositionCmd -> SetUnitCandidates("mm cm m");  
 59     RippleFilterXPositionCmd -> AvailableForStates(G4State_Idle);
 60 
 61     innerRadiusFinalCollimatorCmd = new G4UIcmdWithADoubleAndUnit("/beamLine/FinalCollimator/halfInnerRad",this);
 62     innerRadiusFinalCollimatorCmd -> SetGuidance("Set size of inner radius ( max 21.5 mm)");
 63     innerRadiusFinalCollimatorCmd -> SetParameterName("Size",false);
 64     innerRadiusFinalCollimatorCmd -> SetDefaultUnit("mm");  
 65     innerRadiusFinalCollimatorCmd -> SetUnitCandidates("mm cm m");  
 66     innerRadiusFinalCollimatorCmd -> AvailableForStates(G4State_Idle);
 67 
 68     }
 69 
 70 PassiveCarbonBeamLineMessenger::~PassiveCarbonBeamLineMessenger()
 71 { 
 72    
 73     delete innerRadiusFinalCollimatorCmd;
 74     delete RippleFilterXPositionCmd;
 75     delete RippleFilterMatCmd;
 76     delete finalCollimatorDir;
 77     delete RippleFilterDir;  
 78     delete beamLineDir;
 79     
 80 }
 81 
 82 
 83 void PassiveCarbonBeamLineMessenger::SetNewValue(G4UIcommand* command,G4String newValue)
 84 {
 85     if( command == RippleFilterMatCmd )
 86     { passiveCarbon -> SetRippleFilterMaterial(newValue);
 87     }
 88 
 89     else if( command == RippleFilterXPositionCmd )
 90     { passiveCarbon -> SetRippleFilterXPosition
 91   (RippleFilterXPositionCmd -> GetNewDoubleValue(newValue));
 92     }
 93 
 94     else if( command == innerRadiusFinalCollimatorCmd )
 95     { passiveCarbon -> SetInnerRadiusFinalCollimator
 96   (innerRadiusFinalCollimatorCmd -> GetNewDoubleValue(newValue));
 97     }
 98 
 99     
100 }
101 
102