From 08183502b3bd76687754bbfd35d7fd7d510d3d60 Mon Sep 17 00:00:00 2001
From: Thomas White <taw@physics.org>
Date: Fri, 26 Jul 2013 11:53:39 +0200
Subject: partialator: Use Lorentz factor in partiality histograms

---
 src/scaling-report.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src')

diff --git a/src/scaling-report.c b/src/scaling-report.c
index ecd2943c..8e70af50 100644
--- a/src/scaling-report.c
+++ b/src/scaling-report.c
@@ -366,8 +366,8 @@ static void partiality_histogram(cairo_t *cr, Crystal **crystals, int n,
 			Ipart = get_intensity(refl);
 			Ifull = get_intensity(f);
 
-			/* FIXME: Wrong */
-			pobs = Ipart/(crystal_get_osf(cryst)*Ifull);
+			pobs = (Ipart * crystal_get_osf(cryst))
+			           / (Ifull * get_lorentz(refl));
 			pcalc = get_partiality(refl);
 
 			if ( calc ) {
-- 
cgit v1.2.3