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(AliMp::StationType station = AliMp::kStation1,
   7                        AliMp::PlaneType plane = AliMp::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 == AliMp::kStation1 )
  17     if ( plane == AliMp::kBendingPlane )
  18       names ="ABCDEFGHI";
  19     else
  20       names = "ABCDEFGHIJKLMN";
  21   else if ( station == AliMp::kStation2 )
  22     if ( plane == AliMp::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 }