00001 #include "TGeoManager.h"
00002
00003 void station1()
00004 {
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017 TGeoManager *geom=new TGeoManager("geom","My first 3D geometry");
00018
00019 TGeoMaterial *vacuum=new TGeoMaterial("vacuum",0,0,0);
00020 TGeoMaterial *Fe=new TGeoMaterial("Fe",55.845,26,7.87);
00021 TGeoMaterial *Cu=new TGeoMaterial("Cu",63.549,29,8.92);
00022
00023 TGeoMedium *Air=new TGeoMedium("Vacuum",0,vacuum);
00024 TGeoMedium *Iron=new TGeoMedium("Iron",1,Fe);
00025 TGeoMedium *Copper=new TGeoMedium("Copper",2,Cu);
00026
00027 TGeoVolume *top=geom->MakeBox("top",Air,1000,1000,1000);
00028 geom->SetTopVolume(top);
00029 geom->SetTopVisible(0);
00030
00031
00032
00033
00034
00035 TGeoVolume *Cone1=geom->MakeCone("Cone1",Copper,650,0,20,0,20);
00036 Cone1->SetFillColor(35);
00037 Cone1->SetLineColor(35);
00038 top->AddNodeOverlap(Cone1,1,new TGeoTranslation(0,0,0));
00039
00040 TGeoVolume *Cone2=geom->MakeCone("Cone2",Copper,25,0,30,0,30);
00041 Cone2->SetFillColor(7);
00042 Cone2->SetLineColor(7);
00043 top->AddNodeOverlap(Cone2,1,new TGeoTranslation(0,0,630));
00044
00045 TGeoVolume *Cone21=geom->MakeCone("Cone21",Copper,30,0,30,0,30);
00046 Cone21->SetFillColor(29);
00047 Cone21->SetLineColor(29);
00048 top->AddNodeOverlap(Cone21,1,new TGeoTranslation(0,0,550));
00049
00050 TGeoVolume *Cone22=geom->MakeCone("Cone22",Copper,5,0,50,0,50);
00051 Cone22->SetFillColor(2);
00052 Cone22->SetLineColor(2);
00053 top->AddNodeOverlap(Cone22,1,new TGeoTranslation(0,0,500));
00054
00055 for(int i=0;i<28;i++){
00056 TGeoVolume *Cone00=geom->MakeCone("Cone00",Copper,3,0,25,0,25);
00057 Cone00->SetFillColor(1);
00058 Cone00->SetLineColor(1);
00059 top->AddNodeOverlap(Cone00,1,new TGeoTranslation(0,0,-100+20*i));
00060 }
00061
00062 TGeoVolume *Cone3=geom->MakeCone("Cone3",Copper,60,0,70,0,0);
00063 Cone3->SetFillColor(13);
00064 Cone3->SetLineColor(13);
00065 top->AddNodeOverlap(Cone3,1,new TGeoTranslation(-60,0,-110));
00066
00067 TGeoVolume *Cone31=geom->MakeCone("Cone31",Copper,230,0,70,0,70);
00068 Cone31->SetFillColor(13);
00069 Cone31->SetLineColor(13);
00070 top->AddNodeOverlap(Cone31,1,new TGeoTranslation(-60,0,-400));
00071
00072 for(int i=0;i<5;i++){
00073 Cone31=geom->MakeCone("Cone31",Copper,7,0,73,0,73);
00074 Cone31->SetFillColor(21);
00075 Cone31->SetLineColor(21);
00076 top->AddNodeOverlap(Cone31,1,new TGeoTranslation(-60,0,-170-(500/6*(i+1))));
00077 top->AddNodeOverlap(Cone31,1,new TGeoTranslation(60,0,-170-(500/6*(i+1))));
00078 top->AddNodeOverlap(Cone31,1,new TGeoTranslation(0,-60,-170-(500/6*(i+1))));
00079 top->AddNodeOverlap(Cone31,1,new TGeoTranslation(0,60,-170-(500/6*(i+1))));
00080 }
00081
00082 TGeoVolume *Cone32=geom->MakeCone("Cone32",Copper,30,60,50,0,70);
00083 Cone32->SetFillColor(35);
00084 Cone32->SetLineColor(35);
00085 top->AddNodeOverlap(Cone32,1,new TGeoTranslation(-60,0,-650));
00086
00087 TGeoVolume *Cone321=geom->MakeCone("Cone321",Copper,5,60,50,0,50);
00088 Cone321->SetFillColor(2);
00089 Cone321->SetLineColor(2);
00090 top->AddNodeOverlap(Cone321,1,new TGeoTranslation(-60,0,-680));
00091
00092 TGeoVolume *Cone4=geom->MakeCone("Cone4",Copper,60,0,70,0,0);
00093 Cone4->SetFillColor(13);
00094 Cone4->SetLineColor(13);
00095 top->AddNodeOverlap(Cone3,1,new TGeoTranslation(60,0,-110));
00096
00097 for(int i=1;i<=8;i++){
00098 TGeoVolume *Torus2=geom->MakeTorus("Torus2",Iron,120,20,40,45*i-4,8);
00099 Torus2->SetFillColor(18);
00100 Torus2->SetLineColor(18);
00101 top->AddNodeOverlap(Torus2,1,new TGeoTranslation(0,0,610));
00102
00103 TGeoVolume *Tubs=geom->MakeTubs("Line",Iron,0,190,5,45*i-1,45*i+1);
00104 Tubs->SetFillColor(18);
00105 Tubs->SetLineColor(18);
00106 top->AddNodeOverlap(Tubs,1,new TGeoTranslation(0,0,610));
00107 }
00108
00109 TGeoVolume *Cone41=geom->MakeCone("Cone41",Copper,230,0,70,0,70);
00110 Cone41->SetFillColor(13);
00111 Cone41->SetLineColor(13);
00112 top->AddNodeOverlap(Cone41,1,new TGeoTranslation(60,0,-400));
00113
00114 TGeoVolume *Cone42=geom->MakeCone("Cone42",Copper,30,60,50,0,70);
00115 Cone42->SetFillColor(35);
00116 Cone42->SetLineColor(35);
00117 top->AddNodeOverlap(Cone42,1,new TGeoTranslation(60,0,-650));
00118
00119 TGeoVolume *Cone421=geom->MakeCone("Cone421",Copper,5,60,50,0,50);
00120 Cone421->SetFillColor(2);
00121 Cone421->SetLineColor(2);
00122 top->AddNodeOverlap(Cone421,1,new TGeoTranslation(60,0,-680));
00123
00124 TGeoVolume *Cone5=geom->MakeCone("Cone5",Copper,60,0,70,0,0);
00125 Cone5->SetFillColor(13);
00126 Cone5->SetLineColor(13);
00127 top->AddNodeOverlap(Cone3,1,new TGeoTranslation(0,-60,-110));
00128
00129 TGeoVolume *Cone51=geom->MakeCone("Cone51",Copper,230,0,70,0,70);
00130 Cone51->SetFillColor(13);
00131 Cone51->SetLineColor(13);
00132 top->AddNodeOverlap(Cone51,1,new TGeoTranslation(0,-60,-400));
00133
00134 TGeoVolume *Cone52=geom->MakeCone("Cone52",Copper,30,60,50,0,70);
00135 Cone52->SetFillColor(35);
00136 Cone52->SetLineColor(35);
00137 top->AddNodeOverlap(Cone52,1,new TGeoTranslation(0,-60,-650));
00138
00139 TGeoVolume *Cone521=geom->MakeCone("Cone521",Copper,5,60,50,0,50);
00140 Cone521->SetFillColor(2);
00141 Cone521->SetLineColor(2);
00142 top->AddNodeOverlap(Cone521,1,new TGeoTranslation(0,-60,-680));
00143
00144 TGeoVolume *Cone6=geom->MakeCone("Cone6",Copper,60,0,70,0,0);
00145 Cone6->SetFillColor(13);
00146 Cone6->SetLineColor(13);
00147 top->AddNodeOverlap(Cone3,1,new TGeoTranslation(0,60,-110));
00148
00149 TGeoVolume *Cone61=geom->MakeCone("Cone61",Copper,230,0,70,0,70);
00150 Cone61->SetFillColor(13);
00151 Cone61->SetLineColor(13);
00152 top->AddNodeOverlap(Cone61,1,new TGeoTranslation(0,60,-400));
00153
00154 TGeoVolume *Cone62=geom->MakeCone("Cone62",Copper,30,60,50,0,70);
00155 Cone62->SetFillColor(35);
00156 Cone62->SetLineColor(35);
00157 top->AddNodeOverlap(Cone62,1,new TGeoTranslation(0,60,-650));
00158
00159 TGeoVolume *Cone621=geom->MakeCone("Cone621",Copper,5,60,50,0,50);
00160 Cone621->SetFillColor(2);
00161 Cone621->SetLineColor(2);
00162 top->AddNodeOverlap(Cone621,1,new TGeoTranslation(0,60,-680));
00163
00164 TGeoVolume *Cone7=geom->MakeCone("Cone7",Copper,50,0,40,0,5);
00165 Cone7->SetFillColor(13);
00166 Cone7->SetLineColor(13);
00167 top->AddNodeOverlap(Cone7,1,new TGeoCombiTrans(-90,-60,10,new TGeoRotation("Cone7",90,-90,-90)));
00168
00169 TGeoVolume *Cone71=geom->MakeCone("Cone71",Copper,50,0,60,0,40);
00170 Cone71->SetFillColor(16);
00171 Cone71->SetLineColor(16);
00172 top->AddNodeOverlap(Cone71,1,new TGeoCombiTrans(10,-60,10,new TGeoRotation("Cone7",90,-90,-90)));
00173
00174 TGeoVolume *Cone711=geom->MakeCone("Cone711",Copper,10,0,10,0,60);
00175 Cone711->SetFillColor(13);
00176 Cone711->SetLineColor(13);
00177 top->AddNodeOverlap(Cone711,1,new TGeoCombiTrans(70,-60,10,new TGeoRotation("Cone7",90,-90,-90)));
00178
00179 TGeoVolume *Torus1=geom->MakeTorus("Torus1",Iron,120,30,20);
00180 Torus1->SetFillColor(33);
00181 Torus1->SetLineColor(33);
00182 top->AddNodeOverlap(Torus1,1,new TGeoTranslation(0,0,610));
00183
00184 TGeoVolume *Cone8=geom->MakeCone("Cone8",Copper,50,0,40,0,5);
00185 Cone8->SetFillColor(13);
00186 Cone8->SetLineColor(13);
00187 top->AddNodeOverlap(Cone8,1,new TGeoCombiTrans(100,60,10,new TGeoRotation("Cone8",90,90,0)));
00188
00189 TGeoVolume *Cone81=geom->MakeCone("Cone81",Copper,50,0,60,0,40);
00190 Cone81->SetFillColor(16);
00191 Cone81->SetLineColor(16);
00192 top->AddNodeOverlap(Cone81,1,new TGeoCombiTrans(0,60,10,new TGeoRotation("Cone8",90,90,0)));
00193
00194 TGeoVolume *Cone811=geom->MakeCone("Cone811",Copper,10,0,10,0,60);
00195 Cone811->SetFillColor(13);
00196 Cone811->SetLineColor(13);
00197 top->AddNodeOverlap(Cone811,1,new TGeoCombiTrans(-60,60,10,new TGeoRotation("Cone8",90,90,0)));
00198
00199 TGeoVolume *Box1=geom->MakeBox("Box1",Copper,10,10,3);
00200 Box1->SetFillColor(3);
00201 Box1->SetLineColor(3);
00202 top->AddNodeOverlap(Box1,1,new TGeoCombiTrans(-110,-50,645,new TGeoRotation("Box1",0,0,30)));
00203
00204 TGeoVolume *Box2=geom->MakeBox("Box2",Copper,10,10,3);
00205 Box2->SetFillColor(3);
00206 Box2->SetLineColor(3);
00207 top->AddNodeOverlap(Box2,1,new TGeoCombiTrans(110,45,645,new TGeoRotation("Box2",0,0,30)));
00208
00209 TGeoVolume *Box3=geom->MakeBox("Box3",Copper,10,10,3);
00210 Box3->SetFillColor(3);
00211 Box3->SetLineColor(3);
00212 top->AddNodeOverlap(Box3,1,new TGeoCombiTrans(-45,-110,645,new TGeoRotation("Box3",0,0,70)));
00213
00214 TGeoVolume *Box4=geom->MakeBox("Box4",Copper,10,10,3);
00215 Box4->SetFillColor(3);
00216 Box4->SetLineColor(3);
00217 top->AddNodeOverlap(Box4,1,new TGeoCombiTrans(45,110,645,new TGeoRotation("Box4",0,0,70)));
00218
00219 TGeoVolume *Box5=geom->MakeBox("Box5",Copper,10,10,3);
00220 Box5->SetFillColor(3);
00221 Box5->SetLineColor(3);
00222 top->AddNodeOverlap(Box5,1,new TGeoCombiTrans(45,-110,645,new TGeoRotation("Box5",0,0,30)));
00223
00224 TGeoVolume *Box6=geom->MakeBox("Box6",Copper,10,10,3);
00225 Box6->SetFillColor(3);
00226 Box6->SetLineColor(3);
00227 top->AddNodeOverlap(Box6,1,new TGeoCombiTrans(-45,110,645,new TGeoRotation("Box6",0,0,25)));
00228
00229 TGeoVolume *Box7=geom->MakeBox("Box7",Copper,10,10,3);
00230 Box7->SetFillColor(3);
00231 Box7->SetLineColor(3);
00232 top->AddNodeOverlap(Box7,1,new TGeoCombiTrans(110,-50,645,new TGeoRotation("Box7",0,0,60)));
00233
00234 TGeoVolume *Box8=geom->MakeBox("Box8",Copper,10,10,3);
00235 Box8->SetFillColor(3);
00236 Box8->SetLineColor(3);
00237 top->AddNodeOverlap(Box8,1,new TGeoCombiTrans(-110,45,645,new TGeoRotation("Box8",0,0,60)));
00238
00239 Torus1=geom->MakeTorus("Torus1",Iron,120,30,20);
00240 Torus1->SetFillColor(33);
00241 Torus1->SetLineColor(33);
00242 top->AddNodeOverlap(Torus1,1,new TGeoTranslation(0,0,610));
00243
00244 for(int i=1;i<=8;i++){
00245 TGeoVolume *Torus2=geom->MakeTorus("Torus2",Iron,120,20,40,45*i-4,8);
00246 Torus2->SetFillColor(18);
00247 Torus2->SetLineColor(18);
00248 top->AddNodeOverlap(Torus2,1,new TGeoTranslation(0,0,610));
00249
00250 TGeoVolume *Tubs=geom->MakeTubs("Line",Iron,0,190,5,45*i-1,45*i+1);
00251 Tubs->SetFillColor(18);
00252 Tubs->SetLineColor(18);
00253 top->AddNodeOverlap(Tubs,1,new TGeoTranslation(0,0,610));
00254 }
00255
00256 TGeoVolume *Sphere00=geom->MakeSphere("Sphere00",Iron,0,15,0,45,0);
00257 Sphere00->SetFillColor(2);
00258 Sphere00->SetLineColor(2);
00259 top->AddNodeOverlap(Sphere00,1,new TGeoTranslation(-145,-145,600));
00260
00261 TGeoVolume *Sphere01=geom->MakeSphere("Sphere01",Iron,0,15,0,45,0);
00262 Sphere01->SetFillColor(2);
00263 Sphere01->SetLineColor(2);
00264 top->AddNodeOverlap(Sphere01,1,new TGeoTranslation(0,-210,600));
00265
00266 TGeoVolume *Sphere02=geom->MakeSphere("Sphere02",Iron,0,15,0,45,0);
00267 Sphere02->SetFillColor(2);
00268 Sphere02->SetLineColor(2);
00269 top->AddNodeOverlap(Sphere02,1,new TGeoTranslation(145,145,600));
00270
00271 TGeoVolume *Sphere03=geom->MakeSphere("Sphere03",Iron,0,15,0,45,0);
00272 Sphere03->SetFillColor(2);
00273 Sphere03->SetLineColor(2);
00274 top->AddNodeOverlap(Sphere03,1,new TGeoTranslation(0,210,600));
00275
00276 TGeoVolume *Sphere04=geom->MakeSphere("Sphere04",Iron,0,15,0,45,0);
00277 Sphere04->SetFillColor(2);
00278 Sphere04->SetLineColor(2);
00279 top->AddNodeOverlap(Sphere04,1,new TGeoTranslation(145,-145,600));
00280
00281 TGeoVolume *Sphere05=geom->MakeSphere("Sphere05",Iron,0,15,0,45,0);
00282 Sphere05->SetFillColor(2);
00283 Sphere05->SetLineColor(2);
00284 top->AddNodeOverlap(Sphere05,1,new TGeoTranslation(-210,0,600));
00285
00286 TGeoVolume *Sphere06=geom->MakeSphere("Sphere06",Iron,0,15,0,45,0);
00287 Sphere06->SetFillColor(2);
00288 Sphere06->SetLineColor(2);
00289 top->AddNodeOverlap(Sphere06,1,new TGeoTranslation(210,0,600));
00290
00291 TGeoVolume *Sphere07=geom->MakeSphere("Sphere07",Iron,0,15,0,45,0);
00292 Sphere07->SetFillColor(2);
00293 Sphere07->SetLineColor(2);
00294 top->AddNodeOverlap(Sphere07,1,new TGeoTranslation(-145,145,600));
00295
00296 TGeoVolume *Torus3=geom->MakeTorus("Torus3",Iron,190,0,10);
00297 Torus3->SetFillColor(18);
00298 Torus3->SetLineColor(18);
00299 top->AddNodeOverlap(Torus3,1,new TGeoTranslation(0,0,610));
00300
00301 TGeoVolume *Sphere1=geom->MakeSphere("Sphere1",Iron,0,20,0,180,0,360);
00302 Sphere1->SetFillColor(2);
00303 Sphere1->SetLineColor(2);
00304 top->AddNodeOverlap(Sphere1,1,new TGeoTranslation(0,0,650));
00305
00306 TGeoVolume *Tubs=geom->MakeTubs("Tubs",Iron,0,40,50,0,360);
00307 Tubs->SetFillColor(29);
00308 Tubs->SetLineColor(29);
00309 top->AddNodeOverlap(Tubs,1,new TGeoTranslation(0,0,500));
00310
00311 TGeoVolume *Tubs1=geom->MakeTubs("Tubs1",Iron,50,60,230,40,150);
00312 Tubs1->SetFillColor(18);
00313 Tubs1->SetLineColor(18);
00314 top->AddNodeOverlap(Tubs1,1,new TGeoTranslation(-170,-30,-400));
00315
00316 TGeoVolume *Tubs11=geom->MakeTubs("Tubs11",Iron,50,60,230,220,330);
00317 Tubs11->SetFillColor(18);
00318 Tubs11->SetLineColor(18);
00319 top->AddNodeOverlap(Tubs11,1,new TGeoTranslation(-260,35,-400));
00320
00321 TGeoVolume *Sphere111=geom->MakeSphere("Sphere111",Iron,0,10,0,180,0,360);
00322 Sphere111->SetFillColor(2);
00323 Sphere111->SetLineColor(2);
00324 top->AddNodeOverlap(Sphere111,1,new TGeoTranslation(-310,0,-165));
00325
00326 TGeoVolume *Sphere112=geom->MakeSphere("Sphere112",Iron,0,10,0,180,0,360);
00327 Sphere112->SetFillColor(2);
00328 Sphere112->SetLineColor(2);
00329 top->AddNodeOverlap(Sphere112,1,new TGeoTranslation(-310,0,-400));
00330
00331 TGeoVolume *Sphere113=geom->MakeSphere("Sphere113",Iron,0,10,0,180,0,360);
00332 Sphere113->SetFillColor(2);
00333 Sphere113->SetLineColor(2);
00334 top->AddNodeOverlap(Sphere113,1,new TGeoTranslation(-310,0,-635));
00335
00336 TGeoVolume *Tubs2=geom->MakeTubs("Tubs2",Iron,50,60,230,220,330);
00337 Tubs2->SetFillColor(18);
00338 Tubs2->SetLineColor(18);
00339 top->AddNodeOverlap(Tubs2,1,new TGeoTranslation(170,30,-400));
00340
00341 TGeoVolume *Tubs21=geom->MakeTubs("Tubs21",Iron,50,60,230,400,510);
00342 Tubs21->SetFillColor(18);
00343 Tubs21->SetLineColor(18);
00344 top->AddNodeOverlap(Tubs21,1,new TGeoTranslation(265,-25,-400));
00345
00346 TGeoVolume *Sphere211=geom->MakeSphere("Sphere211",Iron,0,10,0,180,0,360);
00347 Sphere211->SetFillColor(2);
00348 Sphere211->SetLineColor(2);
00349 top->AddNodeOverlap(Sphere211,1,new TGeoTranslation(310,0,-165));
00350
00351 TGeoVolume *Sphere212=geom->MakeSphere("Sphere212",Iron,0,10,0,180,0,360);
00352 Sphere212->SetFillColor(2);
00353 Sphere212->SetLineColor(2);
00354 top->AddNodeOverlap(Sphere212,1,new TGeoTranslation(310,0,-400));
00355
00356 TGeoVolume *Sphere213=geom->MakeSphere("Sphere213",Iron,0,10,0,180,0,360);
00357 Sphere213->SetFillColor(2);
00358 Sphere213->SetLineColor(2);
00359 top->AddNodeOverlap(Sphere213,1,new TGeoTranslation(310,0,-635));
00360
00361 TGeoVolume *Tubs3=geom->MakeTubs("Tubs3",Iron,50,60,230,130,260);
00362 Tubs3->SetFillColor(18);
00363 Tubs3->SetLineColor(18);
00364 top->AddNodeOverlap(Tubs3,1,new TGeoTranslation(30,-170,-400));
00365
00366 TGeoVolume *Tubs31=geom->MakeTubs("Tubs31",Iron,50,60,230,310,440);
00367 Tubs31->SetFillColor(18);
00368 Tubs31->SetLineColor(18);
00369 top->AddNodeOverlap(Tubs31,1,new TGeoTranslation(0,-275,-400));
00370
00371 TGeoVolume *Sphere311=geom->MakeSphere("Sphere311",Iron,0,10,0,180,0,360);
00372 Sphere311->SetFillColor(2);
00373 Sphere311->SetLineColor(2);
00374 top->AddNodeOverlap(Sphere311,1,new TGeoTranslation(-35,320,-165));
00375
00376 TGeoVolume *Sphere312=geom->MakeSphere("Sphere312",Iron,0,10,0,180,0,360);
00377 Sphere312->SetFillColor(2);
00378 Sphere312->SetLineColor(2);
00379 top->AddNodeOverlap(Sphere312,1,new TGeoTranslation(-35,320,-400));
00380
00381 TGeoVolume *Sphere313=geom->MakeSphere("Sphere313",Iron,0,10,0,180,0,360);
00382 Sphere313->SetFillColor(2);
00383 Sphere313->SetLineColor(2);
00384 top->AddNodeOverlap(Sphere313,1,new TGeoTranslation(-35,320,-635));
00385
00386 TGeoVolume *Tubs4=geom->MakeTubs("Tubs4",Iron,50,60,230,310,440);
00387 Tubs4->SetFillColor(18);
00388 Tubs4->SetLineColor(18);
00389 top->AddNodeOverlap(Tubs4,1,new TGeoTranslation(-30,170,-400));
00390
00391 TGeoVolume *Tubs41=geom->MakeTubs("Tubs41",Iron,50,60,230,490,620);
00392 Tubs41->SetFillColor(18);
00393 Tubs41->SetLineColor(18);
00394 top->AddNodeOverlap(Tubs41,1,new TGeoTranslation(0,275,-400));
00395
00396 TGeoVolume *Sphere411=geom->MakeSphere("Sphere411",Iron,0,10,0,180,0,360);
00397 Sphere411->SetFillColor(2);
00398 Sphere411->SetLineColor(2);
00399 top->AddNodeOverlap(Sphere411,1,new TGeoTranslation(30,-320,-165));
00400
00401 TGeoVolume *Sphere412=geom->MakeSphere("Sphere412",Iron,0,10,0,180,0,360);
00402 Sphere412->SetFillColor(2);
00403 Sphere412->SetLineColor(2);
00404 top->AddNodeOverlap(Sphere412,1,new TGeoTranslation(30,-320,-400));
00405
00406 TGeoVolume *Sphere413=geom->MakeSphere("Sphere413",Iron,0,10,0,180,0,360);
00407 Sphere413->SetFillColor(2);
00408 Sphere413->SetLineColor(2);
00409 top->AddNodeOverlap(Sphere413,1,new TGeoTranslation(30,-320,-635));
00410
00411 TGeoVolume *Cone010=geom->MakeCone("Cone010",Iron,30,0,30,0,30);
00412 Cone010->SetFillColor(2);
00413 Cone010->SetLineColor(2);
00414 top->AddNodeOverlap(Cone010,1,new TGeoTranslation(0,0,250));
00415
00416 TGeoVolume *Torus010=geom->MakeTorus("Torus010",Iron,300,50,40);
00417 Torus010->SetFillColor(33);
00418 Torus010->SetLineColor(33);
00419 top->AddNodeOverlap(Torus010,1,new TGeoTranslation(0,0,250));
00420
00421 TGeoVolume *Torus011=geom->MakeTorus("Torus011",Iron,400,10,10);
00422 Torus011->SetFillColor(33);
00423 Torus011->SetLineColor(33);
00424 top->AddNodeOverlap(Torus011,1,new TGeoTranslation(0,0,250));
00425
00426 TGeoVolume *Torus012=geom->MakeTorus("Torus012",Iron,200,10,10);
00427 Torus012->SetFillColor(33);
00428 Torus012->SetLineColor(33);
00429 top->AddNodeOverlap(Torus012,1,new TGeoTranslation(0,0,250));
00430
00431 TGeoVolume *Sphere010=geom->MakeSphere("Sphere010",Iron,0,10,0,180,0,360);
00432 Sphere010->SetFillColor(2);
00433 Sphere010->SetLineColor(2);
00434 top->AddNodeOverlap(Sphere010,1,new TGeoTranslation(-290,-290,250));
00435
00436 TGeoVolume *Sphere011=geom->MakeSphere("Sphere011",Iron,0,10,0,180,0,360);
00437 Sphere011->SetFillColor(2);
00438 Sphere011->SetLineColor(2);
00439 top->AddNodeOverlap(Sphere011,1,new TGeoTranslation(290,290,250));
00440
00441 TGeoVolume *Sphere012=geom->MakeSphere("Sphere012",Iron,0,10,0,180,0,360);
00442 Sphere012->SetFillColor(2);
00443 Sphere012->SetLineColor(2);
00444 top->AddNodeOverlap(Sphere012,1,new TGeoTranslation(0,-410,250));
00445
00446 TGeoVolume *Sphere013=geom->MakeSphere("Sphere013",Iron,0,10,0,180,0,360);
00447 Sphere013->SetFillColor(2);
00448 Sphere013->SetLineColor(2);
00449 top->AddNodeOverlap(Sphere013,1,new TGeoTranslation(0,410,250));
00450
00451 TGeoVolume *Sphere014=geom->MakeSphere("Sphere014",Iron,0,10,0,180,0,360);
00452 Sphere014->SetFillColor(2);
00453 Sphere014->SetLineColor(2);
00454 top->AddNodeOverlap(Sphere014,1,new TGeoTranslation(290,-290,250));
00455
00456 TGeoVolume *Sphere015=geom->MakeSphere("Sphere015",Iron,0,10,0,180,0,360);
00457 Sphere015->SetFillColor(2);
00458 Sphere015->SetLineColor(2);
00459 top->AddNodeOverlap(Sphere015,1,new TGeoTranslation(-290,290,250));
00460
00461 TGeoVolume *Sphere016=geom->MakeSphere("Sphere016",Iron,0,10,0,180,0,360);
00462 Sphere016->SetFillColor(2);
00463 Sphere016->SetLineColor(2);
00464 top->AddNodeOverlap(Sphere016,1,new TGeoTranslation(410,0,250));
00465
00466 TGeoVolume *Sphere017=geom->MakeSphere("Sphere017",Iron,0,10,0,180,0,360);
00467 Sphere017->SetFillColor(2);
00468 Sphere017->SetLineColor(2);
00469 top->AddNodeOverlap(Sphere017,1,new TGeoTranslation(-410,0,250));
00470
00471 TGeoVolume *Box010=geom->MakeBox("Box010",Copper,10,10,3);
00472 Box010->SetFillColor(3);
00473 Box010->SetLineColor(3);
00474 top->AddNodeOverlap(Box1,1,new TGeoCombiTrans(-120,-280,300,new TGeoRotation("Box010",0,0,70)));
00475
00476 TGeoVolume *Box011=geom->MakeBox("Box011",Copper,10,10,3);
00477 Box011->SetFillColor(3);
00478 Box011->SetLineColor(3);
00479 top->AddNodeOverlap(Box011,1,new TGeoCombiTrans(120,280,300,new TGeoRotation("Box011",0,0,70)));
00480
00481 TGeoVolume *Box012=geom->MakeBox("Box012",Copper,10,10,3);
00482 Box012->SetFillColor(3);
00483 Box012->SetLineColor(3);
00484 top->AddNodeOverlap(Box012,1,new TGeoCombiTrans(120,-280,300,new TGeoRotation("Box012",0,0,30)));
00485
00486 TGeoVolume *Box013=geom->MakeBox("Box013",Copper,10,10,3);
00487 Box013->SetFillColor(3);
00488 Box013->SetLineColor(3);
00489 top->AddNodeOverlap(Box013,1,new TGeoCombiTrans(-120,280,300,new TGeoRotation("Box013",0,0,30)));
00490
00491 TGeoVolume *Box014=geom->MakeBox("Box010",Copper,10,10,3);
00492 Box014->SetFillColor(3);
00493 Box014->SetLineColor(3);
00494 top->AddNodeOverlap(Box014,1,new TGeoCombiTrans(270,-120,300,new TGeoRotation("Box014",0,0,70)));
00495
00496 TGeoVolume *Box015=geom->MakeBox("Box015",Copper,10,10,3);
00497 Box015->SetFillColor(3);
00498 Box015->SetLineColor(3);
00499 top->AddNodeOverlap(Box015,1,new TGeoCombiTrans(-270,120,300,new TGeoRotation("Box015",0,0,70)));
00500
00501 TGeoVolume *Box016=geom->MakeBox("Box016",Copper,10,10,3);
00502 Box016->SetFillColor(3);
00503 Box016->SetLineColor(3);
00504 top->AddNodeOverlap(Box016,1,new TGeoCombiTrans(270,100,300,new TGeoRotation("Box016",0,0,30)));
00505
00506 TGeoVolume *Box017=geom->MakeBox("Box017",Copper,10,10,3);
00507 Box017->SetFillColor(3);
00508 Box017->SetLineColor(3);
00509 top->AddNodeOverlap(Box017,1,new TGeoCombiTrans(-270,-120,300,new TGeoRotation("Box017",0,0,30)));
00510
00511 for(int i=1;i<=8;i++){
00512 TGeoVolume *Torus0101=geom->MakeTorus("Torus0101",Iron,300,70,40,45*i-4,8);
00513 Torus0101->SetFillColor(18);
00514 Torus0101->SetLineColor(18);
00515 top->AddNodeOverlap(Torus0101,1,new TGeoTranslation(0,0,250));
00516
00517 TGeoVolume *Tubs0101=geom->MakeTubs("Line",Iron,0,400,5,45*i-1,45*i+1);
00518 Tubs0101->SetFillColor(18);
00519 Tubs0101->SetLineColor(18);
00520 top->AddNodeOverlap(Tubs0101,1,new TGeoTranslation(0,0,250));
00521 }
00522
00523 Cone31->SetFillColor(38);
00524 top->SetVisibility(0);
00525 geom->CloseGeometry();
00526
00527 top->Draw("ogl");
00528
00529 }