/[PAMELA software]/PamVMC/tof/src/PamVMCDetTofS3.cxx
ViewVC logotype

Contents of /PamVMC/tof/src/PamVMCDetTofS3.cxx

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (show annotations) (download)
Thu Feb 19 16:00:17 2009 UTC (15 years, 9 months ago) by nikolas
Branch: MAIN
Cleaning files before release

1 #include "PamVMCDetTofS3.h"
2
3 ClassImp(PamVMCDetTofS3)
4
5 void PamVMCDetTofS3::DefineGeometry(){
6
7 TGeoMaterial *m=0;
8 TGeoMixture *x=0;
9 TString s;
10
11 s = "SCINT";
12 x = (TGeoMixture*)GetMat(s);
13 if(!x){
14 x = new TGeoMixture(s,2, 1.03200 );
15 x->SetUniqueID( 17);
16 x->DefineElement(0,12.01,6,0.922427);
17 x->DefineElement(1,1.01,1,0.7757296E-01);
18 }
19
20 s = "N2GAS";
21 m = GetMat(s);
22 if (!m){
23 m = new TGeoMaterial(s,14.01,7,0.1250000E-02);
24 m->SetUniqueID( 19);
25 }
26
27 s = "MYLAR";
28 x = (TGeoMixture*)GetMat(s);
29 if(!x){
30 x = new TGeoMixture(s,3, 1.39000 );
31 x->SetUniqueID( 29);
32 x->DefineElement(0,12.011,6,0.6250159);
33 x->DefineElement(1,1.00794,1,0.4196011E-01);
34 x->DefineElement(2,15.9994,8,0.3330241);
35 }
36
37
38 TGeoMedium *n=0;
39
40
41 s = "N2 GAS";
42 n = (GetMed(s))?GetMed(s): new TGeoMedium(s,3,19,-1,1,40,1,0.5000000E-01,0.5000000E-01,0.1000000E-02,0.5000000E-03);
43
44 s = "SCINTILLATOR";
45 n = (GetMed(s))?GetMed(s): new TGeoMedium(s,10,17,1,1,40,1,0.5000000E-01,0.5000000E-01,0.1000000E-01,0.5000000E-03);
46
47 s = "MYLAR";
48 n = (GetMed(s))?GetMed(s): new TGeoMedium(s,19,29,-1,1,40,1,100,0.5000000E-01,0.2300000E-04,0.5000000E-03);
49
50
51 TGeoVolume *v=0;
52 s = "S3";
53 v = (GetVol(s))?GetVol(s): gGeoManager->MakeBox("S3",GetMed("N2 GAS"),9.0069,7.5069,0.7819);
54 s = "S31M";
55 v = (GetVol(s))?GetVol(s): gGeoManager->MakeBox("S31M",GetMed("MYLAR"),3.0023,7.5,0.35345);
56 s= "S32M";
57 v = (GetVol(s))?GetVol(s): gGeoManager->MakeBox("S32M",GetMed("MYLAR"),9.,2.5023,0.35345);
58 s = "S31Y";
59 v = (GetVol(s))?GetVol(s): gGeoManager->MakeBox("S31Y",GetMed("SCINTILLATOR"),3.,7.5,0.35);
60 s = "S32X";
61 v = (GetVol(s))?GetVol(s): gGeoManager->MakeBox("S32X",GetMed("SCINTILLATOR"),9.,2.5,0.35);
62
63 GetVol("S3")->AddNode(GetVol("S32M"),1,new TGeoTranslation(0.,-5.0046,-0.42845));
64 GetVol("S32M")->AddNode(GetVol("S32X"),1,new TGeoTranslation(0.,0.,-0.115E-02));
65 GetVol("S3")->AddNode(GetVol("S32M"),2,new TGeoTranslation(0.,0.,-0.42845));
66 GetVol("S3")->AddNode(GetVol("S32M"),3,new TGeoTranslation(0.,5.0046,-0.42845));
67 GetVol("S3")->AddNode(GetVol("S31M"),1,new TGeoTranslation(-6.0046,0.,0.42845));
68 GetVol("S31M")->AddNode(GetVol("S31Y"),1,new TGeoTranslation(0.,0.,-0.115E-02));
69 GetVol("S3")->AddNode(GetVol("S31M"),2,new TGeoTranslation(0.,0.,0.42845));
70 GetVol("S3")->AddNode(GetVol("S31M"),3,new TGeoTranslation(6.0046,0.,0.42845));
71
72
73
74 SetMotherProp(GetVol("S3"),1,new TGeoTranslation(0.,0.,25.3159));
75
76
77
78 }
79
80 void PamVMCDetTofS3::DefineCuts(){
81
82 TString s ="N2 GAS";
83 if (GetMed(s) && !GetCC(s))
84 SetCC(s, new pCutControl(GetMedID(s), 0.0001, 0.001, 0.0001, 0.0001, 0.0001, 0.0001, 0.0001, 0.0001,
85 0.001, 0.01, 1., 1., 1., 0., 0., 1., 1., 4., 1., 1., 2., 1.));
86 s ="SCINTILLATOR";// default GPAMELA parameters
87 if (GetMed(s) && !GetCC(s))
88 SetCC(s, new pCutControl(GetMedID(s), 0.0001, 0.001, 0.0001, 0.0001, 0.0001, 0.0001, 0.0001, 0.0001,
89 0.001, 0.01, 1., 1., 1., 0., 1., 1., 1., 4., 1., 1., 1., 1.));
90 s ="MYLAR";
91 if (GetMed(s) && !GetCC(s))
92 SetCC(s, new pCutControl(GetMedID(s), 0.0001, 0.001, 0.0001, 0.0001, 0.0001, 0.0001, 0.0001, 0.0001,
93 0.001, 0.01, 1., 1., 1., 0., 1., 1., 1., 4., 1., 1., 1., 1.));
94 }
95

  ViewVC Help
Powered by ViewVC 1.1.23