ROOT_528-00b_version: tutorials/eve/geom

00001 // @(#)root/eve:$Id: geom_cms.C 31415 2009-11-24 23:31:46Z matevz $
00002 // Author: Matevz Tadel
00003 
00004 // Shows CMS geometry.
00005 
00006 void geom_cms()
00007 {
00008    TEveManager::Create();
00009 
00010    TFile::SetCacheFileDir(".");
00011    gGeoManager = gEve->GetGeometry("http://root.cern.ch/files/cms.root");
00012    gGeoManager->DefaultColors();
00013 
00014    TGeoVolume* top = gGeoManager->GetTopVolume()->FindNode("CMSE_1")->GetVolume();
00015 
00016    TEveGeoTopNode* trk = new TEveGeoTopNode(gGeoManager, top->FindNode("TRAK_1"));
00017    trk->SetVisLevel(6);
00018    gEve->AddGlobalElement(trk);
00019 
00020    TEveGeoTopNode* calo = new TEveGeoTopNode(gGeoManager, top->FindNode("CALO_1"));
00021    calo->SetVisLevel(3);
00022    gEve->AddGlobalElement(calo);
00023 
00024    TEveGeoTopNode* muon = new TEveGeoTopNode(gGeoManager, top->FindNode("MUON_1"));
00025    muon->SetVisLevel(4);
00026    gEve->AddGlobalElement(muon);
00027 
00028    gEve->FullRedraw3D(kTRUE);
00029 
00030    // EClipType not exported to CINT (see TGLUtil.h):
00031    // 0 - no clip, 1 - clip plane, 2 - clip box
00032    TGLViewer *v = gEve->GetDefaultGLViewer();
00033    v->GetClipSet()->SetClipType(1);
00034    v->ColorSet().Background().SetColor(kMagenta+4);
00035    v->SetGuideState(TGLUtil::kAxesEdge, kTRUE, kFALSE, 0);
00036    v->RefreshPadEditor(v);
00037 
00038    v->CurrentCamera().RotateRad(-1.2, 0.5);
00039    v->DoDraw();
00040 }