From 3282be229999dc36c197b264d63063a18d136331 Mon Sep 17 00:00:00 2001
From: Andreas Brachold <vdr07@deltab.de>
Date: Sun, 11 Nov 2007 06:55:13 +0000
Subject: * Update installation list with required modules * Remove
 unused/doubled provided external perl moduls

---
 lib/GD/Graph/lines.pm | 182 --------------------------------------------------
 1 file changed, 182 deletions(-)
 delete mode 100644 lib/GD/Graph/lines.pm

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

diff --git a/lib/GD/Graph/lines.pm b/lib/GD/Graph/lines.pm
deleted file mode 100644
index 2dac4dd..0000000
--- a/lib/GD/Graph/lines.pm
+++ /dev/null
@@ -1,182 +0,0 @@
-#==========================================================================
-#              Copyright (c) 1995-1998 Martien Verbruggen
-#--------------------------------------------------------------------------
-#
-#   Name:
-#       GD::Graph::lines.pm
-#
-# $Id: lines.pm,v 1.15 2003/02/10 22:12:41 mgjv 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";
-- 
cgit v1.2.3