X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Foutput%2Fcairo-chart.c;h=20488bb96e5bdc51b77efcb81235dc58e3251096;hb=refs%2Fheads%2Fctables7;hp=db8eb67ecf45f65625bb2df0229a8b3335d6a17e;hpb=dc0e37529d185a9848b0e53d424d40239d195c8c;p=pspp diff --git a/src/output/cairo-chart.c b/src/output/cairo-chart.c index db8eb67ecf..20488bb96e 100644 --- a/src/output/cairo-chart.c +++ b/src/output/cairo-chart.c @@ -1,5 +1,6 @@ /* PSPP - a program for statistical analysis. - Copyright (C) 2004, 2009, 2010, 2011, 2014, 2015 Free Software Foundation, Inc. + Copyright (C) 2004, 2009, 2010, 2011, 2014, 2015, + 2020 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 @@ -19,7 +20,7 @@ #include "output/cairo-chart.h" #include "math/chart-geometry.h" -#include +#include #include #include #include @@ -31,9 +32,18 @@ #include #include "libpspp/assertion.h" +#include "libpspp/message.h" #include "math/chart-geometry.h" -#include "output/cairo.h" -#include "output/chart-item.h" +#include "output/charts/barchart.h" +#include "output/charts/boxplot.h" +#include "output/charts/np-plot.h" +#include "output/charts/piechart.h" +#include "output/charts/plot-hist.h" +#include "output/charts/roc-chart.h" +#include "output/charts/scatterplot.h" +#include "output/charts/scree.h" +#include "output/charts/spreadlevel-plot.h" +#include "output/table.h" #include "gl/xalloc.h" #include "gl/xvasprintf.h" @@ -309,7 +319,7 @@ draw_tick_internal (cairo_t *cr, const struct xrchart_geometry *geom, if (orientation == SCALE_ABSCISSA) { - if ( rotated) + if (rotated) xrchart_label_rotate (cr, 'l', 'c', geom->font_size, s, -G_PI_4); else xrchart_label (cr, 'c', 't', geom->font_size, s); @@ -366,7 +376,7 @@ xrchart_text_extents (cairo_t *cr, const struct xrchart_geometry *geom, pango_font_description_free (desc); } -static void +static bool xrchart_write_scale (cairo_t *cr, struct xrchart_geometry *geom, double smin, double smax, enum tick_orientation orient) { @@ -380,6 +390,9 @@ xrchart_write_scale (cairo_t *cr, struct xrchart_geometry *geom, char *tick_format_string; bool tickoversize = false; + if (smax == smin) + return false; + chart_get_scale (smax, smin, &lower, &interval, &ticks); tick_format_string = chart_get_ticks_format (lower, interval, ticks, &tickscale); @@ -418,22 +431,24 @@ xrchart_write_scale (cairo_t *cr, struct xrchart_geometry *geom, pos += interval; } free(tick_format_string); + + return true; } /* Set the scale for the ordinate */ -void +bool xrchart_write_yscale (cairo_t *cr, struct xrchart_geometry *geom, double smin, double smax) { - xrchart_write_scale (cr, geom, smin, smax, SCALE_ORDINATE); + return xrchart_write_scale (cr, geom, smin, smax, SCALE_ORDINATE); } /* Set the scale for the abscissa */ -void +bool xrchart_write_xscale (cairo_t *cr, struct xrchart_geometry *geom, double smin, double smax) { - xrchart_write_scale (cr, geom, smin, smax, SCALE_ABSCISSA); + return xrchart_write_scale (cr, geom, smin, smax, SCALE_ABSCISSA); } @@ -470,7 +485,7 @@ xrchart_write_legend (cairo_t *cr, const struct xrchart_geometry *geom) const int swatch = 20; const int legend_top = geom->axis[SCALE_ORDINATE].data_max; const int legend_bottom = legend_top - - (vstep * geom->n_datasets + 2 * ypad ); + (vstep * geom->n_datasets + 2 * ypad); cairo_save (cr); @@ -479,7 +494,7 @@ xrchart_write_legend (cairo_t *cr, const struct xrchart_geometry *geom) legend_bottom - legend_top); cairo_stroke (cr); - for (i = 0 ; i < geom->n_datasets ; ++i ) + for (i = 0 ; i < geom->n_datasets ; ++i) { const int ypos = legend_top - vstep * (i + 1); const int xpos = geom->legend_left + xpad; @@ -579,10 +594,10 @@ xrchart_line(cairo_t *cr, const struct xrchart_geometry *geom, double x1, y1; double x2, y2; - if ( lim_dim == XRCHART_DIM_Y ) + if (lim_dim == XRCHART_DIM_Y) { - x1 = ( limit1 - intercept ) / slope; - x2 = ( limit2 - intercept ) / slope; + x1 = (limit1 - intercept) / slope; + x2 = (limit2 - intercept) / slope; y1 = limit1; y2 = limit2; } @@ -603,4 +618,133 @@ xrchart_line(cairo_t *cr, const struct xrchart_geometry *geom, cairo_line_to (cr, x2, y2); cairo_stroke (cr); } + +void +xr_draw_chart (const struct chart *chart, cairo_t *cr, + double width, double height) +{ + struct xrchart_geometry geom; + + cairo_save (cr); + cairo_translate (cr, 0, height); + cairo_scale (cr, 1.0, -1.0); + xrchart_geometry_init (cr, &geom, width, height); + if (is_boxplot (chart)) + xrchart_draw_boxplot (chart, cr, &geom); + else if (is_histogram_chart (chart)) + xrchart_draw_histogram (chart, cr, &geom); + else if (is_np_plot_chart (chart)) + xrchart_draw_np_plot (chart, cr, &geom); + else if (is_piechart (chart)) + xrchart_draw_piechart (chart, cr, &geom); + else if (is_barchart (chart)) + xrchart_draw_barchart (chart, cr, &geom); + else if (is_roc_chart (chart)) + xrchart_draw_roc (chart, cr, &geom); + else if (is_scree (chart)) + xrchart_draw_scree (chart, cr, &geom); + else if (is_spreadlevel_plot_chart (chart)) + xrchart_draw_spreadlevel (chart, cr, &geom); + else if (is_scatterplot_chart (chart)) + xrchart_draw_scatterplot (chart, cr, &geom); + else + NOT_REACHED (); + xrchart_geometry_free (cr, &geom); + + cairo_restore (cr); +} + +cairo_surface_t * +xr_draw_image_chart (const struct chart *chart, + const struct cell_color *fg, + const struct cell_color *bg) +{ + const int width = 640; + const int length = 480; + + cairo_surface_t *surface = cairo_image_surface_create ( + CAIRO_FORMAT_RGB24, width, length); + cairo_t *cr = cairo_create (surface); + + cairo_set_source_rgb (cr, bg->r / 255.0, bg->g / 255.0, bg->b / 255.0); + cairo_paint (cr); + + cairo_set_source_rgb (cr, fg->r / 255.0, fg->g / 255.0, fg->b / 255.0); + xr_draw_chart (chart, cr, width, length); + + cairo_destroy (cr); + + return surface; +} + +char * +xr_write_png_image (cairo_surface_t *surface, + const char *file_name_template, int number) +{ + const char *number_pos = strchr (file_name_template, '#'); + char *file_name; + if (number_pos != NULL) + file_name = xasprintf ("%.*s%d%s.png", + (int) (number_pos - file_name_template), + file_name_template, number, number_pos + 1); + else + file_name = xasprintf ("%s.png", file_name_template); + + cairo_status_t status = cairo_surface_write_to_png (surface, file_name); + if (status != CAIRO_STATUS_SUCCESS) + msg (ME, _("error writing output file `%s': %s"), + file_name, cairo_status_to_string (status)); + + return file_name; +} + +char * +xr_draw_png_chart (const struct chart *chart, + const char *file_name_template, int number, + const struct cell_color *fg, + const struct cell_color *bg) +{ + cairo_surface_t *surface = xr_draw_image_chart (chart, fg, bg); + char *file_name = xr_write_png_image (surface, file_name_template, number); + cairo_surface_destroy (surface); + return file_name; +} + +char * +xr_draw_eps_chart (const struct chart *chart, + const char *file_name_template, int number, + const struct cell_color *fg, + const struct cell_color *bg) +{ + const int width = 640; + const int length = 480; + + cairo_surface_t *surface; + const char *number_pos; + char *file_name; + cairo_t *cr; + + number_pos = strchr (file_name_template, '#'); + if (number_pos != NULL) + file_name = xasprintf ("%.*s%d%s.eps", (int) (number_pos - file_name_template), + file_name_template, number, number_pos + 1); + else + file_name = xasprintf ("%s.eps", file_name_template); + + surface = cairo_ps_surface_create (file_name, width, length); + cairo_ps_surface_set_eps (surface, true); + cr = cairo_create (surface); + + cairo_set_source_rgb (cr, bg->r / 255.0, bg->g / 255.0, bg->b / 255.0); + cairo_paint (cr); + + cairo_set_source_rgb (cr, fg->r / 255.0, fg->g / 255.0, fg->b / 255.0); + + xr_draw_chart (chart, cr, width, length); + + cairo_destroy (cr); + cairo_surface_destroy (surface); + + return file_name; +}