1 /* PSPP - a program for statistical analysis.
2 Copyright (C) 2004, 2009, 2010, 2011, 2014, 2015 Free Software Foundation, Inc.
4 This program is free software: you can redistribute it and/or modify
5 it under the terms of the GNU General Public License as published by
6 the Free Software Foundation, either version 3 of the License, or
7 (at your option) any later version.
9 This program is distributed in the hope that it will be useful,
10 but WITHOUT ANY WARRANTY; without even the implied warranty of
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 GNU General Public License for more details.
14 You should have received a copy of the GNU General Public License
15 along with this program. If not, see <http://www.gnu.org/licenses/>. */
19 #include "output/cairo-chart.h"
20 #include "math/chart-geometry.h"
22 #include <cairo/cairo.h>
23 #include <pango/pango.h>
24 #include <pango/pangocairo.h>
32 #include "libpspp/assertion.h"
33 #include "math/chart-geometry.h"
34 #include "output/cairo.h"
35 #include "output/chart-item.h"
37 #include "gl/xalloc.h"
38 #include "gl/xvasprintf.h"
41 #define _(msgid) gettext (msgid)
44 xrchart_geometry_init (cairo_t *cr, struct xrchart_geometry *geom,
45 double width, double length)
47 /* Set default chart geometry. */
48 geom->axis[SCALE_ORDINATE].data_max = 0.900 * length;
49 geom->axis[SCALE_ORDINATE].data_min = 0.200 * length;
51 geom->axis[SCALE_ABSCISSA].data_min = 0.150 * width;
52 geom->axis[SCALE_ABSCISSA].data_max = 0.800 * width;
53 geom->abscissa_bottom = 0.070 * length;
54 geom->ordinate_left = 0.050 * width;
55 geom->title_bottom = 0.920 * length;
56 geom->legend_left = 0.810 * width;
57 geom->legend_right = width;
58 geom->font_size = 15.0;
59 geom->in_path = false;
63 geom->fill_colour = data_colour[0];
65 cairo_set_line_width (cr, 1.0);
67 cairo_rectangle (cr, geom->axis[SCALE_ABSCISSA].data_min, geom->axis[SCALE_ORDINATE].data_min,
68 geom->axis[SCALE_ABSCISSA].data_max - geom->axis[SCALE_ABSCISSA].data_min,
69 geom->axis[SCALE_ORDINATE].data_max - geom->axis[SCALE_ORDINATE].data_min);
74 xrchart_geometry_free (cairo_t *cr UNUSED, struct xrchart_geometry *geom)
78 for (i = 0 ; i < geom->n_datasets; ++i)
79 free (geom->dataset[i]);
83 #if ! PANGO_VERSION_CHECK (1, 22, 0)
84 int pango_layout_get_baseline (PangoLayout *layout);
86 /* Shamelessly copied from the pango source */
88 pango_layout_get_baseline (PangoLayout *layout)
92 /* XXX this is so inefficient */
93 PangoLayoutIter *iter = pango_layout_get_iter (layout);
94 baseline = pango_layout_iter_get_baseline (iter);
95 pango_layout_iter_free (iter);
102 These colours come from:
103 http://tango.freedesktop.org/static/cvs/tango-art-tools/palettes/Tango-Palette.gpl */
104 const struct xrchart_colour data_colour[XRCHART_N_COLOURS] =
106 {252, 233, 79}, /* Butter 1 */
107 {138, 226, 52}, /* Chameleon 1 */
108 {252, 175, 62}, /* Orange 1 */
109 {114, 159, 207}, /* Sky Blue 1 */
110 {173, 127, 168}, /* Plum 1 */
111 {233, 185, 110}, /* Chocolate 1 */
112 {239, 41, 41}, /* Scarlet Red 1 */
113 {238, 238, 236}, /* Aluminium 1 */
115 {237, 212, 0}, /* Butter 2 */
116 {115, 210, 22}, /* Chameleon 2 */
117 {245, 121, 0}, /* Orange 2 */
118 {52, 101, 164}, /* Sky Blue 2 */
119 {117, 80, 123}, /* Plum 2 */
120 {193, 125, 17}, /* Chocolate 2 */
121 {204, 0, 0}, /* Scarlet Red 2 */
123 {136, 138, 133}, /* Aluminium 4 */
125 {196, 160, 0}, /* Butter 3 */
126 {78, 154, 6}, /* Chameleon 3 */
127 {206, 92, 0}, /* Orange 3 */
128 {32, 74, 135}, /* Sky Blue 3 */
129 {92, 53, 102}, /* Plum 3 */
130 {143, 89, 2}, /* Chocolate 3 */
131 {164, 0, 0}, /* Scarlet Red 3 */
132 {85, 87, 83}, /* Aluminium 5 */
134 {211, 215, 207}, /* Aluminium 2 */
135 {186, 189, 182}, /* Aluminium 3 */
136 {46, 52, 54}, /* Aluminium 6 */
140 xrchart_draw_marker (cairo_t *cr, double x, double y,
141 enum xrmarker_type marker, double size)
144 cairo_translate (cr, x, y);
145 cairo_scale (cr, size / 2.0, size / 2.0);
146 cairo_set_line_width (cr, cairo_get_line_width (cr) / (size / 2.0));
149 case XRMARKER_CIRCLE:
150 cairo_arc (cr, 0, 0, 1.0, 0, 2 * M_PI);
154 case XRMARKER_ASTERISK:
155 cairo_move_to (cr, 0, -1.0); /* | */
156 cairo_line_to (cr, 0, 1.0);
157 cairo_move_to (cr, -M_SQRT1_2, -M_SQRT1_2); /* / */
158 cairo_line_to (cr, M_SQRT1_2, M_SQRT1_2);
159 cairo_move_to (cr, -M_SQRT1_2, M_SQRT1_2); /* \ */
160 cairo_line_to (cr, M_SQRT1_2, -M_SQRT1_2);
164 case XRMARKER_SQUARE:
165 cairo_rectangle (cr, -1.0, -1.0, 2.0, 2.0);
173 xrchart_label_rotate (cairo_t *cr, int horz_justify, int vert_justify,
174 double font_size, const char *string, double angle)
176 PangoFontDescription *desc;
180 desc = pango_font_description_from_string ("Sans");
186 pango_font_description_set_absolute_size (desc, font_size * PANGO_SCALE);
189 cairo_rotate (cr, angle);
190 cairo_get_current_point (cr, &x, &y);
191 cairo_translate (cr, x, y);
192 cairo_move_to (cr, 0, 0);
193 cairo_scale (cr, 1.0, -1.0);
195 layout = pango_cairo_create_layout (cr);
196 pango_layout_set_font_description (layout, desc);
197 pango_layout_set_markup (layout, string, -1);
198 if (horz_justify != 'l')
203 pango_layout_get_size (layout, &width_pango, NULL);
204 width = (double) width_pango / PANGO_SCALE;
205 if (horz_justify == 'r')
206 cairo_rel_move_to (cr, -width, 0);
208 cairo_rel_move_to (cr, -width / 2.0, 0);
210 if (vert_justify == 'x')
212 int baseline_pango = pango_layout_get_baseline (layout);
213 double baseline = (double) baseline_pango / PANGO_SCALE;
214 cairo_rel_move_to (cr, 0, -baseline);
216 else if (vert_justify != 't')
221 pango_layout_get_size (layout, NULL, &height_pango);
222 height = (double) height_pango / PANGO_SCALE;
223 if (vert_justify == 'b')
224 cairo_rel_move_to (cr, 0, -height);
225 else if (vert_justify == 'c')
226 cairo_rel_move_to (cr, 0, -height / 2.0);
228 pango_cairo_show_layout (cr, layout);
229 g_object_unref (layout);
235 pango_font_description_free (desc);
239 xrchart_label (cairo_t *cr, int horz_justify, int vert_justify,
240 double font_size, const char *string)
242 xrchart_label_rotate (cr, horz_justify, vert_justify, font_size, string, 0);
246 /* Draw a tick mark at position
247 If label is non null, then print it at the tick mark
250 draw_tick_internal (cairo_t *cr, const struct xrchart_geometry *geom,
251 enum tick_orientation orientation,
257 draw_tick (cairo_t *cr, const struct xrchart_geometry *geom,
258 enum tick_orientation orientation,
261 const char *label, ...)
265 va_start (ap, label);
266 s = xvasprintf (label, ap);
268 if (fabs (position) < DBL_EPSILON)
271 draw_tick_internal (cr, geom, orientation, rotated, position, s);
278 draw_tick_internal (cairo_t *cr, const struct xrchart_geometry *geom,
279 enum tick_orientation orientation,
284 const int tickSize = 10;
287 cairo_move_to (cr, geom->axis[SCALE_ABSCISSA].data_min, geom->axis[SCALE_ORDINATE].data_min);
289 if (orientation == SCALE_ABSCISSA)
291 cairo_rel_move_to (cr, position, 0);
292 cairo_rel_line_to (cr, 0, -tickSize);
294 else if (orientation == SCALE_ORDINATE)
296 cairo_rel_move_to (cr, 0, position);
297 cairo_rel_line_to (cr, -tickSize, 0);
301 cairo_get_current_point (cr, &x, &y);
307 cairo_move_to (cr, x, y);
309 if (orientation == SCALE_ABSCISSA)
312 xrchart_label_rotate (cr, 'l', 'c', geom->font_size, s, -G_PI_4);
314 xrchart_label (cr, 'c', 't', geom->font_size, s);
316 else if (orientation == SCALE_ORDINATE)
318 xrchart_label (cr, 'r', 'c', geom->font_size, s);
324 /* Write the title on a chart*/
326 xrchart_write_title (cairo_t *cr, const struct xrchart_geometry *geom,
327 const char *title, ...)
333 cairo_move_to (cr, geom->axis[SCALE_ABSCISSA].data_min, geom->title_bottom);
336 s = xvasprintf (title, ap);
337 xrchart_label (cr, 'l', 'x', geom->font_size * 1.5, s);
345 xrchart_text_extents (cairo_t *cr, const struct xrchart_geometry *geom,
347 double *width, double *height)
349 PangoFontDescription *desc;
354 desc = pango_font_description_from_string ("Sans");
357 pango_font_description_set_absolute_size (desc, geom->font_size * PANGO_SCALE);
358 layout = pango_cairo_create_layout (cr);
359 pango_layout_set_font_description (layout, desc);
360 pango_layout_set_markup (layout, utf8, -1);
361 pango_layout_get_size (layout, &width_pango, &height_pango);
362 *width = (double) width_pango / PANGO_SCALE;
363 *height = (double) height_pango / PANGO_SCALE;
364 g_object_unref (layout);
365 pango_font_description_free (desc);
369 xrchart_write_scale (cairo_t *cr, struct xrchart_geometry *geom,
370 double smin, double smax, enum tick_orientation orient)
379 char *tick_format_string;
380 bool tickoversize = false;
382 chart_get_scale (smax, smin, &lower, &interval, &ticks);
384 tick_format_string = chart_get_ticks_format (lower, interval, ticks, &tickscale);
386 upper = lower + interval * (ticks+1);
388 geom->axis[orient].max = upper;
389 geom->axis[orient].min = lower;
391 struct xrchart_axis *axis = &geom->axis[orient];
392 geom->axis[orient].scale = (fabs ((double) axis->data_max - axis->data_min)
393 / fabs (axis->max - axis->min));
395 if (orient == SCALE_ABSCISSA)
398 double lower_txt_width, upper_txt_width, unused, width;
399 test_text = xasprintf(tick_format_string, upper*tickscale);
400 xrchart_text_extents (cr, geom, test_text, &upper_txt_width, &unused);
402 test_text = xasprintf(tick_format_string, lower*tickscale);
403 xrchart_text_extents (cr, geom, test_text, &lower_txt_width, &unused);
405 width = MAX(lower_txt_width, upper_txt_width);
406 tickoversize = width > 0.9 *
407 ((double)(geom->axis[SCALE_ABSCISSA].data_max - geom->axis[SCALE_ABSCISSA].data_min))/(ticks+1);
412 for (s = 0 ; s <= ticks; ++s)
414 draw_tick (cr, geom, orient, tickoversize,
415 s * interval * geom->axis[orient].scale,
416 tick_format_string, pos*tickscale);
419 free(tick_format_string);
422 /* Set the scale for the ordinate */
424 xrchart_write_yscale (cairo_t *cr, struct xrchart_geometry *geom,
425 double smin, double smax)
427 xrchart_write_scale (cr, geom, smin, smax, SCALE_ORDINATE);
430 /* Set the scale for the abscissa */
432 xrchart_write_xscale (cairo_t *cr, struct xrchart_geometry *geom,
433 double smin, double smax)
435 xrchart_write_scale (cr, geom, smin, smax, SCALE_ABSCISSA);
439 /* Write the abscissa label */
441 xrchart_write_xlabel (cairo_t *cr, const struct xrchart_geometry *geom,
444 cairo_move_to (cr, geom->axis[SCALE_ABSCISSA].data_min, geom->abscissa_bottom);
445 xrchart_label (cr, 'l', 't', geom->font_size, label);
448 /* Write the ordinate label */
450 xrchart_write_ylabel (cairo_t *cr, const struct xrchart_geometry *geom,
454 cairo_translate (cr, geom->ordinate_left, geom->axis[SCALE_ORDINATE].data_min);
455 cairo_rotate (cr, M_PI / 2.0);
457 xrchart_label (cr, 'l', 'x', geom->font_size, label);
463 xrchart_write_legend (cairo_t *cr, const struct xrchart_geometry *geom)
466 const int vstep = geom->font_size * 2;
469 const int swatch = 20;
470 const int legend_top = geom->axis[SCALE_ORDINATE].data_max;
471 const int legend_bottom = legend_top -
472 (vstep * geom->n_datasets + 2 * ypad);
476 cairo_rectangle (cr, geom->legend_left, legend_top,
477 geom->legend_right - xpad - geom->legend_left,
478 legend_bottom - legend_top);
481 for (i = 0 ; i < geom->n_datasets ; ++i)
483 const int ypos = legend_top - vstep * (i + 1);
484 const int xpos = geom->legend_left + xpad;
485 const struct xrchart_colour *colour;
487 cairo_move_to (cr, xpos, ypos);
490 colour = &data_colour [ i % XRCHART_N_COLOURS];
491 cairo_set_source_rgb (cr,
493 colour->green / 255.0,
494 colour->blue / 255.0);
495 cairo_rectangle (cr, xpos, ypos, swatch, swatch);
496 cairo_fill_preserve (cr);
500 cairo_move_to (cr, xpos + swatch * 1.5, ypos);
501 xrchart_label (cr, 'l', 'x', geom->font_size, geom->dataset[i]);
507 /* Start a new vector called NAME */
509 xrchart_vector_start (cairo_t *cr, struct xrchart_geometry *geom, const char *name)
511 const struct xrchart_colour *colour;
515 colour = &data_colour[geom->n_datasets % XRCHART_N_COLOURS];
516 cairo_set_source_rgb (cr,
518 colour->green / 255.0,
519 colour->blue / 255.0);
522 geom->dataset = xrealloc (geom->dataset,
523 geom->n_datasets * sizeof (*geom->dataset));
525 geom->dataset[geom->n_datasets - 1] = strdup (name);
528 /* Plot a data point */
530 xrchart_datum (cairo_t *cr, const struct xrchart_geometry *geom,
531 int dataset UNUSED, double x, double y)
533 double x_pos = (x - geom->axis[SCALE_ABSCISSA].min) * geom->axis[SCALE_ABSCISSA].scale + geom->axis[SCALE_ABSCISSA].data_min;
534 double y_pos = (y - geom->axis[SCALE_ORDINATE].min) * geom->axis[SCALE_ORDINATE].scale + geom->axis[SCALE_ORDINATE].data_min;
536 xrchart_draw_marker (cr, x_pos, y_pos, XRMARKER_CIRCLE, 10);
540 xrchart_vector_end (cairo_t *cr, struct xrchart_geometry *geom)
544 geom->in_path = false;
547 /* Plot a data point */
549 xrchart_vector (cairo_t *cr, struct xrchart_geometry *geom, double x, double y)
552 (x - geom->axis[SCALE_ABSCISSA].min) * geom->axis[SCALE_ABSCISSA].scale + geom->axis[SCALE_ABSCISSA].data_min ;
555 (y - geom->axis[SCALE_ORDINATE].min) * geom->axis[SCALE_ORDINATE].scale + geom->axis[SCALE_ORDINATE].data_min ;
558 cairo_line_to (cr, x_pos, y_pos);
561 cairo_move_to (cr, x_pos, y_pos);
562 geom->in_path = true;
568 /* Draw a line with slope SLOPE and intercept INTERCEPT.
569 between the points limit1 and limit2.
570 If lim_dim is XRCHART_DIM_Y then the limit{1,2} are on the
571 y axis otherwise the x axis
574 xrchart_line(cairo_t *cr, const struct xrchart_geometry *geom,
575 double slope, double intercept,
576 double limit1, double limit2, enum xrchart_dim lim_dim)
581 if (lim_dim == XRCHART_DIM_Y)
583 x1 = (limit1 - intercept) / slope;
584 x2 = (limit2 - intercept) / slope;
592 y1 = slope * x1 + intercept;
593 y2 = slope * x2 + intercept;
596 y1 = (y1 - geom->axis[SCALE_ORDINATE].min) * geom->axis[SCALE_ORDINATE].scale + geom->axis[SCALE_ORDINATE].data_min;
597 y2 = (y2 - geom->axis[SCALE_ORDINATE].min) * geom->axis[SCALE_ORDINATE].scale + geom->axis[SCALE_ORDINATE].data_min;
598 x1 = (x1 - geom->axis[SCALE_ABSCISSA].min) * geom->axis[SCALE_ABSCISSA].scale + geom->axis[SCALE_ABSCISSA].data_min;
599 x2 = (x2 - geom->axis[SCALE_ABSCISSA].min) * geom->axis[SCALE_ABSCISSA].scale + geom->axis[SCALE_ABSCISSA].data_min;
601 cairo_move_to (cr, x1, y1);
602 cairo_line_to (cr, x2, y2);