#include <LaserDrivenBeamLineMessenger.hh>

Inheritance diagram for LaserDrivenBeamLineMessenger:

Collaboration diagram for LaserDrivenBeamLineMessenger:

Public Member Functions
	LaserDrivenBeamLineMessenger (LaserDrivenBeamLine *)

	~LaserDrivenBeamLineMessenger ()

void	SetNewValue (G4UIcommand *, G4String)

Public Member Functions inherited from G4UImessenger
	G4UImessenger ()

	G4UImessenger (const G4String &path, const G4String &dsc, G4bool commandsToBeBroadcasted=true)

virtual	~G4UImessenger ()

virtual G4String	GetCurrentValue (G4UIcommand *command)

G4bool	operator== (const G4UImessenger &messenger) const

G4bool	CommandsShouldBeInMaster () const

Private Attributes
LaserDrivenBeamLine *	laserDrivenMessengerPointer

G4UIdirectory *	laserDrivenDir

G4UIdirectory *	energySelectorDir

G4UIdirectory *	FcollimatorDir

G4UIdirectory *	ScollimatorDir

G4UIdirectory *	slitDir

G4UIdirectory *	quadrupoleDir

G4UIdirectory *	relativePosDir

G4UIcmdWithoutParameter *	DisableESSCmd

G4UIcmdWithADoubleAndUnit *	FcollimatorRadiusCmd

G4UIcmdWithADoubleAndUnit *	FcollimatorThicknessCmd

G4UIcmdWithADoubleAndUnit *	FcollimatorZpositionCmd

G4UIcmdWithADoubleAndUnit *	ScollimatorRadiusCmd

G4UIcmdWithADoubleAndUnit *	ScollimatorThicknessCmd

G4UIcmdWithADoubleAndUnit *	ScollimatorZpositionCmd

G4UIcmdWithADoubleAndUnit *	SlitThicknessCmd

G4UIcmdWithADoubleAndUnit *	holeSlitDimensionYCmd

G4UIcmdWithADoubleAndUnit *	holeSlitDimensionZCmd

G4UIcmdWithADoubleAndUnit *	slitHolePositionZCmd

G4UIcmdWithoutParameter *	DisableQuadsCmd

Additional Inherited Members
Protected Member Functions inherited from G4UImessenger
G4String	ItoS (G4int i)

G4String	DtoS (G4double a)

G4String	BtoS (G4bool b)

G4int	StoI (G4String s)

G4double	StoD (G4String s)

G4bool	StoB (G4String s)

void	AddUIcommand (G4UIcommand *newCommand)

void	CreateDirectory (const G4String &path, const G4String &dsc, G4bool commandsToBeBroadcasted=true)

template<typename T >
T *	CreateCommand (const G4String &cname, const G4String &dsc)

Protected Attributes inherited from G4UImessenger
G4UIdirectory *	baseDir

G4String	baseDirName

G4bool	commandsShouldBeInMaster

Detailed Description

Definition at line 41 of file LaserDrivenBeamLineMessenger.hh.

Constructor & Destructor Documentation

◆ LaserDrivenBeamLineMessenger()

LaserDrivenBeamLineMessenger::LaserDrivenBeamLineMessenger ( LaserDrivenBeamLine * laserDriven )

Definition at line 38 of file LaserDrivenBeamLineMessenger.cc.

   :laserDrivenMessengerPointer(laserDriven)
 {
 // Messenger directories for the Energy Selector module
   laserDrivenDir = new G4UIdirectory("/LaserDriven/");
   laserDrivenDir -> SetGuidance("The Laser Driven Beam Line module of Hadrontherapy");
 
   // Messenger directories for the Energy Selector module
   energySelectorDir = new G4UIdirectory("/LaserDriven/EnergySelector/");
   energySelectorDir -> SetGuidance("The Energy selector (ESS) module of Hadrontherapy");
 
   FcollimatorDir =  new G4UIdirectory("/LaserDriven/EnergySelector/FirstCollimator/");
   FcollimatorDir -> SetGuidance("Define geometrical characteristics of the ESS first collimator");
 
   ScollimatorDir =  new G4UIdirectory("/LaserDriven/EnergySelector/SecondCollimator/");
   ScollimatorDir -> SetGuidance("Define geometrical characteristics of the ESS second collimator");
 
   slitDir =  new G4UIdirectory("/LaserDriven/EnergySelector/Slit/");
   slitDir -> SetGuidance("Define geometrical characteristics of the ESS slit");
 
  // Messenger directories for the Quadrupole module
   quadrupoleDir = new G4UIdirectory("/LaserDriven/Quadrupoles/");
   quadrupoleDir -> SetGuidance("The Quadrupoles module of Hadrontherapy");
 
   relativePosDir = new G4UIdirectory("/LaserDriven/Quadrupoles/xRelPosition/");
   relativePosDir -> SetGuidance("Define the x relative positions of the quadrupoles");
 
   // ESS DISABLE
   DisableESSCmd = new G4UIcmdWithoutParameter("/LaserDriven/EnergySelector/Disable", this); 
   DisableESSCmd -> SetGuidance("Disable the Energy Selector.");
   DisableESSCmd -> SetGuidance("This command MUST be applied before \"beamOn\" ");
   DisableESSCmd -> AvailableForStates(G4State_Idle);
 
   // THE FIRST ESS COLLIMATOR
   //
   // Diameter of the first collimator
   FcollimatorRadiusCmd = new G4UIcmdWithADoubleAndUnit("/LaserDriven/EnergySelector/FirstCollimator/Radius", this);
   FcollimatorRadiusCmd -> SetGuidance("Set the Radius of the first collimator");
   FcollimatorRadiusCmd -> SetParameterName("Size",false);
   FcollimatorRadiusCmd -> SetDefaultUnit("mm"); 
   FcollimatorRadiusCmd -> SetUnitCandidates("mm cm m");  
   FcollimatorRadiusCmd -> AvailableForStates(G4State_Idle);
     
   // Thickness of the first collimator
   FcollimatorThicknessCmd = new G4UIcmdWithADoubleAndUnit("/LaserDriven/EnergySelector/FirstCollimator/Thickness", this);
   FcollimatorThicknessCmd -> SetGuidance("Set the thickness of the first collimator");
   FcollimatorThicknessCmd -> SetParameterName("Size",false);
   FcollimatorThicknessCmd -> SetDefaultUnit("mm"); 
   FcollimatorThicknessCmd -> SetUnitCandidates("mm cm m");  
   FcollimatorThicknessCmd -> AvailableForStates(G4State_Idle);
 
   // Z Position of the first collimator hole 
   FcollimatorZpositionCmd = new G4UIcmdWithADoubleAndUnit("/LaserDriven/EnergySelector/FirstCollimator/zPosizion", this);
   FcollimatorZpositionCmd -> SetGuidance("Set the Z position of the first collimator hole as respect the internal vacuum chamber center axis");
   FcollimatorZpositionCmd -> SetParameterName("Size",false);
   FcollimatorZpositionCmd -> SetDefaultUnit("mm"); 
   FcollimatorZpositionCmd -> SetUnitCandidates("mm cm m");  
   FcollimatorZpositionCmd -> AvailableForStates(G4State_Idle);
         
   // THE SECOND ESS COLLIMATOR
   //
  // Diameter of the second collimator
   ScollimatorRadiusCmd = new G4UIcmdWithADoubleAndUnit("/LaserDriven/EnergySelector/SecondCollimator/Radius", this);
   ScollimatorRadiusCmd -> SetGuidance("Set the Radius of the second collimator");
   ScollimatorRadiusCmd -> SetParameterName("Size",false);
   ScollimatorRadiusCmd -> SetDefaultUnit("mm"); 
   ScollimatorRadiusCmd -> SetUnitCandidates("mm cm m");  
   ScollimatorRadiusCmd -> AvailableForStates(G4State_Idle);
     
   // Thickness of the second collimator
   ScollimatorThicknessCmd = new G4UIcmdWithADoubleAndUnit("/LaserDriven/EnergySelector/SecondCollimator/Thickness", this);
   ScollimatorThicknessCmd -> SetGuidance("Set the thickness of the second collimator");
   ScollimatorThicknessCmd -> SetParameterName("Size",false);
   ScollimatorThicknessCmd -> SetDefaultUnit("mm"); 
   ScollimatorThicknessCmd -> SetUnitCandidates("mm cm m");  
   ScollimatorThicknessCmd -> AvailableForStates(G4State_Idle);
 
   // Z Position of the second collimator hole 
   ScollimatorZpositionCmd = new G4UIcmdWithADoubleAndUnit("/LaserDriven/EnergySelector/SecondCollimator/zPosizion", this);
   ScollimatorZpositionCmd -> SetGuidance("Set the Z position of the second collimator hole as respect the internal vacuum chamber center axis");
   ScollimatorZpositionCmd -> SetParameterName("Size",false);
   ScollimatorZpositionCmd -> SetDefaultUnit("mm"); 
   ScollimatorZpositionCmd -> SetUnitCandidates("mm cm m");  
   ScollimatorZpositionCmd -> AvailableForStates(G4State_Idle);
         
   // THE SLIT
   //    
   // Thickness Slit
   SlitThicknessCmd = new G4UIcmdWithADoubleAndUnit("/LaserDriven/EnergySelector/Slit/thickness",this);
   SlitThicknessCmd -> SetGuidance("Set the X dimension of the Slit, the maximum value is 10 mm");
   SlitThicknessCmd -> SetParameterName("Size",false);
   SlitThicknessCmd -> SetDefaultUnit("mm"); 
   SlitThicknessCmd -> SetUnitCandidates("mm cm m");  
   SlitThicknessCmd -> AvailableForStates(G4State_Idle);
     
   //Hole dimension of the Slit (in Y direction)
   holeSlitDimensionYCmd = new G4UIcmdWithADoubleAndUnit("/LaserDriven/EnergySelector/Slit/HoleDimensionY",this);
   holeSlitDimensionYCmd -> SetGuidance("Set the Y dimension of the Slit Hole");
   holeSlitDimensionYCmd -> SetParameterName("Size",false);
   holeSlitDimensionYCmd -> SetDefaultUnit("mm"); 
   holeSlitDimensionYCmd -> SetUnitCandidates("mm cm m");  
   holeSlitDimensionYCmd -> AvailableForStates(G4State_Idle);
     
   // Hole dimension of the Slit (in Z direction)
   holeSlitDimensionZCmd = new G4UIcmdWithADoubleAndUnit("/LaserDriven/EnergySelector/Slit/HoleDimensionZ",this);
   holeSlitDimensionZCmd -> SetGuidance("Set the Z dimension of the external part of magnet 4");
   holeSlitDimensionZCmd -> SetParameterName("Size",false);
   holeSlitDimensionZCmd -> SetDefaultUnit("mm"); 
   holeSlitDimensionZCmd -> SetUnitCandidates("mm cm m");  
   holeSlitDimensionZCmd -> AvailableForStates(G4State_Idle);
     
   // Hole position of the Slit (in Z direction as respect the Slit body)
   slitHolePositionZCmd = new G4UIcmdWithADoubleAndUnit("/LaserDriven/EnergySelector/Slit/HolePositionZ", this);
   slitHolePositionZCmd -> SetGuidance("Set the Slit hole position in the Z direction as respect the Slit body center");
   slitHolePositionZCmd -> SetParameterName("Size",false);
   slitHolePositionZCmd -> SetDefaultUnit("mm"); 
   slitHolePositionZCmd -> SetUnitCandidates("mm cm m");  
   slitHolePositionZCmd -> AvailableForStates(G4State_Idle);
 
 //  Quadrupole system DISABLE
    DisableQuadsCmd = new G4UIcmdWithoutParameter("/LaserDriven/Quadrupoles/DisableQuads", this);    
    DisableQuadsCmd -> SetGuidance("Disable the Quadrupole system.");
    DisableQuadsCmd -> SetGuidance("This command MUST be applied before \"beamOn\" ");
    DisableQuadsCmd -> AvailableForStates(G4State_Idle);         
 }

◆ ~LaserDrivenBeamLineMessenger()

LaserDrivenBeamLineMessenger::~LaserDrivenBeamLineMessenger ( )

Definition at line 165 of file LaserDrivenBeamLineMessenger.cc.

 { 
 
   delete laserDrivenDir;
   delete energySelectorDir;
   delete FcollimatorDir;
   delete ScollimatorDir;
   delete slitDir;
   delete quadrupoleDir;
   delete relativePosDir;
   delete DisableESSCmd;
   delete FcollimatorRadiusCmd;
   delete FcollimatorThicknessCmd;   
   delete FcollimatorZpositionCmd;
   delete ScollimatorRadiusCmd;
   delete ScollimatorThicknessCmd;   
   delete ScollimatorZpositionCmd;
 
   delete SlitThicknessCmd;
   delete holeSlitDimensionYCmd;
   delete holeSlitDimensionZCmd;
   delete slitHolePositionZCmd;
 
   delete DisableQuadsCmd;
         
 }

Member Function Documentation

◆ SetNewValue()

void LaserDrivenBeamLineMessenger::SetNewValue	(	G4UIcommand *	command,
		G4String	newValue
	)

virtual

Reimplemented from G4UImessenger.

Definition at line 192 of file LaserDrivenBeamLineMessenger.cc.

 { 
   if (command == DisableESSCmd)
     {
       laserDrivenMessengerPointer -> RemoveESS();
     }
   if( command == FcollimatorRadiusCmd )
     { 
       laserDrivenMessengerPointer -> SetFirstCollimatorRadius
     (FcollimatorRadiusCmd -> GetNewDoubleValue(newValue));
     }
   else if( command == FcollimatorThicknessCmd )
     { 
       laserDrivenMessengerPointer -> SetFirstCollimatorThickness
     (FcollimatorThicknessCmd -> GetNewDoubleValue(newValue));
     }
   else if( command == FcollimatorZpositionCmd )
     { 
       laserDrivenMessengerPointer -> SetFirstCollimatorPositionZ
     (FcollimatorZpositionCmd -> GetNewDoubleValue(newValue));
     }
   else if( command == ScollimatorRadiusCmd )
     { 
       laserDrivenMessengerPointer -> SetSecondCollimatorRadius
     (ScollimatorRadiusCmd -> GetNewDoubleValue(newValue));
     }
   else if( command == ScollimatorThicknessCmd )
     { 
       laserDrivenMessengerPointer -> SetSecondCollimatorThickness
     (ScollimatorThicknessCmd -> GetNewDoubleValue(newValue));
     }
   else if( command == ScollimatorZpositionCmd )
     { 
       laserDrivenMessengerPointer -> SetSecondCollimatorPositionZ
     (ScollimatorZpositionCmd -> GetNewDoubleValue(newValue));
     }
   else if( command == SlitThicknessCmd )
     { 
       laserDrivenMessengerPointer -> SetThicknessSlit
     (SlitThicknessCmd -> GetNewDoubleValue(newValue));
     }       
   else if( command == holeSlitDimensionYCmd ) 
     { 
       laserDrivenMessengerPointer -> SetSlitHoleDimensionY
     (holeSlitDimensionYCmd -> GetNewDoubleValue(newValue));
     }
   else if( command == holeSlitDimensionZCmd ) 
     { 
       laserDrivenMessengerPointer -> SetSlitHoleDimensionZ
     (holeSlitDimensionZCmd -> GetNewDoubleValue(newValue));
     }
   else if( command == slitHolePositionZCmd ) 
     { 
       laserDrivenMessengerPointer -> SetSlitHolePositionZ
     (slitHolePositionZCmd -> GetNewDoubleValue(newValue));
     }   
   else if (command==DisableQuadsCmd)
    {
       laserDrivenMessengerPointer -> RemoveQuads();
     }
     
 }