Variable number of modules introduced
[u/mrichter/AliRoot.git] / STRUCT / AliFRAMEv0.cxx
1 ////////////////////////////////////////////////
2 //  space frame class                            /
3 ////////////////////////////////////////////////
4
5 #include <stdio.h> 
6 #include <TMath.h>
7 #include <TRandom.h>
8 #include <TVector.h>
9 #include "AliFRAMEv0.h"
10 #include "AliRun.h"
11 #include "stdlib.h"
12 #include "AliMC.h"
13 #include "TSystem.h"
14  
15 ClassImp(AliFRAMEv0)
16  
17 //_____________________________________________________________________________
18 AliFRAMEv0::AliFRAMEv0()
19 {
20 }
21
22 //_____________________________________________________________________________
23 AliFRAMEv0::AliFRAMEv0(const char *name, const char *title)
24   : AliFRAME(name,title)
25 {
26   printf("Create FRAMEv0 object");  
27 }
28
29  
30 //___________________________________________
31 void AliFRAMEv0::CreateGeometry()
32 {
33   printf("Create FRAMEv0 geometry ");
34 //Begin_Html
35 /*
36 <img src="picts/frame.gif">
37 */
38 //End_Html
39
40
41 //Begin_Html
42 /*
43 <img src="picts/tree_frame.gif">
44 */
45 //End_Html
46
47   AliMC* pMC=AliMC::GetMC();
48   char *filetmp;
49   const char *framename = "$(ALICE_ROOT)/Euclid/frame0399.euc";
50   char topvol[5];
51   printf("Create FRAMEv0 geometry ");
52   
53 //
54 // The Space frame
55   filetmp = gSystem->ExpandPathName(framename);
56   FILE *file = fopen(filetmp,"r");
57   delete [] filetmp;
58   if(file) {
59     fclose(file);
60     printf(" Reading FRAME \n");
61     gAlice->ReadEuclid(framename,this,topvol);
62   } else {
63     Warning("CreateGeometry","The Euclid file %s does not exist!\n",framename);
64     exit(1);
65   }
66 //
67 // --- Place the FRAME ghost volume (B010) in its mother volume (ALIC)
68 //    and make it invisible
69 // 
70 //  AliMatrix(idrotm[2001],90.,0.,90.,90.,180.,0.);
71   
72   pMC->Gspos("B010",1,"ALIC",0,0,0,0,"ONLY");
73
74   pMC->Gsatt("B010", "SEEN", 0);
75 }
76
77  
78 //___________________________________________
79 void AliFRAMEv0::CreateMaterials()
80 {
81   char *filetmp;
82   printf("Create FRAMEv0 materials");
83   const char *name = "$(ALICE_ROOT)/Euclid/frame.tme";
84   filetmp = gSystem->ExpandPathName(name);
85   FILE *file = fopen(filetmp,"r");
86   delete [] filetmp;
87   if(file) {
88     fclose(file);
89     gAlice->ReadEuclidMedia(name,this);
90   } else {
91     Warning("CreateMaterials","The material file %s does not exist!\n",name);
92     exit(1);
93   }
94 }
95
96
97
98
99
100
101
102
103
104
105
106
107
108