summaryrefslogtreecommitdiff
path: root/lib/GD/Graph/bars.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/GD/Graph/bars.pm')
-rw-r--r--lib/GD/Graph/bars.pm372
1 files changed, 372 insertions, 0 deletions
diff --git a/lib/GD/Graph/bars.pm b/lib/GD/Graph/bars.pm
new file mode 100644
index 0000000..2650351
--- /dev/null
+++ b/lib/GD/Graph/bars.pm
@@ -0,0 +1,372 @@
+#==========================================================================
+# Copyright (c) 1995-1998 Martien Verbruggen
+#--------------------------------------------------------------------------
+#
+# Name:
+# GD::Graph::bars.pm
+#
+# $Id: bars.pm,v 1.25 2003/06/11 00:43:49 mgjv Exp $
+#
+#==========================================================================
+
+package GD::Graph::bars;
+
+($GD::Graph::bars::VERSION) = '$Revision: 1.25 $' =~ /\s([\d.]+)/;
+
+use strict;
+
+use GD::Graph::axestype;
+use GD::Graph::utils qw(:all);
+use GD::Graph::colour qw(:colours);
+
+@GD::Graph::bars::ISA = qw(GD::Graph::axestype);
+
+use constant PI => 4 * atan2(1,1);
+
+sub initialise
+{
+ my $self = shift;
+ $self->SUPER::initialise();
+ $self->set(correct_width => 1);
+}
+
+sub draw_data
+{
+ my $self = shift;
+
+ $self->SUPER::draw_data() or return;
+
+ unless ($self->{no_axes})
+ {
+ # redraw the 'zero' axis
+ if ($self->{rotate_chart})
+ {
+ $self->{graph}->line(
+ $self->{zeropoint}, $self->{top},
+ $self->{zeropoint}, $self->{bottom},
+ $self->{fgci} );
+ }
+ else
+ {
+ $self->{graph}->line(
+ $self->{left}, $self->{zeropoint},
+ $self->{right}, $self->{zeropoint},
+ $self->{fgci} );
+ }
+ }
+
+ return $self;
+}
+
+sub _top_values
+{
+ my $self = shift;
+ my @topvalues;
+
+ if ($self->{cumulate})
+ {
+ my $data = $self->{_data};
+ for my $i (0 .. $data->num_points - 1)
+ {
+ push @topvalues, $data->get_y_cumulative($data->num_sets, $i);
+ }
+ }
+
+ return \@topvalues;
+}
+
+#
+# Draw the shadow
+#
+sub _draw_shadow
+{
+ my $self = shift;
+ my ($ds, $i, $value, $topvalues, $l, $t, $r, $b) = @_;
+ my $bsd = $self->{shadow_depth} or return;
+ my $bsci = $self->set_clr(_rgb($self->{shadowclr}));
+
+ if ($self->{cumulate})
+ {
+ return if $ds > 1;
+ $value = $topvalues->[$i];
+ if ($self->{rotate_chart})
+ {
+ $r = ($self->val_to_pixel($i + 1, $value, $ds))[0];
+ }
+ else
+ {
+ $t = ($self->val_to_pixel($i + 1, $value, $ds))[1];
+ }
+ }
+
+ # XXX Clean this up
+ if ($value >= 0)
+ {
+ if ($self->{rotate_chart})
+ {
+ $self->{graph}->filledRectangle(
+ $l, $t + $bsd, $r - $bsd, $b + $bsd, $bsci);
+ }
+ else
+ {
+ $self->{graph}->filledRectangle(
+ $l + $bsd, $t + $bsd, $r + $bsd, $b, $bsci);
+ }
+ }
+ else
+ {
+ if ($self->{rotate_chart})
+ {
+ $self->{graph}->filledRectangle(
+ $l + $bsd, $t, $r + $bsd, $b, $bsci);
+ }
+ else
+ {
+ $self->{graph}->filledRectangle(
+ $l + $bsd, $b, $r + $bsd, $t + $bsd, $bsci);
+ }
+ }
+}
+
+sub draw_data_set_h
+{
+ my $self = shift;
+ my $ds = shift;
+
+ my $bar_s = $self->{bar_spacing}/2;
+
+ # Pick a data colour
+ my $dsci = $self->set_clr($self->pick_data_clr($ds));
+ # contrib "Bremford, Mike" <mike.bremford@gs.com>
+ my $brci = $self->set_clr($self->pick_border_clr($ds));
+
+ my @values = $self->{_data}->y_values($ds) or
+ return $self->_set_error("Impossible illegal data set: $ds",
+ $self->{_data}->error);
+
+ my $topvalues = $self->_top_values;
+
+ for my $i (0 .. $#values)
+ {
+ my $value = $values[$i];
+ next unless defined $value;
+
+ my $l = $self->_get_bottom($ds, $i);
+ $value = $self->{_data}->get_y_cumulative($ds, $i)
+ if ($self->{cumulate});
+
+ # CONTRIB Jeremy Wadsack
+ #
+ # cycle_clrs option sets the color based on the point,
+ # not the dataset.
+ $dsci = $self->set_clr($self->pick_data_clr($i + 1))
+ if $self->{cycle_clrs};
+ $brci = $self->set_clr($self->pick_data_clr($i + 1))
+ if $self->{cycle_clrs} > 1;
+
+ # get coordinates of right and center of bar
+ my ($r, $xp) = $self->val_to_pixel($i + 1, $value, $ds);
+
+ # calculate top and bottom of bar
+ my ($t, $b);
+
+ if (ref $self eq 'GD::Graph::mixed' || $self->{overwrite})
+ {
+ $t = $xp - $self->{x_step}/2 + $bar_s + 1;
+ $b = $xp + $self->{x_step}/2 - $bar_s;
+ }
+ else
+ {
+ $t = $xp
+ - $self->{x_step}/2
+ + ($ds - 1) * $self->{x_step}/$self->{_data}->num_sets
+ + $bar_s + 1;
+ $b = $xp
+ - $self->{x_step}/2
+ + $ds * $self->{x_step}/$self->{_data}->num_sets
+ - $bar_s;
+ }
+
+ # draw the bar
+ $self->_draw_shadow($ds, $i, $value, $topvalues, $l, $t, $r, $b);
+ if ($value >= 0)
+ {
+ # positive value
+ $self->{graph}->filledRectangle($l, $t, $r, $b, $dsci)
+ if defined $dsci;
+ $self->{graph}->rectangle($l, $t, $r, $b, $brci)
+ if defined $brci && $b - $t > $self->{accent_treshold};
+
+ $self->{_hotspots}->[$ds]->[$i] = ['rect', $t, $l, $r, $b]
+ }
+ else
+ {
+ # negative value
+ $self->{graph}->filledRectangle($r, $t, $l, $b, $dsci)
+ if defined $dsci;
+ $self->{graph}->rectangle($l, $t, $r, $b, $brci)
+ if defined $brci && $b - $t > $self->{accent_treshold};
+
+ $self->{_hotspots}->[$ds]->[$i] = ['rect', $t, $l, $b, $r]
+ }
+ }
+
+ return $ds;
+}
+
+sub draw_data_set_v
+{
+ my $self = shift;
+ my $ds = shift;
+
+ my $bar_s = $self->{bar_spacing}/2;
+
+ # Pick a data colour
+ my $dsci = $self->set_clr($self->pick_data_clr($ds));
+ # contrib "Bremford, Mike" <mike.bremford@gs.com>
+ my $brci = $self->set_clr($self->pick_border_clr($ds));
+
+ my @values = $self->{_data}->y_values($ds) or
+ return $self->_set_error("Impossible illegal data set: $ds",
+ $self->{_data}->error);
+
+ my $topvalues = $self->_top_values;
+
+ for (my $i = 0; $i < @values; $i++)
+ {
+ my $value = $values[$i];
+ next unless defined $value;
+
+ my $bottom = $self->_get_bottom($ds, $i);
+ $value = $self->{_data}->get_y_cumulative($ds, $i)
+ if ($self->{cumulate});
+
+ # CONTRIB Jeremy Wadsack
+ #
+ # cycle_clrs option sets the color based on the point,
+ # not the dataset.
+ $dsci = $self->set_clr($self->pick_data_clr($i + 1))
+ if $self->{cycle_clrs};
+ $brci = $self->set_clr($self->pick_data_clr($i + 1))
+ if $self->{cycle_clrs} > 1;
+
+ # get coordinates of top and center of bar
+ my ($xp, $t) = $self->val_to_pixel($i + 1, $value, $ds);
+
+ # calculate left and right of bar
+ my ($l, $r);
+
+ if (ref $self eq 'GD::Graph::mixed' || $self->{overwrite})
+ {
+ $l = $xp - $self->{x_step}/2 + $bar_s + 1;
+ $r = $xp + $self->{x_step}/2 - $bar_s;
+ }
+ else
+ {
+ $l = $xp
+ - $self->{x_step}/2
+ + ($ds - 1) * $self->{x_step}/$self->{_data}->num_sets
+ + $bar_s + 1;
+ $r = $xp
+ - $self->{x_step}/2
+ + $ds * $self->{x_step}/$self->{_data}->num_sets
+ - $bar_s;
+ }
+
+ # draw the bar
+ $self->_draw_shadow($ds, $i, $value, $topvalues, $l, $t, $r, $bottom);
+ if ($value >= 0)
+ {
+ # positive value
+ $self->{graph}->filledRectangle($l, $t, $r, $bottom, $dsci)
+ if defined $dsci;
+ $self->{graph}->rectangle($l, $t, $r, $bottom, $brci)
+ if defined $brci && $r - $l > $self->{accent_treshold};
+
+ $self->{_hotspots}->[$ds]->[$i] = ['rect', $l, $t, $r, $bottom]
+ }
+ else
+ {
+ # negative value
+ $self->{graph}->filledRectangle($l, $bottom, $r, $t, $dsci)
+ if defined $dsci;
+ $self->{graph}->rectangle($l, $bottom, $r, $t, $brci)
+ if defined $brci && $r - $l > $self->{accent_treshold};
+
+ $self->{_hotspots}->[$ds]->[$i] = ['rect', $l, $bottom, $r, $t]
+ }
+ }
+
+ return $ds;
+}
+
+sub draw_data_set
+{
+ $_[0]->{rotate_chart} ? goto &draw_data_set_h : goto &draw_data_set_v;
+}
+
+sub draw_values
+{
+ my $self = shift;
+
+ return $self unless $self->{show_values};
+
+ my $text_angle = $self->{values_vertical} ? PI/2 : 0;
+
+ for (my $dsn = 1; $dsn <= $self->{_data}->num_sets; $dsn++)
+ {
+ my @values = $self->{_data}->y_values($dsn) or
+ return $self->_set_error("Impossible illegal data set: $dsn",
+ $self->{_data}->error);
+ my @display = $self->{show_values}->y_values($dsn) or next;
+
+ for (my $i = 0; $i < @values; $i++)
+ {
+ next unless defined $display[$i];
+
+ my $value = $display[$i];
+ if (defined $self->{values_format})
+ {
+ $value = ref $self->{values_format} eq 'CODE' ?
+ &{$self->{values_format}}($value) :
+ sprintf($self->{values_format}, $value);
+ }
+
+ my ($xp, $yp);
+ if (defined($self->{x_min_value}) && defined($self->{x_max_value}))
+ {
+ ($xp, $yp) = $self->val_to_pixel(
+ $self->{_data}->get_x($i), $values[$i], $dsn);
+ }
+ else
+ {
+ ($xp, $yp) = $self->val_to_pixel($i+1, $values[$i], $dsn);
+ }
+ if ($self->{rotate_chart})
+ {
+ $xp += $self->{values_space};
+ unless ($self->{overwrite})
+ {
+ $yp -= $self->{x_step}/2 - ($dsn - 0.5)
+ * $self->{x_step}/$self->{_data}->num_sets;
+ }
+ }
+ else
+ {
+ $yp -= $self->{values_space};
+ unless ($self->{overwrite})
+ {
+ $xp -= $self->{x_step}/2 - ($dsn - 0.5)
+ * $self->{x_step}/$self->{_data}->num_sets;
+ }
+ }
+
+ $self->{gdta_values}->set_text($value);
+ $self->{gdta_values}->draw($xp, $yp, $text_angle);
+ }
+ }
+
+ return $self
+}
+
+"Just another true value";
generated by cgit v1.2.3 (git 2.25.1) at 2026-03-05 15:09:54 +0000