summaryrefslogtreecommitdiff
path: root/lib/GD/Graph/bars3d.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/GD/Graph/bars3d.pm')
-rw-r--r--lib/GD/Graph/bars3d.pm349
1 files changed, 349 insertions, 0 deletions
diff --git a/lib/GD/Graph/bars3d.pm b/lib/GD/Graph/bars3d.pm
new file mode 100644
index 0000000..5344976
--- /dev/null
+++ b/lib/GD/Graph/bars3d.pm
@@ -0,0 +1,349 @@
+#==========================================================================
+# Module: GD::Graph::bars3d
+#
+# Copyright (C) 1999,2001 Wadsack-Allen. All Rights Reserved.
+#
+# Based on GD::Graph::bars.pm,v 1.16 2000/03/18 10:58:39 mgjv
+# Copyright (c) 1995-1998 Martien Verbruggen
+#
+#--------------------------------------------------------------------------
+# Date Modification Author
+# -------------------------------------------------------------------------
+# 1999SEP18 Created 3D bar chart class (this module) JAW
+# 1999SEP19 Rewrote to include a single bar-drawing JAW
+# function and process all bars in series
+# 1999SEP19 Implemented support for overwrite 2 style JAW
+# 1999SEP19 Fixed a bug in color cycler (colors were off by 1) JAW
+# 2000JAN19 Converted to GD::Graph class JAW
+# 2000MAR10 Fixed bug where bars ran off bottom of chart JAW
+# 2000APR18 Modified to be compatible with GD::Graph 1.30 JAW
+# 2000APR24 Fixed a lot of rendering bugs and added shading JAW
+# 2000AUG21 Added 3d shading JAW
+# 2000AUG24 Fixed shading on cycle_clrs option JAW
+# 06Dec2002 Fixed on-bar rendering with bars.pm draw_values JW
+#==========================================================================
+package GD::Graph::bars3d;
+
+use strict;
+
+use GD::Graph::axestype3d;
+use GD::Graph::bars;
+use GD::Graph::utils qw(:all);
+use GD::Graph::colour qw(:colours);
+
+@GD::Graph::bars3d::ISA = qw(GD::Graph::axestype3d);
+$GD::Graph::bars3d::VERSION = '0.63';
+
+use constant PI => 4 * atan2(1,1);
+
+
+my %Defaults = (
+ # Spacing between the bars
+ bar_spacing => 0,
+
+ # The 3-d extrusion depth of the bars
+ bar_depth => 10,
+);
+
+sub initialise
+{
+ my $self = shift;
+
+ my $rc = $self->SUPER::initialise();
+ $self->set(correct_width => 1);
+
+ while( my($key, $val) = each %Defaults ) {
+ $self->{$key} = $val
+ } # end while
+
+ return $rc;
+} # end initialise
+
+sub set
+{
+ my $s = shift;
+ my %args = @_;
+
+ $s->{_set_error} = 0;
+
+ for (keys %args)
+ {
+ /^bar_depth$/ and do
+ {
+ $s->{bar_depth} = $args{$_};
+ delete $args{$_};
+ next;
+ };
+ }
+
+ return $s->SUPER::set(%args);
+}
+
+
+# CONTRIB Jeremy Wadsack
+# This is a complete overhaul of the original GD::Graph::bars
+# design, because all versions (overwrite = 0, 1, 2)
+# require that the bars be drawn in a loop of point over sets
+sub draw_data
+{
+ my $self = shift;
+ my $g = $self->{graph};
+
+ my $bar_s = _round($self->{bar_spacing}/2);
+
+ my $zero = $self->{zeropoint};
+
+ my $i;
+ my @iterate = (0 .. $self->{_data}->num_points());
+ for $i ($self->{rotate_chart} ? reverse(@iterate) : @iterate) {
+ my ($xp, $t);
+ my $overwrite = 0;
+ $overwrite = $self->{overwrite} if defined $self->{overwrite};
+
+ my $j;
+ my @iterate = (1 .. $self->{_data}->num_sets());
+ for $j (($self->{rotate_chart} && $self->{cumulate} == 0) ? reverse(@iterate) : @iterate) {
+ my $value = $self->{_data}->get_y( $j, $i );
+ next unless defined $value;
+
+ my $bottom = $self->_get_bottom($j, $i);
+ $value = $self->{_data}->get_y_cumulative($j, $i)
+ if ($self->{cumulate});
+
+ # Pick a data colour, calc shading colors too, if requested
+ # cycle_clrs option sets the color based on the point, not the dataset.
+ my @rgb;
+ if( $self->{cycle_clrs} ) {
+ @rgb = $self->pick_data_clr( $i + 1 );
+ } else {
+ @rgb = $self->pick_data_clr( $j );
+ } # end if
+ my $dsci = $self->set_clr( @rgb );
+ if( $self->{'3d_shading'} ) {
+ $self->{'3d_highlights'}[$dsci] = $self->set_clr( $self->_brighten( @rgb ) );
+ $self->{'3d_shadows'}[$dsci] = $self->set_clr( $self->_darken( @rgb ) );
+ } # end if
+
+ # contrib "Bremford, Mike" <mike.bremford@gs.com>
+ my $brci;
+ if( $self->{cycle_clrs} > 1 ) {
+ $brci = $self->set_clr($self->pick_data_clr($i + 1));
+ } else {
+ $brci = $self->set_clr($self->pick_border_clr($j));
+ } # end if
+
+
+ # get coordinates of top and center of bar
+ ($xp, $t) = $self->val_to_pixel($i + 1, $value, $j);
+
+ # calculate offsets of this bar
+ my $x_offset = 0;
+ my $y_offset = 0;
+ if( $overwrite == 1 ) {
+ $x_offset = $self->{bar_depth} * ($self->{_data}->num_sets() - $j);
+ $y_offset = $self->{bar_depth} * ($self->{_data}->num_sets() - $j);
+ }
+ $t -= $y_offset;
+
+
+ # calculate left and right of bar
+ my ($l, $r);
+ if ($self->{rotate_chart}) {
+ $l = $bottom;
+ ($r) = $self->val_to_pixel($i + 1, $value, $j);
+ }
+
+ if( (ref $self eq 'GD::Graph::mixed') || ($overwrite >= 1) )
+ {
+ if ($self->{rotate_chart}) {
+ $bottom = $t + $self->{x_step}/2 - $bar_s + $x_offset;
+ $t = $t - $self->{x_step}/2 + $bar_s + $x_offset;
+ }
+ else
+ {
+ $l = $xp - $self->{x_step}/2 + $bar_s + $x_offset;
+ $r = $xp + $self->{x_step}/2 - $bar_s + $x_offset;
+ }
+ }
+ else
+ {
+ if ($self->{rotate_chart}) {
+ warn "base is $t";
+ $bottom = $t - $self->{x_step}/2
+ + ($j) * $self->{x_step}/$self->{_data}->num_sets()
+ + $bar_s + $x_offset;
+ $t = $t - $self->{x_step}/2
+ + ($j-1) * $self->{x_step}/$self->{_data}->num_sets()
+ - $bar_s + $x_offset;
+ warn "top bottom is ($t, $bottom)";
+ }
+ else
+ {
+ $l = $xp
+ - $self->{x_step}/2
+ + ($j - 1) * $self->{x_step}/$self->{_data}->num_sets()
+ + $bar_s + $x_offset;
+ $r = $xp
+ - $self->{x_step}/2
+ + $j * $self->{x_step}/$self->{_data}->num_sets()
+ - $bar_s + $x_offset;
+ }
+ }
+
+ if ($value >= 0) {
+ # draw the positive bar
+ $self->draw_bar( $g, $l, $t, $r, $bottom-$y_offset, $dsci, $brci, 0 )
+ } else {
+ # draw the negative bar
+ $self->draw_bar( $g, $l, $bottom-$y_offset, $r, $t, $dsci, $brci, -1 )
+ } # end if
+
+ } # end for
+ } # end for
+
+
+ # redraw the 'zero' axis, front and right
+ if( $self->{zero_axis} ) {
+ $g->line(
+ $self->{left}, $self->{zeropoint},
+ $self->{right}, $self->{zeropoint},
+ $self->{fgci} );
+ $g->line(
+ $self->{right}, $self->{zeropoint},
+ $self->{right}+$self->{depth_3d}, $self->{zeropoint}-$self->{depth_3d},
+ $self->{fgci} );
+ } # end if
+
+ # redraw the box face
+ if ( $self->{box_axis} ) {
+ # Axes box
+ $g->rectangle($self->{left}, $self->{top}, $self->{right}, $self->{bottom}, $self->{fgci});
+ $g->line($self->{right}, $self->{top}, $self->{right} + $self->{depth_3d}, $self->{top} - $self->{depth_3d}, $self->{fgci});
+ $g->line($self->{right}, $self->{bottom}, $self->{right} + $self->{depth_3d}, $self->{bottom} - $self->{depth_3d}, $self->{fgci});
+ } # end if
+
+ return $self;
+
+} # end draw_data
+
+# CONTRIB Jeremy Wadsack
+# This function draws a bar at the given
+# coordinates. This is called in all three
+# overwrite modes.
+sub draw_bar {
+ my $self = shift;
+ my $g = shift;
+ my( $l, $t, $r, $b, $dsci, $brci, $neg ) = @_;
+
+ # get depth of the bar
+ my $depth = $self->{bar_depth};
+
+ # get the bar shadow depth and color
+ my $bsd = $self->{shadow_depth};
+ my $bsci = $self->set_clr(_rgb($self->{shadowclr}));
+
+ my( $xi );
+
+ # shadow
+ if( $bsd > 0 ) {
+ my $sb = $b - $depth;
+ my $st = $t - $depth + $bsd;
+
+ if( $neg != 0 ) {
+ $st -= $bsd;
+ if( $self->{zero_axis_only} ) {
+ $sb += $bsd;
+ } else {
+ $sb = _min($b-$depth+$bsd, $self->{bottom}-$depth);
+ } # end if
+ } # end if
+
+ # ** If this isn't the back bar, then no side shadow should be
+ # drawn or else the top should be lowered by
+ # ($bsd * dataset_num), it should be drawn on the back surface,
+ # and a shadow should be drawn behind the front bar if the
+ # bar is positive and the back is negative.
+
+ $g->filledRectangle($l+$depth+$bsd,
+ $st,
+ $r+$depth+$bsd,
+ $sb,
+ $bsci);
+
+ # Only draw bottom shadow if at the bottom and has bottom
+ # axis. Always draw top shadow
+ if( ($neg == 0) || ($sb >= $self->{bottom}-$depth) ) {
+ my $poly = new GD::Polygon;
+ $poly->addPt( $r, $b );
+ $poly->addPt( $r+$bsd, $b );
+ $poly->addPt( $r+$depth+$bsd, $b-$depth );
+ $poly->addPt( $r+$depth, $b-$depth );
+ $g->filledPolygon( $poly, $bsci );
+ } # end if
+
+ } # end if
+
+ # side
+ my $poly = new GD::Polygon;
+ $poly->addPt( $r, $t );
+ $poly->addPt( $r+$depth, $t-$depth );
+ $poly->addPt( $r+$depth, $b-$depth );
+ $poly->addPt( $r, $b );
+ if( $self->{'3d_shading'} ) {
+ $g->filledPolygon( $poly, $self->{'3d_shadows'}[$dsci] );
+ } else {
+ $g->filledPolygon( $poly, $dsci );
+ } # end if
+ $g->polygon( $poly, $brci );
+
+ # top
+ # -- only draw negative tops if the bar starts at zero
+ if( ($neg == 0) || ($t <= $self->{zeropoint}) ) {
+ $poly = new GD::Polygon;
+ $poly->addPt( $l, $t );
+ $poly->addPt( $l+$depth, $t-$depth );
+ $poly->addPt( $r+$depth, $t-$depth );
+ $poly->addPt( $r, $t );
+ if( $self->{'3d_shading'} ) {
+ $g->filledPolygon( $poly, $self->{'3d_highlights'}[$dsci] );
+ } else {
+ $g->filledPolygon( $poly, $dsci );
+ } # end if
+ $g->polygon( $poly, $brci );
+ } # end if
+
+ # face
+ $g->filledRectangle( $l, $t, $r, $b, $dsci );
+ $g->rectangle( $l, $t, $r, $b, $brci );
+
+} # end draw_bar
+
+# [JAW] Overrides axestype's set_max_min.
+# Go through the parent's process then adjust the baseline to 0 for bar graphs.
+sub set_max_min {
+ my $self = shift;
+
+ $self->SUPER::set_max_min( @_ );
+
+ # This code is taken from Martien's axestype.pm
+ for my $i (1..($self->{two_axes} ? 2 : 1)) {
+ # If at the same side of the zero axis
+ if( $self->{y_max}[$i] && $self->{y_min}[$i]/$self->{y_max}[$i] > 0 ) {
+ $self->{y_min}[$i] > 0 ?
+ $self->{y_min}[$i] = 0 :
+ $self->{y_max}[$i] = 0 ;
+ } # end if
+ } # end for
+
+ return $self;
+} # end set_max_min
+
+
+# [JW] Just use the one in GD::Graph::bars
+sub draw_values
+{
+ return &GD::Graph::bars::draw_values( @_ );
+}
+
+
+1;
generated by cgit v1.2.3 (git 2.25.1) at 2026-03-04 11:58:27 +0000