EVE/alice-macros/geom_gentle_notransparency.C

   1 #if !defined(__CINT__) || defined(__MAKECINT__)
   2 #include <TFile.h>
   3 #include <TGLViewer.h>
   4 #include <TEveManager.h>
   5 #include <TEveElement.h>
   6 #include <TEveGeoShape.h>
   7 #include <TEveGeoShapeExtract.h>
   8
   9 #include <AliEveEventManager.h>
  10 #include <AliEveMultiView.h>
  11 #endif
  12
  13 void geom_gentle_notransparency(Bool_t register_as_global=kTRUE)
  14 {
  15   TEveGeoShape* gsre1;
  16   TEveGeoShape* gsre2;
  17   TEveGeoShape* gsre3;
  18
  19 {
  20     TFile f("$ALICE_ROOT/EVE/alice-data/gentle_geo.root");
  21     TEveGeoShapeExtract* gse = (TEveGeoShapeExtract*) f.Get("Gentle");
  22     gsre1 = TEveGeoShape::ImportShapeExtract(gse);
  23     f.Close();
  24
  25     if (register_as_global)
  26     {
  27       gEve->AddGlobalElement(gsre1);
  28     }
  29
  30     // Fix visibility, color and transparency
  31
  32     gsre1->SetRnrSelf(kFALSE);
  33     TEveElement::List_i i = gsre1->BeginChildren();
  34
  35   //ITS
  36     {
  37       TEveGeoShape* lvl1 = (TEveGeoShape*) *i;
  38       lvl1->SetRnrSelf(kFALSE);
  39       TEveElement::List_i j = lvl1->BeginChildren();
  40
  41       TEveGeoShape* lvl2 = (TEveGeoShape*) *j;
  42       lvl2->SetRnrSelf(kFALSE);
  43       TEveElement::List_i k = lvl2->BeginChildren();
  44
  45       TEveGeoShape* its1 = (TEveGeoShape*) *k;
  46       its1->SetRnrSelf(kTRUE);
  47       its1->SetMainTransparency(5);
  48       k++;
  49
  50       TEveGeoShape* its2 = (TEveGeoShape*) *k;
  51       its2->SetRnrSelf(kTRUE);
  52       its2->SetMainTransparency(5);
  53       k++;
  54
  55       TEveGeoShape* its3 = (TEveGeoShape*) *k;
  56       its3->SetRnrSelf(kTRUE);
  57       its3->SetMainTransparency(5);
  58     }
  59   //TPC
  60
  61     i++;
  62     {
  63       TEveGeoShape* lvl1 = (TEveGeoShape*) *i;
  64       lvl1->SetRnrSelf(kFALSE);
  65       TEveElement::List_i j = lvl1->BeginChildren();
  66
  67       TEveGeoShape* lvl2 = (TEveGeoShape*) *j;
  68       lvl2->SetRnrSelf(kFALSE);
  69       TEveElement::List_i k = lvl2->BeginChildren();
  70
  71       TEveGeoShape* lvl3 = (TEveGeoShape*) *k;
  72       lvl3->SetRnrSelf(kTRUE);
  73       lvl3->SetMainTransparency(5);
  74       TEveElement::List_i l = lvl3->BeginChildren();
  75
  76       TEveGeoShape* lvl4 = (TEveGeoShape*) *l;
  77       lvl4->SetRnrSelf(kFALSE);
  78       TEveElement::List_i m = lvl4->BeginChildren();
  79
  80       TEveGeoShape* tpc1 = (TEveGeoShape*) *m;
  81       tpc1->SetRnrSelf(kTRUE);
  82       tpc1->SetMainTransparency(5);
  83       m++;
  84
  85       TEveGeoShape* tpc2 = (TEveGeoShape*) *m;
  86       tpc2->SetMainColor(kGray);
  87       tpc2->SetMainTransparency(5);
  88       m++;
  89
  90       TEveGeoShape* tpc3 = (TEveGeoShape*) *m;
  91       tpc3->SetRnrSelf(kTRUE);
  92       tpc3->SetMainTransparency(5);
  93       m++;
  94     }
  95
  96   //TRD+TOF
  97
  98     i++;
  99     {
 100     TEveGeoShape* lvl1 = (TEveGeoShape*) *i;
 101     lvl1->SetRnrSelf(kFALSE);
 102     TEveElement::List_i j = lvl1->BeginChildren();
 103
 104     TEveGeoShape* lvl2 = (TEveGeoShape*) *j;
 105     lvl2->SetRnrSelf(kTRUE);
 106     lvl2->SetMainTransparency(5);
 107     j++;
 108
 109     TEveGeoShape* lvl3 = (TEveGeoShape*) *j;
 110     lvl3->SetRnrSelf(kTRUE);
 111     lvl3->SetMainTransparency(5);
 112     j++;
 113     }
 114
 115   //PHOS
 116
 117     i++;
 118     {
 119     TEveGeoShape* lvl1 = (TEveGeoShape*) *i;
 120     lvl1->SetRnrSelf(kFALSE);
 121
 122     for (TEveElement::List_i j = lvl1->BeginChildren(); j != lvl1->EndChildren(); j++)
 123       {
 124         TEveGeoShape* lvl2 = (TEveGeoShape*) *j;
 125         lvl2->SetRnrSelf(kTRUE);
 126         lvl2->SetMainTransparency(5);
 127       }
 128     }
 129
 130   //HMPID
 131
 132     i++;
 133     {
 134     TEveGeoShape* lvl1 = (TEveGeoShape*) *i;
 135     lvl1->SetRnrSelf(kFALSE);
 136
 137     for (TEveElement::List_i j = lvl1->BeginChildren(); j != lvl1->EndChildren(); j++)
 138       {
 139         TEveGeoShape* lvl2 = (TEveGeoShape*) *j;
 140         lvl2->SetRnrSelf(kTRUE);
 141         lvl2->SetMainTransparency(5);
 142       }
 143     }
 144 }
 145
 146 {
 147   TFile f("$ALICE_ROOT/EVE/alice-data/gentle_rphi_geo.root");
 148   TEveGeoShapeExtract* gse = (TEveGeoShapeExtract*) f.Get("Gentle");
 149   gsre2 = TEveGeoShape::ImportShapeExtract(gse);
 150   f.Close();
 151 }
 152
 153 {
 154   TFile f("$ALICE_ROOT/EVE/alice-data/gentle_rhoz_geo.root");
 155   TEveGeoShapeExtract* gse = (TEveGeoShapeExtract*) f.Get("Gentle");
 156   gsre3 = TEveGeoShape::ImportShapeExtract(gse);
 157   f.Close();
 158 }
 159
 160   TEveElement* top = gEve->GetCurrentEvent();
 161
 162   AliEveMultiView *mv = AliEveMultiView::Instance();
 163
 164   mv->InitGeomGentle(gsre1, gsre2, gsre3, 0);
 165
 166   gEve->FullRedraw3D(kTRUE, kTRUE);
 167
 168 }
 169