X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Foutput%2Fcharts%2Fplot-chart.c;h=9978c8c97747a51af578b6173446b11045876075;hb=3af9bac9f7828e3a98bb6a76bd6cf63e8d834a70;hp=f965a6fed1aa746779f21960a6eaf15018bfa9f7;hpb=000e3e8c5818476c3afbc75fad9347aefb6e902a;p=pspp-builds.git diff --git a/src/output/charts/plot-chart.c b/src/output/charts/plot-chart.c index f965a6fe..9978c8c9 100644 --- a/src/output/charts/plot-chart.c +++ b/src/output/charts/plot-chart.c @@ -1,23 +1,21 @@ -/* PSPP - computes sample statistics. +/* PSPP - a program for statistical analysis. Copyright (C) 2004 Free Software Foundation, Inc. - Written by John Darrington - 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 the Free Software Foundation; either version 2 of the - License, or (at your option) any later version. + 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 + the Free Software Foundation, either version 3 of the License, or + (at your option) any later version. - This program is distributed in the hope that it will be useful, but - WITHOUT ANY WARRANTY; without even the implied warranty of - MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - General Public License for more details. + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. You should have received a copy of the GNU General Public License - along with this program; if not, write to the Free Software - Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA - 02110-1301, USA. */ + along with this program. If not, see . */ #include + #include #include #include @@ -27,15 +25,20 @@ #include #include -#include "chart-geometry.h" -#include "plot-chart.h" -#include "str.h" -#include "alloc.h" -#include "manager.h" -#include "output.h" -#include "plot-chart.h" +#include + +#include + + -const char *data_colour[] = { +#include +#include +#include +#include +#include + + +const char *const data_colour[] = { "brown", "red", "orange", @@ -53,9 +56,9 @@ const char *data_colour[] = { If label is non zero, then print it at the tick mark */ void -draw_tick(struct chart *chart, - enum tick_orientation orientation, - double position, +draw_tick(struct chart *chart, + enum tick_orientation orientation, + double position, const char *label, ...) { const int tickSize = 10; @@ -66,12 +69,12 @@ draw_tick(struct chart *chart, pl_move_r(chart->lp, chart->data_left, chart->data_bottom); - if ( orientation == TICK_ABSCISSA ) + if ( orientation == TICK_ABSCISSA ) pl_flinerel_r(chart->lp, position, 0, position, -tickSize); - else if (orientation == TICK_ORDINATE ) + else if (orientation == TICK_ORDINATE ) pl_flinerel_r(chart->lp, 0, position, -tickSize, position); else - assert(0); + NOT_REACHED (); if ( label ) { char buf[10]; @@ -79,9 +82,9 @@ draw_tick(struct chart *chart, va_start(ap,label); vsnprintf(buf,10,label,ap); - if ( orientation == TICK_ABSCISSA ) + if ( orientation == TICK_ABSCISSA ) pl_alabel_r(chart->lp, 'c','t', buf); - else if (orientation == TICK_ORDINATE ) + else if (orientation == TICK_ORDINATE ) { if ( fabs(position) < DBL_EPSILON ) pl_moverel_r(chart->lp, 0, 10); @@ -91,19 +94,19 @@ draw_tick(struct chart *chart, va_end(ap); } - + pl_restorestate_r(chart->lp); } /* Write the title on a chart*/ -void +void chart_write_title(struct chart *chart, const char *title, ...) { va_list ap; char buf[100]; - if ( ! chart ) + if ( ! chart ) return ; pl_savestate_r(chart->lp); @@ -120,27 +123,27 @@ chart_write_title(struct chart *chart, const char *title, ...) /* Set the scale for the abscissa */ -void +void chart_write_xscale(struct chart *ch, double min, double max, int ticks) { double x; - const double tick_interval = + const double tick_interval = chart_rounded_tick( (max - min) / (double) ticks); assert ( ch ); - ch->x_max = ceil( max / tick_interval ) * tick_interval ; + ch->x_max = ceil( max / tick_interval ) * tick_interval ; ch->x_min = floor ( min / tick_interval ) * tick_interval ; - ch->abscissa_scale = fabs(ch->data_right - ch->data_left) / + ch->abscissa_scale = fabs(ch->data_right - ch->data_left) / fabs(ch->x_max - ch->x_min); for(x = ch->x_min ; x <= ch->x_max; x += tick_interval ) { - draw_tick (ch, TICK_ABSCISSA, + draw_tick (ch, TICK_ABSCISSA, (x - ch->x_min) * ch->abscissa_scale, "%g", x); } @@ -148,26 +151,61 @@ chart_write_xscale(struct chart *ch, double min, double max, int ticks) /* Set the scale for the ordinate */ -void +void chart_write_yscale(struct chart *ch, double smin, double smax, int ticks) { double y; - const double tick_interval = + const double tick_interval = chart_rounded_tick( (smax - smin) / (double) ticks); - if ( !ch ) + if ( !ch ) return; - ch->y_max = ceil ( smax / tick_interval ) * tick_interval ; + ch->y_max = ceil ( smax / tick_interval ) * tick_interval ; ch->y_min = floor ( smin / tick_interval ) * tick_interval ; - ch->ordinate_scale = + ch->ordinate_scale = fabs(ch->data_top - ch->data_bottom) / fabs(ch->y_max - ch->y_min) ; for(y = ch->y_min ; y <= ch->y_max; y += tick_interval ) { - draw_tick (ch, TICK_ORDINATE, + draw_tick (ch, TICK_ORDINATE, (y - ch->y_min) * ch->ordinate_scale, "%g", y); } } + + +/* Write the abscissa label */ +void +chart_write_xlabel(struct chart *ch, const char *label) +{ + if ( ! ch ) + return ; + + pl_savestate_r(ch->lp); + + pl_move_r(ch->lp,ch->data_left, ch->abscissa_top); + pl_alabel_r(ch->lp,0,'t',label); + + pl_restorestate_r(ch->lp); + +} + + + +/* Write the ordinate label */ +void +chart_write_ylabel(struct chart *ch, const char *label) +{ + if ( ! ch ) + return ; + + pl_savestate_r(ch->lp); + + pl_move_r(ch->lp, ch->data_bottom, ch->ordinate_right); + pl_textangle_r(ch->lp, 90); + pl_alabel_r(ch->lp, 0, 0, label); + + pl_restorestate_r(ch->lp); +}