EVE/alice-macros/geom_gentle_trd.C

   1 // $Id$
   2 // Main authors: Matevz Tadel & Alja Mrak-Tadel: 2006, 2007
   3
   4 /**************************************************************************
   5  * Copyright(c) 1998-2008, ALICE Experiment at CERN, all rights reserved. *
   6  * See http://aliceinfo.cern.ch/Offline/AliRoot/License.html for          *
   7  * full copyright notice.                                                 *
   8  **************************************************************************/
   9
  10 TEveGeoShape* geom_gentle_trd()
  11 {
  12   TFile f("$ALICE_ROOT/EVE/alice-data/gentle_geo_trd.root");
  13   TEveGeoShapeExtract* gse = (TEveGeoShapeExtract*) f.Get("Gentle TRD");
  14   TEveGeoShape* gsre = TEveGeoShape::ImportShapeExtract(gse);
  15   gEve->AddGlobalElement(gsre);
  16   f.Close();
  17
  18   Int_t sm = 0;
  19
  20   // Fix visibility, color and transparency
  21   gsre->SetRnrSelf(kFALSE);
  22   for (TEveElement::List_i i = gsre->BeginChildren(); i != gsre->EndChildren(); ++i)
  23   {
  24     TEveGeoShape* lvl1 = (TEveGeoShape*) *i;
  25     lvl1->SetRnrSelf(kFALSE);
  26     for (TEveElement::List_i j = lvl1->BeginChildren(); j != lvl1->EndChildren(); ++j)
  27     {
  28       TEveGeoShape* lvl2 = (TEveGeoShape*) *j;
  29       if ( sm == 0 || sm == 1 || sm == 7 || sm == 8 || sm == 9 || sm == 10 || sm == 17 )
  30         lvl2->SetRnrSelf(kTRUE);
  31       else
  32         lvl2->SetRnrSelf(kFALSE);
  33
  34       lvl2->SetMainColor(3);
  35       lvl2->SetMainTransparency(80);
  36
  37       ++sm;
  38     }
  39
  40   }
  41
  42   return gsre;
  43 }