| 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 // (adapted from B1PrimaryGeneratorAction)
27 // Author: A.Knaian (ara@nklabs.com), N.MacFad
28
29 #include "FAPrimaryGeneratorAction.hh"
30 #include "G4LogicalVolumeStore.hh"
31 #include "G4LogicalVolume.hh"
32 #include "G4Box.hh"
33 #include "G4RunManager.hh"
34 #include "G4ParticleGun.hh"
35 #include "G4ParticleTable.hh"
36 #include "G4ParticleDefinition.hh"
37 #include "G4SystemOfUnits.hh"
38 #include "Randomize.hh"
39
40 PrimaryGeneratorAction::PrimaryGeneratorAction
41 : G4VUserPrimaryGeneratorAction(), fParticleGu
42 {
43 G4int n_particle = 1;
44 fParticleGun = new G4ParticleGun(n_particle)
45
46 // default particle kinematic
47 G4ParticleTable* particleTable = G4ParticleTa
48 G4String particleName;
49 G4ParticleDefinition* particle
50 = particleTable->FindParticle(particleName
51 fParticleGun->SetParticleDefinition(particle)
52 fParticleGun->SetParticleMomentumDirection(G4
53 fParticleGun->SetParticleEnergy(50.*MeV);
54 }
55
56 PrimaryGeneratorAction::~PrimaryGeneratorActio
57 {
58 delete fParticleGun;
59 }
60
61 void PrimaryGeneratorAction::GeneratePrimaries
62 {
63 G4double worldSizeXY = 0;
64 G4double worldSizeZ = 0;
65
66 if (!fWorldBox)
67 {
68 G4LogicalVolume* worldLV
69 = G4LogicalVolumeStore::GetInstance()->Get
70 if ( worldLV ) fWorldBox = dynamic_cast<G4Bo
71 }
72 if ( fWorldBox )
73 {
74 worldSizeXY = fWorldBox->GetXHalfLength()*
75 worldSizeZ = fWorldBox->GetZHalfLength()*2
76 }
77 else
78 {
79 G4ExceptionDescription msg;
80 msg << "World volume of box shape not found
81 msg << "Perhaps you have changed geometry.\
82 msg << "The gun will be place at the center
83 G4Exception("PrimaryGeneratorAction::Genera
84 "MyCode0002",JustWarning,msg);
85 }
86
87 // shoot on XY disk centered on Z-axis behi
88 G4double sigma = worldSizeXY/10.0; // s
89 G4double x0 = G4RandGauss::shoot(0,sigma);
90 G4double y0 = G4RandGauss::shoot(0,sigma);
91 G4double z0 = 0.95 * (-0.5) * worldSizeZ;
92
93 fParticleGun->SetParticlePosition(G4ThreeVe
94 fParticleGun->GeneratePrimaryVertex(anEvent
95 }
96
97