station1.C

Go to the documentation of this file.
00001 #include "TGeoManager.h"
00002    
00003 void station1() 
00004 {
00005   // Drawing a space station, using ROOT geometry class.
00006   // Name: station1.C
00007   // Author: Chang Yeol Lee, Dept. of Physics, Univ. of Seoul
00008   // Reviewed by Sunman Kim (sunman98@hanmail.net)
00009   // Supervisor: Prof. Inkyu Park (icpark@physics.uos.ac.kr)
00010   // 
00011   // How to run: .x station1.C in ROOT terminal, then use OpenGL
00012   //
00013   // This macro was created for the evaluation of Computational Physics course in 2006.
00014   // We thank to Prof. Inkyu Park for his special lecture on ROOT and to all of ROOT team
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  // If you want to see the boundary, please input the number, 1 instead of 0.
00031  // Like this, geom->SetTopVisible(1); 
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 }

Generated on Tue Jul 5 15:44:17 2011 for ROOT_528-00b_version by  doxygen 1.5.1