MUON/MUONGenerateTestGMS.C

   1 /**************************************************************************
   2  * Copyright(c) 1998-1999, ALICE Experiment at CERN, All rights reserved. *
   3  *                                                                        *
   4  * Author: The ALICE Off-line Project.                                    *
   5  * Contributors are mentioned in the code where appropriate.              *
   6  *                                                                        *
   7  * Permission to use, copy, modify and distribute this software and its   *
   8  * documentation strictly for non-commercial purposes is hereby granted   *
   9  * without fee, provided that the above copyright notice appears in all   *
  10  * copies and that both the copyright notice and this permission notice   *
  11  * appear in the supporting documentation. The authors make no claims     *
  12  * about the suitability of this software for any purpose. It is          *
  13  * provided "as is" without express or implied warranty.                  *
  14  **************************************************************************/
  15
  16 /* $Id: */
  17
  18 // Macro to generate ad hoc GMS alignment matrices in the agreed format:
  19 // TClonesArray saved in the Root file with a key "GMSarray"
  20 // containing TGeoHMatrix with TObject::fUniqueID equal to the geometry
  21 // module Id
  22 //
  23 // By I. Hrivnacova, IPN Orsay
  24
  25 #if !defined(__CINT__) || defined(__MAKECINT__)
  26
  27 #include "AliMpConstants.h"
  28
  29 #include <TFile.h>
  30 #include <TGeoMatrix.h>
  31 #include <TClonesArray.h>
  32
  33 #endif
  34
  35 void MUONGenerateTestGMS(Bool_t print = kFALSE)
  36 {
  37   TFile f("data/GMS.root", "RECREATE");
  38   TClonesArray* array = new TClonesArray("TGeoHMatrix",100);
  39
  40   for (Int_t i=0; i<AliMpConstants::NofGeomModules(); i++) {
  41     TGeoHMatrix* m = new((*array)[i]) TGeoHMatrix();
  42     m->SetUniqueID(i);
  43     /// rotate by small angle
  44     m->RotateX(i*0.01);
  45
  46     if (print) m->Print();
  47   }
  48
  49   f.WriteObject(array,"GMSarray");
  50   f.Close();
  51 }