EVE/alice-macros/geom_gentle_tpc.C

   1 void geom_gentle_tpc(Bool_t register_as_global=kTRUE)
   2 {
   3   TFile f("$ALICE_ROOT/EVE/alice-data/gentle_geo.root");
   4   TEveGeoShapeExtract* gse = (TEveGeoShapeExtract*) f.Get("Gentle");
   5   TEveGeoShape* gsre1 = TEveGeoShape::ImportShapeExtract(gse);
   6   f.Close();
   7
   8   if (register_as_global)
   9   {
  10     gEve->AddGlobalElement(gsre1);
  11
  12   }
  13
  14   // Fix visibility, color and transparency
  15
  16   gsre1->SetRnrSelf(kFALSE);
  17   TEveElement::List_i i = gsre1->BeginChildren();
  18
  19 //ITS
  20
  21   TEveGeoShape* lvl1 = (TEveGeoShape*) *i;
  22   lvl1->SetRnrSelf(kFALSE);
  23   TEveElement::List_i j = lvl1->BeginChildren();
  24
  25   TEveGeoShape* lvl2 = (TEveGeoShape*) *j;
  26   lvl2->SetRnrSelf(kFALSE);
  27   TEveElement::List_i k = lvl2->BeginChildren();
  28
  29   TEveGeoShape* its1 = (TEveGeoShape*) *k;
  30   its1->SetRnrSelf(kTRUE);
  31   its1->SetMainColor(kRed);
  32   k++;
  33
  34   TEveGeoShape* its2 = (TEveGeoShape*) *k;
  35   its2->SetRnrSelf(kTRUE);
  36   its2->SetMainColor(kRed+2);
  37   k++;
  38
  39   TEveGeoShape* its3 = (TEveGeoShape*) *k;
  40   its3->SetRnrSelf(kTRUE);
  41   its3->SetMainColor(kRed+4);
  42
  43 //TPC
  44
  45   i++;
  46
  47   TEveGeoShape* lvl1 = (TEveGeoShape*) *i;
  48   lvl1->SetRnrSelf(kFALSE);
  49   TEveElement::List_i j = lvl1->BeginChildren();
  50
  51   TEveGeoShape* lvl2 = (TEveGeoShape*) *j;
  52   lvl2->SetRnrSelf(kFALSE);
  53   TEveElement::List_i k = lvl2->BeginChildren();
  54
  55   TEveGeoShape* lvl3 = (TEveGeoShape*) *k;
  56   lvl3->SetRnrSelf(kTRUE);
  57   lvl3->SetMainColor(kBlue);
  58   TEveElement::List_i l = lvl3->BeginChildren();
  59
  60   TEveGeoShape* lvl4 = (TEveGeoShape*) *l;
  61   lvl4->SetRnrSelf(kFALSE);
  62   TEveElement::List_i m = lvl4->BeginChildren();
  63
  64   TEveGeoShape* tpc1 = (TEveGeoShape*) *m;
  65   tpc1->SetRnrSelf(kTRUE);
  66   tpc1->SetMainColor(kGray);
  67   m++;
  68
  69   TEveGeoShape* tpc2 = (TEveGeoShape*) *m;
  70   tpc2->SetRnrSelf(kTRUE);
  71   tpc2->SetMainColor(kGray);
  72   m++;
  73
  74   TEveGeoShape* tpc3 = (TEveGeoShape*) *m;
  75   tpc3->SetRnrSelf(kTRUE);
  76   tpc3->SetMainColor(kGray);
  77   m++;
  78
  79 //TRD+TOF
  80
  81   i++;
  82
  83   TEveGeoShape* lvl1 = (TEveGeoShape*) *i;
  84   lvl1->SetRnrSelf(kFALSE);
  85
  86   for (TEveElement::List_i j = lvl1->BeginChildren(); j != lvl1->EndChildren(); j++)
  87     {
  88       TEveGeoShape* lvl2 = (TEveGeoShape*) *j;
  89       lvl2->SetRnrSelf(kFALSE);
  90
  91     }
  92
  93 //PHOS
  94
  95   i++;
  96
  97   TEveGeoShape* lvl1 = (TEveGeoShape*) *i;
  98   lvl1->SetRnrSelf(kFALSE);
  99
 100   for (TEveElement::List_i j = lvl1->BeginChildren(); j != lvl1->EndChildren(); j++)
 101     {
 102       TEveGeoShape* lvl2 = (TEveGeoShape*) *j;
 103       lvl2->SetRnrSelf(kFALSE);
 104     }
 105
 106 //HMPID
 107
 108   i++;
 109
 110   TEveGeoShape* lvl1 = (TEveGeoShape*) *i;
 111   lvl1->SetRnrSelf(kFALSE);
 112
 113   for (TEveElement::List_i j = lvl1->BeginChildren(); j != lvl1->EndChildren(); j++)
 114     {
 115       TEveGeoShape* lvl2 = (TEveGeoShape*) *j;
 116       lvl2->SetRnrSelf(kFALSE);
 117     }
 118
 119
 120   TFile f("$ALICE_ROOT/EVE/alice-data/gentle_rphi_geo.root");
 121   TEveGeoShapeExtract* gse = (TEveGeoShapeExtract*) f.Get("Gentle");
 122   TEveGeoShape* gsre2 = TEveGeoShape::ImportShapeExtract(gse);
 123   f.Close();
 124
 125   // Fix visibility, color and transparency
 126
 127   gsre2->SetRnrSelf(kFALSE);
 128   TEveElement::List_i i = gsre2->BeginChildren();
 129
 130 //ITS
 131
 132   TEveGeoShape* lvl1 = (TEveGeoShape*) *i;
 133   lvl1->SetRnrSelf(kFALSE);
 134   TEveElement::List_i j = lvl1->BeginChildren();
 135
 136   TEveGeoShape* lvl2 = (TEveGeoShape*) *j;
 137   lvl2->SetRnrSelf(kFALSE);
 138   TEveElement::List_i k = lvl2->BeginChildren();
 139
 140   TEveGeoShape* its1 = (TEveGeoShape*) *k;
 141   its1->SetRnrSelf(kTRUE);
 142   its1->SetMainColor(kRed);
 143   k++;
 144
 145   TEveGeoShape* its2 = (TEveGeoShape*) *k;
 146   its2->SetRnrSelf(kTRUE);
 147   its2->SetMainColor(kRed+2);
 148   k++;
 149
 150   TEveGeoShape* its3 = (TEveGeoShape*) *k;
 151   its3->SetRnrSelf(kTRUE);
 152   its3->SetMainColor(kRed+4);
 153
 154 //TPC
 155
 156   i++;
 157   i++;
 158
 159   TEveGeoShape* lvl1 = (TEveGeoShape*) *i;
 160   lvl1->SetRnrSelf(kFALSE);
 161
 162   for (TEveElement::List_i j = lvl1->BeginChildren(); j != lvl1->EndChildren(); j++)
 163     {
 164       TEveGeoShape* lvl2 = (TEveGeoShape*) *j;
 165       lvl2->SetRnrSelf(kFALSE);
 166
 167     }
 168
 169 //PHOS
 170
 171   i++;
 172
 173   TEveGeoShape* lvl1 = (TEveGeoShape*) *i;
 174   lvl1->SetRnrSelf(kFALSE);
 175
 176   for (TEveElement::List_i j = lvl1->BeginChildren(); j != lvl1->EndChildren(); j++)
 177     {
 178       TEveGeoShape* lvl2 = (TEveGeoShape*) *j;
 179       lvl2->SetRnrSelf(kFALSE);
 180     }
 181
 182 //HMPID
 183
 184   i++;
 185
 186   TEveGeoShape* lvl1 = (TEveGeoShape*) *i;
 187   lvl1->SetRnrSelf(kFALSE);
 188
 189   for (TEveElement::List_i j = lvl1->BeginChildren(); j != lvl1->EndChildren(); j++)
 190     {
 191       TEveGeoShape* lvl2 = (TEveGeoShape*) *j;
 192       lvl2->SetRnrSelf(kFALSE);
 193     }
 194
 195   TFile f("$ALICE_ROOT/EVE/alice-data/gentle_rhoz_geo.root");
 196   TEveGeoShapeExtract* gse = (TEveGeoShapeExtract*) f.Get("Gentle");
 197   TEveGeoShape* gsre3 = TEveGeoShape::ImportShapeExtract(gse);
 198   f.Close();
 199
 200   // Fix visibility, color and transparency
 201
 202   gsre3->SetRnrSelf(kFALSE);
 203   TEveElement::List_i i = gsre3->BeginChildren();
 204
 205 //ITS
 206
 207   TEveGeoShape* lvl1 = (TEveGeoShape*) *i;
 208   lvl1->SetRnrSelf(kFALSE);
 209   TEveElement::List_i j = lvl1->BeginChildren();
 210
 211   TEveGeoShape* lvl2 = (TEveGeoShape*) *j;
 212   lvl2->SetRnrSelf(kFALSE);
 213   TEveElement::List_i k = lvl2->BeginChildren();
 214
 215   TEveGeoShape* its1 = (TEveGeoShape*) *k;
 216   its1->SetRnrSelf(kTRUE);
 217   its1->SetMainColor(kRed);
 218   k++;
 219
 220   TEveGeoShape* its2 = (TEveGeoShape*) *k;
 221   its2->SetRnrSelf(kTRUE);
 222   its2->SetMainColor(kRed+2);
 223   k++;
 224
 225   TEveGeoShape* its3 = (TEveGeoShape*) *k;
 226   its3->SetRnrSelf(kTRUE);
 227   its3->SetMainColor(kRed+4);
 228
 229 //TPC
 230
 231   i++;
 232   i++;
 233
 234   TEveGeoShape* lvl1 = (TEveGeoShape*) *i;
 235   lvl1->SetRnrSelf(kFALSE);
 236
 237   for (TEveElement::List_i j = lvl1->BeginChildren(); j != lvl1->EndChildren(); j++)
 238     {
 239       TEveGeoShape* lvl2 = (TEveGeoShape*) *j;
 240       lvl2->SetRnrSelf(kFALSE);
 241
 242     }
 243
 244 //PHOS
 245
 246   i++;
 247
 248   TEveGeoShape* lvl1 = (TEveGeoShape*) *i;
 249   lvl1->SetRnrSelf(kFALSE);
 250
 251   for (TEveElement::List_i j = lvl1->BeginChildren(); j != lvl1->EndChildren(); j++)
 252     {
 253       TEveGeoShape* lvl2 = (TEveGeoShape*) *j;
 254       lvl2->SetRnrSelf(kFALSE);
 255     }
 256
 257 //HMPID
 258
 259   i++;
 260
 261   TEveGeoShape* lvl1 = (TEveGeoShape*) *i;
 262   lvl1->SetRnrSelf(kFALSE);
 263
 264   for (TEveElement::List_i j = lvl1->BeginChildren(); j != lvl1->EndChildren(); j++)
 265     {
 266       TEveGeoShape* lvl2 = (TEveGeoShape*) *j;
 267       lvl2->SetRnrSelf(kFALSE);
 268     }
 269
 270
 271   TEveElement* top = gEve->GetCurrentEvent();
 272
 273   AliEveMultiView *mv = AliEveMultiView::Instance();
 274
 275   mv->InitGeomGentle(gsre1, gsre2, gsre3);
 276
 277   gEve->FullRedraw3D(kTRUE, kTRUE);
 278
 279 }