Index: trunk/MagicSoft/Mars/macros/pointspreadfunction.C
===================================================================
--- trunk/MagicSoft/Mars/macros/pointspreadfunction.C	(revision 3114)
+++ trunk/MagicSoft/Mars/macros/pointspreadfunction.C	(revision 3119)
@@ -512,5 +512,33 @@
     gStyle->SetOptStat(00000000);
 
-    c1 = new TCanvas("c1","Time evolution & distributions",0,0,1200,850);
+//
+// Find in the file name the date, run and project name to put it in the title
+//
+
+    Size_t pos = fname.Last('/');
+    TString iRun = TString(fname(pos+24,5));
+    TString iYear = TString(fname(pos+4,4));
+    TString iMonth = TString(fname(pos+9,2));
+    TString iDay = TString(fname(pos+12,2));
+
+    TString iHour = TString(fname(pos+15,2));
+    TString iMin = TString(fname(pos+18,2));
+    TString iSec = TString(fname(pos+21,2));
+
+    Size_t poslast = fname.Last('.');
+    Size_t posfirst = poslast-1;
+    while (fname[posfirst] != '_')
+	posfirst--;
+
+    TString iSource = TString(fname(posfirst+1,poslast-posfirst-1));
+
+    
+    char str[100];
+    
+//    sprintf(str,"Date %s/%s/%s Run %s Source %s",iYear.Data(),iMonth.Data(),iDay.Data(),iRun.Data(),iSource.Data());
+    sprintf(str,"Date %s/%s/%s   StartTime %s:%s:%s   Run %s   Source %s",iYear.Data(),iMonth.Data(),iDay.Data(),iHour.Data(),iMin.Data(),iSec.Data(),iRun.Data(),iSource.Data());
+
+    c1 = new TCanvas("c1",str,0,0,1200,850);
+//    c1 = new TCanvas("c1","Time evolution & distributions",0,0,1200,850);
     c1->Divide(3,2);
 
@@ -541,5 +569,5 @@
     maxtime = time[math.LocMax(numLines,time)];
 
-    TH2D *h1 = new TH2D("h1",fname,1,mintime-1,maxtime+1,1,minmean,maxmean);
+    TH2D *h1 = new TH2D("h1","",1,mintime-1,maxtime+1,1,minmean,maxmean);
     h1->GetXaxis()->SetTitle("Event number");
     h1->GetYaxis()->SetTitle("mean position (deg)");