Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
Data.pm	16.79 KB	-rw-r--r--
Error.pm	8.96 KB	-rw-r--r--
FAQ.pod	5.77 KB	-rw-r--r--
area.pm	2.91 KB	-rw-r--r--
axestype.pm	60.28 KB	-rw-r--r--
axestype3d.pm	22.78 KB	-rw-r--r--
bars.pm	12.3 KB	-rw-r--r--
bars3d.pm	9.77 KB	-rw-r--r--
colour.pm	7.57 KB	-rw-r--r--
cylinder.pm	4.2 KB	-rw-r--r--
cylinder3d.pm	919 B	-rw-r--r--
hbars.pm	1.59 KB	-rw-r--r--
lines.pm	4.34 KB	-rw-r--r--
lines3d.pm	16.53 KB	-rw-r--r--
linespoints.pm	1.19 KB	-rw-r--r--
mixed.pm	2.91 KB	-rw-r--r--
pie.pm	12.58 KB	-rw-r--r--
pie3d.pm	8.03 KB	-rw-r--r--
points.pm	4.99 KB	-rw-r--r--
utils.pm	1.22 KB	-rw-r--r--

Code Editor : lines.pm

#==========================================================================
#              Copyright (c) 1995-1998 Martien Verbruggen
#--------------------------------------------------------------------------
#
#   Name:
#       GD::Graph::lines.pm
#
# $Id: lines.pm,v 1.15 2005/12/14 04:13:00 ben Exp $
#
#==========================================================================

package GD::Graph::lines;

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

use strict;
 
use GD;
use GD::Graph::axestype;

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

# PRIVATE

sub draw_data_set
{
    my $self = shift;
    my $ds = shift;

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

my $dsci = $self->set_clr($self->pick_data_clr($ds) );
    my $type = $self->pick_line_type($ds);

my ($xb, $yb);
    if (defined $values[0])
    {
        if (defined($self->{x_min_value}) && defined($self->{x_max_value}))
        {
            ($xb, $yb) =
                $self->val_to_pixel($self->{_data}->get_x(0), $values[0], $ds);
        }
        else    
        {
            ($xb, $yb) = $self->val_to_pixel(1, $values[0], $ds);
        }
    }

for (my $i = 0; $i < @values; $i++)
    {
        if (!defined $values[$i])
        {
            ($xb, $yb) = () if $self->{skip_undef};
            next;
        }

my ($xe, $ye);

if (defined($self->{x_min_value}) && defined($self->{x_max_value}))
        {
            ($xe, $ye) = $self->val_to_pixel(
                $self->{_data}->get_x($i), $values[$i], $ds);
        }
        else
        {
            ($xe, $ye) = $self->val_to_pixel($i+1, $values[$i], $ds);
        }

if (defined $xb)
        {
            $self->draw_line($xb, $yb, $xe, $ye, $type, $dsci)
                if defined $dsci;
            $self->{_hotspots}->[$ds]->[$i] = 
                ['line', $xb, $yb, $xe, $ye, $self->{line_width}];
        }
        ($xb, $yb) = ($xe, $ye);
   }

return $ds;
}

sub pick_line_type
{
    my $self = shift;
    my $num = shift;

ref $self->{line_types} ?
        $self->{line_types}[ $num % (1 + $#{$self->{line_types}}) - 1 ] :
        $num % 4 ? $num % 4 : 4
}

sub draw_line # ($xs, $ys, $xe, $ye, $type, $colour_index)
{
    my $self = shift;
    my ($xs, $ys, $xe, $ye, $type, $clr) = @_;

my $lw = $self->{line_width};
    my $lts = $self->{line_type_scale};

my $style = gdStyled;
    my @pattern = ();

LINE: {

($type == 2) && do {
            # dashed

for (1 .. $lts) { push @pattern, $clr }
            for (1 .. $lts) { push @pattern, gdTransparent }

$self->{graph}->setStyle(@pattern);

last LINE;
        };

($type == 3) && do {
            # dotted,

for (1 .. 2) { push @pattern, $clr }
            for (1 .. 2) { push @pattern, gdTransparent }

$self->{graph}->setStyle(@pattern);

last LINE;
        };

($type == 4) && do {
            # dashed and dotted

for (1 .. $lts) { push @pattern, $clr }
            for (1 .. 2)    { push @pattern, gdTransparent }
            for (1 .. 2)    { push @pattern, $clr }
            for (1 .. 2)    { push @pattern, gdTransparent }

$self->{graph}->setStyle(@pattern);

last LINE;
        };

# default: solid
        $style = $clr;
    }

# Tried the line_width thing with setBrush, ugly results
    # TODO: This loop probably should be around the datasets 
    # for nicer results
    my $i;
    for $i (1..$lw)
    {
        my $yslw = $ys + int($lw/2) - $i;
        my $yelw = $ye + int($lw/2) - $i;

# Need the setstyle to reset 
        $self->{graph}->setStyle(@pattern) if (@pattern);
        $self->{graph}->line( $xs, $yslw, $xe, $yelw, $style );
    }
}

sub draw_legend_marker # (data_set_number, x, y)
{
    my $self = shift;
    my ($n, $x, $y) = @_;

my $ci = $self->set_clr($self->pick_data_clr($n));
    return unless defined $ci;
    my $type = $self->pick_line_type($n);

$y += int($self->{lg_el_height}/2);

#  Joe Smith <jms@tardis.Tymnet.COM>
    local($self->{line_width}) = 2;    # Make these show up better

$self->draw_line(
        $x, $y, 
        $x + $self->{legend_marker_width}, $y,
        $type, $ci
    );
}

"Just another true value";

${this.title}

Code Editor : lines.pm