Fix bug #58664
[pspp] / src / output / charts / plot-hist-cairo.c
index a85471962fcbebf52ff445190766d049781244f4..000695f331abdcded8c3e7097048b4305d6c6479 100644 (file)
@@ -1,5 +1,5 @@
 /* PSPP - a program for statistical analysis.
-   Copyright (C) 2009, 2011, 2014 Free Software Foundation, Inc.
+   Copyright (C) 2009, 2011, 2014, 2015 Free Software Foundation, Inc.
 
    This program is free software: you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
@@ -75,8 +75,8 @@ hist_draw_bar (cairo_t *cr, const struct xrchart_geometry *geom,
   double lower;
   double height;
 
-  assert ( 0 == gsl_histogram_get_range (h, bar, &lower, &upper));
-  assert ( upper >= lower);
+  assert (0 == gsl_histogram_get_range (h, bar, &lower, &upper));
+  assert (upper >= lower);
 
   const double x_pos =
     (lower - geom->axis[SCALE_ABSCISSA].min) * geom->axis[SCALE_ABSCISSA].scale
@@ -149,6 +149,13 @@ xrchart_draw_histogram (const struct chart_item *chart_item, cairo_t *cr,
       /* Therefore the pdf has to be scaled accordingly such that the integrals are equal               */
       ordinate_scale = binwidth * gsl_histogram_sum(h->gsl_hist);
 
+      /* Clip normal curve to the rectangle formed by the axes. */
+      cairo_save (cr);
+      cairo_rectangle (cr, geom->axis[SCALE_ABSCISSA].data_min, geom->axis[SCALE_ORDINATE].data_min,
+                       geom->axis[SCALE_ABSCISSA].data_max - geom->axis[SCALE_ABSCISSA].data_min,
+                       geom->axis[SCALE_ORDINATE].data_max - geom->axis[SCALE_ORDINATE].data_min);
+      cairo_clip (cr);
+
       cairo_move_to (cr, geom->axis[SCALE_ABSCISSA].data_min, geom->axis[SCALE_ORDINATE].data_min);
       for (x = geom->axis[SCALE_ABSCISSA].min;
           x <= geom->axis[SCALE_ABSCISSA].max;
@@ -161,5 +168,7 @@ xrchart_draw_histogram (const struct chart_item *chart_item, cairo_t *cr,
           cairo_line_to (cr, x_pos, y_pos);
        }
       cairo_stroke (cr);
+
+      cairo_restore (cr);
     }
 }