Gecko [ 37julay.space ]

Name	Size	Permission	Date
Data.pm	16.79 KB	-rw-r--r--	2013-06-22 21:40
Error.pm	8.96 KB	-rw-r--r--	2013-07-05 14:46
FAQ.pod	5.77 KB	-rw-r--r--	2013-06-22 21:40
area.pm	2.91 KB	-rw-r--r--	2013-06-22 21:40
axestype.pm	60.28 KB	-rw-r--r--	2016-11-21 11:57
bars.pm	12.3 KB	-rw-r--r--	2015-12-27 16:47
colour.pm	7.57 KB	-rw-r--r--	2013-06-22 21:40
hbars.pm	1.59 KB	-rw-r--r--	2013-06-22 21:40
lines.pm	4.34 KB	-rw-r--r--	2013-06-22 21:40
linespoints.pm	1.19 KB	-rw-r--r--	2013-06-22 21:40
mixed.pm	2.91 KB	-rw-r--r--	2013-06-22 21:40
pie.pm	12.58 KB	-rw-r--r--	2015-12-27 16:43
points.pm	4.99 KB	-rw-r--r--	2013-06-22 21:40
utils.pm	1.22 KB	-rw-r--r--	2013-06-22 21:40

Rename

#==========================================================================
#              Copyright (c) 1995-2000 Martien Verbruggen
#--------------------------------------------------------------------------
#
#   Name:
#       GD::Graph::area.pm
#
# $Id: area.pm,v 1.17 2007/04/26 03:16:09 ben Exp $
#
#==========================================================================

package GD::Graph::area;
 
($GD::Graph::area::VERSION) = '$Revision: 1.17 $' =~ /\s([\d.]+)/;

use strict;

use GD::Graph::axestype;

@GD::Graph::area::ISA = qw( GD::Graph::axestype );

# PRIVATE
sub draw_data_set
{
    my $self = shift;       # object reference
    my $ds   = shift;       # number of the data set

my @values = $self->{_data}->y_values($ds) or
        return $self->_set_error("Impossible illegal data set: $ds",
            $self->{_data}->error);

# Select a data colour
    my $dsci = $self->set_clr($self->pick_data_clr($ds));
    my $brci = $self->set_clr($self->pick_border_clr($ds));

# Create a new polygon
    my $poly = GD::Polygon->new();

my (@top,@bottom);

# Add the data points
    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};

my ($x, $y) = $self->val_to_pixel($i + 1, $value, $ds);
        push @top, [$x, $y];
        # Need to keep track of this stuff for hotspots, and because
        # it's the only reliable way of closing the polygon, without
        # making odd assumptions.
        push @bottom, [$x, $bottom];

# Hotspot stuff
        # XXX needs fixing. Not used at the moment.
        next unless defined $self->{_hotspots}->[$ds]->[$i];
        if ($i == 0)
        {
            $self->{_hotspots}->[$ds]->[$i] = ["poly", 
                $x, $y,
                $x , $bottom,
                $x - 1, $bottom,
                $x - 1, $y,
                $x, $y];
        }
        else
        {
            $self->{_hotspots}->[$ds]->[$i] = ["poly", 
                $poly->getPt($i),
                @{$bottom[$i]},
                @{$bottom[$i-1]},
                $poly->getPt($i-1),
                $poly->getPt($i)];
        }
    }

foreach my $pair (@top, reverse @bottom)
    {
        $poly->addPt( @$pair );
    }

# Draw a filled and a line polygon
    $self->{graph}->filledPolygon($poly, $dsci)
        if defined $dsci;
    $self->{graph}->polygon($poly, $brci)
        if defined $brci;

# Draw the accent lines
    if (defined $brci &&
       ($self->{right} - $self->{left})/@values > $self->{accent_treshold})
    {
        for my $i ( 0 .. $#top )
        {
            my ($x, $y) = @{$top[$i]};
            my $bottom = $bottom[$i]->[1];
            $self->{graph}->dashedLine($x, $y, $x, $bottom, $brci);
        }
    }

return $ds
}

"Just another true value";