437 lines
13 KiB
C++
437 lines
13 KiB
C++
//
|
|
// "$Id: Fl_Chart.cxx 7903 2010-11-28 21:06:39Z matt $"
|
|
//
|
|
// Forms-compatible chart widget for the Fast Light Tool Kit (FLTK).
|
|
//
|
|
// Copyright 1998-2010 by Bill Spitzak and others.
|
|
//
|
|
// This library is free software; you can redistribute it and/or
|
|
// modify it under the terms of the GNU Library General Public
|
|
// License as published by the Free Software Foundation; either
|
|
// version 2 of the License, or (at your option) any later version.
|
|
//
|
|
// This library 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
|
|
// Library General Public License for more details.
|
|
//
|
|
// You should have received a copy of the GNU Library General Public
|
|
// License along with this library; if not, write to the Free Software
|
|
// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
|
|
// USA.
|
|
//
|
|
// Please report all bugs and problems on the following page:
|
|
//
|
|
// http://www.fltk.org/str.php
|
|
//
|
|
|
|
#include <FL/math.h>
|
|
#include <FL/Fl.H>
|
|
#include <FL/Fl_Chart.H>
|
|
#include <FL/fl_draw.H>
|
|
#include "flstring.h"
|
|
#include <stdlib.h>
|
|
|
|
#define ARCINC (2.0*M_PI/360.0)
|
|
|
|
// this function is in fl_boxtype.cxx:
|
|
void fl_rectbound(int x,int y,int w,int h, Fl_Color color);
|
|
|
|
/* Widget specific information */
|
|
|
|
static void draw_barchart(int x,int y,int w,int h,
|
|
int numb, FL_CHART_ENTRY entries[],
|
|
double min, double max, int autosize, int maxnumb,
|
|
Fl_Color textcolor)
|
|
/* Draws a bar chart. x,y,w,h is the bounding box, entries the array of
|
|
numb entries and min and max the boundaries. */
|
|
{
|
|
double incr;
|
|
int zeroh;
|
|
double lh = fl_height();
|
|
if (max == min) incr = h;
|
|
else incr = h/(max-min);
|
|
if ( (-min*incr) < lh) {
|
|
incr = (h - lh + min*incr)/(max-min);
|
|
zeroh = int(y+h-lh);
|
|
} else {
|
|
zeroh = (int)rint(y+h+min * incr);
|
|
}
|
|
int bwidth = (int)rint(w/double(autosize?numb:maxnumb));
|
|
/* Draw base line */
|
|
fl_color(textcolor);
|
|
fl_line(x, zeroh, x+w, zeroh);
|
|
if (min == 0.0 && max == 0.0) return; /* Nothing else to draw */
|
|
int i;
|
|
/* Draw the bars */
|
|
for (i=0; i<numb; i++) {
|
|
int hh = (int)rint(entries[i].val*incr);
|
|
if (hh < 0)
|
|
fl_rectbound(x+i*bwidth,zeroh,bwidth+1,-hh+1, (Fl_Color)entries[i].col);
|
|
else if (hh > 0)
|
|
fl_rectbound(x+i*bwidth,zeroh-hh,bwidth+1,hh+1,(Fl_Color)entries[i].col);
|
|
}
|
|
/* Draw the labels */
|
|
fl_color(textcolor);
|
|
for (i=0; i<numb; i++)
|
|
fl_draw(entries[i].str,
|
|
x+i*bwidth+bwidth/2,zeroh,0,0,
|
|
FL_ALIGN_TOP);
|
|
}
|
|
|
|
static void draw_horbarchart(int x,int y,int w,int h,
|
|
int numb, FL_CHART_ENTRY entries[],
|
|
double min, double max, int autosize, int maxnumb,
|
|
Fl_Color textcolor)
|
|
/* Draws a horizontal bar chart. x,y,w,h is the bounding box, entries the
|
|
array of numb entries and min and max the boundaries. */
|
|
{
|
|
int i;
|
|
double lw = 0.0; /* Maximal label width */
|
|
/* Compute maximal label width */
|
|
for (i=0; i<numb; i++) {
|
|
double w1 = fl_width(entries[i].str);
|
|
if (w1 > lw) lw = w1;
|
|
}
|
|
if (lw > 0.0) lw += 4.0;
|
|
double incr;
|
|
int zeroh;
|
|
if (max == min) incr = w;
|
|
else incr = w/(max-min);
|
|
if ( (-min*incr) < lw) {
|
|
incr = (w - lw + min*incr)/(max-min);
|
|
zeroh = x+(int)rint(lw);
|
|
} else {
|
|
zeroh = (int)rint(x-min * incr);
|
|
}
|
|
int bwidth = (int)rint(h/double(autosize?numb:maxnumb));
|
|
/* Draw base line */
|
|
fl_color(textcolor);
|
|
fl_line(zeroh, y, zeroh, y+h);
|
|
if (min == 0.0 && max == 0.0) return; /* Nothing else to draw */
|
|
/* Draw the bars */
|
|
for (i=0; i<numb; i++) {
|
|
int ww = (int)rint(entries[i].val*incr);
|
|
if (ww > 0)
|
|
fl_rectbound(zeroh,y+i*bwidth,ww+1,bwidth+1, (Fl_Color)entries[i].col);
|
|
else if (ww < 0)
|
|
fl_rectbound(zeroh+ww,y+i*bwidth,-ww+1,bwidth+1,(Fl_Color)entries[i].col);
|
|
}
|
|
/* Draw the labels */
|
|
fl_color(textcolor);
|
|
for (i=0; i<numb; i++)
|
|
fl_draw(entries[i].str,
|
|
zeroh-2,y+i*bwidth+bwidth/2,0,0,
|
|
FL_ALIGN_RIGHT);
|
|
}
|
|
|
|
static void draw_linechart(int type, int x,int y,int w,int h,
|
|
int numb, FL_CHART_ENTRY entries[],
|
|
double min, double max, int autosize, int maxnumb,
|
|
Fl_Color textcolor)
|
|
/* Draws a line chart. x,y,w,h is the bounding box, entries the array of
|
|
numb entries and min and max the boundaries. */
|
|
{
|
|
int i;
|
|
double lh = fl_height();
|
|
double incr;
|
|
if (max == min) incr = h-2.0*lh;
|
|
else incr = (h-2.0*lh)/ (max-min);
|
|
int zeroh = (int)rint(y+h-lh+min * incr);
|
|
double bwidth = w/double(autosize?numb:maxnumb);
|
|
/* Draw the values */
|
|
for (i=0; i<numb; i++) {
|
|
int x0 = x + (int)rint((i-.5)*bwidth);
|
|
int x1 = x + (int)rint((i+.5)*bwidth);
|
|
int yy0 = i ? zeroh - (int)rint(entries[i-1].val*incr) : 0;
|
|
int yy1 = zeroh - (int)rint(entries[i].val*incr);
|
|
if (type == FL_SPIKE_CHART) {
|
|
fl_color((Fl_Color)entries[i].col);
|
|
fl_line(x1, zeroh, x1, yy1);
|
|
} else if (type == FL_LINE_CHART && i != 0) {
|
|
fl_color((Fl_Color)entries[i-1].col);
|
|
fl_line(x0,yy0,x1,yy1);
|
|
} else if (type == FL_FILLED_CHART && i != 0) {
|
|
fl_color((Fl_Color)entries[i-1].col);
|
|
if ((entries[i-1].val>0.0)!=(entries[i].val>0.0)) {
|
|
double ttt = entries[i-1].val/(entries[i-1].val-entries[i].val);
|
|
int xt = x + (int)rint((i-.5+ttt)*bwidth);
|
|
fl_polygon(x0,zeroh, x0,yy0, xt,zeroh);
|
|
fl_polygon(xt,zeroh, x1,yy1, x1,zeroh);
|
|
} else {
|
|
fl_polygon(x0,zeroh, x0,yy0, x1,yy1, x1,zeroh);
|
|
}
|
|
fl_color(textcolor);
|
|
fl_line(x0,yy0,x1,yy1);
|
|
}
|
|
}
|
|
/* Draw base line */
|
|
fl_color(textcolor);
|
|
fl_line(x,zeroh,x+w,zeroh);
|
|
/* Draw the labels */
|
|
for (i=0; i<numb; i++)
|
|
fl_draw(entries[i].str,
|
|
x+(int)rint((i+.5)*bwidth), zeroh - (int)rint(entries[i].val*incr),0,0,
|
|
entries[i].val>=0 ? FL_ALIGN_BOTTOM : FL_ALIGN_TOP);
|
|
}
|
|
|
|
static void draw_piechart(int x,int y,int w,int h,
|
|
int numb, FL_CHART_ENTRY entries[], int special,
|
|
Fl_Color textcolor)
|
|
/* Draws a pie chart. x,y,w,h is the bounding box, entries the array of
|
|
numb entries */
|
|
{
|
|
int i;
|
|
double xc,yc,rad; /* center and radius */
|
|
double tot; /* sum of values */
|
|
double incr; /* increment in angle */
|
|
double curang; /* current angle we are drawing */
|
|
double txc,tyc; /* temporary center */
|
|
double lh = fl_height();
|
|
/* compute center and radius */
|
|
double h_denom = (special ? 2.3 : 2.0);
|
|
rad = (h - 2*lh)/h_denom/1.1;
|
|
xc = x+w/2.0; yc = y+h-1.1*rad-lh;
|
|
/* compute sum of values */
|
|
tot = 0.0;
|
|
for (i=0; i<numb; i++)
|
|
if (entries[i].val > 0.0) tot += entries[i].val;
|
|
if (tot == 0.0) return;
|
|
incr = 360.0/tot;
|
|
/* Draw the pie */
|
|
curang = 0.0;
|
|
for (i=0; i<numb; i++)
|
|
if (entries[i].val > 0.0)
|
|
{
|
|
txc = xc; tyc = yc;
|
|
/* Correct for special pies */
|
|
if (special && i==0)
|
|
{
|
|
txc += 0.3*rad*cos(ARCINC*(curang+0.5*incr*entries[i].val));
|
|
tyc -= 0.3*rad*sin(ARCINC*(curang+0.5*incr*entries[i].val));
|
|
}
|
|
fl_color((Fl_Color)entries[i].col);
|
|
fl_begin_polygon(); fl_vertex(txc,tyc);
|
|
fl_arc(txc,tyc,rad,curang, curang+incr*entries[i].val);
|
|
fl_end_polygon();
|
|
fl_color(textcolor);
|
|
fl_begin_loop(); fl_vertex(txc,tyc);
|
|
fl_arc(txc,tyc,rad,curang, curang+incr*entries[i].val);
|
|
fl_end_loop();
|
|
curang += 0.5 * incr * entries[i].val;
|
|
/* draw the label */
|
|
double xl = txc + 1.1*rad*cos(ARCINC*curang);
|
|
fl_draw(entries[i].str,
|
|
(int)rint(xl),
|
|
(int)rint(tyc - 1.1*rad*sin(ARCINC*curang)),
|
|
0, 0,
|
|
xl<txc ? FL_ALIGN_RIGHT : FL_ALIGN_LEFT);
|
|
curang += 0.5 * incr * entries[i].val;
|
|
}
|
|
}
|
|
|
|
void Fl_Chart::draw() {
|
|
|
|
draw_box();
|
|
Fl_Boxtype b = box();
|
|
int xx = x()+Fl::box_dx(b); // was 9 instead of dx...
|
|
int yy = y()+Fl::box_dy(b);
|
|
int ww = w()-Fl::box_dw(b);
|
|
int hh = h()-Fl::box_dh(b);
|
|
fl_push_clip(xx, yy, ww, hh);
|
|
|
|
ww--; hh--; // adjust for line thickness
|
|
|
|
if (min >= max) {
|
|
min = max = 0.0;
|
|
for (int i=0; i<numb; i++) {
|
|
if (entries[i].val < min) min = entries[i].val;
|
|
if (entries[i].val > max) max = entries[i].val;
|
|
}
|
|
}
|
|
|
|
fl_font(textfont(),textsize());
|
|
|
|
switch (type()) {
|
|
case FL_BAR_CHART:
|
|
ww++; // makes the bars fill box correctly
|
|
draw_barchart(xx,yy,ww,hh, numb, entries, min, max,
|
|
autosize(), maxnumb, textcolor());
|
|
break;
|
|
case FL_HORBAR_CHART:
|
|
hh++; // makes the bars fill box correctly
|
|
draw_horbarchart(xx,yy,ww,hh, numb, entries, min, max,
|
|
autosize(), maxnumb, textcolor());
|
|
break;
|
|
case FL_PIE_CHART:
|
|
draw_piechart(xx,yy,ww,hh,numb,entries,0, textcolor());
|
|
break;
|
|
case FL_SPECIALPIE_CHART:
|
|
draw_piechart(xx,yy,ww,hh,numb,entries,1,textcolor());
|
|
break;
|
|
default:
|
|
draw_linechart(type(),xx,yy,ww,hh, numb, entries, min, max,
|
|
autosize(), maxnumb, textcolor());
|
|
break;
|
|
}
|
|
draw_label();
|
|
fl_pop_clip();
|
|
}
|
|
|
|
/*------------------------------*/
|
|
|
|
#define FL_CHART_BOXTYPE FL_BORDER_BOX
|
|
#define FL_CHART_COL1 FL_COL1
|
|
#define FL_CHART_LCOL FL_LCOL
|
|
#define FL_CHART_ALIGN FL_ALIGN_BOTTOM
|
|
|
|
/**
|
|
Create a new Fl_Chart widget using the given position, size and label string.
|
|
The default boxstyle is \c FL_NO_BOX.
|
|
\param[in] X, Y, W, H position and size of the widget
|
|
\param[in] L widget label, default is no label
|
|
*/
|
|
Fl_Chart::Fl_Chart(int X, int Y, int W, int H,const char *L) :
|
|
Fl_Widget(X,Y,W,H,L) {
|
|
box(FL_BORDER_BOX);
|
|
align(FL_ALIGN_BOTTOM);
|
|
numb = 0;
|
|
maxnumb = 0;
|
|
sizenumb = FL_CHART_MAX;
|
|
autosize_ = 1;
|
|
min = max = 0;
|
|
textfont_ = FL_HELVETICA;
|
|
textsize_ = 10;
|
|
textcolor_ = FL_FOREGROUND_COLOR;
|
|
entries = (FL_CHART_ENTRY *)calloc(sizeof(FL_CHART_ENTRY), FL_CHART_MAX + 1);
|
|
}
|
|
|
|
/**
|
|
Destroys the Fl_Chart widget and all of its data.
|
|
*/
|
|
Fl_Chart::~Fl_Chart() {
|
|
free(entries);
|
|
}
|
|
|
|
/**
|
|
Removes all values from the chart.
|
|
*/
|
|
void Fl_Chart::clear() {
|
|
numb = 0;
|
|
min = max = 0;
|
|
redraw();
|
|
}
|
|
|
|
/**
|
|
Add the data value \p val with optional label \p str and color \p col
|
|
to the chart.
|
|
\param[in] val data value
|
|
\param[in] str optional data label
|
|
\param[in] col optional data color
|
|
*/
|
|
void Fl_Chart::add(double val, const char *str, unsigned col) {
|
|
/* Allocate more entries if required */
|
|
if (numb >= sizenumb) {
|
|
sizenumb += FL_CHART_MAX;
|
|
entries = (FL_CHART_ENTRY *)realloc(entries, sizeof(FL_CHART_ENTRY) * (sizenumb + 1));
|
|
}
|
|
// Shift entries as needed
|
|
if (numb >= maxnumb && maxnumb > 0) {
|
|
memmove(entries, entries + 1, sizeof(FL_CHART_ENTRY) * (numb - 1));
|
|
numb --;
|
|
}
|
|
entries[numb].val = float(val);
|
|
entries[numb].col = col;
|
|
if (str) {
|
|
strlcpy(entries[numb].str,str,FL_CHART_LABEL_MAX + 1);
|
|
} else {
|
|
entries[numb].str[0] = 0;
|
|
}
|
|
numb++;
|
|
redraw();
|
|
}
|
|
|
|
/**
|
|
Inserts a data value \p val at the given position \p ind.
|
|
Position 1 is the first data value.
|
|
\param[in] ind insertion position
|
|
\param[in] val data value
|
|
\param[in] str optional data label
|
|
\param[in] col optional data color
|
|
*/
|
|
void Fl_Chart::insert(int ind, double val, const char *str, unsigned col) {
|
|
int i;
|
|
if (ind < 1 || ind > numb+1) return;
|
|
/* Allocate more entries if required */
|
|
if (numb >= sizenumb) {
|
|
sizenumb += FL_CHART_MAX;
|
|
entries = (FL_CHART_ENTRY *)realloc(entries, sizeof(FL_CHART_ENTRY) * (sizenumb + 1));
|
|
}
|
|
// Shift entries as needed
|
|
for (i=numb; i >= ind; i--) entries[i] = entries[i-1];
|
|
if (numb < maxnumb || maxnumb == 0) numb++;
|
|
/* Fill in the new entry */
|
|
entries[ind-1].val = float(val);
|
|
entries[ind-1].col = col;
|
|
if (str) {
|
|
strlcpy(entries[ind-1].str,str,FL_CHART_LABEL_MAX+1);
|
|
} else {
|
|
entries[ind-1].str[0] = 0;
|
|
}
|
|
redraw();
|
|
}
|
|
|
|
/**
|
|
Replace a data value \p val at the given position \p ind.
|
|
Position 1 is the first data value.
|
|
\param[in] ind insertion position
|
|
\param[in] val data value
|
|
\param[in] str optional data label
|
|
\param[in] col optional data color
|
|
*/
|
|
void Fl_Chart::replace(int ind,double val, const char *str, unsigned col) {
|
|
if (ind < 1 || ind > numb) return;
|
|
entries[ind-1].val = float(val);
|
|
entries[ind-1].col = col;
|
|
if (str) {
|
|
strlcpy(entries[ind-1].str,str,FL_CHART_LABEL_MAX+1);
|
|
} else {
|
|
entries[ind-1].str[0] = 0;
|
|
}
|
|
redraw();
|
|
}
|
|
|
|
/**
|
|
Sets the lower and upper bounds of the chart values.
|
|
\param[in] a, b are used to set lower, upper
|
|
*/
|
|
void Fl_Chart::bounds(double a, double b) {
|
|
this->min = a;
|
|
this->max = b;
|
|
redraw();
|
|
}
|
|
|
|
/**
|
|
Set the maximum number of data values for a chart.
|
|
If you do not call this method then the chart will be allowed to grow
|
|
to any size depending on available memory.
|
|
\param[in] m maximum number of data values allowed.
|
|
*/
|
|
void Fl_Chart::maxsize(int m) {
|
|
int i;
|
|
/* Fill in the new number */
|
|
if (m < 0) return;
|
|
maxnumb = m;
|
|
/* Shift entries if required */
|
|
if (numb > maxnumb) {
|
|
for (i = 0; i<maxnumb; i++)
|
|
entries[i] = entries[i+numb-maxnumb];
|
|
numb = maxnumb;
|
|
redraw();
|
|
}
|
|
}
|
|
|
|
//
|
|
// End of "$Id: Fl_Chart.cxx 7903 2010-11-28 21:06:39Z matt $".
|
|
//
|