X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Foutput%2Fcairo-chart.c;h=6625452122a9590c35b9f6cc06f7ac43d365a0c5;hb=d9c6597d5b7a0fb3211d5ba0696b0c9681c776c0;hp=a776eab3fc7aed926cb2de4986a235a60017fa8d;hpb=f550aee00a62fe1d8baf62d83cd7efef6cc2ee92;p=pspp diff --git a/src/output/cairo-chart.c b/src/output/cairo-chart.c index a776eab3fc..6625452122 100644 --- a/src/output/cairo-chart.c +++ b/src/output/cairo-chart.c @@ -1,5 +1,5 @@ /* PSPP - a program for statistical analysis. - Copyright (C) 2004, 2009, 2010 Free Software Foundation, Inc. + Copyright (C) 2004, 2009, 2010, 2011 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 @@ -35,9 +35,9 @@ #include "output/cairo.h" #include "output/chart-item.h" -#include "error.h" -#include "xalloc.h" -#include "xvasprintf.h" +#include "gl/error.h" +#include "gl/xalloc.h" +#include "gl/xvasprintf.h" #include "gettext.h" #define _(msgid) gettext (msgid) @@ -46,13 +46,14 @@ void xrchart_geometry_init (cairo_t *cr, struct xrchart_geometry *geom, double width, double length) { - /* Set default chartetry. */ - geom->data_top = 0.900 * length; - geom->data_right = 0.800 * width; - geom->data_bottom = 0.120 * length; - geom->data_left = 0.150 * width; - geom->abscissa_top = 0.070 * length; - geom->ordinate_right = 0.120 * width; + /* Set default chart geometry. */ + geom->axis[SCALE_ORDINATE].data_max = 0.900 * length; + geom->axis[SCALE_ORDINATE].data_min = 0.120 * length; + + geom->axis[SCALE_ABSCISSA].data_min = 0.150 * width; + geom->axis[SCALE_ABSCISSA].data_max = 0.800 * width; + geom->abscissa_bottom = 0.070 * length; + geom->ordinate_left = 0.050 * width; geom->title_bottom = 0.920 * length; geom->legend_left = 0.810 * width; geom->legend_right = width; @@ -67,9 +68,9 @@ xrchart_geometry_init (cairo_t *cr, struct xrchart_geometry *geom, cairo_set_line_width (cr, 1.0); - cairo_rectangle (cr, geom->data_left, geom->data_bottom, - geom->data_right - geom->data_left, - geom->data_top - geom->data_bottom); + 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_stroke (cr); } @@ -215,25 +216,51 @@ xrchart_label (cairo_t *cr, int horz_justify, int vert_justify, } /* Draw a tick mark at position - If label is non zero, then print it at the tick mark + If label is non null, then print it at the tick mark */ +static void +draw_tick_internal (cairo_t *cr, const struct xrchart_geometry *geom, + enum tick_orientation orientation, + double position, + const char *s); + void draw_tick (cairo_t *cr, const struct xrchart_geometry *geom, enum tick_orientation orientation, double position, const char *label, ...) +{ + va_list ap; + char *s; + va_start (ap, label); + s = xvasprintf (label, ap); + + if (fabs (position) < DBL_EPSILON) + position = 0; + + draw_tick_internal (cr, geom, orientation, position, s); + free (s); + va_end (ap); +} + + +static void +draw_tick_internal (cairo_t *cr, const struct xrchart_geometry *geom, + enum tick_orientation orientation, + double position, + const char *s) { const int tickSize = 10; double x, y; - cairo_move_to (cr, geom->data_left, geom->data_bottom); + cairo_move_to (cr, geom->axis[SCALE_ABSCISSA].data_min, geom->axis[SCALE_ORDINATE].data_min); - if (orientation == TICK_ABSCISSA) + if (orientation == SCALE_ABSCISSA) { cairo_rel_move_to (cr, position, 0); cairo_rel_line_to (cr, 0, -tickSize); } - else if (orientation == TICK_ORDINATE) + else if (orientation == SCALE_ORDINATE) { cairo_rel_move_to (cr, 0, position); cairo_rel_line_to (cr, -tickSize, 0); @@ -244,25 +271,18 @@ draw_tick (cairo_t *cr, const struct xrchart_geometry *geom, cairo_stroke (cr); - if (label != NULL) + if (s != NULL) { - va_list ap; - char *s; - cairo_move_to (cr, x, y); - va_start (ap, label); - s = xvasprintf (label, ap); - if (orientation == TICK_ABSCISSA) + if (orientation == SCALE_ABSCISSA) xrchart_label (cr, 'c', 't', geom->font_size, s); - else if (orientation == TICK_ORDINATE) + else if (orientation == SCALE_ORDINATE) { if (fabs (position) < DBL_EPSILON) cairo_rel_move_to (cr, 0, 10); xrchart_label (cr, 'r', 'c', geom->font_size, s); } - free (s); - va_end (ap); } } @@ -276,7 +296,7 @@ xrchart_write_title (cairo_t *cr, const struct xrchart_geometry *geom, char *s; cairo_save (cr); - cairo_move_to (cr, geom->data_left, geom->title_bottom); + cairo_move_to (cr, geom->axis[SCALE_ABSCISSA].data_min, geom->title_bottom); va_start(ap, title); s = xvasprintf (title, ap); @@ -288,55 +308,55 @@ xrchart_write_title (cairo_t *cr, const struct xrchart_geometry *geom, } -/* Set the scale for the abscissa */ -void -xrchart_write_xscale (cairo_t *cr, struct xrchart_geometry *geom, - double min, double max, int ticks) +/* Set the scale for the ordinate */ +static void +xrchart_write_scale (cairo_t *cr, struct xrchart_geometry *geom, + double smin, double smax, int ticks, enum tick_orientation orient) { - double x; + int s; const double tick_interval = - chart_rounded_tick ((max - min) / (double) ticks); + chart_rounded_tick ((smax - smin) / (double) ticks); - geom->x_max = ceil (max / tick_interval) * tick_interval; - geom->x_min = floor (min / tick_interval) * tick_interval; - geom->abscissa_scale = fabs(geom->data_right - geom->data_left) / - fabs(geom->x_max - geom->x_min); + int upper = ceil (smax / tick_interval); + int lower = floor (smin / tick_interval); - for (x = geom->x_min; x <= geom->x_max; x += tick_interval) - draw_tick (cr, geom, TICK_ABSCISSA, - (x - geom->x_min) * geom->abscissa_scale, "%g", x); -} + geom->axis[orient].max = tick_interval * upper; + geom->axis[orient].min = tick_interval * lower; + geom->axis[orient].scale = (fabs (geom->axis[orient].data_max - geom->axis[orient].data_min) + / fabs (geom->axis[orient].max - geom->axis[orient].min)); + + for (s = 0 ; s < upper - lower; ++s) + { + double pos = (s + lower) * tick_interval; + draw_tick (cr, geom, orient, + s * tick_interval * geom->axis[orient].scale, "%g", pos); + } +} -/* Set the scale for the ordinate */ void xrchart_write_yscale (cairo_t *cr, struct xrchart_geometry *geom, double smin, double smax, int ticks) { - double y; - - const double tick_interval = - chart_rounded_tick ((smax - smin) / (double) ticks); - - geom->y_max = ceil (smax / tick_interval) * tick_interval; - geom->y_min = floor (smin / tick_interval) * tick_interval; - - geom->ordinate_scale = - (fabs (geom->data_top - geom->data_bottom) - / fabs (geom->y_max - geom->y_min)); + xrchart_write_scale (cr, geom, smin, smax, ticks, SCALE_ORDINATE); +} - for (y = geom->y_min; y <= geom->y_max; y += tick_interval) - draw_tick (cr, geom, TICK_ORDINATE, - (y - geom->y_min) * geom->ordinate_scale, "%g", y); +/* Set the scale for the abscissa */ +void +xrchart_write_xscale (cairo_t *cr, struct xrchart_geometry *geom, + double smin, double smax, int ticks) +{ + xrchart_write_scale (cr, geom, smin, smax, ticks, SCALE_ABSCISSA); } + /* Write the abscissa label */ void xrchart_write_xlabel (cairo_t *cr, const struct xrchart_geometry *geom, const char *label) { - cairo_move_to (cr, geom->data_left, geom->abscissa_top); + cairo_move_to (cr, geom->axis[SCALE_ABSCISSA].data_min, geom->abscissa_bottom); xrchart_label (cr, 'l', 't', geom->font_size, label); } @@ -346,9 +366,9 @@ xrchart_write_ylabel (cairo_t *cr, const struct xrchart_geometry *geom, const char *label) { cairo_save (cr); - cairo_translate (cr, -geom->data_bottom, -geom->ordinate_right); - cairo_move_to (cr, 0, 0); + cairo_translate (cr, geom->ordinate_left, geom->axis[SCALE_ORDINATE].data_min); cairo_rotate (cr, M_PI / 2.0); + xrchart_label (cr, 'l', 'x', geom->font_size, label); cairo_restore (cr); } @@ -362,7 +382,7 @@ xrchart_write_legend (cairo_t *cr, const struct xrchart_geometry *geom) const int xpad = 10; const int ypad = 10; const int swatch = 20; - const int legend_top = geom->data_top; + const int legend_top = geom->axis[SCALE_ORDINATE].data_max; const int legend_bottom = legend_top - (vstep * geom->n_datasets + 2 * ypad ); @@ -425,8 +445,8 @@ void xrchart_datum (cairo_t *cr, const struct xrchart_geometry *geom, int dataset UNUSED, double x, double y) { - double x_pos = (x - geom->x_min) * geom->abscissa_scale + geom->data_left; - double y_pos = (y - geom->y_min) * geom->ordinate_scale + geom->data_bottom; + double x_pos = (x - geom->axis[SCALE_ABSCISSA].min) * geom->axis[SCALE_ABSCISSA].scale + geom->axis[SCALE_ABSCISSA].data_min; + double y_pos = (y - geom->axis[SCALE_ORDINATE].min) * geom->axis[SCALE_ORDINATE].scale + geom->axis[SCALE_ORDINATE].data_min; xrchart_draw_marker (cr, x_pos, y_pos, XRMARKER_SQUARE, 15); } @@ -444,10 +464,10 @@ void xrchart_vector (cairo_t *cr, struct xrchart_geometry *geom, double x, double y) { const double x_pos = - (x - geom->x_min) * geom->abscissa_scale + geom->data_left ; + (x - geom->axis[SCALE_ABSCISSA].min) * geom->axis[SCALE_ABSCISSA].scale + geom->axis[SCALE_ABSCISSA].data_min ; const double y_pos = - (y - geom->y_min) * geom->ordinate_scale + geom->data_bottom ; + (y - geom->axis[SCALE_ORDINATE].min) * geom->axis[SCALE_ORDINATE].scale + geom->axis[SCALE_ORDINATE].data_min ; if (geom->in_path) cairo_line_to (cr, x_pos, y_pos); @@ -488,10 +508,10 @@ xrchart_line(cairo_t *cr, const struct xrchart_geometry *geom, y2 = slope * x2 + intercept; } - y1 = (y1 - geom->y_min) * geom->ordinate_scale + geom->data_bottom; - y2 = (y2 - geom->y_min) * geom->ordinate_scale + geom->data_bottom; - x1 = (x1 - geom->x_min) * geom->abscissa_scale + geom->data_left; - x2 = (x2 - geom->x_min) * geom->abscissa_scale + geom->data_left; + y1 = (y1 - geom->axis[SCALE_ORDINATE].min) * geom->axis[SCALE_ORDINATE].scale + geom->axis[SCALE_ORDINATE].data_min; + y2 = (y2 - geom->axis[SCALE_ORDINATE].min) * geom->axis[SCALE_ORDINATE].scale + geom->axis[SCALE_ORDINATE].data_min; + x1 = (x1 - geom->axis[SCALE_ABSCISSA].min) * geom->axis[SCALE_ABSCISSA].scale + geom->axis[SCALE_ABSCISSA].data_min; + x2 = (x2 - geom->axis[SCALE_ABSCISSA].min) * geom->axis[SCALE_ABSCISSA].scale + geom->axis[SCALE_ABSCISSA].data_min; cairo_move_to (cr, x1, y1); cairo_line_to (cr, x2, y2);