/* PSPP - a program for statistical analysis.
- Copyright (C) 2004, 2009 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
#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)
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;
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);
}
free (geom->dataset);
}
-#if ! PANGO_VERSION_CHECK (2, 22, 0)
+#if ! PANGO_VERSION_CHECK (1, 22, 0)
int pango_layout_get_baseline (PangoLayout *layout);
/* Shamelessly copied from the pango source */
}
void
-xrchart_label (cairo_t *cr, int horz_justify, int vert_justify,
- double font_size, const char *string)
+xrchart_label_rotate (cairo_t *cr, int horz_justify, int vert_justify,
+ double font_size, const char *string, double angle)
{
PangoFontDescription *desc;
PangoLayout *layout;
pango_font_description_set_absolute_size (desc, font_size * PANGO_SCALE);
cairo_save (cr);
+ cairo_rotate (cr, angle);
cairo_get_current_point (cr, &x, &y);
cairo_translate (cr, x, y);
cairo_move_to (cr, 0, 0);
pango_font_description_free (desc);
}
+void
+xrchart_label (cairo_t *cr, int horz_justify, int vert_justify,
+ double font_size, const char *string)
+{
+ xrchart_label_rotate (cr, horz_justify, vert_justify, font_size, string, 0);
+}
+
+
/* 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,
+ bool rotated,
+ double position,
+ const char *s);
+
void
draw_tick (cairo_t *cr, const struct xrchart_geometry *geom,
enum tick_orientation orientation,
+ bool rotated,
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, rotated, position, s);
+ free (s);
+ va_end (ap);
+}
+
+
+static void
+draw_tick_internal (cairo_t *cr, const struct xrchart_geometry *geom,
+ enum tick_orientation orientation,
+ bool rotated,
+ 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);
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)
- xrchart_label (cr, 'c', 't', geom->font_size, s);
- else if (orientation == TICK_ORDINATE)
+ if (orientation == SCALE_ABSCISSA)
+ {
+ 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);
+ }
+ 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);
}
}
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);
}
-/* Set the scale for the abscissa */
-void
-xrchart_write_xscale (cairo_t *cr, struct xrchart_geometry *geom,
- double min, double max, int ticks)
+
+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, false,
+ 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);
}
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);
}
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 );
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);
}
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);
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);