MUON/mapping/macros/testReadMotifType.C

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