Added Bool_t rootInput argument; if set to true, the sector
[u/mrichter/AliRoot.git] / MUON / mapping / macros / testReadMotifType.C
1 // $Id$
2 // $MpId: testReadMotifType.C,v 1.12 2005/09/26 16:05:25 ivana Exp $
3 //
4 // Test macro for reading motif type data.
5
6 void testReadMotifType(AliMpStationType station = kStation1,
7                        AliMpPlaneType plane = kBendingPlane,
8                        Bool_t rootInput = false)
9 {
10   AliMpMotifReader r(station, plane);
11   //r.SetVerboseLevel(2);
12
13   TString names;
14   TString names2;
15   Int_t nv =0;
16   if ( station == kStation1 )
17     if ( plane == kBendingPlane ) 
18       names ="ABCDEFGHI";
19     else
20       names = "ABCDEFGHIJKLMN";
21   else if ( station == kStation2 ) 
22     if ( plane == kBendingPlane ) {
23       names ="ABCDEFGHIJKLMNOPQRSTUVWXY";
24       names2 ="abcdefghimnptuv";
25       nv = 5;
26     }  
27     else {
28       names = "ABCEFGHIJKLMN";
29       names2 ="abcdefgijklmnopqrstuwv";
30       nv = 5;
31     }  
32     
33   for (Int_t i=0;i<names.Length();++i){
34      r.BuildMotifType(names[i])->Print("G");
35   }
36   
37   // motifs a1, b1, ..., u1, v1
38   for (Int_t i2=0;i2<names2.Length();++i2){
39     TString mtName = names2[i2];
40     mtName += "1";
41     r.BuildMotifType(mtName)->Print("G");
42   }
43   
44   // motifs v2, ..., v5, v6
45   TString names4="v";
46   for (Int_t i3=2;i3<nv+1;++i3) { 
47       TString mtName = "v";
48       mtName += i3;
49       r.BuildMotifType(mtName)->Print("G");
50   }
51 }