Adding new TOF
[u/mrichter/AliRoot.git] / TOF / AliTOF.cxx
1 ///////////////////////////////////////////////////////////////////////////////
2 //                                                                           //
3 //  Time Of Flight                                                           //
4 //  This class contains the basic functions for the Time Of Flight           //
5 //  detector. Functions specific to one particular geometry are              //
6 //  contained in the derived classes                                         //
7 //                                                                           //
8 //Begin_Html
9 /*
10 <img src="picts/AliTOFClass.gif">
11 */
12 //End_Html
13 //                                                                           //
14 //                                                                           //
15 ///////////////////////////////////////////////////////////////////////////////
16
17 #include "AliTOF.h"
18 #include <TNode.h>
19 #include <TTUBE.h>
20 #include <TBRIK.h>
21 #include "AliRun.h"
22 #include "AliConst.h"
23 #include <stdlib.h>
24  
25 ClassImp(AliTOF)
26  
27 //_____________________________________________________________________________
28 AliTOF::AliTOF()
29 {
30   //
31   // Default constructor
32   //
33   fIshunt   = 0;
34 }
35  
36 //_____________________________________________________________________________
37 AliTOF::AliTOF(const char *name, const char *title)
38        : AliDetector(name,title)
39 {
40   //
41   // AliTOF standard constructor
42   // 
43   fHits   = new TClonesArray("AliTOFhit",  405);
44   //
45   fIshunt     =  0;
46   //
47   SetMarkerColor(7);
48   SetMarkerStyle(2);
49   SetMarkerSize(0.4);
50   //
51   // Check that FRAME is there otherwise we have no place where to
52   // put TOF
53   AliModule* FRAME=gAlice->GetModule("FRAME");
54   if(!FRAME) {
55     Error("Ctor","TOF needs FRAME to be present\n");
56     exit(1);
57   }
58 }
59
60 //_____________________________________________________________________________
61 void AliTOF::AddHit(Int_t track, Int_t *vol, Float_t *hits)
62 {
63   //
64   // Add a TOF hit
65   //
66   TClonesArray &lhits = *fHits;
67   new(lhits[fNhits++]) AliTOFhit(fIshunt,track,vol,hits);
68 }
69  
70 //_____________________________________________________________________________
71 void AliTOF::BuildGeometry()
72 {
73   //
74   // Build TOF ROOT geometry for the ALICE event viewver
75   //
76   TNode *Node, *Top;
77   const int kColorTOF  = 27;
78   //
79   // Find top TNODE
80   Top=gAlice->GetGeometry()->GetNode("alice");
81   //
82   // Define rotation matrixes
83   new TRotMatrix("rot501","rot501",90,-20,90,90-20,0,0);
84   new TRotMatrix("rot502","rot502",90,-40,90,90-40,0,0);
85   new TRotMatrix("rot503","rot503",90,-60,90,90-60,0,0);
86   new TRotMatrix("rot504","rot504",90,-80,90,90-80,0,0);
87   new TRotMatrix("rot505","rot505",90,-100,90,90-100,0,0);
88   new TRotMatrix("rot506","rot506",90,-120,90,90-120,0,0);
89   new TRotMatrix("rot507","rot507",90,-140,90,90-140,0,0);
90   new TRotMatrix("rot508","rot508",90,-160,90,90-160,0,0);
91   new TRotMatrix("rot509","rot509",90,-180,90,90-180,0,0);
92   new TRotMatrix("rot510","rot510",90,-200,90,90-200,0,0);
93   new TRotMatrix("rot511","rot511",90,-220,90,90-220,0,0);
94   new TRotMatrix("rot512","rot512",90,-240,90,90-240,0,0);
95   new TRotMatrix("rot513","rot513",90,-260,90,90-260,0,0);
96   new TRotMatrix("rot514","rot514",90,-280,90,90-280,0,0);
97   new TRotMatrix("rot515","rot515",90,-300,90,90-300,0,0);
98   new TRotMatrix("rot516","rot516",90,-320,90,90-320,0,0);
99   new TRotMatrix("rot517","rot517",90,-340,90,90-340,0,0);
100   new TRotMatrix("rot518","rot518",90,-360,90,90-360,0,0);
101   //
102   // Position the different copies
103   const Float_t rtof=(399+370)/2;
104   const Int_t ntof=18;
105   const Float_t angle=2*kPI/ntof;
106   Float_t ang;
107   //
108   // Define TOF basic volume
109   new TBRIK("S_TOF1","TOF box","void",130/2,29/2,190.);
110   //
111   // Position it
112   Top->cd();
113   ang=2.5*angle;
114   Node = new TNode("FTO002","FTO02","S_TOF1",rtof*TMath::Cos(ang),rtof*TMath::Sin(ang),190,"rot502");
115   Node->SetLineColor(kColorTOF);
116   fNodes->Add(Node); 
117   //
118   Top->cd();
119   Node = new TNode("FTO102","FTO102","S_TOF1",rtof*TMath::Cos(ang),rtof*TMath::Sin(ang),-190,"rot502");
120   Node->SetLineColor(kColorTOF);
121   fNodes->Add(Node); 
122   //
123   //
124   Top->cd();
125   ang=1.5*angle;
126   Node = new TNode("FTO003","FTO003","S_TOF1",rtof*TMath::Cos(ang),rtof*TMath::Sin(ang),190,"rot503");
127   Node->SetLineColor(kColorTOF);
128   fNodes->Add(Node); 
129   //
130   Top->cd();
131   Node = new TNode("FTO103","FTO103","S_TOF1",rtof*TMath::Cos(ang),rtof*TMath::Sin(ang),-190,"rot503");
132   Node->SetLineColor(kColorTOF);
133   fNodes->Add(Node); 
134   //
135   //
136   Top->cd();  
137   ang=0.5*angle;
138   Node = new TNode("FTO004","FTO004","S_TOF1",rtof*TMath::Cos(ang),rtof*TMath::Sin(ang),190,"rot504");
139   Node->SetLineColor(kColorTOF);
140   fNodes->Add(Node);
141   //
142   Top->cd();
143   Node = new TNode("FTO104","FTO104","S_TOF1",rtof*TMath::Cos(ang),rtof*TMath::Sin(ang),-190,"rot504");
144   Node->SetLineColor(kColorTOF);
145   fNodes->Add(Node); 
146   //
147   //
148   Top->cd();
149   ang=-0.5*angle;
150   Node = new TNode("FTO005","FTO005","S_TOF1",rtof*TMath::Cos(ang),rtof*TMath::Sin(ang),190,"rot505");
151   Node->SetLineColor(kColorTOF);
152   fNodes->Add(Node); 
153   //
154   Top->cd();
155   Node = new TNode("FTO105","FTO105","S_TOF1",rtof*TMath::Cos(ang),rtof*TMath::Sin(ang),-190,"rot505");
156   Node->SetLineColor(kColorTOF);
157   fNodes->Add(Node); 
158   //
159   //
160   Top->cd();
161   ang=-1.5*angle;
162   Node = new TNode("FTO006","FTO006","S_TOF1",rtof*TMath::Cos(ang),rtof*TMath::Sin(ang),190,"rot506");
163   Node->SetLineColor(kColorTOF);
164   fNodes->Add(Node); 
165   //
166   Top->cd();
167   Node = new TNode("FTO106","FTO106","S_TOF1",rtof*TMath::Cos(ang),rtof*TMath::Sin(ang),-190,"rot506");
168   Node->SetLineColor(kColorTOF);
169   fNodes->Add(Node); 
170   //
171   //
172   Top->cd();  
173   ang=kPI+1.5*angle;
174   Node = new TNode("FTO012","FTO012","S_TOF1",rtof*TMath::Cos(ang),rtof*TMath::Sin(ang),190,"rot512");
175   Node->SetLineColor(kColorTOF);
176   fNodes->Add(Node); 
177   //
178   Top->cd();
179   Node = new TNode("FTO112","FTO112","S_TOF1",rtof*TMath::Cos(ang),rtof*TMath::Sin(ang),-190,"rot512");
180   Node->SetLineColor(kColorTOF);
181   fNodes->Add(Node); 
182   //
183   //
184   Top->cd();
185   ang=kPI+0.5*angle;
186   Node = new TNode("FTO013","FTO013","S_TOF1",rtof*TMath::Cos(ang),rtof*TMath::Sin(ang),190,"rot513");
187   Node->SetLineColor(kColorTOF);
188   fNodes->Add(Node); 
189   //
190   Top->cd();
191   Node = new TNode("FTO113","FTO113","S_TOF1",rtof*TMath::Cos(ang),rtof*TMath::Sin(ang),-190,"rot513");
192   Node->SetLineColor(kColorTOF);
193   fNodes->Add(Node); 
194   //
195   //
196   Top->cd();
197   ang=kPI-0.5*angle;
198   Node = new TNode("FTO014","FTO04","S_TOF1",rtof*TMath::Cos(ang),rtof*TMath::Sin(ang),190,"rot514");
199   Node->SetLineColor(kColorTOF);
200   fNodes->Add(Node); 
201   //
202   Top->cd();
203   Node = new TNode("FTO114","FTO114","S_TOF1",rtof*TMath::Cos(ang),rtof*TMath::Sin(ang),-190,"rot514");
204   Node->SetLineColor(kColorTOF);
205   fNodes->Add(Node); 
206   //
207   //
208   Top->cd();
209   ang=kPI-1.5*angle;
210   Node = new TNode("FTO015","FTO015","S_TOF1",rtof*TMath::Cos(ang),rtof*TMath::Sin(ang),190,"rot515");
211   Node->SetLineColor(kColorTOF);
212   fNodes->Add(Node); 
213   //
214   Top->cd();
215   Node = new TNode("FTO115","FTO115","S_TOF1",rtof*TMath::Cos(ang),rtof*TMath::Sin(ang),-190,"rot515");
216   Node->SetLineColor(kColorTOF);
217   fNodes->Add(Node); 
218   //
219   //
220   Top->cd();
221   ang=kPI-2.5*angle;
222   Node = new TNode("FTO016","FTO016","S_TOF1",rtof*TMath::Cos(ang),rtof*TMath::Sin(ang),190,"rot516");
223   Node->SetLineColor(kColorTOF);
224   fNodes->Add(Node); 
225   //
226   Top->cd();
227   Node = new TNode("FTO116","FTO116","S_TOF1",rtof*TMath::Cos(ang),rtof*TMath::Sin(ang),-190,"rot516");
228   Node->SetLineColor(kColorTOF);
229   fNodes->Add(Node); 
230   //
231   //
232   // Define second TOF volume
233   new TBRIK("S_TOF2","TOF box","void",130/2,29/2,170.);
234   //
235   // Position the volume
236   Top->cd();
237   ang=-2.5*angle;
238   Node = new TNode("FTO007","FTO007","S_TOF2",rtof*TMath::Cos(ang),rtof*TMath::Sin(ang),(2*190-170),"rot507");
239   Node->SetLineColor(kColorTOF);
240   fNodes->Add(Node); 
241   //
242   Top->cd();
243   Node = new TNode("FTO107","FTO107","S_TOF2",rtof*TMath::Cos(ang),rtof*TMath::Sin(ang),-(2*190-170),"rot507");
244   Node->SetLineColor(kColorTOF);
245   fNodes->Add(Node); 
246   //
247   //
248   Top->cd();
249   ang=-3.5*angle;
250   Node = new TNode("FTO008","FTO008","S_TOF2",rtof*TMath::Cos(ang),rtof*TMath::Sin(ang),(2*190-170),"rot508");
251   Node->SetLineColor(kColorTOF);
252   fNodes->Add(Node); 
253   //
254   Top->cd();
255   Node = new TNode("FTO108","FTO108","S_TOF2",rtof*TMath::Cos(ang),rtof*TMath::Sin(ang),-(2*190-170),"rot508");
256   Node->SetLineColor(kColorTOF);
257   fNodes->Add(Node); 
258   //
259   //
260   Top->cd();
261   ang=-kPI/2;
262   Node = new TNode("FTO009","FTO009","S_TOF2",rtof*TMath::Cos(ang),rtof*TMath::Sin(ang),(2*190-170),"rot509");
263   Node->SetLineColor(kColorTOF);
264   fNodes->Add(Node); 
265   //
266   Top->cd();
267   Node = new TNode("FTO109","FTO109","S_TOF2",rtof*TMath::Cos(ang),rtof*TMath::Sin(ang),-(2*190-170),"rot509");
268   Node->SetLineColor(kColorTOF);
269   fNodes->Add(Node); 
270   //
271   //
272   Top->cd();
273   ang=kPI+3.5*angle;
274   Node = new TNode("FTO010","FTO010","S_TOF2",rtof*TMath::Cos(ang),rtof*TMath::Sin(ang),(2*190-170),"rot510");
275   Node->SetLineColor(kColorTOF);
276   fNodes->Add(Node); 
277   //
278   Top->cd();
279   Node = new TNode("FTO110","FTO110","S_TOF2",rtof*TMath::Cos(ang),rtof*TMath::Sin(ang),-(2*190-170),"rot510");
280   Node->SetLineColor(kColorTOF);
281   fNodes->Add(Node); 
282   //
283   //
284   Top->cd();
285   ang=kPI+2.5*angle;
286   Node = new TNode("FTO011","FTO011","S_TOF2",rtof*TMath::Cos(ang),rtof*TMath::Sin(ang),(2*190-170),"rot511");
287   Node->SetLineColor(kColorTOF);
288   fNodes->Add(Node); 
289   //
290   Top->cd();
291   Node = new TNode("FTO111","FTO111","S_TOF2",rtof*TMath::Cos(ang),rtof*TMath::Sin(ang),-(2*190-170),"rot511");
292   Node->SetLineColor(kColorTOF);
293   fNodes->Add(Node); 
294   //
295   //
296   // Define third TOF volume
297   new TBRIK("S_TOF3","TOF box","void",130/2.,29/2,75.);
298   //
299   // Position it
300   Top->cd();
301   ang=3.5*angle;
302   Node = new TNode("FTO001","FTO001","S_TOF3",rtof*TMath::Cos(ang),rtof*TMath::Sin(ang),(2*190-75),"rot501");
303   Node->SetLineColor(kColorTOF);
304   fNodes->Add(Node); 
305   //
306   Top->cd();
307   Node = new TNode("FTO101","FTO101","S_TOF3",rtof*TMath::Cos(ang),rtof*TMath::Sin(ang),-(2*190-75),"rot501");
308   Node->SetLineColor(kColorTOF);
309   fNodes->Add(Node); 
310   //
311   //
312   Top->cd();
313   ang=kPI-3.5*angle;
314   Node = new TNode("FTO017","FTO017","S_TOF3",rtof*TMath::Cos(ang),rtof*TMath::Sin(ang),(2*190-75),"rot517");
315   Node->SetLineColor(kColorTOF);
316   fNodes->Add(Node); 
317   //
318   Top->cd();
319   Node = new TNode("FTO117","FTO117","S_TOF3",rtof*TMath::Cos(ang),rtof*TMath::Sin(ang),-(2*190-75),"rot517");
320   Node->SetLineColor(kColorTOF);
321   fNodes->Add(Node); 
322   //
323   //
324   Top->cd();
325   ang=kPI/2;
326   Node = new TNode("FTO018","FTO018","S_TOF3",rtof*TMath::Cos(ang),rtof*TMath::Sin(ang),(2*190-75),"rot518");
327   Node->SetLineColor(kColorTOF);
328   fNodes->Add(Node); 
329   //
330   Top->cd();
331   Node = new TNode("FTO118","FTO118","S_TOF3",rtof*TMath::Cos(ang),rtof*TMath::Sin(ang),-(2*190-75),"rot518");
332   Node->SetLineColor(kColorTOF);
333   fNodes->Add(Node); 
334 }
335
336 //_____________________________________________________________________________
337 void AliTOF::CreateGeometry()
338 {
339   //
340   // Common geometry code 
341   //
342   //Begin_Html
343   /*
344     <img src="picts/AliTOFv23.gif">
345   */
346   //End_Html
347   //
348
349   const Double_t kPi=TMath::Pi();
350   const Double_t kDegrad=kPi/180;
351   //
352   Int_t lmax;
353   Float_t xtof, ytof, fil_step;
354   Float_t zcor1, zcor2, zcor3;
355   Float_t ztof0, ztof1, ztof2;
356   Float_t zl, rmin, rmax, xm, ym, dwall;
357   Int_t idrotm[18];
358   Float_t zm0, zm1, zm2;
359   Float_t par[10];
360   //
361   Int_t *idtmed = fIdtmed->GetArray()-499;
362   //
363   // barrel iner radius 
364   rmin = 370.;
365   // barrel outer radius 
366   rmax = rmin+29;
367   // barrel length along Z axis
368   zl = (rmin+2/*distance to sencetive layer*/+7/2)*2;
369   //
370   // frame inbetween TOF modules
371   dwall = 4.;
372   // Sizes of TOF module with its support etc..
373   xtof = 2 * (rmin*TMath::Tan(10*kDegrad)-dwall/2-.5);
374   ytof = rmax-rmin;
375   ztof0 = zl/2;
376   // Is it full coverage version (3) or not
377   if (IsVersion() != 3) {
378   ztof1 = ztof0-rmax*TMath::Tan(7.8*kDegrad); // minus Z size of PHOS
379   ztof2 = ztof0-rmax*TMath::Tan(54.34/2*kDegrad); // minus Z size of HMPID;
380   } else {
381   ztof1 = ztof0;
382   ztof2 = ztof0;
383   }
384    // Number of TOF-modules 
385   lmax = 18;
386   //
387 /*
388   //Some imitation of TRD
389   par[0] = 281;
390   par[1] = 350.282;
391   par[2] = zl/2;
392   gMC->Gsvolu("FTRD", "TUBE", idtmed[510], par, 3);
393   gMC->Gspos("FTRD", 1, "ALIC", 0., 0., 0., 0, "ONLY");
394
395   par[0] = 0.;
396   par[1] = 360.;
397   par[2] = lmax;
398   par[3] = 2.;
399   par[4] = -zl/2;
400   par[5] = rmin;
401   par[6] = rmax;
402   par[7] = zl/2;
403   par[8] = rmin;
404   par[9] = rmax;
405   gMC->Gsvolu("FBAR", "PGON", idtmed[500], par, 10);
406   gMC->Gspos("FBAR", 1, "ALIC", 0., 0., 0., 0, "ONLY");
407 */
408   //
409   // TOF size  (CO2)
410   par[0] = xtof / 2.;
411   par[1] = ytof / 2.;
412   par[2] = ztof0 / 2.;
413   gMC->Gsvolu("FTO1", "BOX ", idtmed[506], par, 3);
414   par[2] = ztof1 / 2.;
415   gMC->Gsvolu("FTO2", "BOX ", idtmed[506], par, 3);
416   par[2] = ztof2 / 2.;
417   gMC->Gsvolu("FTO3", "BOX ", idtmed[506], par, 3);
418 /*
419   // Frame wall
420   par[0]=dwall/2.;
421   par[1]=(rmax-rmin)/2.;
422   par[2]=ztof0/2.;
423   gMC->Gsvolu("FFR1", "BOX ", idtmed[508], par, 3);
424   gMC->Gsatt("FFR1", "SEEN", -2);
425   par[2]=ztof1/2.;
426   gMC->Gsvolu("FFR2", "BOX ", idtmed[508], par, 3);
427   gMC->Gsatt("FFR2", "SEEN", -2);
428   par[2]=ztof2/2.;
429   gMC->Gsvolu("FFR2", "BOX ", idtmed[508], par, 3);
430   gMC->Gsatt("FFR2", "SEEN", -2);
431 */  
432   //
433   // Subtraction the distanse to TOF module boundaries 
434   xm = xtof -(.5 +.5)*2;
435   ym = ytof;
436   zm0 = ztof0;
437   zm1 = ztof1;
438   zm2 = ztof2;
439   //  
440 /////////////// TOF module internal definitions //////////////
441   TOFpc(xm, ym, zm0, zm1, zm2);
442 /////////////////////////////////////////////////////////////
443   //
444   // Position of modules
445   fil_step = 360./lmax;
446   zcor1 = ztof0/2;
447   zcor2 = ztof0 - ztof1 / 2.;
448   zcor3 = ztof0 - ztof2 / 2.;
449 /*
450   for (i = 1; i <= lmax; ++i) {
451     fil1 = fil_step * i;
452     xcor2 = (rmin+rmax)/2 * TMath::Sin(fil1 * kDegrad);
453     ycor2 = (rmin+rmax)/2 * TMath::Cos(fil1 * kDegrad);
454     lmax1 = i + lmax;
455     AliMatrix(idrotm[i], 90., -fil1, 90., 90. -fil1, 0., 0.);
456     if (i>=7 && i<=11) { // free space for PHOS
457       //    if (fil1 >= 180-50  && fil1 <= 180+50) {
458       gMC->Gspos("FTO2", i, "FBAR", xcor2, ycor2, zcor2, idrotm[i], "ONLY");
459       gMC->Gspos("FTO2", lmax1, "FBAR", xcor2, ycor2, -zcor2, idrotm[i], "ONLY");
460     } else if (i>=17 || i==1) { // free space for RICH
461       //    } else if (fil1 <= 30 || fil1 >= 360. - 30) {
462       gMC->Gspos("FTO3", i, "FBAR", xcor2, ycor2, zcor3, idrotm[i], "ONLY");
463       gMC->Gspos("FTO3", lmax1, "FBAR", xcor2, ycor2, -zcor3, idrotm[i], "ONLY");
464     } else {
465       gMC->Gspos("FTO1", i, "FBAR", xcor2, ycor2, zcor1, idrotm[i], "ONLY");
466       gMC->Gspos("FTO1", lmax1, "FBAR", xcor2, ycor2, -zcor1, idrotm[i], "ONLY");
467     }
468   }
469 */
470       AliMatrix(idrotm[0], 90., 0., 0., 0., 90, -90.);
471       gMC->Gspos("FTO2", 1, "BTO2", 0, zcor2, 0, idrotm[0], "ONLY");
472       gMC->Gspos("FTO2", 2, "BTO2", 0, -zcor2, 0, idrotm[0], "ONLY");
473
474       gMC->Gspos("FTO3", 1, "BTO3", 0, zcor3, 0, idrotm[0], "ONLY");
475       gMC->Gspos("FTO3", 2, "BTO3", 0, -zcor3, 0, idrotm[0], "ONLY");
476
477       gMC->Gspos("FTO1", 1, "BTO1", 0, zcor1, 0, idrotm[0], "ONLY");
478       gMC->Gspos("FTO1", 2, "BTO1", 0, -zcor1, 0, idrotm[0], "ONLY");
479 }
480
481 //_____________________________________________________________________________
482 void AliTOF::DrawModule()
483 {
484   //
485   // Draw a shaded view of the common part of the TOF geometry
486   //
487
488    cout << " Drawing of AliTOF"<< endl; 
489   // Set everything unseen
490   gMC->Gsatt("*", "seen", -1);
491   // 
492   // Set ALIC mother transparent
493   gMC->Gsatt("ALIC","SEEN",0);
494   //
495   // Set the volumes visible
496   gMC->Gsatt("FBAR","SEEN",0);
497   gMC->Gsatt("FTO1","SEEN",1);
498   gMC->Gsatt("FTO2","SEEN",1);
499   gMC->Gsatt("FTO3","SEEN",1);
500   gMC->Gsatt("FBT1","SEEN",1);
501   gMC->Gsatt("FBT2","SEEN",1);
502   gMC->Gsatt("FBT3","SEEN",1);
503   gMC->Gsatt("FLT1","SEEN",1);
504   gMC->Gsatt("FLT2","SEEN",1);
505   gMC->Gsatt("FLT3","SEEN",1);
506   //
507   gMC->Gdopt("hide", "on");
508   gMC->Gdopt("shad", "on");
509   gMC->Gsatt("*", "fill", 7);
510   gMC->SetClipBox(".");
511   gMC->SetClipBox("*", 0, 1000, -1000, 1000, -1000, 1000);
512   gMC->DefaultRange();
513   gMC->Gdraw("alic", 40, 30, 0, 12, 9.5, .02, .02);
514   gMC->Gdhead(1111, "Time Of Flight");
515   gMC->Gdman(18, 4, "MAN");
516   gMC->Gdopt("hide","off");
517 }
518
519 //_____________________________________________________________________________
520 void AliTOF::CreateMaterials()
521 {
522   //
523   // Defines TOF materials for all versions
524   // Authors :   Maxim Martemianov, Boris Zagreev (ITEP)   18/09/98 
525   //
526   Int_t   ISXFLD = gAlice->Field()->Integ();
527   Float_t SXMGMX = gAlice->Field()->Max();
528   //
529   //--- Quartz (SiO2) 
530   Float_t   aq[2] = { 28.0855,15.9994 };
531   Float_t   zq[2] = { 14.,8. };
532   Float_t   wq[2] = { 1.,2. };
533   Float_t   dq = 2.20;
534   Int_t nq = -2;
535   // --- Freon
536   Float_t afre[2]  = { 12.011,18.9984032 };
537   Float_t zfre[2]  = { 6.,9. };
538   Float_t wfre[2]  = { 5.,12. };
539   Float_t densfre  = 1.5;
540   Int_t nfre = -2;
541   // --- CO2 
542   Float_t ac[2]   = { 12.,16. };
543   Float_t zc[2]   = { 6.,8. };
544   Float_t wc[2]   = { 1.,2. };
545   Float_t dc = .001977;
546   Int_t nc = -2;
547    // For mylar (C5H4O2) 
548   Float_t amy[3] = { 12., 1., 16. };
549   Float_t zmy[3] = {  6., 1.,  8. };
550   Float_t wmy[3] = {  5., 4.,  2. };
551   Float_t dmy    = 1.39;
552   Int_t nmy = -3;
553  // For polyethilene (CH2) for honeycomb!!!!
554   Float_t ape[2] = { 12., 1. };
555   Float_t zpe[2] = {  6., 1. };
556   Float_t wpe[2] = {  1., 2. };
557   Float_t dpe    = 0.935*0.479; //To have 1%X0 for 1cm as for honeycomb
558   Int_t npe = -2;
559   // --- G10 
560   Float_t ag10[4] = { 12.,1.,16.,28. };
561   Float_t zg10[4] = { 6.,1.,8.,14. };
562   Float_t wmatg10[4] = { .259,.288,.248,.205 };
563   Float_t densg10  = 1.7;
564   Int_t nlmatg10 = -4;
565   // --- DME 
566   Float_t adme[5] = { 12.,1.,16.,19.,79. };
567   Float_t zdme[5] = { 6.,1.,8.,9.,35. };
568   Float_t wmatdme[5] = { .4056,.0961,.2562,.1014,.1407 };
569   Float_t densdme  = .00205;
570   Int_t nlmatdme = 5;
571   // ---- ALUMINA (AL203) 
572   Float_t aal[2] = { 27.,16. };
573   Float_t zal[2] = { 13.,8. };
574   Float_t wmatal[2] = { 2.,3. };
575   Float_t densal  = 2.3;
576   Int_t nlmatal = -2;
577   // -- Water
578   Float_t awa[2] = {  1., 16. };
579   Float_t zwa[2] = {  1.,  8. };
580   Float_t wwa[2] = {  2.,  1. };
581   Float_t dwa    = 1.0;
582   Int_t nwa = -2;
583   //
584   //
585   //AliMaterial(0, "Vacuum$", 1e-16, 1e-16, 1e-16, 1e16, 1e16);
586   AliMaterial(1, "Air$",14.61,7.3,0.001205,30423.24,67500.);
587   AliMaterial(2, "Cu $",  63.54, 29.0, 8.96, 1.43, 14.8);
588   AliMaterial(3, "C  $",  12.01,  6.0, 2.265,18.8, 74.4);
589   AliMixture(4, "Polyethilene$", ape, zpe, dpe, npe, wpe);
590   AliMixture(5, "G10$", ag10, zg10, densg10, nlmatg10, wmatg10);
591   AliMixture(6, "DME ", adme, zdme, densdme, nlmatdme, wmatdme);
592   AliMixture(7, "CO2$", ac, zc, dc, nc, wc);
593   AliMixture(8, "ALUMINA$", aal, zal, densal, nlmatal, wmatal);
594   AliMaterial(9, "Al $", 26.98, 13., 2.7, 8.9, 37.2);
595   // (TRD simulation) thickness = 69.282cm/18.8cm = 3.685 X/X0
596   //  AliMaterial(10, "C-TRD$", 12.01, 6., 2.265*18.8/69.282*10.2/100, 18.8, 74.4); // for 10.2% 
597   AliMaterial(10, "C-TRD$", 12.01, 6., 2.265*18.8/69.282*15./100, 18.8, 74.4); // for 15%
598   //  AliMaterial(10, "C-TRD$", 12.01, 6., 2.265*18.8/69.282*20./100, 18.8, 74.4); // for 20%
599   AliMixture(11, "Mylar$",  amy, zmy, dmy, nmy, wmy);
600   AliMixture(12, "Freon$",  afre, zfre, densfre, nfre, wfre);
601   AliMixture(13, "Quartz$", aq, zq, dq, nq, wq);
602   AliMixture(14, "Water$",  awa, zwa, dwa, nwa, wwa);
603
604   Float_t epsil, stmin, deemax, stemax;
605   //       Previous data 
606   //       EPSIL  =  0.1   ! Tracking precision, 
607   //       STEMAX = 0.1      ! Maximum displacement for multiple scattering
608   //       DEEMAX = 0.1    ! Maximum fractional energy loss, DLS 
609   //       STMIN  = 0.1 
610   //       New data from 
611   epsil  = .001;
612   stemax = -1.;
613   deemax = -.3;
614   stmin  = -.8;
615   //  AliMedium(0, "Vacuum  $", 0, 0, ISXFLD, SXMGMX, 10., stemax, deemax, epsil, stmin);
616   AliMedium(1, "Air$", 1, 0, ISXFLD, SXMGMX, 10., stemax, deemax, epsil, stmin);
617   AliMedium(2, "Cu $", 2, 0, ISXFLD, SXMGMX, 10., stemax, deemax, epsil, stmin);
618   AliMedium(3, "C  $", 3, 0, ISXFLD, SXMGMX, 10., stemax, deemax, epsil, stmin);
619   AliMedium(4, "Pol$", 4, 0, ISXFLD, SXMGMX, 10., stemax, deemax, epsil, stmin);
620   AliMedium(5, "G10$", 5, 0, ISXFLD, SXMGMX, 10., stemax, deemax, epsil, stmin);
621   AliMedium(6, "DME$", 6, 0, ISXFLD, SXMGMX, 10., stemax, deemax, epsil, stmin);
622   AliMedium(7, "CO2$", 7, 0, ISXFLD, SXMGMX, 10., -.01, -.1, .01, -.01);
623   AliMedium(8, "ALUMINA$", 8, 0, ISXFLD, SXMGMX, 10., stemax, deemax, epsil, stmin);
624   AliMedium(9, "Al Frame$", 9, 0, ISXFLD, SXMGMX, 10, stemax, deemax, epsil, stmin);
625   AliMedium(10, "DME-S$", 6, 1, ISXFLD, SXMGMX, 10., stemax, deemax, epsil, stmin);
626   AliMedium(11, "C-TRD$", 10, 0, ISXFLD, SXMGMX, 10., stemax, deemax, epsil, stmin);
627   AliMedium(12, "Myl$", 11, 0, ISXFLD, SXMGMX, 10., stemax, deemax, epsil, stmin);
628   AliMedium(13, "Fre$", 12, 0, ISXFLD, SXMGMX, 10., stemax, deemax, epsil, stmin);
629   AliMedium(14, "Fre-S$", 12, 1, ISXFLD, SXMGMX, 10., stemax, deemax, epsil, stmin);
630   AliMedium(15, "Glass$", 13, 0, ISXFLD, SXMGMX, 10., stemax, deemax, epsil, stmin);
631   AliMedium(16, "Water$", 14, 0, ISXFLD, SXMGMX, 10., stemax, deemax, epsil, stmin);
632 }
633
634 //_____________________________________________________________________________
635 Int_t AliTOF::DistancetoPrimitive(Int_t , Int_t )
636 {
637   //
638   // Returns distance from mouse pointer to detector, default version
639   //
640   return 9999;
641 }
642  
643 //_____________________________________________________________________________
644 void AliTOF::Init()
645 {
646   //
647   // Initialise TOF detector after it has been built
648   //
649   Int_t i;
650   //
651   printf("\n");
652   for(i=0;i<35;i++) printf("*");
653   printf(" TOF_INIT ");
654   for(i=0;i<35;i++) printf("*");
655   printf("\n");
656   cout << "TOF version " << IsVersion() <<" initialized" << endl;
657   //
658   // Set id of TOF sensitive volume
659   if (IsVersion() !=0) fIdSens=gMC->VolId("FPG0");
660   //
661   for(i=0;i<80;i++) printf("*");
662   printf("\n");
663 }
664
665  
666 ClassImp(AliTOFhit)
667  
668 //___________________________________________
669 AliTOFhit::AliTOFhit(Int_t shunt, Int_t track, Int_t *vol, Float_t *hits):
670   AliHit(shunt, track)
671 {
672   //
673   // Store a TOF hit
674   //
675   Int_t i;
676   for (i=0;i<3;i++) fVolume[i] = vol[i];
677   //
678   // Position
679   fX=hits[0];
680   fY=hits[1];
681   fZ=hits[2];
682   //
683   // Momentum
684   fPx=hits[3];
685   fPy=hits[4];
686   fPz=hits[5];
687   fPmom=hits[6];
688   //
689   // Time Of Flight
690   fTof=hits[7];
691 }
692  
693