From bcbf441e09fb502cf64924ff2530fa144bdf52c5 Mon Sep 17 00:00:00 2001
From: Andreas Brachold <vdr07@deltab.de>
Date: Mon, 13 Aug 2007 18:41:27 +0000
Subject: * Move files to trunk

---
 lib/GD/Graph/cylinder.pm | 126 +++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 126 insertions(+)
 create mode 100644 lib/GD/Graph/cylinder.pm

(limited to 'lib/GD/Graph/cylinder.pm')

diff --git a/lib/GD/Graph/cylinder.pm b/lib/GD/Graph/cylinder.pm
new file mode 100644
index 0000000..ba8ab86
--- /dev/null
+++ b/lib/GD/Graph/cylinder.pm
@@ -0,0 +1,126 @@
+# $File: //depot/RG/rg/lib/RG/lib/GD/Graph/cylinder.pm $ $Author: autrijus $
+# $Revision: #3 $ $Change: 370 $ $DateTime: 2002/07/17 20:38:38 $
+
+package GD::Graph::cylinder;
+
+use strict;
+
+use GD::Graph::axestype3d;
+use GD::Graph::utils qw(:all);
+use GD::Graph::colour qw(:colours);
+
+use base qw/GD::Graph::bars3d/;
+$GD::Graph::cylinder::VERSION = '0.63';
+
+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 draw_bar_h {
+    my $self = shift;
+    my $g = shift;
+    my( $l, $t, $r, $b, $dsci, $brci, $neg ) = @_;
+    my $fnord = $g->colorAllocate(0,0,0);
+
+    my $depth = $self->{bar_depth};
+
+    my ($lighter, $darker) = ($dsci, $dsci);
+    if ($self->{'3d_shading'}) {
+	$lighter = $self->{'3d_highlights'}[$dsci];
+	$darker = $self->{'3d_shadows'}[$dsci];
+    }
+    $g->line($l+$depth, $t+1, $r+$depth, $t+1, $dsci);
+    $g->line($l+$depth, $b, $r+$depth, $b, $dsci);
+    $g->arc($r+$depth, ($t+$b)/2, $depth*2, ($b-$t), 270, 90, $dsci);
+    $g->arc($l+$depth, ($t+$b)/2, $depth*2, ($b-$t), 90, 270, $dsci);
+    # find border
+    my $foo = $l+$depth;
+    --$foo
+	until $foo == $l || $g->getPixel($foo, $t+($b-$t)/5) == $dsci;
+    my $bar = $foo+1;
+    ++$bar
+	until $bar == $foo || $g->getPixel($bar, $t+($b-$t)/5) == $dsci;
+    $g->line($foo, $t+($b-$t)/5, $bar, $t+($b-$t)/5, $dsci);
+    $g->line($foo, $b-($b-$t)/5, $bar, $b-($b-$t)/5, $dsci);
+    $g->fillToBorder($l+$depth, ($t+$b)/2, $dsci, $dsci);
+    $g->arc($l+$depth, ($b+$t)/2, $depth*2, ($b-$t), 90, 270, $dsci);
+    if ($foo < $bar + 3) {
+	$g->fillToBorder(($l+$r)/2+$depth, $t+($b-$t)/5-1, $dsci, $lighter)
+	    unless $g->getPixel(($l+$r)/2+$depth, $t+($b-$t)/5-1) == $dsci;
+	$g->fillToBorder(($l+$r)/2+$depth, $b-($b-$t)/5+1, $dsci, $darker)
+	    unless $g->getPixel(($l+$r)/2+$depth, $b-($b-$t)/5+1) == $dsci;
+	$g->fillToBorder(($l+$r)/2, ($t+$b)/2, $dsci, $dsci);
+    }
+    $g->arc($l+$depth, ($b+$t)/2, $depth*2, ($b-$t), 90, 270, $brci);
+    $g->arc($r+$depth, ($b+$t)/2, $depth*2, ($b-$t), 0, 360, $brci);
+    $g->line($l+$depth, $t+1, $r+$depth, $t+1, $brci);
+    $g->line($l+$depth, $b, $r+$depth, $b, $brci);
+    $g->fillToBorder($r+$depth, ($b+$t)/2, $brci, $dsci);
+}
+
+sub draw_bar {
+	my $self = shift;
+	return $self->draw_bar_h(@_) if $self->{rotate_chart};
+	my $g = shift;
+	my( $l, $t, $r, $b, $dsci, $brci, $neg ) = @_;
+	my $fnord = $g->colorAllocate(0,0,0);
+
+	my $depth = $self->{bar_depth};
+
+	my ($lighter, $darker) = ($dsci, $dsci);
+	if ($self->{'3d_shading'}) {
+	    $lighter = $self->{'3d_highlights'}[$dsci];
+	    $darker = $self->{'3d_shadows'}[$dsci];
+	}
+
+	$g->line($l+1, $t-$depth, $l+1, $b-$depth, $dsci);
+	$g->line($r, $t-$depth, $r, $b-$depth, $dsci);
+
+	$g->arc(($l+$r)/2, $t-$depth, ($r-$l), $depth*2, 180, 360, $dsci);
+	$g->arc(($l+$r)/2, $b-$depth, ($r-$l), $depth*2, 0, 180, $dsci);
+	# find border
+	my $foo = $b-$depth+1;
+	++$foo
+	    until $foo == $b || $g->getPixel($l+($r-$l)/5,$foo) == $dsci;
+	my $bar = $foo-1;
+	--$bar
+	    until $bar == $foo || $g->getPixel($l+($r-$l)/5,$bar) == $dsci;
+	$g->line($l+($r-$l)/5, $bar, $l+($r-$l)/5, $foo, $dsci);
+	$g->line($r-($r-$l)/5, $bar, $r-($r-$l)/5, $foo, $dsci);
+	$g->fillToBorder(($l+$r)/2, $t-$depth, $dsci, $dsci);
+	$g->arc(($l+$r)/2, $b-$depth, ($r-$l), $depth*2, 0, 180, $dsci);
+	if ($foo > $bar + 3) {
+	    $g->fillToBorder($l+($r-$l)/5-1, ($foo+$bar)/2, $dsci, $lighter)
+		unless $g->getPixel($l+($r-$l)/5-1, ($foo+$bar)/2) == $dsci;
+	    $g->fillToBorder($r-($r-$l)/5+1, ($foo+$bar)/2, $dsci, $darker)
+		unless $g->getPixel($r-($r-$l)/5+1, ($foo+$bar)/2) == $dsci;
+	    $g->fillToBorder(($l+$r)/2, ($t+$b)/2, $dsci, $dsci);
+	}
+	$g->arc(($l+$r)/2, $b-$depth, ($r-$l), $depth*2, 0, 180, $brci);
+	$g->arc(($l+$r)/2, $t-$depth, ($r-$l), $depth*2, 0, 360, $brci);
+	$g->line($l+1, $t-$depth, $l+1, $b-$depth, $brci);
+	$g->line($r, $t-$depth, $r, $b-$depth, $brci);
+	$g->fillToBorder(($l+$r)/2, $t-$depth, $brci, $dsci);
+}
+
+1;
+
+
-- 
cgit v1.2.3