]> git.uio.no Git - u/mrichter/AliRoot.git/blame - RICH/Geom.C
git://git.uio.no / u / mrichter / AliRoot.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
New geometry test file
[u/mrichter/AliRoot.git] / RICH / Geom.C
CommitLineData
0dd05dec 1TGeoManager *g=0;
2AliRICHParam *p=0;
ed08a153 3void Geom()
4{
0dd05dec 5 Bool_t isSr90=kFALSE;
6 gSystem->Load("libGeom.so");
7 g=new TGeoManager("HMPID","HMPID single chamber");
8 p=new AliRICHParam;
9//Dimentions and tmp
10 Int_t copy;
11 Double_t dx,dy,dz,r1,r2,a=0,z=0,den=0,radlen=0,intlen=0;
12 Double_t cm=1,m=100*cm,mm=0.1*cm,mkm=0.001*cm;
13//Medium
14 pAir=new TGeoMedium("Air" ,1, g->GetMaterial("Air"));
15 new TGeoMaterial("CH4" ,a=26.98 ,z=13,den=0.4224 ); pCH4=new TGeoMedium("CH4" ,2, g->GetMaterial("CH4"));
16 new TGeoMaterial("CsI" ,a=26.98 ,z=13,den=2.7 ,radlen=24.01,intlen=70.6); pCsI=new TGeoMedium("CsI" ,3, g->GetMaterial("CsI"));
17 new TGeoMaterial("Al" ,a=26.98 ,z=13,den=2.7 ,radlen=24.01,intlen=70.6); pAl =new TGeoMedium("Al" ,4, g->GetMaterial("Al"));
18 new TGeoMaterial("Fe" ,a=55.845,z=26,den=7.87,radlen=13.84,intlen=82.8); pFe =new TGeoMedium("Fe" ,5, g->GetMaterial("Fe"));
19 new TGeoMaterial("W" ,a=183.84,z=27,den=19.3,radlen= 9.59*cm,intlen=0.35*cm);pW =new TGeoMedium("W" ,6, g->GetMaterial("W"));
20 new TGeoMaterial("Cu" ,a=55.845,z=26,den=7.87,radlen=13.84,intlen=82.8); pCu =new TGeoMedium("Cu" ,7, g->GetMaterial("Cu"));
21 new TGeoMaterial("Perpex" ,a=55.845,z=26,den=7.87,radlen=13.84,intlen=82.8); new TGeoMedium("Perpex" ,8, g->GetMaterial("Perpex"));
22 new TGeoMaterial("Rohacell" ,a=12.01,z=6,den=0.1,radlen=18.8,intlen=0); new TGeoMedium("Rohacell" ,9, g->GetMaterial("Rohacell"));
23 new TGeoMaterial("SiO2" ,a=0,z=0,den=0); new TGeoMedium("SiO2" ,10, g->GetMaterial("SiO2"));
24 new TGeoMaterial("C6F14" ,a=0,z=0,den=0); new TGeoMedium("C6F14" ,11, g->GetMaterial("C6F14"));
25//Mother
26 TGeoVolume *pMother=g->MakeBox("Mother",pAir,dx=10*m/2,dy=10*m/2,dz=30*m/2); //arbitrary values
27//Rich
28 TGeoVolume *pRich=g->MakeBox( "Rich" ,pCH4,dx=(6*mm+1681*mm+6*mm)/2 ,dy=(6*mm+1466*mm+6*mm)/2 ,dz=(80*mm+40*mm)*2/2); //2033P1 z p84 TDR
ed08a153 29
0dd05dec 30 for(int i=1;i<=7;i++)
31 pMother->AddNode(pRich,copy=i,new TGeoCombiTrans(p->C(i)->Center().X(), p->C(i)->Center().Y(), p->C(i)->Center().Z(),
32 new TGeoRotation(Form("RichRot%i",i),p->C(i)->ThetaXd(),p->C(i)->PhiXd(),p->C(i)->ThetaYd(),p->C(i)->PhiYd(),p->C(i)->ThetaZd(),p->C(i)->PhiZd()))); //Rich to Mother
33//Pad Panel frame
34 TGeoVolume *pPpf =g->MakeBox("PPF" ,pAl ,dx=648*mm/2 ,dy= 411*mm/2 ,dz=40 *mm/2);//PPF 2001P2 inner size of the slab by 1mm more
35 TGeoVolume *pPpfLarge=g->MakeBox("PPFlarge" ,pAir ,dx=181*mm/2 ,dy=89.25*mm/2 ,dz=38.3*mm/2);//large whole
36 TGeoVolume *pPpfSmall=g->MakeBox("PPFsmall" ,pAir ,dx=114*mm/2 ,dy=89.25*mm/2 ,dz=38.3*mm/2);//small whole
37 TGeoVolume *pPc =g->MakeBox("Pc" ,pCsI ,dx=644*mm/2 ,dy= 407*mm/2 ,dz= 1.7*mm/2);//by 0.2 mm more then actual size (PCB 2006P1)
ed08a153 38
0dd05dec 39 pRich->AddNode(pPpf,copy=1,new TGeoTranslation(-335*mm,-433*mm,8*cm+20*mm));//F1 2040P1 z p.84 TDR
40 pRich->AddNode(pPpf,copy=2,new TGeoTranslation(+335*mm,-433*mm,8*cm+20*mm));
41 pRich->AddNode(pPpf,copy=3,new TGeoTranslation(-335*mm, 0*mm,8*cm+20*mm));
42 pRich->AddNode(pPpf,copy=4,new TGeoTranslation(+335*mm, 0*mm,8*cm+20*mm));
43 pRich->AddNode(pPpf,copy=5,new TGeoTranslation(-335*mm,+433*mm,8*cm+20*mm));
44 pRich->AddNode(pPpf,copy=6,new TGeoTranslation(+335*mm,+433*mm,8*cm+20*mm));
45 pPpf->AddNode( pPc ,copy=1,new TGeoTranslation( 0*mm, 0*mm,-19.15*mm));//PPF 2001P2
46 pPpf->AddNode(g->GetVolume("PPFlarge"),copy=1,new TGeoTranslation(-224.5*mm,-151.875*mm, 0.85*mm));
47 pPpf->AddNode(g->GetVolume("PPFlarge"),copy=2,new TGeoTranslation(-224.5*mm,- 50.625*mm, 0.85*mm));
48 pPpf->AddNode(g->GetVolume("PPFlarge"),copy=3,new TGeoTranslation(-224.5*mm,+ 50.625*mm, 0.85*mm));
49 pPpf->AddNode(g->GetVolume("PPFlarge"),copy=4,new TGeoTranslation(-224.5*mm,+151.875*mm, 0.85*mm));
50 pPpf->AddNode(g->GetVolume("PPFsmall"),copy=1,new TGeoTranslation(- 65.0*mm,-151.875*mm, 0.85*mm));
51 pPpf->AddNode(g->GetVolume("PPFsmall"),copy=2,new TGeoTranslation(- 65.0*mm,- 50.625*mm, 0.85*mm));
52 pPpf->AddNode(g->GetVolume("PPFsmall"),copy=3,new TGeoTranslation(- 65.0*mm,+ 50.625*mm, 0.85*mm));
53 pPpf->AddNode(g->GetVolume("PPFsmall"),copy=4,new TGeoTranslation(- 65.0*mm,+151.875*mm, 0.85*mm));
54 pPpf->AddNode(g->GetVolume("PPFsmall"),copy=5,new TGeoTranslation(+ 65.0*mm,-151.875*mm, 0.85*mm));
55 pPpf->AddNode(g->GetVolume("PPFsmall"),copy=6,new TGeoTranslation(+ 65.0*mm,- 50.625*mm, 0.85*mm));
56 pPpf->AddNode(g->GetVolume("PPFsmall"),copy=7,new TGeoTranslation(+ 65.0*mm,+ 50.625*mm, 0.85*mm));
57 pPpf->AddNode(g->GetVolume("PPFsmall"),copy=8,new TGeoTranslation(+ 65.0*mm,+151.875*mm, 0.85*mm));
58 pPpf->AddNode(g->GetVolume("PPFlarge"),copy=5,new TGeoTranslation(+224.5*mm,-151.875*mm, 0.85*mm));
59 pPpf->AddNode(g->GetVolume("PPFlarge"),copy=6,new TGeoTranslation(+224.5*mm,- 50.625*mm, 0.85*mm));
60 pPpf->AddNode(g->GetVolume("PPFlarge"),copy=7,new TGeoTranslation(+224.5*mm,+ 50.625*mm, 0.85*mm));
61 pPpf->AddNode(g->GetVolume("PPFlarge"),copy=8,new TGeoTranslation(+224.5*mm,+151.875*mm, 0.85*mm));
62//Gap - anod wires
63 TGeoVolume *pGap =g->MakeBox ("Gap" ,pCH4 ,dx=648*mm/2,dy= 411*mm/2 ,dz=4.45*mm/2);//xy as PPF 2001P2 z WP 2099P1
64 TGeoVolume *pAnod=g->MakeTube("Anod" ,pW ,r1= 0*mm ,r2= 20*mkm/2,dz=648*mm/2); //WP 2099P1 z = gap x PPF 2001P2
65 TGeoRotation *pAnodRot=new TGeoRotation("AnodRot",90,90,0);
ed08a153 66
0dd05dec 67 pRich->AddNode(pGap,copy=1,new TGeoTranslation(-335*mm,-433*mm,8*cm-2.225*mm)); //F1 2040P1 z WP 2099P1
68 pRich->AddNode(pGap,copy=2,new TGeoTranslation(+335*mm,-433*mm,8*cm-2.225*mm));
69 pRich->AddNode(pGap,copy=3,new TGeoTranslation(-335*mm, 0*mm,8*cm-2.225*mm));
70 pRich->AddNode(pGap,copy=4,new TGeoTranslation(+335*mm, 0*mm,8*cm-2.225*mm));
71 pRich->AddNode(pGap,copy=5,new TGeoTranslation(-335*mm,+433*mm,8*cm-2.225*mm));
72 pRich->AddNode(pGap,copy=6,new TGeoTranslation(+335*mm,+433*mm,8*cm-2.225*mm));
73 for(int i=1;i<=96;i++)
74 pGap->AddNode(pAnod,copy=i,new TGeoCombiTrans( 0*mm, -411/2*mm+i*4*mm, 0.185*mm,pAnodRot)); //WP 2099P1
75//Frame 3- cathode wires
76 TGeoVolume *pCath=g->MakeTube("Cath" ,pCu ,r1=0 ,r2=100*mkm/2,dz=1323*mm/2);//r WP 2099P1 z F3 2041P1
77 TGeoRotation *pCathRot=new TGeoRotation("CathRot",90,90,0);
ed08a153 78
0dd05dec 79 for(int i=1;i<=618;i++)
80 pRich->AddNode(pCath,copy=i,new TGeoCombiTrans( 0*mm, -649.5*mm+i*2.1*mm, 75*mm,pCathRot)); //WP 2099P1
81//Frame 4- collection wires
82 TGeoVolume *pF4 =g->MakeBox( "F4" ,pCH4 ,dx=1407*mm/2 ,dy=1366*mm/2 ,dz= 15*mm/2);//F4 2043P1
83 TGeoVolume *pF4al=g->MakeBox( "F4al" ,pAl ,dx=1407*mm/2 ,dy=1366*mm/2 ,dz= 10*mm/2);
84 TGeoVolume *pF4in=g->MakeBox( "F4in" ,pCH4 ,dx=1323*mm/2 ,dy=1296*mm/2 ,dz= 10*mm/2);
85 TGeoVolume *pColl=g->MakeTube("Coll" ,pCu ,r1= 0*mm ,r2=100*mkm/2 ,dz=1323*mm/2);
86 TGeoRotation *pCollRot=new TGeoRotation("CollRot",90,90,0);
ed08a153 87
0dd05dec 88 pRich->AddNode(pF4 ,copy=1,new TGeoTranslation( 0*mm,0*mm, 9*mm)); //F4 to Rich p.84 TDR
89 pF4 ->AddNode(pF4al ,copy=1,new TGeoTranslation( 0*mm,0*mm, 2.5*mm)); //F4 al to F4 2043P1
90 pF4al->AddNode(pF4in ,copy=1,new TGeoTranslation( 0*mm,0*mm, 0*mm)); //F4 whole F4 al 2043P1
91 for(int i=1;i<=322;i++)
92 pF4->AddNode(pColl,copy=i,new TGeoCombiTrans( 0*mm, -1296/2*mm+i*4*mm, -5*mm,pCollRot)); //F4 2043P1
93//Radiators or Sr90 source
94 if(!isSr90){//Radiators
95 TGeoVolume *pRad =g->MakeBox( "Rad" ,g->GetMedium("C6F14") ,dx=1330*mm/2 ,dy= 413*mm/2 ,dz= 24*mm/2); // Rad 2011P1
96 TGeoVolume *pRadFront =g->MakeBox( "RadFront" ,g->GetMedium("Neoceram") ,dx=1330*mm/2 ,dy= 413*mm/2 ,dz= 4*mm/2);
97 TGeoVolume *pRadWin =g->MakeBox( "RadWin" ,g->GetMedium("SiO2") ,dx=1330*mm/2 ,dy= 413*mm/2 ,dz= 5*mm/2);
98 TGeoVolume *pRadLong =g->MakeBox( "RadLong" ,g->GetMedium("Neoceram") ,dx=1330*mm/2 ,dy= 5*mm/2 ,dz= 15*mm/2);
99 TGeoVolume *pRadShort =g->MakeBox( "RadShort" ,g->GetMedium("Neoceram") ,dx= 10*mm/2 ,dy= 403*mm/2 ,dz= 15*mm/2);
100 TGeoVolume *pRadSpacer=g->MakeTube("RadSpacer",g->GetMedium("SiO2") ,r1= 0 ,r2=10*mm/2 ,dz= 15*mm/2);
101
102 pRich->AddNode(pRad,copy=1,new TGeoTranslation( 0*mm,-434*mm, -12*mm));
103 pRich->AddNode(pRad,copy=2,new TGeoTranslation( 0*mm, 0*mm, -12*mm));
104 pRich->AddNode(pRad,copy=3,new TGeoTranslation( 0*mm,+434*mm, -12*mm));
105 pRad->AddNode(g->GetVolume("RadFront") ,copy=1,new TGeoTranslation( 0*mm, 0*mm, -10.0*mm));
106 pRad->AddNode(g->GetVolume("RadWin") ,copy=1,new TGeoTranslation( 0*mm, 0*mm, 9.5*mm));
107 pRad->AddNode(g->GetVolume("RadLong") ,copy=1,new TGeoTranslation( 0*mm,-204*mm, -0.5*mm));
108 pRad->AddNode(g->GetVolume("RadLong") ,copy=2,new TGeoTranslation( 0*mm,+204*mm, -0.5*mm));
109 pRad->AddNode(g->GetVolume("RadShort") ,copy=1,new TGeoTranslation(-660*mm, 0*mm, -0.5*mm));
110 pRad->AddNode(g->GetVolume("RadShort") ,copy=2,new TGeoTranslation(+660*mm, 0*mm, -0.5*mm));
111 for(int i=0;i<3;i++)
112 for(int j=0;j<10;j++)
113 pRad->AddNode(pRadSpacer,copy=10*i+j,new TGeoTranslation(-1330*mm/2+116*mm+j*122*mm,(i-1)*105*mm,-0.5*mm));
114 }else{//Sr90
115 Double_t containerZ=21.8*mm/2,containerR=38*mm/2;
116 Double_t screwLen=15*mm/2 ,screwR=5*mm/2;
117 Double_t srcLen=10*mm/2 ,srcR=2*mm/2;
118 Double_t perpexZ=20*mm/2 ,perpexR=34*mm/2;
119 Double_t perpexWholeLen=10*mm/2,perpexWholeR=4*mm/2;
120 Double_t alBottomLen=containerZ-perpexZ,alWholeR=5*mm/2;
121 g->MakeTube("Sr90" ,pAir ,0 ,containerR ,containerZ);
122 g->MakeTube("Sr90AlWall" ,pAl ,perpexR,containerR ,containerZ);
123 g->MakeTube("Sr90AlBottom" ,pAl ,0 ,perpexR ,alBottomLen);
124 g->MakeTube("Sr90AlWhole" ,pAir ,0 ,alWholeR ,alBottomLen);
125 g->MakeTube("Sr90PerpexPlug" ,g->GetMedium("Perpex"),0 ,perpexR ,perpexZ);
126 g->MakeTube("Sr90PerpexWhole",pAir ,0 ,perpexWholeR,perpexWholeLen);
127 g->MakeTube("Sr90Screw" ,g->GetMedium("Steel") ,0 ,screwR ,screwLen);
128 g->MakeTube("Sr90Source" ,g->GetMedium("Steel") ,0 ,srcR ,srcLen);
129
130 pRich->AddNode(pContainer,1,new TGeoTranslation(30*cm,0,containerZ));
131 pContainer ->AddNode(pAlWall,1);
132 pContainer ->AddNode(pAlBottom,1,new TGeoTranslation(0,0,-containerZ+alBottomLen));
133 pContainer ->AddNode(pPerpexPlug,1,new TGeoTranslation(0,0,containerZ-perpexZ));
134 pAlBottom ->AddNode(pAlWhole,1,new TGeoTranslation(6*mm,0,0));
135 pPerpexPlug->AddNode(pPerpexWhole,1,new TGeoTranslation(6*mm,0,-perpexZ+perpexWholeLen));
136 pPerpexPlug->AddNode(pSource,1 ,new TGeoTranslation(6*mm,0, perpexZ-srcLen));
137 pPerpexPlug->AddNode(pScrew,1,new TGeoTranslation(0,0,perpexZ-screwLen));
138 }//if(!isSr90)
139//Sandbox
140 TGeoVolume *pSandBox=g->MakeBox( "SandBox" ,g->GetMedium("Air") ,dx=1419*mm/2 ,dy=1378*mm/2 ,dz=50.5*mm/2); //2072P1
141 g->MakeBox( "SandCover",g->GetMedium("Al") ,dx=1419*mm/2 ,dy=1378*mm/2 ,dz= 0.5*mm/2);
142 g->MakeBox( "SandComb" ,g->GetMedium("Rohacell") ,dx=1359*mm/2 ,dy=1318*mm/2 ,dz=49.5*mm/2);
2d90a312 143
0dd05dec 144 pRich->AddNode(pSandBox,copy=1,new TGeoTranslation( 0*mm,0*mm, -73.75*mm)); //p.84 TDR
145 pSandBox->AddNode(g->GetVolume("SandComb") ,copy=1,new TGeoTranslation( 0*mm,0*mm, 0*mm)); //2072P1
146 pSandBox->AddNode(g->GetVolume("SandCover") ,copy=1,new TGeoTranslation( 0*mm,0*mm, +25*mm));
147 pSandBox->AddNode(g->GetVolume("SandCover") ,copy=2,new TGeoTranslation( 0*mm,0*mm, -25*mm));
148//Colors
149 g->GetVolume("Pc") ->SetLineColor(kGreen);
150 g->GetVolume("PPF") ->SetLineColor(33);
151 g->GetVolume("PPFlarge") ->SetLineColor(kYellow);
152 g->GetVolume("PPFsmall") ->SetLineColor(kYellow);
153 g->GetVolume("RadFront") ->SetLineColor(kRed);
154 g->GetVolume("RadLong") ->SetLineColor(46);
155 g->GetVolume("RadShort") ->SetLineColor(kMagenta);
156 g->GetVolume("RadWin") ->SetLineColor(kBlue);
157 g->GetVolume("RadSpacer")->SetLineColor(kYellow);
2d90a312 158
0dd05dec 159 g->GetVolume("SandCover")->SetLineColor(50);
2d90a312 160
0dd05dec 161 pColl ->SetLineColor(kBlue);
162//Final
163 g->SetTopVolume(g->GetVolume("Mother"));
164 g->CloseGeometry();
ed08a153 165
0dd05dec 166 g->SetVisOption(0); g->SetVisLevel(5);
ed08a153 167
0dd05dec 168 g->GetMasterVolume()->Draw();
169 Axis();
ed08a153 170 new TBrowser;
0dd05dec 171}
ed08a153 172
173
0dd05dec 174void Axis()
175{
176 Double_t X[6]={0,0,0,300,0,0}; Double_t Y[6]={0,0,0,0,300,0}; Double_t Z[6]={0,0,0,0,0,300};
177 TPolyLine3D *pXaxis=new TPolyLine3D(2,X);pXaxis->SetLineColor(kRed); pXaxis->Draw();
178 TPolyLine3D *pYaxis=new TPolyLine3D(2,Y);pYaxis->SetLineColor(kGreen); pYaxis->Draw();
179 TPolyLine3D *pZaxis=new TPolyLine3D(2,Z);pZaxis->SetLineColor(kBlue); pZaxis->Draw();
ed08a153 180}