[u/mrichter/AliRoot.git] / EVE / macros / alieve_online_new.C

/**************************************************************************
 * Copyright(c) 1998-2008, ALICE Experiment at CERN, all rights reserved. *
 * See http://aliceinfo.cern.ch/Offline/AliRoot/License.html for          *
 * full copyright notice.                                                 *
 **************************************************************************/

class TEveProjectionManager;
class TEveGeoShape;
class TEveUtil;
class AliTriggerAnalysis;
class AliSysInfo;

TH2D* V0StateHistogram;

Bool_t gCenterProjectionsAtPrimaryVertex = kFALSE;

void alieve_online_new()
{
    printf("alieve_online_init() ...\n");
 
 if (gSystem->Getenv("ALICE_ROOT") != 0)
 {
	 gInterpreter->AddIncludePath(Form("%s/MUON", gSystem->Getenv("ALICE_ROOT")));
	 gInterpreter->AddIncludePath(Form("%s/MUON/mapping", gSystem->Getenv("ALICE_ROOT")));
 }
  
   AliEveEventManager::SetCdbUri("local://$ALICE_ROOT/OCDB");
  
  Info("alieve_init", "Adding standard macros.");
  TString  hack = gSystem->pwd(); // Problem with TGFileBrowser cding
  alieve_init_import_macros();
  gSystem->cd(hack);
  
  new AliEveEventManager("online", -1);
  //AliEveEventManager::GetMaster()->AddNewEventCommand("alieve_online_on_new_event()");
  gEve->AddEvent(AliEveEventManager::GetMaster());
  
  
  TEveUtil::AssertMacro("VizDB_scan.C");
  
  gSystem->ProcessEvents();
   
  
  AliEveMacroExecutor *exec  = AliEveEventManager::GetMaster()->GetExecutor();
  TEveBrowser         *browser = gEve->GetBrowser();
  browser->ShowCloseTab(kFALSE);
  

  // Gentle-geom loading changes gGeoManager.
  //TEveGeoManagerHolder mgrRestore;

  AliEveMultiView *multiView = new AliEveMultiView(kTRUE);

  TEveUtil::LoadMacro("geom_gentle.C");
  multiView->InitGeomGentle(geom_gentle(),
                             geom_gentle_rphi(), 
                             geom_gentle_rhoz(),
                             geom_gentle_rhoz());

    //These macros crashes on mac os. To be checked
    
  //TEveUtil::LoadMacro("geom_gentle_trd.C");
  //multiView->InitGeomGentleTrd(geom_gentle_trd());

  //TEveUtil::LoadMacro("geom_gentle_muon.C");
  //multiView->InitGeomGentleMuon(geom_gentle_muon(), kFALSE, kFALSE, kTRUE);

  //============================================================================
  // Standard macros to execute -- not all are enabled by default.
  //============================================================================

  
   printf("============ Setting macro executor\n");

  AliEveMacroExecutor *exec = AliEveEventManager::GetMaster()->GetExecutor();

  exec->AddMacro(new AliEveMacro(AliEveMacro::kESD, "REC PVTX",         "primary_vertex.C", "primary_vertex",             "",                kTRUE));
  exec->AddMacro(new AliEveMacro(AliEveMacro::kESD, "REC PVTX Ellipse", "primary_vertex.C", "primary_vertex_ellipse",     "",                kTRUE));
  exec->AddMacro(new AliEveMacro(AliEveMacro::kESD, "REC PVTX Box",     "primary_vertex.C", "primary_vertex_box",         "kFALSE, 3, 3, 3", kFALSE));
  exec->AddMacro(new AliEveMacro(AliEveMacro::kESD, "REC PVTX",         "primary_vertex.C", "primary_vertex_spd",         "",                kTRUE));
  exec->AddMacro(new AliEveMacro(AliEveMacro::kESD, "REC PVTX Ellipse", "primary_vertex.C", "primary_vertex_ellipse_spd", "",                kTRUE));
  exec->AddMacro(new AliEveMacro(AliEveMacro::kESD, "REC PVTX Box",     "primary_vertex.C", "primary_vertex_box_spd",     "kFALSE, 3, 3, 3", kFALSE));
  exec->AddMacro(new AliEveMacro(AliEveMacro::kESD, "REC PVTX",         "primary_vertex.C", "primary_vertex_tpc",         "",                kFALSE));
  exec->AddMacro(new AliEveMacro(AliEveMacro::kESD, "REC PVTX Ellipse", "primary_vertex.C", "primary_vertex_ellipse_tpc", "",                kFALSE));
  exec->AddMacro(new AliEveMacro(AliEveMacro::kESD, "REC PVTX Box",     "primary_vertex.C", "primary_vertex_box_tpc",     "kFALSE, 3, 3, 3", kFALSE));

  exec->AddMacro(new AliEveMacro(AliEveMacro::kRunLoader, "REC Clus ITS",   "its_clusters.C",   "its_clusters"));
  exec->AddMacro(new AliEveMacro(AliEveMacro::kRunLoader, "REC Clus TPC",   "tpc_clusters.C",   "tpc_clusters"));
  exec->AddMacro(new AliEveMacro(AliEveMacro::kRunLoader, "REC Clus TRD",   "trd_clusters.C",   "trd_clusters"));
  exec->AddMacro(new AliEveMacro(AliEveMacro::kRunLoader, "REC Clus TOF",   "tof_clusters.C",   "tof_clusters"));
  exec->AddMacro(new AliEveMacro(AliEveMacro::kRunLoader, "REC Clus HMPID", "hmpid_clusters.C", "hmpid_clusters"));
  exec->AddMacro(new AliEveMacro(AliEveMacro::kRunLoader, "REC Clus MUON",  "muon_clusters.C",  "muon_clusters"));

  
  exec->AddMacro(new AliEveMacro(AliEveMacro::kRunLoader, "DIG EMCAL",   "emcal_digits.C",   "emcal_digits"));
  exec->AddMacro(new AliEveMacro(AliEveMacro::kRawReader, "RAW ITS",     "its_raw.C",     "its_raw"));
  //  exec->AddMacro(new AliEveMacro(AliEveMacro::kRawReader, "RAW TPC",     "tpc_raw.C",     "tpc_raw"));
  exec->AddMacro(new AliEveMacro(AliEveMacro::kRawReader, "RAW TOF",     "tof_raw.C",     "tof_raw"));
  exec->AddMacro(new AliEveMacro(AliEveMacro::kRawReader, "RAW VZERO",   "vzero_raw.C",   "vzero_raw", "", kFALSE));
  exec->AddMacro(new AliEveMacro(AliEveMacro::kRawReader, "RAW ACORDE",  "acorde_raw.C",  "acorde_raw", "", kFALSE));
  exec->AddMacro(new AliEveMacro(AliEveMacro::kRawReader, "RAW MUON",    "muon_raw.C",  "muon_raw"));
  exec->AddMacro(new AliEveMacro(AliEveMacro::kRawReader, "RAW FMD",     "fmd_raw.C",     "fmd_raw"));
 

  exec->AddMacro(new AliEveMacro(AliEveMacro::kESD, "REC Track",      "esd_tracks.C",        "esd_tracks",             "", kFALSE));
  exec->AddMacro(new AliEveMacro(AliEveMacro::kESD, "REC Track",      "esd_tracks.C",        "esd_tracks_MI",          "", kFALSE));
  exec->AddMacro(new AliEveMacro(AliEveMacro::kESD, "REC Track MUON", "esd_muon_tracks.C", "esd_muon_tracks",        "kTRUE,kFALSE", kTRUE));

    
    // these macros were leaking:
  exec->AddMacro(new AliEveMacro(AliEveMacro::kESD, "REC Track",      "esd_tracks.C",        "esd_tracks_by_category", "", kTRUE));// just a little
  exec->AddMacro(new AliEveMacro(AliEveMacro::kESD, "REC FMD",        "fmd_esd.C",           "fmd_esd",                "", kTRUE));//huge leak
    //
    
    
  // ???
  // exec->AddMacro(new AliEveMacro(AliEveMacro::kESD, "REC TRD", "trd_detectors.C", "trd_detectors",         "", kFALSE));
  // trd_tracks disabled due to memory leaks

  //----------------------------------------------------------------------------

  slot = TEveWindow::CreateWindowInTab(browser->GetTabRight());
  slot->StartEmbedding();
  AliEveMacroExecutorWindow* exewin = new AliEveMacroExecutorWindow(exec);
  slot->StopEmbedding("DataSelection");
  exewin->PopulateMacros();

  //============================================================================
  // Final GUI setup
  //============================================================================

  browser->GetTabRight()->SetTab(1);

  browser->StartEmbedding(TRootBrowser::kBottom);
  new AliEveEventManagerWindow(AliEveEventManager::GetMaster());
  browser->StopEmbedding("EventCtrl");

  browser->MoveResize(0, 0, gClient->GetDisplayWidth(),
		      gClient->GetDisplayHeight() - 32);

  gEve->GetViewers()->SwitchColorSet();
  gEve->FullRedraw3D(kTRUE);
	gSystem->ProcessEvents();

  TGLViewer *glv1 = multiView->Get3DView()->GetGLViewer();
  TGLViewer *glv2 = multiView->GetRPhiView()->GetGLViewer();
  TGLViewer *glv3 = multiView->GetRhoZView()->GetGLViewer();

  glv1->CurrentCamera().RotateRad(-0.4, -1.8);
  glv2->CurrentCamera().Dolly(450, kFALSE, kFALSE);
  glv3->CurrentCamera().Dolly(1500, kFALSE, kFALSE);

//////
  AliEveEventManager::GetMaster()->AddNewEventCommand("alieve_online_on_new_event();");
   ///////
  gEve->FullRedraw3D();
  gSystem->ProcessEvents();
  gEve->Redraw3D(kTRUE);

  AliEveEventManager::GetMaster()->SetAutoLoad(true);
}


Int_t      g_pic_id  = 0;
Int_t      g_pic_max = 100;
TTimeStamp g_pic_prev(0, 0);

void alieve_online_on_new_event()
{
	AliSysInfo::AddStamp("on_new_event_start");

	Double_t x[3] = { 0, 0, 0 };

	if (AliEveEventManager::HasESD())
	{
		AliESDEvent* esd = AliEveEventManager::AssertESD();
		esd->GetPrimaryVertex()->GetXYZ(x);

		TTimeStamp ts(esd->GetTimeStamp());
		TString win_title("Eve Main Window -- Timestamp: ");
		win_title += ts.AsString("s");
		win_title += "; Event # in ESD file: ";
		win_title += esd->GetEventNumberInFile();
		gEve->GetBrowser()->SetWindowName(win_title);
	}

	TEveElement* top = gEve->GetCurrentEvent();

	AliEveMultiView *mv = AliEveMultiView::Instance();

	//mv->DestroyEventRPhi();
	if (gCenterProjectionsAtPrimaryVertex)
		mv->SetCenterRPhi(x[0], x[1], x[2]);
	mv->ImportEventRPhi(top);

	//mv->DestroyEventRhoZ();
	if (gCenterProjectionsAtPrimaryVertex)
		mv->SetCenterRhoZ(x[0], x[1], x[2]);
	mv->ImportEventRhoZ(top);

	if (gCenterProjectionsAtPrimaryVertex)
		mv->SetCenterMuon(x[0], x[1], x[2]);
	mv->ImportEventMuon(top);
 // Register image to amore.
  // const TString pichost("aldaqacrs3");
  const TString pichost(gEnv->GetValue("AliEve.imageDumpHost", "localhost"));
  TTimeStamp now;
  Double_t delta = now.AsDouble() - g_pic_prev.AsDouble();

  printf("Pre image dump: host='%s', delta=%f.\n",
	 gSystem->HostName(), delta);

  AliSysInfo::AddStamp("on_new_event_pic");
  if (pichost == gSystem->HostName() && delta >= 30)
  {
    TString id;      id.Form("online-viz-%03d", g_pic_id);
    TString pic(id); pic += ".png";

    printf("In image dump: file='%s'.\n", pic.Data());

    gEve->GetBrowser()->RaiseWindow();
    gEve->FullRedraw3D();
    gSystem->ProcessEvents();

    Int_t status;

    // create screenshots from OpenGL views
    TEveUtil::LoadMacro("saveViews.C");
    saveViews(pic.Data()); 

    // send screenshot to AMORE
    status = gSystem->Exec(TString::Format("SendImageToAmore %s %s %d",
		          id.Data(), pic.Data(),
		          AliEveEventManager::AssertESD()->GetRunNumber()));

    printf("Post AMORE reg -- status=%d, run=%d.\n", status,
	   AliEveEventManager::AssertESD()->GetRunNumber());

    if (++g_pic_id >= g_pic_max)
      g_pic_id = 0;
    g_pic_prev.Set();
  }
  AliSysInfo::AddStamp("on_new_event_end");
}

void alieve_init_import_macros()
{
  // Put macros in the list of browsables, add a macro browser to
  // top-level GUI.

  TString macdir("$(ALICE_ROOT)/EVE/alice-macros");
  gSystem->ExpandPathName(macdir);

  TFolder* f = gEve->GetMacroFolder();
  void* dirhandle = gSystem->OpenDirectory(macdir.Data());
  if (dirhandle != 0)
  {
    char* filename;
    TPMERegexp re("\\.C$");
    TObjArray names;
    while ((filename = gSystem->GetDirEntry(dirhandle)) != 0)
    {
      if (re.Match(filename))
	names.AddLast(new TObjString(filename));
    }
    names.Sort();

    for (Int_t ii=0; ii<names.GetEntries(); ++ii)
    {
      TObjString * si = (TObjString*) names.At(ii);
       f->Add(new TEveMacro(Form("%s/%s", macdir.Data(), (si->GetString()).Data())));
    }
  }
  gSystem->FreeDirectory(dirhandle);

  gROOT->GetListOfBrowsables()->Add(new TSystemDirectory(macdir.Data(), macdir.Data()));

  {
    TEveBrowser   *br = gEve->GetBrowser();
    TGFileBrowser *fb = 0;
    fb = br->GetFileBrowser();
    fb->GotoDir(macdir);
    {
      br->StartEmbedding(0);
      fb = br->MakeFileBrowser();
      fb->BrowseObj(f);
      fb->Show();
      br->StopEmbedding();
      br->SetTabTitle("Macros", 0);
      br->SetTab(0, 0);
    }
  }
}
Commit	Line	Data
cb175407	1	/**************************************************************************
	2	* Copyright(c) 1998-2008, ALICE Experiment at CERN, all rights reserved. *
	3	* See http://aliceinfo.cern.ch/Offline/AliRoot/License.html for *
	4	* full copyright notice. *
	5	**************************************************************************/
	6
cb175407	7	class TEveProjectionManager;
	8	class TEveGeoShape;
	9	class TEveUtil;
	10	class AliTriggerAnalysis;
	11	class AliSysInfo;
	12
	13	TH2D* V0StateHistogram;
	14
	15	Bool_t gCenterProjectionsAtPrimaryVertex = kFALSE;
	16
	17	void alieve_online_new()
	18	{
	19	printf("alieve_online_init() ...\n");
cb175407	20
164d3d29	21	if (gSystem->Getenv("ALICE_ROOT") != 0)
	22	{
	23	gInterpreter->AddIncludePath(Form("%s/MUON", gSystem->Getenv("ALICE_ROOT")));
	24	gInterpreter->AddIncludePath(Form("%s/MUON/mapping", gSystem->Getenv("ALICE_ROOT")));
	25	}
cb175407	26
	27	AliEveEventManager::SetCdbUri("local://$ALICE_ROOT/OCDB");
	28
	29	Info("alieve_init", "Adding standard macros.");
	30	TString hack = gSystem->pwd(); // Problem with TGFileBrowser cding
	31	alieve_init_import_macros();
	32	gSystem->cd(hack);
	33
	34	new AliEveEventManager("online", -1);
	35	//AliEveEventManager::GetMaster()->AddNewEventCommand("alieve_online_on_new_event()");
	36	gEve->AddEvent(AliEveEventManager::GetMaster());
	37
	38
	39	TEveUtil::AssertMacro("VizDB_scan.C");
	40
	41	gSystem->ProcessEvents();
	42
	43
	44
	45
	46
	47	AliEveMacroExecutor *exec = AliEveEventManager::GetMaster()->GetExecutor();
	48	TEveBrowser *browser = gEve->GetBrowser();
	49	browser->ShowCloseTab(kFALSE);
	50
	51
	52	// Gentle-geom loading changes gGeoManager.
	53	//TEveGeoManagerHolder mgrRestore;
	54
	55	AliEveMultiView *multiView = new AliEveMultiView(kTRUE);
	56
	57	TEveUtil::LoadMacro("geom_gentle.C");
	58	multiView->InitGeomGentle(geom_gentle(),
	59	geom_gentle_rphi(),
	60	geom_gentle_rhoz(),
	61	geom_gentle_rhoz());
	62
164d3d29	63	//These macros crashes on mac os. To be checked
	64
	65	//TEveUtil::LoadMacro("geom_gentle_trd.C");
	66	//multiView->InitGeomGentleTrd(geom_gentle_trd());
cb175407	67
164d3d29	68	//TEveUtil::LoadMacro("geom_gentle_muon.C");
164d3d29	69	//multiView->InitGeomGentleMuon(geom_gentle_muon(), kFALSE, kFALSE, kTRUE);
cb175407	70
	71	//============================================================================
	72	// Standard macros to execute -- not all are enabled by default.
	73	//============================================================================
	74
	75
	76	printf("============ Setting macro executor\n");
	77
	78	AliEveMacroExecutor *exec = AliEveEventManager::GetMaster()->GetExecutor();
	79
	80	exec->AddMacro(new AliEveMacro(AliEveMacro::kESD, "REC PVTX", "primary_vertex.C", "primary_vertex", "", kTRUE));
	81	exec->AddMacro(new AliEveMacro(AliEveMacro::kESD, "REC PVTX Ellipse", "primary_vertex.C", "primary_vertex_ellipse", "", kTRUE));
	82	exec->AddMacro(new AliEveMacro(AliEveMacro::kESD, "REC PVTX Box", "primary_vertex.C", "primary_vertex_box", "kFALSE, 3, 3, 3", kFALSE));
	83	exec->AddMacro(new AliEveMacro(AliEveMacro::kESD, "REC PVTX", "primary_vertex.C", "primary_vertex_spd", "", kTRUE));
	84	exec->AddMacro(new AliEveMacro(AliEveMacro::kESD, "REC PVTX Ellipse", "primary_vertex.C", "primary_vertex_ellipse_spd", "", kTRUE));
	85	exec->AddMacro(new AliEveMacro(AliEveMacro::kESD, "REC PVTX Box", "primary_vertex.C", "primary_vertex_box_spd", "kFALSE, 3, 3, 3", kFALSE));
	86	exec->AddMacro(new AliEveMacro(AliEveMacro::kESD, "REC PVTX", "primary_vertex.C", "primary_vertex_tpc", "", kFALSE));
	87	exec->AddMacro(new AliEveMacro(AliEveMacro::kESD, "REC PVTX Ellipse", "primary_vertex.C", "primary_vertex_ellipse_tpc", "", kFALSE));
	88	exec->AddMacro(new AliEveMacro(AliEveMacro::kESD, "REC PVTX Box", "primary_vertex.C", "primary_vertex_box_tpc", "kFALSE, 3, 3, 3", kFALSE));
	89
	90	exec->AddMacro(new AliEveMacro(AliEveMacro::kRunLoader, "REC Clus ITS", "its_clusters.C", "its_clusters"));
	91	exec->AddMacro(new AliEveMacro(AliEveMacro::kRunLoader, "REC Clus TPC", "tpc_clusters.C", "tpc_clusters"));
	92	exec->AddMacro(new AliEveMacro(AliEveMacro::kRunLoader, "REC Clus TRD", "trd_clusters.C", "trd_clusters"));
	93	exec->AddMacro(new AliEveMacro(AliEveMacro::kRunLoader, "REC Clus TOF", "tof_clusters.C", "tof_clusters"));
	94	exec->AddMacro(new AliEveMacro(AliEveMacro::kRunLoader, "REC Clus HMPID", "hmpid_clusters.C", "hmpid_clusters"));
	95	exec->AddMacro(new AliEveMacro(AliEveMacro::kRunLoader, "REC Clus MUON", "muon_clusters.C", "muon_clusters"));
	96
e339938c	97
cb175407	98	exec->AddMacro(new AliEveMacro(AliEveMacro::kRunLoader, "DIG EMCAL", "emcal_digits.C", "emcal_digits"));
cb175407	99	exec->AddMacro(new AliEveMacro(AliEveMacro::kRawReader, "RAW ITS", "its_raw.C", "its_raw"));
	100	// exec->AddMacro(new AliEveMacro(AliEveMacro::kRawReader, "RAW TPC", "tpc_raw.C", "tpc_raw"));
	101	exec->AddMacro(new AliEveMacro(AliEveMacro::kRawReader, "RAW TOF", "tof_raw.C", "tof_raw"));
	102	exec->AddMacro(new AliEveMacro(AliEveMacro::kRawReader, "RAW VZERO", "vzero_raw.C", "vzero_raw", "", kFALSE));
	103	exec->AddMacro(new AliEveMacro(AliEveMacro::kRawReader, "RAW ACORDE", "acorde_raw.C", "acorde_raw", "", kFALSE));
	104	exec->AddMacro(new AliEveMacro(AliEveMacro::kRawReader, "RAW MUON", "muon_raw.C", "muon_raw"));
	105	exec->AddMacro(new AliEveMacro(AliEveMacro::kRawReader, "RAW FMD", "fmd_raw.C", "fmd_raw"));
e339938c	106
cb175407	107
	108	exec->AddMacro(new AliEveMacro(AliEveMacro::kESD, "REC Track", "esd_tracks.C", "esd_tracks", "", kFALSE));
	109	exec->AddMacro(new AliEveMacro(AliEveMacro::kESD, "REC Track", "esd_tracks.C", "esd_tracks_MI", "", kFALSE));
cb175407	110	exec->AddMacro(new AliEveMacro(AliEveMacro::kESD, "REC Track MUON", "esd_muon_tracks.C", "esd_muon_tracks", "kTRUE,kFALSE", kTRUE));
cb175407	111
e339938c	112
	113	// these macros were leaking:
	114	exec->AddMacro(new AliEveMacro(AliEveMacro::kESD, "REC Track", "esd_tracks.C", "esd_tracks_by_category", "", kTRUE));// just a little
	115	exec->AddMacro(new AliEveMacro(AliEveMacro::kESD, "REC FMD", "fmd_esd.C", "fmd_esd", "", kTRUE));//huge leak
	116	//
	117
	118
	119
cb175407	120	// ???
	121	// exec->AddMacro(new AliEveMacro(AliEveMacro::kESD, "REC TRD", "trd_detectors.C", "trd_detectors", "", kFALSE));
	122	// trd_tracks disabled due to memory leaks
	123
	124	//----------------------------------------------------------------------------
	125
	126	slot = TEveWindow::CreateWindowInTab(browser->GetTabRight());
	127	slot->StartEmbedding();
	128	AliEveMacroExecutorWindow* exewin = new AliEveMacroExecutorWindow(exec);
	129	slot->StopEmbedding("DataSelection");
	130	exewin->PopulateMacros();
	131
	132	//============================================================================
	133	// Final GUI setup
	134	//============================================================================
	135
	136	browser->GetTabRight()->SetTab(1);
	137
	138	browser->StartEmbedding(TRootBrowser::kBottom);
	139	new AliEveEventManagerWindow(AliEveEventManager::GetMaster());
	140	browser->StopEmbedding("EventCtrl");
	141
	142	browser->MoveResize(0, 0, gClient->GetDisplayWidth(),
	143	gClient->GetDisplayHeight() - 32);
	144
	145	gEve->GetViewers()->SwitchColorSet();
	146	gEve->FullRedraw3D(kTRUE);
	147	gSystem->ProcessEvents();
	148
	149	TGLViewer *glv1 = multiView->Get3DView()->GetGLViewer();
	150	TGLViewer *glv2 = multiView->GetRPhiView()->GetGLViewer();
	151	TGLViewer *glv3 = multiView->GetRhoZView()->GetGLViewer();
	152
	153	glv1->CurrentCamera().RotateRad(-0.4, -1.8);
	154	glv2->CurrentCamera().Dolly(450, kFALSE, kFALSE);
	155	glv3->CurrentCamera().Dolly(1500, kFALSE, kFALSE);
	156
164d3d29	157	//////
	158	AliEveEventManager::GetMaster()->AddNewEventCommand("alieve_online_on_new_event();");
	159	///////
cb175407	160	gEve->FullRedraw3D();
cb175407	161	gSystem->ProcessEvents();
cb175407	162	gEve->Redraw3D(kTRUE);
cc94dac0	163
cc94dac0	164	AliEveEventManager::GetMaster()->SetAutoLoad(true);
cb175407	165	}
	166
	167
	168	Int_t g_pic_id = 0;
	169	Int_t g_pic_max = 100;
	170	TTimeStamp g_pic_prev(0, 0);
	171
	172	void alieve_online_on_new_event()
	173	{
164d3d29	174	AliSysInfo::AddStamp("on_new_event_start");
	175
	176	Double_t x[3] = { 0, 0, 0 };
	177
	178	if (AliEveEventManager::HasESD())
	179	{
	180	AliESDEvent* esd = AliEveEventManager::AssertESD();
	181	esd->GetPrimaryVertex()->GetXYZ(x);
	182
	183	TTimeStamp ts(esd->GetTimeStamp());
	184	TString win_title("Eve Main Window -- Timestamp: ");
	185	win_title += ts.AsString("s");
	186	win_title += "; Event # in ESD file: ";
	187	win_title += esd->GetEventNumberInFile();
	188	gEve->GetBrowser()->SetWindowName(win_title);
	189	}
	190
	191	TEveElement* top = gEve->GetCurrentEvent();
	192
	193	AliEveMultiView *mv = AliEveMultiView::Instance();
	194
	195	//mv->DestroyEventRPhi();
	196	if (gCenterProjectionsAtPrimaryVertex)
	197	mv->SetCenterRPhi(x[0], x[1], x[2]);
	198	mv->ImportEventRPhi(top);
	199
	200	//mv->DestroyEventRhoZ();
	201	if (gCenterProjectionsAtPrimaryVertex)
	202	mv->SetCenterRhoZ(x[0], x[1], x[2]);
	203	mv->ImportEventRhoZ(top);
	204
	205	if (gCenterProjectionsAtPrimaryVertex)
	206	mv->SetCenterMuon(x[0], x[1], x[2]);
	207	mv->ImportEventMuon(top);
cc94dac0	208	// Register image to amore.
	209	// const TString pichost("aldaqacrs3");
	210	const TString pichost(gEnv->GetValue("AliEve.imageDumpHost", "localhost"));
	211	TTimeStamp now;
	212	Double_t delta = now.AsDouble() - g_pic_prev.AsDouble();
	213
	214	printf("Pre image dump: host='%s', delta=%f.\n",
	215	gSystem->HostName(), delta);
	216
	217	AliSysInfo::AddStamp("on_new_event_pic");
4cdd14e0	218	if (pichost == gSystem->HostName() && delta >= 30)
cc94dac0	219	{
	220	TString id; id.Form("online-viz-%03d", g_pic_id);
	221	TString pic(id); pic += ".png";
	222
	223	printf("In image dump: file='%s'.\n", pic.Data());
	224
	225	gEve->GetBrowser()->RaiseWindow();
	226	gEve->FullRedraw3D();
	227	gSystem->ProcessEvents();
	228
	229	Int_t status;
	230
	231	// create screenshots from OpenGL views
	232	TEveUtil::LoadMacro("saveViews.C");
	233	saveViews(pic.Data());
	234
	235	// send screenshot to AMORE
	236	status = gSystem->Exec(TString::Format("SendImageToAmore %s %s %d",
	237	id.Data(), pic.Data(),
	238	AliEveEventManager::AssertESD()->GetRunNumber()));
	239
	240	printf("Post AMORE reg -- status=%d, run=%d.\n", status,
	241	AliEveEventManager::AssertESD()->GetRunNumber());
164d3d29	242
cc94dac0	243	if (++g_pic_id >= g_pic_max)
	244	g_pic_id = 0;
	245	g_pic_prev.Set();
	246	}
4cdd14e0	247	AliSysInfo::AddStamp("on_new_event_end");
cb175407	248	}
	249
	250	void alieve_init_import_macros()
	251	{
	252	// Put macros in the list of browsables, add a macro browser to
	253	// top-level GUI.
	254
	255	TString macdir("$(ALICE_ROOT)/EVE/alice-macros");
	256	gSystem->ExpandPathName(macdir);
	257
	258	TFolder* f = gEve->GetMacroFolder();
	259	void* dirhandle = gSystem->OpenDirectory(macdir.Data());
	260	if (dirhandle != 0)
	261	{
	262	char* filename;
	263	TPMERegexp re("\\.C$");
	264	TObjArray names;
	265	while ((filename = gSystem->GetDirEntry(dirhandle)) != 0)
	266	{
	267	if (re.Match(filename))
	268	names.AddLast(new TObjString(filename));
	269	}
	270	names.Sort();
	271
	272	for (Int_t ii=0; ii<names.GetEntries(); ++ii)
	273	{
	274	TObjString * si = (TObjString*) names.At(ii);
	275	f->Add(new TEveMacro(Form("%s/%s", macdir.Data(), (si->GetString()).Data())));
	276	}
	277	}
	278	gSystem->FreeDirectory(dirhandle);
	279
	280	gROOT->GetListOfBrowsables()->Add(new TSystemDirectory(macdir.Data(), macdir.Data()));
	281
	282	{
	283	TEveBrowser *br = gEve->GetBrowser();
	284	TGFileBrowser *fb = 0;
	285	fb = br->GetFileBrowser();
	286	fb->GotoDir(macdir);
	287	{
	288	br->StartEmbedding(0);
	289	fb = br->MakeFileBrowser();
	290	fb->BrowseObj(f);
	291	fb->Show();
	292	br->StopEmbedding();
	293	br->SetTabTitle("Macros", 0);
	294	br->SetTab(0, 0);
	295	}
	296	}
	297	}