void treeviewer() {
//=========Macro generated by ROOT version5.32/00
//=========for tree "betaDetectors1" (Sun Feb 12 23:23:50 2012)
//===This macro can be opened from a TreeViewer session after loading
//===the corresponding tree, or by running root with the macro name argument

   open_session();
}

open_session(void *p = 0) {
   gSystem->Load("libTreeViewer");
   TTreeViewer *treeview = (TTreeViewer *) p;
   if (!treeview) treeview = new TTreeViewer();
   TTree *tv_tree = (TTree*)gROOT->FindObject("betaDetectors1");
   TFile *tv_file = (TFile*)gROOT->GetListOfFiles()->FindObject("data/rootfiles/InSANE72221.0.root");
   if (!tv_tree) {
      if (!tv_file) tv_file = new TFile("data/rootfiles/InSANE72221.0.root");
      if (tv_file)  tv_tree = (TTree*)tv_file->Get("betaDetectors1");
      if(!tv_tree) {
         printf("Tree %s not found", fTree->GetName());
         return;
      }
   }

   treeview->SetTreeName("betaDetectors1");
   treeview->SetNexpressions(10);
//         Set expressions on axis and cut
   TTVLVEntry *item;
//   X expression
   item = treeview->ExpressionItem(0);
   item->SetExpression("bigcalClusters.fTotalE", "~bigcalClusters.fTotalE");
//   Y expression
   item = treeview->ExpressionItem(1);
   item->SetExpression("bigcalClusters.fYMoment", "~bigcalClusters.fYMoment");
//   Z expression
   item = treeview->ExpressionItem(2);
   item->SetExpression("", "-empty-");
//   Cut expression
   item = treeview->ExpressionItem(3);
   item->SetExpression("bigcalClusters.fTotalE<6000&&bigcalClusters.fCherenkovTDC>-2000&&bigcalClusters.fIsGood", "~bigcalClusters.fTotalE");
//         Scan list
   item = treeview->ExpressionItem(4);
   item->SetExpression("", "Scan box");
//         User defined expressions
   item = treeview->ExpressionItem(5);
   item->SetExpression("bigcalClusters.fTotalE<6000&&bigcalClusters.fCherenkovTDC>-2000&&bigcalClusters.fIsGood", "~bigcalClusters.fTotalE", kTRUE);
   item = treeview->ExpressionItem(6);
   item->SetExpression("", "-empty-", kFALSE);
   item = treeview->ExpressionItem(7);
   item->SetExpression("", "-empty-", kFALSE);
   item = treeview->ExpressionItem(8);
   item->SetExpression("", "-empty-", kFALSE);
   item = treeview->ExpressionItem(9);
   item->SetExpression("", "-empty-", kFALSE);
   item = treeview->ExpressionItem(10);
   item->SetExpression("", "-empty-", kFALSE);
   item = treeview->ExpressionItem(11);
   item->SetExpression("", "-empty-", kFALSE);
   item = treeview->ExpressionItem(12);
   item->SetExpression("", "-empty-", kFALSE);
   item = treeview->ExpressionItem(13);
   item->SetExpression("", "-empty-", kFALSE);
   item = treeview->ExpressionItem(14);
   item->SetExpression("", "-empty-", kFALSE);
//--- session object
   tv_session = new TTVSession(treeview);
   treeview->SetSession(tv_session);
//--- Connect first record
   tv_session->First();
}