Index: /trunk/MagicSoft/Mars/mreflector/MRflEvtData.cc
===================================================================
--- /trunk/MagicSoft/Mars/mreflector/MRflEvtData.cc	(revision 8269)
+++ /trunk/MagicSoft/Mars/mreflector/MRflEvtData.cc	(revision 8270)
@@ -134,4 +134,17 @@
 // --------------------------------------------------------------------------
 //
+// Fills all photon distances into a TH1 scaled with scale (default=1)
+//
+void MRflEvtData::FillRad(TH1 &hist, Float_t scale) const
+{
+    MRflSinglePhoton *ph=NULL;
+
+    TIter Next(&fList);
+    while ((ph=(MRflSinglePhoton*)Next()))
+        ph->FillRad(hist, scale);
+}
+
+// --------------------------------------------------------------------------
+//
 // Fills all photons into a TH2 scaled with scale (default=1)
 //
Index: /trunk/MagicSoft/Mars/mreflector/MRflEvtData.h
===================================================================
--- /trunk/MagicSoft/Mars/mreflector/MRflEvtData.h	(revision 8269)
+++ /trunk/MagicSoft/Mars/mreflector/MRflEvtData.h	(revision 8270)
@@ -14,4 +14,5 @@
 #endif
 
+class TH1;
 class TH2;
 class MRflSinglePhoton;
@@ -37,4 +38,5 @@
     const MRflSinglePhoton &GetPhoton(Int_t i) const;
 
+    void FillRad(TH1 &hist, Float_t scale=1) const;
     void Fill(TH2 &hist, Float_t scale=1) const;
 
Index: /trunk/MagicSoft/Mars/mreflector/MRflSinglePhoton.cc
===================================================================
--- /trunk/MagicSoft/Mars/mreflector/MRflSinglePhoton.cc	(revision 8269)
+++ /trunk/MagicSoft/Mars/mreflector/MRflSinglePhoton.cc	(revision 8270)
@@ -43,4 +43,13 @@
 // --------------------------------------------------------------------------
 //
+// Fill radial photon distance into histogram scaled by scale.
+//
+void MRflSinglePhoton::FillRad(TH1 &hist, Float_t scale) const
+{
+    hist.Fill(TMath::Hypot(fX, fY)*scale);
+}
+
+// --------------------------------------------------------------------------
+//
 // Fill photon position into histogram scaled by scale.
 //
Index: /trunk/MagicSoft/Mars/mreflector/MRflSinglePhoton.h
===================================================================
--- /trunk/MagicSoft/Mars/mreflector/MRflSinglePhoton.h	(revision 8269)
+++ /trunk/MagicSoft/Mars/mreflector/MRflSinglePhoton.h	(revision 8270)
@@ -6,4 +6,5 @@
 #endif
 
+class TH1;
 class TH2;
 
@@ -35,4 +36,5 @@
     Float_t GetY() const { return fY; }
 
+    void FillRad(TH1 &hist, Float_t scale=1) const;
     void Fill(TH2 &hist, Float_t scale=1) const;