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

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

Parent Directory Parent Directory | Revision Log Revision Log


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

1 nikolas 1.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