delete clrow;
+ rl->UnloadRecPoints("TPC");
+
if (clusters->Size() == 0 && gEve->GetKeepEmptyCont() == kFALSE)
{
- Warning("tpc_clusters", "No TPC clusters");
+ Warning("tpc_clusters.C", "No TPC clusters");
delete clusters;
return 0;
}
- clusters->SetMarkerStyle(2);
- clusters->SetMarkerSize(0.2);
- clusters->SetMarkerColor(4);
-
char form[1000];
sprintf(form,"TPC Clusters");
clusters->SetName(form);
char tip[1000];
sprintf(tip,"N=%d", clusters->Size());
clusters->SetTitle(tip);
+
+ const TString viz_tag("TPC Clusters");
+ if (gEve->FindVizDBEntry(viz_tag) == 0)
+ {
+ TEvePointSet* m = new TEvePointSet();
+ m->SetMarkerColor(4);
+ m->SetMarkerSize(0.2);
+ m->SetMarkerStyle(2);
+ gEve->InsertVizDBEntry(viz_tag, m);
+ }
+ // The above can be removed when going to new root - then call:
+ // clusters->ApplyVizTag(viz_tag, "Clusters");
+ clusters->ApplyVizTag(viz_tag);
+
gEve->AddElement(clusters, cont);
+
gEve->Redraw3D();
return clusters;