lego.C

Go to the documentation of this file.
00001 #include "TSystem.h"
00002 #include "TGeoManager.h"
00003    
00004 void lego() 
00005 {
00006   // Drawing a figure, made of lego block, using ROOT geometry class.
00007   // Name: lego.C
00008   // Author: Soon Gi Kwon(1116won@hanmail.net), Dept. of Physics, Univ. of Seoul
00009   // Reviewed by Sunman Kim (sunman98@hanmail.net)
00010   // Supervisor: Prof. Inkyu Park (icpark@physics.uos.ac.kr)
00011   // 
00012   // How to run: .x lego.C in ROOT terminal, then use OpenGL
00013   //
00014   // This macro was created for the evaluation of Computational Physics course in 2006.
00015   // We thank to Prof. Inkyu Park for his special lecture on ROOT and to all of ROOT team
00016   //
00017 
00018    TGeoManager *geom = new TGeoManager("geom","My first 3D geometry");
00019 
00020  
00021    TGeoMaterial *vacuum=new TGeoMaterial("vacuum",0,0,0);  
00022    TGeoMaterial *Fe=new TGeoMaterial("Fe",55.845,26,7.87); 
00023 
00024 
00025 
00026    TGeoMedium *Air=new TGeoMedium("Vacuum",0,vacuum);
00027    TGeoMedium *Iron=new TGeoMedium("Iron",1,Fe);
00028 
00029        
00030  // create volume
00031                 TGeoVolume *top=geom->MakeBox("top",Air,100,100,100); 
00032    geom->SetTopVolume(top);   
00033    geom->SetTopVisible(0); 
00034                 // If you want to see the boundary, please input the number, 1 instead of 0.
00035                 // Like this, geom->SetTopVisible(1); 
00036 
00037  
00038 //----------------------------------------------------------------------
00039 
00040 TGeoVolume *ha1=geom->MakeSphere("ha1",Iron,0,10,80,90,0,360);
00041  ha1->SetLineColor(41);
00042 top->AddNodeOverlap(ha1,1,new TGeoCombiTrans(0,0,4,new TGeoRotation("ha1",0,0,0)));
00043 
00044 TGeoVolume *ha2=geom->MakeSphere("ha2",Iron,0,7,90,180,0,360);
00045  ha2->SetLineColor(41);
00046 top->AddNodeOverlap(ha2,1,new TGeoCombiTrans(0,0,4,new TGeoRotation("ha2",0,180,0)));
00047 
00048 TGeoVolume *ha3=geom->MakeSphere("ha3",Iron,0,7.3,80,90,0,360);
00049  ha3->SetLineColor(2);
00050 top->AddNodeOverlap(ha3,1,new TGeoCombiTrans(0,0,4.8,new TGeoRotation("ha3",0,0,0)));
00051 
00052 
00053 TGeoVolume *h1=geom->MakeTubs("h1",Iron,0,6,4.5,0,0);
00054  h1->SetLineColor(5);
00055 top->AddNodeOverlap(h1,1,new TGeoCombiTrans(0,0,0,new TGeoRotation("h1",0,0,0))); 
00056 
00057 TGeoVolume *h2=geom->MakeSphere("h2",Iron,0,7.5,0,52.5,0,360);
00058  h2->SetLineColor(5);
00059 top->AddNodeOverlap(h2,1,new TGeoCombiTrans(0,0,0,new TGeoRotation("h2",0,0,0)));
00060 
00061 TGeoVolume *h3=geom->MakeSphere("h3",Iron,0,7.5,0,52.5,0,360);
00062  h3->SetLineColor(5);
00063 top->AddNodeOverlap(h3,1,new TGeoCombiTrans(0,0,0,new TGeoRotation("h3",180,180,0)));
00064 
00065 TGeoVolume *h4=geom->MakeTubs("h4",Iron,2.5,3.5,1.5,0,0);
00066  h4->SetLineColor(5);
00067 top->AddNodeOverlap(h4,1,new TGeoCombiTrans(0,0,7.5,new TGeoRotation("h4",0,0,0)));
00068 
00069 
00070 
00071 TGeoVolume *t1_1=geom->MakeTubs("t1_1",Iron,0,0.8,1,0,360);
00072  t1_1->SetLineColor(12);
00073 top->AddNodeOverlap(t1_1,1,new TGeoCombiTrans(-5,2,1.5,new TGeoRotation("t1_1",-90,90,0)));
00074 
00075 TGeoVolume *t2_1=geom->MakeTubs("t2_1",Iron,0,0.8,1,0,360);
00076  t2_1->SetLineColor(12);
00077 top->AddNodeOverlap(t2_1,1,new TGeoCombiTrans(-5,-2,1.5,new TGeoRotation("t2_1",-90,90,0)));
00078 
00079 TGeoVolume *fb1=geom->MakeTubs("fb1",Iron,2,2.3,1,100,260);
00080  fb1->SetLineColor(12);
00081 top->AddNodeOverlap(fb1,1,new TGeoCombiTrans(-5,0,-1,new TGeoRotation("fb1",90,90,90))); 
00082 
00083 
00084 
00085 TGeoVolume *m1=geom->MakeBox("m1",Iron,7,8,4);
00086  m1->SetLineColor(2);
00087 top->AddNodeOverlap(m1,1,new TGeoCombiTrans(0,0,-17,new TGeoRotation("m1",90,90,0))); 
00088 
00089 TGeoVolume *m2=geom->MakeTubs("m2",Iron,0,1,7,90,180);
00090  m2->SetLineColor(2);
00091 top->AddNodeOverlap(m2,1,new TGeoCombiTrans(-3,0,-9,new TGeoRotation("m2",0,90,0)));  
00092 
00093 TGeoVolume *m3=geom->MakeTubs("m3",Iron,0,1,7,0,90);
00094  m3->SetLineColor(2);
00095 top->AddNodeOverlap(m3,1,new TGeoCombiTrans(3,0,-9,new TGeoRotation("m3",0,90,0)));
00096 
00097 TGeoVolume *m4=geom->MakeBox("m4",Iron,3,7,0.5);
00098  m4->SetLineColor(2);
00099 top->AddNodeOverlap(m4,1,new TGeoCombiTrans(0,0,-8.5,new TGeoRotation("m4",90,0,90))); 
00100 
00101 TGeoVolume *m5=geom->MakeTubs("m5",Iron,0,1.5,1.2,0,0);
00102  m5->SetLineColor(5);
00103 top->AddNodeOverlap(m5,1,new TGeoCombiTrans(0,0,-7.8,new TGeoRotation("m5",0,0,0)));  
00104 
00105 TGeoVolume *m6=geom->MakeTrd2("m6",Iron,4,4,0,2,8);
00106 m6->SetLineColor(2);
00107 top->AddNodeOverlap(m6,1,new TGeoCombiTrans(0,-7,-17,new TGeoRotation("m6",0,180,0)));
00108 
00109 TGeoVolume *m7=geom->MakeTrd2("m7",Iron,4,4,0,2,8);
00110 m7->SetLineColor(2);
00111 top->AddNodeOverlap(m7,1,new TGeoCombiTrans(0,7,-17,new TGeoRotation("m7",0,180,0)));
00112 
00113 
00114 TGeoVolume *md1=geom->MakeBox("md1",Iron,4,8.5,0.7);
00115  md1->SetLineColor(37);
00116 top->AddNodeOverlap(md1,1,new TGeoCombiTrans(0,0,-25.5,new TGeoRotation("md1",0,0,0))); 
00117 
00118 TGeoVolume *md2=geom->MakeBox("md2",Iron,3,0.4,2);
00119 md2->SetLineColor(37);
00120 top->AddNodeOverlap(md2,1,new TGeoCombiTrans(0,0,-28,new TGeoRotation("md2",0,0,0))); 
00121 
00122 TGeoVolume *d1=geom->MakeTrd2("d1",Iron,3,4,4,4,7);
00123 d1->SetLineColor(37);
00124 top->AddNodeOverlap(d1,1,new TGeoCombiTrans(-4.8,4.5,-35,new TGeoRotation("d1",90,45,-90)));
00125 
00126 TGeoVolume *d2=geom->MakeTrd2("d2",Iron,3,4,4,4,7);
00127 d2->SetLineColor(37);
00128 top->AddNodeOverlap(d2,1,new TGeoCombiTrans(0,-4.5,-37,new TGeoRotation("d2",0,0,0)));  
00129   
00130 TGeoVolume *d3=geom->MakeTubs("d3",Iron,0,4,3.98,0,180);
00131  d3->SetLineColor(37);
00132 top->AddNodeOverlap(d3,1,new TGeoCombiTrans(0,4.5,-30.2,new TGeoRotation("d3",0,90,-45))); 
00133 
00134 TGeoVolume *d4=geom->MakeTubs("d4",Iron,0,4,3.98,0,180);
00135  d4->SetLineColor(37);
00136 top->AddNodeOverlap(d4,1,new TGeoCombiTrans(0,-4.5,-30,new TGeoRotation("d4",0,90,0)));
00137 
00138 TGeoVolume *d5=geom->MakeBox("d5",Iron,4,4,1);
00139 d5->SetLineColor(37);
00140 top->AddNodeOverlap(d5,1,new TGeoCombiTrans(-10.2,4.5,-39,new TGeoRotation("d5",90,45,-90)));
00141 
00142 TGeoVolume *d6=geom->MakeBox("d6",Iron,4,4,1);
00143 d6->SetLineColor(37);
00144 top->AddNodeOverlap(d6,1,new TGeoCombiTrans(-1,-4.5,-43.4,new TGeoRotation("d6",0,0,0)));
00145 
00146 
00147 
00148 TGeoVolume *a1=geom->MakeTubs("a1",Iron,0,1.5,4,0,0);
00149  a1->SetLineColor(1);
00150 top->AddNodeOverlap(a1,1,new TGeoCombiTrans(0,10,-15.1,new TGeoRotation("a1",0,20,45))); 
00151  
00152 TGeoVolume *a2=geom->MakeSphere("a2",Iron,0,1.48,0,180,0,200);
00153  a2->SetLineColor(1);
00154 top->AddNodeOverlap(a2,1,new TGeoCombiTrans(0,8.6,-11.5,new TGeoRotation("a2",120,80,20)));
00155 
00156 TGeoVolume *a3=geom->MakeTubs("a3",Iron,0,1.5,2.2,0,0);
00157  a3->SetLineColor(1);
00158 top->AddNodeOverlap(a3,1,new TGeoCombiTrans(0,11.3,-20.6,new TGeoRotation("a3",300,0,40)));  
00159 
00160 TGeoVolume *a4=geom->MakeTubs("a4",Iron,0,1,1,0,0);
00161  a4->SetLineColor(5);
00162 top->AddNodeOverlap(a4,1,new TGeoCombiTrans(0,11.3,-23.8,new TGeoRotation("a4",75,0,30))); 
00163 
00164 TGeoVolume *a5=geom->MakeTubs("a5",Iron,1.5,2.5,2,0,270);
00165  a5->SetLineColor(5);
00166 top->AddNodeOverlap(a5,1,new TGeoCombiTrans(0,11.3,-26.5,new TGeoRotation("a5",-90,90,00)));
00167 
00168 
00169 
00170 
00171 TGeoVolume *a1_1=geom->MakeTubs("a1_1",Iron,0,1.5,4,0,0);
00172  a1_1->SetLineColor(1);
00173 top->AddNodeOverlap(a1_1,1,new TGeoCombiTrans(0,-10,-15.1,new TGeoRotation("a1_1",0,-20,-45))); 
00174  
00175 TGeoVolume *a2_1=geom->MakeSphere("a2_1",Iron,0,1.48,0,180,0,200);
00176  a2_1->SetLineColor(1);
00177 top->AddNodeOverlap(a2_1,1,new TGeoCombiTrans(0,-8.6,-11.5,new TGeoRotation("a2_1",120,80,-20)));
00178 
00179 TGeoVolume *a3_1=geom->MakeTubs("a3_1",Iron,0,1.5,2.2,0,0);
00180  a3_1->SetLineColor(1);
00181 top->AddNodeOverlap(a3_1,1,new TGeoCombiTrans(0,-11.3,-20.6,new TGeoRotation("a3_1",-300,0,-40)));  
00182 
00183 TGeoVolume *a4_1=geom->MakeTubs("a4_1",Iron,0,1,1,0,0);
00184  a4_1->SetLineColor(5);
00185 top->AddNodeOverlap(a4_1,1,new TGeoCombiTrans(0,-11.3,-23.8,new TGeoRotation("a4_1",-75,0,-30)));
00186 
00187 a5=geom->MakeTubs("a5_1",Iron,1.5,2.5,2,0,270);
00188  a5->SetLineColor(5);
00189 top->AddNodeOverlap(a5,1,new TGeoCombiTrans(0,-11.3,-26.5,new TGeoRotation("a5",90,90,00)));
00190 
00191 
00192 //**********************************NO,2******************
00193 
00194 
00195 TGeoVolume *ha_1=geom->MakeSphere("ha_1",Iron,0,10,80,90,0,360);
00196  ha_1->SetLineColor(6);
00197 top->AddNodeOverlap(ha_1,1,new TGeoCombiTrans(0,36,4,new TGeoRotation("ha_1",0,0,0)));
00198 
00199 TGeoVolume *ha_2=geom->MakeTubs("ha_2",Iron,0,6,5,0,0);
00200  ha_2->SetLineColor(6);
00201 top->AddNodeOverlap(ha_2,1,new TGeoCombiTrans(0,36,10,new TGeoRotation("ha_2",0,180,0)));
00202 
00203 TGeoVolume *ha_3=geom->MakeTubs("ha_3",Iron,0,1,12,0,0);
00204  ha_3->SetLineColor(28);
00205 top->AddNodeOverlap(ha_3,1,new TGeoCombiTrans(0,36,8,new TGeoRotation("ha_3",0,90,0)));
00206 
00207 TGeoVolume *ha_4=geom->MakeTubs("ha_4",Iron,0,1,3,0,0);
00208  ha_4->SetLineColor(28);
00209 top->AddNodeOverlap(ha_4,1,new TGeoCombiTrans(0,22,10,new TGeoRotation("ha_4",0,0,0)));
00210 
00211 TGeoVolume *ha_5=geom->MakeTubs("ha_5",Iron,0,1,3,0,0);
00212  ha_5->SetLineColor(28);
00213 top->AddNodeOverlap(ha_5,1,new TGeoCombiTrans(0,46,10,new TGeoRotation("ha_5",0,0,0)));
00214 
00215 TGeoVolume *ha_6=geom->MakeTubs("ha_6",Iron,0,1,3,0,0);
00216  ha_6->SetLineColor(28);
00217 top->AddNodeOverlap(ha_6,1,new TGeoCombiTrans(0,24,10,new TGeoRotation("ha_6",0,0,0)));
00218 
00219 TGeoVolume *ha_7=geom->MakeTubs("ha_7",Iron,0,1,3,0,0);
00220  ha_7->SetLineColor(28);
00221 top->AddNodeOverlap(ha_7,1,new TGeoCombiTrans(0,48,10,new TGeoRotation("ha_7",0,0,0)));
00222 
00223 TGeoVolume *ha_8=geom->MakeBox("ha_8",Iron,2,0.5,2);
00224  ha_8->SetLineColor(19);
00225 top->AddNodeOverlap(ha_8,1,new TGeoCombiTrans(-4.2,36,9,new TGeoRotation("ha_8",0,45,0))); 
00226 
00227 
00228 TGeoVolume *ha_9=geom->MakeBox("ha_9",Iron,2,0.5,2);
00229  ha_9->SetLineColor(19);
00230 top->AddNodeOverlap(ha_9,1,new TGeoCombiTrans(-4.2,36,9,new TGeoRotation("ha_9",0,135,0)));
00231 
00232 
00233 
00234 TGeoVolume *h_1=geom->MakeTubs("h_1",Iron,0,6,4.5,0,0);
00235  h_1->SetLineColor(5);
00236 top->AddNodeOverlap(h_1,1,new TGeoCombiTrans(0,36,0,new TGeoRotation("h_1",0,0,0))); 
00237 
00238 TGeoVolume *h_2=geom->MakeSphere("h_2",Iron,0,7.5,0,52.5,0,360);
00239  h_2->SetLineColor(5);
00240 top->AddNodeOverlap(h_2,1,new TGeoCombiTrans(0,36,0,new TGeoRotation("h_2",0,0,0)));
00241 
00242 TGeoVolume *h_3=geom->MakeSphere("h_3",Iron,0,7.5,0,52.5,0,360);
00243  h_3->SetLineColor(5);
00244 top->AddNodeOverlap(h_3,1,new TGeoCombiTrans(0,36,0,new TGeoRotation("h_3",180,180,0)));
00245 
00246 TGeoVolume *h_4=geom->MakeTubs("h_4",Iron,2.5,3.5,1.5,0,0);
00247  h_4->SetLineColor(5);
00248 top->AddNodeOverlap(h_4,1,new TGeoCombiTrans(0,36,7.5,new TGeoRotation("h_4",0,0,0)));
00249 
00250 
00251 TGeoVolume *fa1=geom->MakeTubs("fa1",Iron,0,0.5,1,0,360);
00252  fa1->SetLineColor(12);
00253 top->AddNodeOverlap(fa1,1,new TGeoCombiTrans(-5,38,1.5,new TGeoRotation("fa1",-90,90,0)));
00254 
00255 TGeoVolume *fa2=geom->MakeTubs("fa2",Iron,0,0.5,1,0,360);
00256  fa2->SetLineColor(12);
00257 top->AddNodeOverlap(fa2,1,new TGeoCombiTrans(-5,34,1.5,new TGeoRotation("fa2",-90,90,0)));
00258 
00259 TGeoVolume *fa1_1=geom->MakeTubs("fa1_1",Iron,1,1.2,1,0,360);
00260  fa1_1->SetLineColor(12);
00261 top->AddNodeOverlap(fa1_1,1,new TGeoCombiTrans(-5,38,1.5,new TGeoRotation("fa1_1",-90,90,0)));
00262 
00263 TGeoVolume *fa2_1=geom->MakeTubs("fa2_1",Iron,1,1.2,1,0,360);
00264  fa2_1->SetLineColor(12);
00265 top->AddNodeOverlap(fa2_1,1,new TGeoCombiTrans(-5,34,1.5,new TGeoRotation("fa2_1",-90,90,0)));
00266 
00267 TGeoVolume *fa3=geom->MakeTubs("fa3",Iron,2,2.3,1,90,270);
00268  fa3->SetLineColor(12);
00269 top->AddNodeOverlap(fa3,1,new TGeoCombiTrans(-5,36,-1,new TGeoRotation("fa3",90,90,90))); 
00270 
00271 
00272 
00273 TGeoVolume *m_1=geom->MakeBox("m_1",Iron,7,8,4);
00274  m_1->SetLineColor(25);
00275 top->AddNodeOverlap(m_1,1,new TGeoCombiTrans(0,36,-17,new TGeoRotation("m_1",90,90,0))); 
00276 
00277 TGeoVolume *m_2=geom->MakeTubs("m_2",Iron,0,1,7,90,180);
00278  m_2->SetLineColor(25);
00279 top->AddNodeOverlap(m_2,1,new TGeoCombiTrans(-3,36,-9,new TGeoRotation("m_2",0,90,0)));  
00280 
00281 TGeoVolume *m_3=geom->MakeTubs("m_3",Iron,0,1,7,0,90);
00282  m_3->SetLineColor(25);
00283 top->AddNodeOverlap(m_3,1,new TGeoCombiTrans(3,36,-9,new TGeoRotation("m_3",0,90,0)));
00284 
00285 TGeoVolume *m_4=geom->MakeBox("m_4",Iron,3,7,0.5);
00286  m_4->SetLineColor(25);
00287 top->AddNodeOverlap(m_4,1,new TGeoCombiTrans(0,36,-8.5,new TGeoRotation("m_4",90,0,90))); 
00288 
00289 TGeoVolume *m_5=geom->MakeTubs("m_5",Iron,0,1.5,1.2,0,0);
00290  m_5->SetLineColor(5);
00291 top->AddNodeOverlap(m_5,1,new TGeoCombiTrans(0,36,-7.8,new TGeoRotation("m_5",0,0,0)));  
00292 
00293 TGeoVolume *m_6=geom->MakeTrd2("m_6",Iron,4,4,0,2,8);
00294 m_6->SetLineColor(25);
00295 top->AddNodeOverlap(m_6,1,new TGeoCombiTrans(0,29,-17,new TGeoRotation("m_6",0,180,0)));
00296 
00297 TGeoVolume *m_7=geom->MakeTrd2("m_7",Iron,4,4,0,2,8);
00298 m_7->SetLineColor(25);
00299 top->AddNodeOverlap(m_7,1,new TGeoCombiTrans(0,43,-17,new TGeoRotation("m_7",0,180,0)));
00300 
00301 
00302 TGeoVolume *md_1=geom->MakeBox("md_1",Iron,4,8.5,0.7);
00303  md_1->SetLineColor(48);
00304 top->AddNodeOverlap(md_1,1,new TGeoCombiTrans(0,36,-25.5,new TGeoRotation("md_1",0,0,0))); 
00305 
00306 TGeoVolume *md_2=geom->MakeBox("md_2",Iron,3,0.4,2);
00307 md_2->SetLineColor(48);
00308 top->AddNodeOverlap(md_2,1,new TGeoCombiTrans(0,36,-28,new TGeoRotation("md_2",0,0,0))); 
00309 
00310 TGeoVolume *d_1=geom->MakeTrd2("d_1",Iron,3,4,4,4,7);
00311 d_1->SetLineColor(48);
00312 top->AddNodeOverlap(d_1,1,new TGeoCombiTrans(0,40.5,-37.2,new TGeoRotation("d_1",0,0,0)));
00313 
00314 TGeoVolume *d_2=geom->MakeTrd2("d_2",Iron,3,4,4,4,7);
00315 d_2->SetLineColor(48);
00316 top->AddNodeOverlap(d_2,1,new TGeoCombiTrans(0,31.5,-37.2,new TGeoRotation("d_2",0,0,0)));  
00317   
00318 TGeoVolume *d_3=geom->MakeTubs("d_3",Iron,0,4,3.98,0,180);
00319  d_3->SetLineColor(48);
00320 top->AddNodeOverlap(d_3,1,new TGeoCombiTrans(0,40.5,-30.2,new TGeoRotation("d_3",0,90,0))); 
00321 
00322 TGeoVolume *d_4=geom->MakeTubs("d_4",Iron,0,4,3.98,0,180);
00323  d_4->SetLineColor(48);
00324 top->AddNodeOverlap(d_4,1,new TGeoCombiTrans(0,31.5,-30.2,new TGeoRotation("d_4",0,90,0)));
00325 
00326 TGeoVolume *d_5=geom->MakeBox("d_5",Iron,4,4,1);
00327 d_5->SetLineColor(48);
00328 top->AddNodeOverlap(d_5,1,new TGeoCombiTrans(-1,40.5,-43.7,new TGeoRotation("d_5",0,0,0)));
00329 
00330 TGeoVolume *d_6=geom->MakeBox("d_6",Iron,4,4,1);
00331 d_6->SetLineColor(48);
00332 top->AddNodeOverlap(d_6,1,new TGeoCombiTrans(-1,31.5,-43.7,new TGeoRotation("d_6",0,0,0)));
00333 
00334 
00335 
00336 
00337 TGeoVolume *a_1=geom->MakeTubs("a_1",Iron,0,1.5,4,0,0);
00338  a_1->SetLineColor(45);
00339 top->AddNodeOverlap(a_1,1,new TGeoCombiTrans(0,46,-15.1,new TGeoRotation("a_1",0,20,45))); 
00340  
00341 TGeoVolume *a_2=geom->MakeSphere("a_2",Iron,0,1.48,0,180,0,200);
00342  a_2->SetLineColor(45);
00343 top->AddNodeOverlap(a_2,1,new TGeoCombiTrans(0,44.6,-11.5,new TGeoRotation("a_2",120,80,20)));
00344 
00345 TGeoVolume *a_3=geom->MakeTubs("a_3",Iron,0,1.5,2.2,0,0);
00346  a_3->SetLineColor(45);
00347 top->AddNodeOverlap(a_3,1,new TGeoCombiTrans(0,47.3,-20.6,new TGeoRotation("a_3",300,0,40)));  
00348 
00349 TGeoVolume *a_4=geom->MakeTubs("a_4",Iron,0,1,1,0,0);
00350  a_4->SetLineColor(12);
00351 top->AddNodeOverlap(a_4,1,new TGeoCombiTrans(0,47.3,-23.8,new TGeoRotation("a_4",75,0,30))); 
00352 
00353 TGeoVolume *a_5=geom->MakeTubs("a_5",Iron,1.5,2.5,2,0,270);
00354  a_5->SetLineColor(12);
00355 top->AddNodeOverlap(a_5,1,new TGeoCombiTrans(0,47.3,-26.5,new TGeoRotation("a_5",-90,90,0)));
00356 
00357 
00358   
00359 
00360 TGeoVolume *Aa1=geom->MakeTubs("Aa1",Iron,0,1.5,4,0,0);
00361  Aa1->SetLineColor(45);
00362 top->AddNodeOverlap(Aa1,1,new TGeoCombiTrans(0,26,-15.1,new TGeoRotation("Aa1",0,-20,-45))); 
00363  
00364 TGeoVolume *Aa2=geom->MakeSphere("Aa2",Iron,0,1.48,0,180,0,200);
00365  Aa2->SetLineColor(45);
00366 top->AddNodeOverlap(Aa2,1,new TGeoCombiTrans(0,27.4,-11.5,new TGeoRotation("Aa2",120,80,-20)));
00367 
00368 TGeoVolume *Aa3=geom->MakeTubs("Aa3",Iron,0,1.5,2.2,0,0);
00369  Aa3->SetLineColor(45);
00370 top->AddNodeOverlap(Aa3,1,new TGeoCombiTrans(0,24.7,-20.6,new TGeoRotation("Aa3",-300,0,-40)));  
00371 
00372 TGeoVolume *Aa4=geom->MakeTubs("Aa4",Iron,0,1,1,0,0);
00373  Aa4->SetLineColor(12);
00374 top->AddNodeOverlap(Aa4,1,new TGeoCombiTrans(0,24.7,-23.8,new TGeoRotation("Aa4",-75,0,-30)));
00375 
00376 TGeoVolume *Aa5=geom->MakeTubs("Aa5",Iron,1.5,2.5,2,0,270);
00377  Aa5->SetLineColor(12);
00378 top->AddNodeOverlap(Aa5,1,new TGeoCombiTrans(0,24.7,-26.5,new TGeoRotation("Aa5",90,90,00)));
00379 
00380 
00381 
00382 TGeoVolume *bag1=geom->MakeBox("bag1",Iron,10,4,6);
00383 bag1->SetLineColor(19);
00384 top->AddNodeOverlap(bag1,1,new TGeoCombiTrans(0,48,-36,new TGeoRotation("bag1",0,0,0)));
00385 
00386 TGeoVolume *bag2=geom->MakeTubs("bag2",Iron,3,4,1,180,360);
00387  bag2->SetLineColor(19);
00388 top->AddNodeOverlap(bag2,1,new TGeoCombiTrans(0,48,-30,new TGeoRotation("bag2",0,270,0)));
00389 
00390 
00391 TGeoVolume *well=geom->MakeBox("well",Iron,5,10,3);
00392 well->SetLineColor(18);
00393 top->AddNodeOverlap(well,1,new TGeoCombiTrans(-26.5,-17,-42,new TGeoRotation("well",0,0,0)));
00394 
00395 
00396 TGeoVolume *K5=geom->MakeTubs("K5",Iron,0,3,3,0,0);
00397  K5->SetLineColor(18);
00398 top->AddNodeOverlap(K5,1,new TGeoCombiTrans(-27,-12.5,-39,new TGeoRotation("K5",0,0,0)));
00399 
00400 TGeoVolume *K4=geom->MakeTubs("K4",Iron,0,3,3,0,0);
00401  K4->SetLineColor(18);
00402 top->AddNodeOverlap(K4,1,new TGeoCombiTrans(-27,-21.5,-39,new TGeoRotation("K4",0,0,0)));
00403 
00404 
00405 
00406 //==============Board=========
00407 char nB[100];
00408 int Z=0,Y=0;
00409 TGeoVolume *bo1;
00410 
00411 while(Y<6){
00412 while(Z<10){
00413 sprintf(nB,"B%d_Y%d",Z,Y);
00414 bo1=geom->MakeTubs(nB,Iron,0,3,3,0,0);
00415 bo1->SetLineColor(8);
00416 top->AddNodeOverlap(bo1,1,new TGeoCombiTrans(-27+(Y*9),-21.5+(Z*9),-45,new TGeoRotation("bo1",0,0,0))); 
00417 Z++;
00418 }
00419 Y++; Z=0;
00420 }
00421 
00422 
00423 TGeoVolume *bo2=geom->MakeBox("bo2",Iron,27,45,3);
00424 bo2->SetLineColor(8);
00425 top->AddNodeOverlap(bo2,1,new TGeoCombiTrans(-4.5,18,-48,new TGeoRotation("bo2",0,0,0)));
00426 
00427 
00428 
00429 
00430 top->SetVisibility(0);
00431 geom->CloseGeometry(); 
00432 
00433    top->Draw("ogl");
00434 
00435 }

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